packages feed

KiCS-debugger 0.1.0 → 0.1.1

raw patch · 96 files changed

+105411/−17 lines, 96 filesdep ~KiCSdep ~KiCS-prophecydep ~curry-basesetup-changed

Dependency ranges changed: KiCS, KiCS-prophecy, curry-base

Files

+ Curry/DebugModule/AnsiCodes.fcy view
@@ -0,0 +1,1 @@+Prog "AnsiCodes" ["Char","List","Prelude"] [] [Func ("AnsiCodes","esc") 0 Private (TCons ("Prelude","Char") []) (Rule [] (Comb FuncCall ("Prelude","chr") [Lit (Intc  27)])),Func ("AnsiCodes","cmd") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb ConsCall ("Prelude",":") [Comb FuncCall ("AnsiCodes","esc") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '['),Comb ConsCall ("Prelude","[]") []],Var 1]])),Func ("AnsiCodes","cursorPos") 2 Public (FuncType (TVar 0) (FuncType (TVar 1) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("AnsiCodes","cmd") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 1],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Comb ConsCall ("Prelude",":") [Lit (Charc  'H'),Comb ConsCall ("Prelude","[]") []]]]]])),Func ("AnsiCodes","cursorHome") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb FuncCall ("AnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc  'H'),Comb ConsCall ("Prelude","[]") []]])),Func ("AnsiCodes","moveCursor") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("AnsiCodes","cmd") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 2],Var 1]])),Func ("AnsiCodes","cursorUp") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc  'A'),Comb ConsCall ("Prelude","[]") []]])),Func ("AnsiCodes","cursorDown") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc  'B'),Comb ConsCall ("Prelude","[]") []]])),Func ("AnsiCodes","cursorFwd") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude","[]") []]])),Func ("AnsiCodes","cursorBack") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","moveCursor") [Comb ConsCall ("Prelude",":") [Lit (Charc  'D'),Comb ConsCall ("Prelude","[]") []]])),Func ("AnsiCodes","saveCursor") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb FuncCall ("AnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]])),Func ("AnsiCodes","restoreCursor") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb FuncCall ("AnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude","[]") []]])),Func ("AnsiCodes","clear") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb FuncCall ("AnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc  '2'),Comb ConsCall ("Prelude",":") [Lit (Charc  'J'),Comb ConsCall ("Prelude","[]") []]]])),Func ("AnsiCodes","eraseLine") 0 Public (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (Rule [] (Comb FuncCall ("AnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc  'K'),Comb ConsCall ("Prelude","[]") []]])),Func ("AnsiCodes","mode") 2 Private (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Let [(3,Comb FuncCall ("AnsiCodes","cmd") [Comb ConsCall ("Prelude",":") [Lit (Charc  '0'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude","[]") []]]])] (Comb FuncCall ("AnsiCodes","cmd") [Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 1],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 2,Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("AnsiCodes","isSuffixOf") [Var 3],Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Var 3)]]]]]))),Func ("AnsiCodes","isSuffixOf") 1 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("List","isPrefixOf") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","reverse") [],Var 1]],Comb FuncCall ("Prelude","reverse") []])),Func ("AnsiCodes","bold") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  1)])),Func ("AnsiCodes","underline") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  4)])),Func ("AnsiCodes","revColors") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  7)])),Func ("AnsiCodes","concealed") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  8)])),Func ("AnsiCodes","black") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  30)])),Func ("AnsiCodes","red") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  31)])),Func ("AnsiCodes","green") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  32)])),Func ("AnsiCodes","yellow") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  33)])),Func ("AnsiCodes","blue") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  34)])),Func ("AnsiCodes","magenta") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  35)])),Func ("AnsiCodes","cyan") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  36)])),Func ("AnsiCodes","white") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  37)])),Func ("AnsiCodes","bgBlack") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  40)])),Func ("AnsiCodes","bgRed") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  41)])),Func ("AnsiCodes","bgGreen") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  42)])),Func ("AnsiCodes","bgYellow") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  43)])),Func ("AnsiCodes","bgBlue") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  44)])),Func ("AnsiCodes","bgMagenta") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  45)])),Func ("AnsiCodes","bgCyan") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  46)])),Func ("AnsiCodes","bgWhite") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("AnsiCodes","mode") [Lit (Intc  47)])),Func ("AnsiCodes","ansiLength") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("AnsiCodes","ansiLength.aux.95") [Var 1,Comb FuncCall ("Prelude","length") [Var 1]])),Func ("AnsiCodes","ansiLength.aux.95") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 3,Comb FuncCall ("AnsiCodes","esc") []],Comb FuncCall ("Char","isDigit") [Comb FuncCall ("Prelude","!!") [Var 4,Lit (Intc  2)]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AnsiCodes","ansiLength.aux.95") [Comb FuncCall ("Prelude","tail") [Comb FuncCall ("Prelude","tail") [Comb FuncCall ("Prelude","tail") [Comb FuncCall ("Prelude","tail") [Var 4]]]],Comb FuncCall ("Prelude","-") [Var 2,Lit (Intc  5)]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Comb FuncCall ("AnsiCodes","esc") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AnsiCodes","ansiLength.aux.95") [Comb FuncCall ("Prelude","tail") [Comb FuncCall ("Prelude","tail") [Comb FuncCall ("Prelude","tail") [Var 4]]],Comb FuncCall ("Prelude","-") [Var 2,Lit (Intc  4)]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("AnsiCodes","ansiLength.aux.95") [Var 4,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])]))] []
+ Curry/DebugModule/CSV.fcy view
@@ -0,0 +1,1 @@+Prog "CSV" ["List","Prelude"] [] [Func ("CSV","writeCSVFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","writeFile") [Var 1,Comb FuncCall ("CSV","showCSV") [Var 2]])),Func ("CSV","showCSV") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CSV","showCSVLine") []],Var 1])),Func ("CSV","showCSVLine") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("CSV","showCSVLine.convert.7") [],Var 1]]],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]])),Func ("CSV","showCSVLine.convert.7") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","any") [Comb (FuncPartCall 1) ("CSV","showCSVLine.convert.7._#lambda2") []],Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("CSV","showCSVLine.convert.7._#lambda3") []],Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Var 1)])),Func ("CSV","showCSVLine.convert.7._#lambda2") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []]]]]])),Func ("CSV","showCSVLine.convert.7._#lambda3") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 1,Comb ConsCall ("Prelude",":") [Var 1,Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Var 1,Comb ConsCall ("Prelude","[]") []])])),Func ("CSV","readCSVFile") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]])) (Rule [] (Comb (FuncPartCall 1) ("CSV","readCSVFileWithDelims") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]])),Func ("CSV","readCSVFileWithDelims") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 2],Comb (FuncPartCall 1) ("CSV","readCSVFileWithDelims._#lambda4") [Var 1]])),Func ("CSV","readCSVFileWithDelims._#lambda4") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]]))) (Rule [1,2] (Comb FuncCall ("Prelude","return") [Comb FuncCall ("CSV","readCSVWithDelims") [Var 1,Var 2]])),Func ("CSV","readCSV") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [] (Comb (FuncPartCall 1) ("CSV","readCSVWithDelims") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude","[]") []]])),Func ("CSV","readCSVWithDelims") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("CSV","components") [Var 1],Comb FuncCall ("Prelude","lines") [Var 2]])),Func ("CSV","components") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("Prelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("CSV","components.breakString.25") [Var 5,Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(6,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","break") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 1) ("Prelude","elem") [],Var 1]],Comb ConsCall ("Prelude",":") [Var 3,Var 4]])] (Let [(7,Comb FuncCall ("CSV","components._#selFP9#e") [Var 6])] (Let [(8,Comb FuncCall ("CSV","components._#selFP10#s") [Var 6])] (Comb ConsCall ("Prelude",":") [Var 7,Case  Rigid (Comb FuncCall ("Prelude","null") [Var 8]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("CSV","components") [Var 1,Comb FuncCall ("Prelude","tail") [Var 8]])]]))))]))])),Func ("CSV","components.breakString.25") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Var 1),Branch (Pattern ("Prelude",":") [4,5]) (Case  Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Var 1)]),Branch (Pattern ("Prelude",":") [6,7]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 4,Lit (Charc  '"')],Comb FuncCall ("Prelude","==") [Var 6,Lit (Charc  '"')]]) [Branch (Pattern ("Prelude","True") []) (Let [(8,Comb FuncCall ("CSV","components.breakString.25") [Var 1,Var 2,Var 7])] (Let [(9,Comb FuncCall ("CSV","components.breakString.25._#selFP3#b") [Var 8])] (Let [(10,Comb FuncCall ("CSV","components.breakString.25._#selFP4#bs") [Var 8])] (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Var 9],Var 10])))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 4,Lit (Charc  '"')],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 6],Var 2]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("CSV","components") [Var 2,Var 7]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Let [(11,Comb FuncCall ("CSV","components.breakString.25") [Var 1,Var 2,Comb ConsCall ("Prelude",":") [Var 6,Var 7]])] (Let [(12,Comb FuncCall ("CSV","components.breakString.25._#selFP6#b") [Var 11])] (Let [(13,Comb FuncCall ("CSV","components.breakString.25._#selFP7#bs") [Var 11])] (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Var 12],Var 13])))),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])),Func ("CSV","components.breakString.25._#selFP3#b") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Var 2)])),Func ("CSV","components.breakString.25._#selFP4#bs") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Var 3)])),Func ("CSV","components.breakString.25._#selFP6#b") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Var 2)])),Func ("CSV","components.breakString.25._#selFP7#bs") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Var 3)])),Func ("CSV","components._#selFP9#e") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("CSV","components._#selFP10#s") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)]))] []
+ Curry/DebugModule/Char.fcy view
@@ -0,0 +1,1 @@+Prog "Char" ["Prelude"] [] [Func ("Char","isUpper") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')]],Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'Z')]]])),Func ("Char","isLower") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'a')]],Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'z')]]])),Func ("Char","isAlpha") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Char","isUpper") [Var 1],Comb FuncCall ("Char","isLower") [Var 1]])),Func ("Char","isDigit") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Lit (Charc  '0')],Comb FuncCall ("Prelude","ord") [Var 1]],Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  '9')]]])),Func ("Char","isAlphaNum") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Char","isAlpha") [Var 1],Comb FuncCall ("Char","isDigit") [Var 1]])),Func ("Char","isOctDigit") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  '0')]],Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  '7')]]])),Func ("Char","isHexDigit") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Char","isDigit") [Var 1],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')]],Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'F')]]],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'a')]],Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'f')]]]]])),Func ("Char","isSpace") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  ' ')],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\t')],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\n')],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\r')],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","ord") [Var 1],Lit (Intc  12)]]]]])),Func ("Char","toUpper") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Char") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Char","isLower") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'a')]],Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])),Func ("Char","toLower") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Char") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Char","isUpper") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')]],Comb FuncCall ("Prelude","ord") [Lit (Charc  'a')]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])),Func ("Char","digitToInt") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Char","isDigit") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  '0')]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')]],Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'F')]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')]],Lit (Intc  10)]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'a')]],Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'f')]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'a')]],Lit (Intc  10)]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("Char","intToDigit") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Char") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Var 1,Lit (Intc  0)],Comb FuncCall ("Prelude","<=") [Var 1,Lit (Intc  9)]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","ord") [Lit (Charc  '0')],Var 1]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Var 1,Lit (Intc  10)],Comb FuncCall ("Prelude","<=") [Var 1,Lit (Intc  15)]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')],Var 1],Lit (Intc  10)]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])]))] []
+ Curry/DebugModule/Dequeue.fcy view
@@ -0,0 +1,1 @@+Prog "Dequeue" ["Prelude"] [Type ("Dequeue","Queue") Public [0] [Cons ("Dequeue","S") 4 Private [TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","Int") [],TCons ("Prelude","[]") [TVar 0]]]] [Func ("Dequeue","empty") 0 Public (TCons ("Dequeue","Queue") [TVar 0]) (Rule [] (Comb ConsCall ("Dequeue","S") [Lit (Intc  0),Comb ConsCall ("Prelude","[]") [],Lit (Intc  0),Comb ConsCall ("Prelude","[]") []])),Func ("Dequeue","isEmpty") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Dequeue","S") [2,3,4,5]) (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","+") [Var 2,Var 4],Lit (Intc  0)])])),Func ("Dequeue","deqHead") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TVar 0)) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Dequeue","S") [2,3,4,5]) (Comb FuncCall ("Prelude","head") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Var 5),Branch (Pattern ("Prelude","False") []) (Var 3)]])])),Func ("Dequeue","deqLast") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TVar 0)) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Dequeue","S") [2,3,4,5]) (Comb FuncCall ("Prelude","head") [Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Var 3),Branch (Pattern ("Prelude","False") []) (Var 5)]])])),Func ("Dequeue","cons") 2 Public (FuncType (TVar 0) (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("Dequeue","check") [Comb FuncCall ("Prelude","+") [Var 3,Lit (Intc  1)],Comb ConsCall ("Prelude",":") [Var 1,Var 4],Var 5,Var 6])])),Func ("Dequeue","deqTail") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Dequeue","Queue") [TVar 0])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Dequeue","S") [2,3,4,5]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Dequeue","empty") []),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("Dequeue","deqReverse") [Comb FuncCall ("Dequeue","check") [Var 4,Var 5,Comb FuncCall ("Prelude","-") [Var 2,Lit (Intc  1)],Var 7]])])])),Func ("Dequeue","snoc") 2 Public (FuncType (TVar 0) (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Dequeue","Queue") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Dequeue","S") [3,4,5,6]) (Comb FuncCall ("Dequeue","deqReverse") [Comb FuncCall ("Dequeue","check") [Comb FuncCall ("Prelude","+") [Var 5,Lit (Intc  1)],Comb ConsCall ("Prelude",":") [Var 1,Var 6],Var 3,Var 4]])])),Func ("Dequeue","deqInit") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Dequeue","Queue") [TVar 0])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Dequeue","S") [2,3,4,5]) (Case  Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Dequeue","empty") []),Branch (Pattern ("Prelude",":") [6,7]) (Comb FuncCall ("Dequeue","check") [Var 2,Var 3,Comb FuncCall ("Prelude","-") [Var 4,Lit (Intc  1)],Var 7])])])),Func ("Dequeue","deqReverse") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Dequeue","Queue") [TVar 0])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Dequeue","S") [2,3,4,5]) (Comb ConsCall ("Dequeue","S") [Var 4,Var 5,Var 2,Var 3])])),Func ("Dequeue","check") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Dequeue","Queue") [TVar 0]))))) (Rule [1,2,3,4] (Let [(5,Comb FuncCall ("Prelude","+") [Var 1,Var 3])] (Let [(6,Comb FuncCall ("Prelude","div") [Var 5,Lit (Intc  2)])] (Let [(7,Comb FuncCall ("Prelude","-") [Var 5,Var 6])] (Let [(8,Comb FuncCall ("Prelude","splitAt") [Var 6,Var 2])] (Let [(9,Comb FuncCall ("Dequeue","check._#selFP3#f'") [Var 8])] (Let [(10,Comb FuncCall ("Dequeue","check._#selFP4#rf'") [Var 8])] (Let [(11,Comb FuncCall ("Prelude","++") [Var 4,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","reverse") [],Var 10]])] (Case  Rigid (Comb FuncCall ("Prelude","<=") [Var 1,Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","*") [Lit (Intc  3),Var 3],Lit (Intc  1)]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Dequeue","S") [Var 1,Var 2,Var 3,Var 4]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Dequeue","S") [Var 6,Var 9,Var 7,Var 11]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])]))))))))),Func ("Dequeue","check._#selFP3#f'") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 45],TCons ("Prelude","[]") [TVar 45]]) (TCons ("Prelude","[]") [TVar 45])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Dequeue","check._#selFP4#rf'") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 45],TCons ("Prelude","[]") [TVar 45]]) (TCons ("Prelude","[]") [TVar 45])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Dequeue","listToDeq") 1 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Dequeue","Queue") [TVar 0])) (Rule [1] (Comb FuncCall ("Dequeue","check") [Comb FuncCall ("Prelude","length") [Var 1],Var 1,Lit (Intc  0),Comb ConsCall ("Prelude","[]") []])),Func ("Dequeue","deqToList") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Dequeue","S") [2,3,4,5]) (Comb FuncCall ("Prelude","++") [Var 3,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","reverse") [],Var 5]])])),Func ("Dequeue","deqLength") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Dequeue","S") [2,3,4,5]) (Comb FuncCall ("Prelude","+") [Var 2,Var 4])])),Func ("Dequeue","rotate") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Dequeue","Queue") [TVar 0])) (Rule [1] (Comb FuncCall ("Dequeue","snoc") [Comb FuncCall ("Dequeue","deqHead") [Var 1],Comb FuncCall ("Dequeue","deqTail") [Var 1]])),Func ("Dequeue","matchHead") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TCons ("Dequeue","Queue") [TVar 0]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Dequeue","S") [2,3,4,5]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 6,Comb FuncCall ("Dequeue","empty") []]])])]),Branch (Pattern ("Prelude",":") [8,9]) (Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 8,Comb FuncCall ("Dequeue","deqReverse") [Comb FuncCall ("Dequeue","check") [Var 4,Var 5,Comb FuncCall ("Prelude","-") [Var 2,Lit (Intc  1)],Var 9]]]])])])),Func ("Dequeue","matchLast") 1 Public (FuncType (TCons ("Dequeue","Queue") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","(,)") [TVar 0,TCons ("Dequeue","Queue") [TVar 0]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Dequeue","S") [2,3,4,5]) (Case  Flex (Var 5) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 6,Comb FuncCall ("Dequeue","empty") []]])])]),Branch (Pattern ("Prelude",":") [8,9]) (Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","(,)") [Var 8,Comb FuncCall ("Dequeue","check") [Var 2,Var 3,Comb FuncCall ("Prelude","-") [Var 4,Lit (Intc  1)],Var 9]]])])]))] []
+ Curry/DebugModule/Directory.fcy view
@@ -0,0 +1,1 @@+Prog "Directory" ["Prelude","Time"] [] [Func ("Directory","doesFileExist") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Directory","prim_doesFileExist") [],Var 1])),Func ("Directory","prim_doesFileExist") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])) (External "Directory.prim_doesFileExist"),Func ("Directory","doesDirectoryExist") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Directory","prim_doesDirectoryExist") [],Var 1])),Func ("Directory","prim_doesDirectoryExist") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Bool") []])) (External "Directory.prim_doesDirectoryExist"),Func ("Directory","fileSize") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Directory","prim_fileSize") [],Var 1])),Func ("Directory","prim_fileSize") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Int") []])) (External "Directory.prim_fileSize"),Func ("Directory","getModificationTime") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Directory","prim_getModificationTime") [],Var 1])),Func ("Directory","prim_getModificationTime") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []])) (External "Directory.prim_getModificationTime"),Func ("Directory","getCurrentDirectory") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (External "Directory.getCurrentDirectory"),Func ("Directory","setCurrentDirectory") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Directory","prim_setCurrentDirectory") [],Var 1])),Func ("Directory","prim_setCurrentDirectory") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (External "Directory.prim_setCurrentDirectory"),Func ("Directory","getDirectoryContents") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Directory","prim_getDirectoryContents") [],Var 1])),Func ("Directory","prim_getDirectoryContents") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (External "Directory.prim_getDirectoryContents"),Func ("Directory","createDirectory") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Directory","prim_createDirectory") [],Var 1])),Func ("Directory","prim_createDirectory") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (External "Directory.prim_createDirectory"),Func ("Directory","removeFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Directory","prim_removeFile") [],Var 1])),Func ("Directory","prim_removeFile") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (External "Directory.prim_removeFile"),Func ("Directory","removeDirectory") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Directory","prim_removeDirectory") [],Var 1])),Func ("Directory","prim_removeDirectory") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (External "Directory.prim_removeDirectory"),Func ("Directory","renameFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","$##") [Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 2) ("Directory","prim_renameFile") [],Var 1],Var 2])),Func ("Directory","prim_renameFile") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (External "Directory.prim_renameFile"),Func ("Directory","renameDirectory") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","$##") [Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 2) ("Directory","prim_renameDirectory") [],Var 1],Var 2])),Func ("Directory","prim_renameDirectory") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (External "Directory.prim_renameDirectory")] []
+ Curry/DebugModule/FileGoodies.fcy view
@@ -0,0 +1,1 @@+Prog "FileGoodies" ["Directory","List","Prelude"] [] [Func ("FileGoodies","separatorChar") 0 Public (TCons ("Prelude","Char") []) (Rule [] (Lit (Charc  '/'))),Func ("FileGoodies","pathSeparatorChar") 0 Public (TCons ("Prelude","Char") []) (Rule [] (Lit (Charc  ':'))),Func ("FileGoodies","suffixSeparatorChar") 0 Public (TCons ("Prelude","Char") []) (Rule [] (Lit (Charc  '.'))),Func ("FileGoodies","isAbsolute") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Comb FuncCall ("Prelude","==") [Var 2,Comb FuncCall ("FileGoodies","separatorChar") []])])),Func ("FileGoodies","dirName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","fst") [Comb FuncCall ("FileGoodies","splitDirectoryBaseName") [Var 1]])),Func ("FileGoodies","baseName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","snd") [Comb FuncCall ("FileGoodies","splitDirectoryBaseName") [Var 1]])),Func ("FileGoodies","splitDirectoryBaseName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Let [(2,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","break") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","==") [],Comb FuncCall ("FileGoodies","separatorChar") []]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","reverse") [],Var 1]])] (Let [(3,Comb FuncCall ("FileGoodies","splitDirectoryBaseName._#selFP3#rbase") [Var 2])] (Let [(4,Comb FuncCall ("FileGoodies","splitDirectoryBaseName._#selFP4#rdir") [Var 2])] (Case  Rigid (Comb FuncCall ("Prelude","null") [Var 4]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","reverse") [],Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","reverse") [],Comb FuncCall ("Prelude","tail") [Var 4]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","reverse") [],Var 3]])]))))),Func ("FileGoodies","splitDirectoryBaseName._#selFP3#rbase") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("FileGoodies","splitDirectoryBaseName._#selFP4#rdir") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("FileGoodies","stripSuffix") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","fst") [],Comb (FuncPartCall 1) ("FileGoodies","splitBaseName") []])),Func ("FileGoodies","fileSuffix") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","snd") [],Comb (FuncPartCall 1) ("FileGoodies","splitBaseName") []])),Func ("FileGoodies","splitBaseName") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Let [(2,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","break") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","==") [],Comb FuncCall ("FileGoodies","suffixSeparatorChar") []]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","reverse") [],Var 1]])] (Let [(3,Comb FuncCall ("FileGoodies","splitBaseName._#selFP6#rsuffix") [Var 2])] (Let [(4,Comb FuncCall ("FileGoodies","splitBaseName._#selFP7#rbase") [Var 2])] (Case  Rigid (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","null") [Var 4],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Comb FuncCall ("FileGoodies","separatorChar") []],Var 3]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Var 1,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","reverse") [],Comb FuncCall ("Prelude","tail") [Var 4]],Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","reverse") [],Var 3]])]))))),Func ("FileGoodies","splitBaseName._#selFP6#rsuffix") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("FileGoodies","splitBaseName._#selFP7#rbase") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("FileGoodies","splitPath") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Let [(4,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","break") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","==") [],Comb FuncCall ("FileGoodies","pathSeparatorChar") []]],Comb ConsCall ("Prelude",":") [Var 2,Var 3]])] (Let [(5,Comb FuncCall ("FileGoodies","splitPath._#selFP9#ys") [Var 4])] (Let [(6,Comb FuncCall ("FileGoodies","splitPath._#selFP10#zs") [Var 4])] (Case  Rigid (Comb FuncCall ("Prelude","null") [Var 6]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("FileGoodies","splitPath") [Comb FuncCall ("Prelude","tail") [Var 6]]])]))))])),Func ("FileGoodies","splitPath._#selFP9#ys") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("FileGoodies","splitPath._#selFP10#zs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("FileGoodies","findFileInPath") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [] (Comb (FuncPartCall 3) ("FileGoodies","lookupFileInPath") [])),Func ("FileGoodies","lookupFileInPath") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1,2,3] (Case  Rigid (Comb FuncCall ("FileGoodies","isAbsolute") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("FileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") [Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("FileGoodies","lookupFileInPath.lookupFirstFile.36") [Var 1,Var 2,Var 3])])),Func ("FileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("Prelude","++") [Var 1,Var 3])] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Directory","doesFileExist") [Var 5],Comb (FuncPartCall 1) ("FileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36._#lambda3") [Var 1,Var 5,Var 4]]))])),Func ("FileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36._#lambda3") 4 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") []) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [1,2,3,4] (Case  Rigid (Var 4) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Just") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("FileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") [Var 1,Var 3])])),Func ("FileGoodies","lookupFileInPath.lookupFirstFile.36") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Nothing") []]),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FileGoodies","lookupFileInPath.lookupFirstFileWithSuffix.36") [Comb FuncCall ("Prelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Comb FuncCall ("FileGoodies","separatorChar") [],Var 1]],Var 2],Comb (FuncPartCall 1) ("FileGoodies","lookupFileInPath.lookupFirstFile.36._#lambda2") [Var 5,Var 1,Var 2]])])),Func ("FileGoodies","lookupFileInPath.lookupFirstFile.36._#lambda2") 4 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))))) (Rule [1,2,3,4] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("FileGoodies","lookupFileInPath.lookupFirstFile.36") [Var 2,Var 3,Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (ConsPartCall 1) ("Prelude","Just") []],Var 4])),Func ("FileGoodies","getFileInPath") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1,2,3] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("FileGoodies","lookupFileInPath") [Var 1,Var 2,Var 3],Comb (FuncPartCall 1) ("FileGoodies","getFileInPath._#lambda4") [Var 1,Var 3]])),Func ("FileGoodies","getFileInPath._#lambda4") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","maybe") [Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","++") [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 ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Comb FuncCall ("FileGoodies","pathSeparatorChar") [],Comb ConsCall ("Prelude","[]") []],Var 2]]]]]],Comb (FuncPartCall 1) ("Prelude","return") [],Var 3])),Func ("FileGoodies","replaceFileName") 2 Public (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Let [(3,Comb FuncCall ("FileGoodies","splitDirectoryBaseName") [Var 2])] (Let [(4,Comb FuncCall ("FileGoodies","replaceFileName._#selFP12#dir") [Var 3])] (Let [(5,Comb FuncCall ("FileGoodies","replaceFileName._#selFP13#fn") [Var 3])] (Case  Rigid (Var 4) [Branch (Pattern ("Prelude",":") [6,7]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 6,Lit (Charc  '.')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 7) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","apply") [Var 1,Var 5]),Branch (Pattern ("Prelude",":") [8,9]) (Comb FuncCall ("Prelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Comb FuncCall ("FileGoodies","separatorChar") [],Comb FuncCall ("Prelude","apply") [Var 1,Var 5]]])]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Comb FuncCall ("FileGoodies","separatorChar") [],Comb FuncCall ("Prelude","apply") [Var 1,Var 5]]])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","++") [Var 4,Comb ConsCall ("Prelude",":") [Comb FuncCall ("FileGoodies","separatorChar") [],Comb FuncCall ("Prelude","apply") [Var 1,Var 5]]])]))))),Func ("FileGoodies","replaceFileName._#selFP12#dir") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("FileGoodies","replaceFileName._#selFP13#fn") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)]))] []
+ Curry/DebugModule/Float.fcy view
@@ -0,0 +1,1 @@+Prog "Float" ["Prelude"] [] [Func ("Float","+.") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") []))) (Rule [1,2] (Comb FuncCall ("Prelude","$#") [Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 2) ("Float","prim_Float_plus") [],Var 1],Var 2])),Func ("Float","prim_Float_plus") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") []))) (External "Float.prim_Float_plus"),Func ("Float","-.") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") []))) (Rule [1,2] (Comb FuncCall ("Prelude","$#") [Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 2) ("Float","prim_Float_minus") [],Var 1],Var 2])),Func ("Float","prim_Float_minus") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") []))) (External "Float.prim_Float_minus"),Func ("Float","*.") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") []))) (Rule [1,2] (Comb FuncCall ("Prelude","$#") [Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 2) ("Float","prim_Float_times") [],Var 1],Var 2])),Func ("Float","prim_Float_times") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") []))) (External "Float.prim_Float_times"),Func ("Float","/.") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") []))) (Rule [1,2] (Comb FuncCall ("Prelude","$#") [Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 2) ("Float","prim_Float_divide") [],Var 1],Var 2])),Func ("Float","prim_Float_divide") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") []))) (External "Float.prim_Float_divide"),Func ("Float","<.") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","$#") [Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 2) ("Float","prim_Float_lt") [],Var 1],Var 2])),Func ("Float","prim_Float_lt") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Bool") []))) (External "Float.prim_Float_lt"),Func ("Float",">.") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","$#") [Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 2) ("Float","prim_Float_gt") [],Var 1],Var 2])),Func ("Float","prim_Float_gt") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Bool") []))) (External "Float.prim_Float_gt"),Func ("Float","<=.") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","$#") [Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 2) ("Float","prim_Float_leq") [],Var 1],Var 2])),Func ("Float","prim_Float_leq") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Bool") []))) (External "Float.prim_Float_leq"),Func ("Float",">=.") 2 Public (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","$#") [Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 2) ("Float","prim_Float_geq") [],Var 1],Var 2])),Func ("Float","prim_Float_geq") 2 Private (FuncType (TCons ("Prelude","Float") []) (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Bool") []))) (External "Float.prim_Float_geq"),Func ("Float","i2f") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Float") [])) (Rule [1] (Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 1) ("Float","prim_i2f") [],Var 1])),Func ("Float","prim_i2f") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Float") [])) (External "Float.prim_i2f"),Func ("Float","truncate") 1 Public (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 1) ("Float","prim_truncate") [],Var 1])),Func ("Float","prim_truncate") 1 Private (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Int") [])) (External "Float.prim_truncate"),Func ("Float","round") 1 Public (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 1) ("Float","prim_round") [],Var 1])),Func ("Float","prim_round") 1 Private (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Int") [])) (External "Float.prim_round"),Func ("Float","sqrt") 1 Public (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (Rule [1] (Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 1) ("Float","prim_sqrt") [],Var 1])),Func ("Float","prim_sqrt") 1 Private (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (External "Float.prim_sqrt"),Func ("Float","log") 1 Public (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (Rule [1] (Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 1) ("Float","prim_log") [],Var 1])),Func ("Float","prim_log") 1 Private (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (External "Float.prim_log"),Func ("Float","exp") 1 Public (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (Rule [1] (Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 1) ("Float","prim_exp") [],Var 1])),Func ("Float","prim_exp") 1 Private (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (External "Float.prim_exp"),Func ("Float","sin") 1 Public (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (Rule [1] (Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 1) ("Float","prim_sin") [],Var 1])),Func ("Float","prim_sin") 1 Private (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (External "Float.prim_sin"),Func ("Float","cos") 1 Public (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (Rule [1] (Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 1) ("Float","prim_cos") [],Var 1])),Func ("Float","prim_cos") 1 Private (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (External "Float.prim_cos"),Func ("Float","tan") 1 Public (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (Rule [1] (Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 1) ("Float","prim_tan") [],Var 1])),Func ("Float","prim_tan") 1 Private (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (External "Float.prim_tan"),Func ("Float","atan") 1 Public (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (Rule [1] (Comb FuncCall ("Prelude","$#") [Comb (FuncPartCall 1) ("Float","prim_atan") [],Var 1])),Func ("Float","prim_atan") 1 Private (FuncType (TCons ("Prelude","Float") []) (TCons ("Prelude","Float") [])) (External "Float.prim_atan")] [Op ("Float","*.") InfixlOp 7,Op ("Float","/.") InfixlOp 7,Op ("Float","+.") InfixlOp 6,Op ("Float","-.") InfixlOp 6,Op ("Float","<.") InfixOp 4,Op ("Float",">.") InfixOp 4,Op ("Float","<=.") InfixOp 4,Op ("Float",">=.") InfixOp 4]
+ Curry/DebugModule/Integer.fcy view
@@ -0,0 +1,1 @@+Prog "Integer" ["Prelude"] [] [Func ("Integer","pow") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude",">=") [Var 2,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Integer","pow.powaux.3") [Lit (Intc  1),Var 1,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])),Func ("Integer","pow.powaux.3") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))) (Rule [1,2,3] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Integer","pow.powaux.3") [Comb FuncCall ("Prelude","*") [Var 1,Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","mod") [Var 3,Lit (Intc  2)],Lit (Intc  1)]) [Branch (Pattern ("Prelude","True") []) (Var 2),Branch (Pattern ("Prelude","False") []) (Lit (Intc  1))]],Comb FuncCall ("Prelude","*") [Var 2,Var 2],Comb FuncCall ("Prelude","div") [Var 3,Lit (Intc  2)]])])),Func ("Integer","ilog") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude",">") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","<") [Var 1,Lit (Intc  10)]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  0)),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","+") [Lit (Intc  1),Comb FuncCall ("Integer","ilog") [Comb FuncCall ("Prelude","div") [Var 1,Lit (Intc  10)]]])]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])),Func ("Integer","isqrt") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude",">=") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  0)),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","<") [Var 1,Lit (Intc  4)]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  1)),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Integer","isqrt.aux.21") [Var 1,Lit (Intc  2),Var 1])])]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])),Func ("Integer","isqrt.aux.21") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))) (Rule [1,2,3] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Comb FuncCall ("Prelude","+") [Var 2,Lit (Intc  1)]]) [Branch (Pattern ("Prelude","True") []) (Var 2),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("Prelude","div") [Comb FuncCall ("Prelude","+") [Var 3,Var 2],Lit (Intc  2)])] (Case  Rigid (Comb FuncCall ("Prelude",">") [Comb FuncCall ("Prelude","*") [Var 4,Var 4],Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Integer","isqrt.aux.21") [Var 1,Var 2,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Integer","isqrt.aux.21") [Var 1,Var 4,Var 3])]))])),Func ("Integer","factorial") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude",">=") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  1)),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","*") [Var 1,Comb FuncCall ("Integer","factorial") [Comb FuncCall ("Prelude","-") [Var 1,Lit (Intc  1)]]])]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])),Func ("Integer","binomial") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">") [Var 2,Lit (Intc  0)],Comb FuncCall ("Prelude",">=") [Var 1,Var 2]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","div") [Comb FuncCall ("Integer","binomial.aux.41") [Var 2,Var 1],Comb FuncCall ("Integer","factorial") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])),Func ("Integer","binomial.aux.41") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  1)),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","*") [Var 2,Comb FuncCall ("Integer","binomial.aux.41") [Comb FuncCall ("Prelude","-") [Var 1,Lit (Intc  1)],Comb FuncCall ("Prelude","-") [Var 2,Lit (Intc  1)]]])])),Func ("Integer","abs") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","<") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","negate") [Var 1]),Branch (Pattern ("Prelude","False") []) (Var 1)])),Func ("Integer","max") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","<") [Var 1,Var 2]) [Branch (Pattern ("Prelude","True") []) (Var 2),Branch (Pattern ("Prelude","False") []) (Var 1)])),Func ("Integer","min") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","<") [Var 1,Var 2]) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Var 2)])),Func ("Integer","max3") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))) (Rule [1,2,3] (Comb FuncCall ("Integer","max") [Var 1,Comb FuncCall ("Integer","max") [Var 2,Var 3]])),Func ("Integer","min3") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])))) (Rule [1,2,3] (Comb FuncCall ("Integer","min") [Var 1,Comb FuncCall ("Integer","min") [Var 2,Var 3]])),Func ("Integer","maxlist") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("Integer","max") [Var 2,Comb FuncCall ("Integer","maxlist") [Comb ConsCall ("Prelude",":") [Var 4,Var 5]]])])])),Func ("Integer","minlist") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("Integer","min") [Var 2,Comb FuncCall ("Integer","minlist") [Comb ConsCall ("Prelude",":") [Var 4,Var 5]]])])])),Func ("Integer","bitTrunc") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Comb FuncCall ("Integer","bitAnd") [Comb FuncCall ("Prelude","-") [Comb FuncCall ("Integer","pow") [Lit (Intc  2),Var 1],Lit (Intc  1)],Var 2])),Func ("Integer","bitAnd") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  0)),Branch (Pattern ("Prelude","False") []) (Let [(3,Comb FuncCall ("Prelude","*") [Lit (Intc  2),Comb FuncCall ("Integer","bitAnd") [Comb FuncCall ("Prelude","div") [Var 1,Lit (Intc  2)],Comb FuncCall ("Prelude","div") [Var 2,Lit (Intc  2)]]])] (Let [(4,Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","mod") [Var 2,Lit (Intc  2)],Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  0)),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","mod") [Var 1,Lit (Intc  2)])])] (Comb FuncCall ("Prelude","+") [Var 3,Var 4])))])),Func ("Integer","bitOr") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Let [(3,Comb FuncCall ("Prelude","*") [Lit (Intc  2),Comb FuncCall ("Integer","bitOr") [Comb FuncCall ("Prelude","div") [Var 1,Lit (Intc  2)],Comb FuncCall ("Prelude","div") [Var 2,Lit (Intc  2)]]])] (Let [(4,Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","mod") [Var 2,Lit (Intc  2)],Lit (Intc  1)]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  1)),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","mod") [Var 1,Lit (Intc  2)])])] (Comb FuncCall ("Prelude","+") [Var 3,Var 4])))])),Func ("Integer","bitNot") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("Integer","bitNot.aux.100") [Lit (Intc  32),Var 1])),Func ("Integer","bitNot.aux.100") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  0)),Branch (Pattern ("Prelude","False") []) (Let [(3,Comb FuncCall ("Prelude","*") [Lit (Intc  2),Comb FuncCall ("Integer","bitNot.aux.100") [Comb FuncCall ("Prelude","-") [Var 1,Lit (Intc  1)],Comb FuncCall ("Prelude","div") [Var 2,Lit (Intc  2)]]])] (Let [(4,Comb FuncCall ("Prelude","-") [Lit (Intc  1),Comb FuncCall ("Prelude","mod") [Var 2,Lit (Intc  2)]])] (Comb FuncCall ("Prelude","+") [Var 3,Var 4])))])),Func ("Integer","bitXor") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Let [(3,Comb FuncCall ("Prelude","*") [Lit (Intc  2),Comb FuncCall ("Integer","bitXor") [Comb FuncCall ("Prelude","div") [Var 1,Lit (Intc  2)],Comb FuncCall ("Prelude","div") [Var 2,Lit (Intc  2)]]])] (Let [(4,Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","mod") [Var 2,Lit (Intc  2)],Comb FuncCall ("Prelude","mod") [Var 1,Lit (Intc  2)]]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  0)),Branch (Pattern ("Prelude","False") []) (Lit (Intc  1))])] (Comb FuncCall ("Prelude","+") [Var 3,Var 4])))])),Func ("Integer","even") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","mod") [Var 1,Lit (Intc  2)],Lit (Intc  0)])),Func ("Integer","odd") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","/=") [Comb FuncCall ("Prelude","mod") [Var 1,Lit (Intc  2)],Lit (Intc  0)]))] []
+ Curry/DebugModule/Interactive.fcy view
@@ -0,0 +1,1 @@+Prog "Interactive" ["Prelude"] [] [Func ("Interactive","interactiveSols") 1 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","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","[]") []]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude",":") [2,3]) (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Interactive","printTerm") [Var 2],Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","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","[]") []]]]]]],Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","getLine") [],Comb (FuncPartCall 1) ("Interactive","interactiveSols._#lambda2") [Var 3]]]])])),Func ("Interactive","interactiveSols._#lambda2") 2 Private (FuncType (TCons ("Prelude","[]") [TVar 5]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Case  Rigid (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  'n')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","()") []]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  'N')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","()") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Interactive","interactiveSols") [Var 1])])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Interactive","interactiveSols") [Var 1])])),Func ("Interactive","printIO") 1 Public (FuncType (TCons ("Prelude","IO") [TVar 0]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Var 1,Comb (FuncPartCall 1) ("Interactive","printIO._#lambda4") []])),Func ("Interactive","printIO._#lambda4") 1 Private (FuncType (TVar 25) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","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","[]") []]]]]],Comb FuncCall ("Prelude","$!!") [Comb (FuncPartCall 1) ("Interactive","printTerm") [],Var 1]])),Func ("Interactive","printTerm") 1 Public (FuncType (TVar 0) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (External "Interactive.printTerm")] []
+ Curry/DebugModule/List.fcy view
@@ -0,0 +1,1 @@+Prog "List" ["Maybe","Prelude"] [] [Func ("List","elemIndex") 1 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","Int") []]))) (Rule [1] (Comb FuncCall ("List","findIndex") [Comb (FuncPartCall 1) ("Prelude","==") [Var 1]])),Func ("List","elemIndices") 1 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [1] (Comb (FuncPartCall 1) ("List","findIndices") [Comb (FuncPartCall 1) ("Prelude","==") [Var 1]])),Func ("List","find") 1 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TVar 0]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Maybe","listToMaybe") [],Comb (FuncPartCall 1) ("Prelude","filter") [Var 1]])),Func ("List","findIndex") 1 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","Int") []]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Maybe","listToMaybe") [],Comb (FuncPartCall 1) ("List","findIndices") [Var 1]])),Func ("List","findIndices") 2 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("List","findIndices._#lambda4") [Var 1],Comb ConsCall ("Prelude","[]") [],Comb FuncCall ("Prelude","zip") [Var 2,Comb FuncCall ("Prelude","enumFrom") [Lit (Intc  0)]]])),Func ("List","findIndices._#lambda4") 3 Private (FuncType (FuncType (TVar 7) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","(,)") [TVar 7,TCons ("Prelude","Int") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1,2,3] (Case  Rigid (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("Prelude","apply") [Var 1,Var 4]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])],Var 3])])),Func ("List","nub") 1 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Comb FuncCall ("List","nubBy") [Comb (FuncPartCall 2) ("Prelude","==") [],Var 1])),Func ("List","nubBy") 2 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("List","nubBy") [Var 1,Comb FuncCall ("Prelude","filter") [Comb (FuncPartCall 1) ("List","nubBy._#lambda6") [Var 1,Var 3],Var 4]]])])),Func ("List","nubBy._#lambda6") 3 Private (FuncType (FuncType (TVar 45) (FuncType (TVar 45) (TCons ("Prelude","Bool") []))) (FuncType (TVar 45) (FuncType (TVar 45) (TCons ("Prelude","Bool") [])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 2],Var 3]])),Func ("List","delete") 2 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Var 3]) [Branch (Pattern ("Prelude","True") []) (Var 4),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("List","delete") [Var 1,Var 4]])])])),Func ("List","\\\\") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Comb FuncCall ("Prelude","foldl") [Comb (FuncPartCall 2) ("Prelude","flip") [Comb (FuncPartCall 2) ("List","delete") []],Var 1,Var 2])),Func ("List","union") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 3],Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("List","union") [Var 4,Var 2]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("List","union") [Var 4,Var 2]])])])),Func ("List","intersect") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Var 3],Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("List","intersect") [Var 4,Var 2]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("List","intersect") [Var 4,Var 2])])])),Func ("List","intersperse") 2 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 1,Comb FuncCall ("List","intersperse") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Var 6]]]])])])),Func ("List","transpose") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("List","transpose") [Var 3]),Branch (Pattern ("Prelude",":") [4,5]) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("Prelude","head") [],Var 3]],Comb FuncCall ("List","transpose") [Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("Prelude","tail") [],Var 3]]]])])])),Func ("List","partition") 2 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))) (Rule [1,2] (Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("List","partition.select.53") [Var 1],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Var 2])),Func ("List","partition.select.53") 3 Private (FuncType (FuncType (TVar 146) (TCons ("Prelude","Bool") [])) (FuncType (TVar 146) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 146],TCons ("Prelude","[]") [TVar 146]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 146],TCons ("Prelude","[]") [TVar 146]])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [4,5]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Var 1,Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 2,Var 4],Var 5]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","(,)") [Var 4,Comb ConsCall ("Prelude",":") [Var 2,Var 5]])])])),Func ("List","group") 0 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]])) (Rule [] (Comb (FuncPartCall 1) ("List","groupBy") [Comb (FuncPartCall 2) ("Prelude","==") []])),Func ("List","groupBy") 2 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("Prelude","span") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 4])] (Let [(6,Comb FuncCall ("List","groupBy._#selFP3#ys") [Var 5])] (Let [(7,Comb FuncCall ("List","groupBy._#selFP4#zs") [Var 5])] (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 3,Var 6],Comb FuncCall ("List","groupBy") [Var 1,Var 7]]))))])),Func ("List","groupBy._#selFP3#ys") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 154],TCons ("Prelude","[]") [TVar 154]]) (TCons ("Prelude","[]") [TVar 154])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("List","groupBy._#selFP4#zs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 154],TCons ("Prelude","[]") [TVar 154]]) (TCons ("Prelude","[]") [TVar 154])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("List","replace") 3 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [4,5]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 1,Var 5]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("List","replace") [Var 1,Comb FuncCall ("Prelude","-") [Var 2,Lit (Intc  1)],Var 5]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("List","isPrefixOf") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 3,Var 5],Comb FuncCall ("List","isPrefixOf") [Var 4,Var 6]])])])),Func ("List","sortBy") 1 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1] (Comb (FuncPartCall 1) ("Prelude","foldr") [Comb (FuncPartCall 2) ("List","insertBy") [Var 1],Comb ConsCall ("Prelude","[]") []])),Func ("List","insertBy") 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 2],Var 4]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude",":") [Var 4,Var 5]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("List","insertBy") [Var 1,Var 2,Var 5]])])])),Func ("List","last") 1 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0)) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("List","last") [Comb ConsCall ("Prelude",":") [Var 4,Var 5]])])]))] [Op ("List","\\\\") InfixOp 5]
+ Curry/DebugModule/Maybe.fcy view
@@ -0,0 +1,1 @@+Prog "Maybe" ["Prelude"] [] [Func ("Maybe","isJust") 1 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Just") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Prelude","False") [])])),Func ("Maybe","isNothing") 1 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude","Just") [2]) (Comb ConsCall ("Prelude","False") [])])),Func ("Maybe","fromJust") 1 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (TVar 0)) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Just") [2]) (Var 2),Branch (Pattern ("Prelude","Nothing") []) (Comb FuncCall ("Prelude","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","[]") []]]]]]]]]]]]]]]]]]]]]]]]])])),Func ("Maybe","fromMaybe") 2 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (TVar 0))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Var 1),Branch (Pattern ("Prelude","Just") [3]) (Var 3)])),Func ("Maybe","maybeToList") 1 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","Just") [2]) (Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []])])),Func ("Maybe","listToMaybe") 1 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TVar 0])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Prelude",":") [2,3]) (Comb ConsCall ("Prelude","Just") [Var 2])])),Func ("Maybe","catMaybes") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TVar 0]]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("Maybe","catMaybes._#lambda4") [],Comb ConsCall ("Prelude","[]") [],Var 1])),Func ("Maybe","catMaybes._#lambda4") 2 Private (FuncType (TCons ("Prelude","Maybe") [TVar 37]) (FuncType (TCons ("Prelude","[]") [TVar 37]) (TCons ("Prelude","[]") [TVar 37]))) (Rule [1,2] (Case  Rigid (Var 1) [Branch (Pattern ("Prelude","Just") [3]) (Comb ConsCall ("Prelude",":") [Var 3,Var 2]),Branch (Pattern ("Prelude","Nothing") []) (Var 2)])),Func ("Maybe","mapMaybe") 1 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 1])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 1]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Maybe","catMaybes") [],Comb (FuncPartCall 1) ("Prelude","map") [Var 1]])),Func ("Maybe",">>-") 2 Public (FuncType (TCons ("Prelude","Maybe") [TVar 0]) (FuncType (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 1])) (TCons ("Prelude","Maybe") [TVar 1]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Prelude","Just") [3]) (Comb FuncCall ("Prelude","apply") [Var 2,Var 3])])),Func ("Maybe","sequenceMaybe") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TVar 0]]) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 0]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [2,3]) (Comb FuncCall ("Maybe",">>-") [Var 2,Comb (FuncPartCall 1) ("Maybe","sequenceMaybe._#lambda6") [Var 3]])])),Func ("Maybe","sequenceMaybe._#lambda6") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Maybe") [TVar 66]]) (FuncType (TVar 66) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 66]]))) (Rule [1,2] (Comb FuncCall ("Maybe",">>-") [Comb FuncCall ("Maybe","sequenceMaybe") [Var 1],Comb (FuncPartCall 1) ("Maybe","sequenceMaybe._#lambda6._#lambda7") [Var 2]])),Func ("Maybe","sequenceMaybe._#lambda6._#lambda7") 2 Private (FuncType (TVar 66) (FuncType (TCons ("Prelude","[]") [TVar 66]) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 66]]))) (Rule [1,2] (Comb ConsCall ("Prelude","Just") [Comb ConsCall ("Prelude",":") [Var 1,Var 2]])),Func ("Maybe","mapMMaybe") 1 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Maybe") [TVar 1])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TVar 1]]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Maybe","sequenceMaybe") [],Comb (FuncPartCall 1) ("Prelude","map") [Var 1]]))] [Op ("Maybe",">>-") InfixlOp 1]
+ Curry/DebugModule/Prelude.fcy view
@@ -0,0 +1,1 @@+Prog "Prelude" [] [Type ("Prelude","()") Public [] [Cons ("Prelude","()") 0 Public []],Type ("Prelude","[]") Public [0] [Cons ("Prelude","[]") 0 Public [],Cons ("Prelude",":") 2 Public [TVar 0,TCons ("Prelude","[]") [TVar 0]]],Type ("Prelude","(,)") Public [0,1] [Cons ("Prelude","(,)") 2 Public [TVar 0,TVar 1]],Type ("Prelude","(,,)") Public [0,1,2] [Cons ("Prelude","(,,)") 3 Public [TVar 0,TVar 1,TVar 2]],Type ("Prelude","(,,,)") Public [0,1,2,3] [Cons ("Prelude","(,,,)") 4 Public [TVar 0,TVar 1,TVar 2,TVar 3]],Type ("Prelude","(,,,,)") Public [0,1,2,3,4] [Cons ("Prelude","(,,,,)") 5 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4]],Type ("Prelude","(,,,,,)") Public [0,1,2,3,4,5] [Cons ("Prelude","(,,,,,)") 6 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4,TVar 5]],Type ("Prelude","(,,,,,,)") Public [0,1,2,3,4,5,6] [Cons ("Prelude","(,,,,,,)") 7 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4,TVar 5,TVar 6]],Type ("Prelude","(,,,,,,,)") Public [0,1,2,3,4,5,6,7] [Cons ("Prelude","(,,,,,,,)") 8 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4,TVar 5,TVar 6,TVar 7]],Type ("Prelude","(,,,,,,,,)") Public [0,1,2,3,4,5,6,7,8] [Cons ("Prelude","(,,,,,,,,)") 9 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4,TVar 5,TVar 6,TVar 7,TVar 8]],Type ("Prelude","(,,,,,,,,,)") Public [0,1,2,3,4,5,6,7,8,9] [Cons ("Prelude","(,,,,,,,,,)") 10 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4,TVar 5,TVar 6,TVar 7,TVar 8,TVar 9]],Type ("Prelude","(,,,,,,,,,,)") Public [0,1,2,3,4,5,6,7,8,9,10] [Cons ("Prelude","(,,,,,,,,,,)") 11 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4,TVar 5,TVar 6,TVar 7,TVar 8,TVar 9,TVar 10]],Type ("Prelude","(,,,,,,,,,,,)") Public [0,1,2,3,4,5,6,7,8,9,10,11] [Cons ("Prelude","(,,,,,,,,,,,)") 12 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4,TVar 5,TVar 6,TVar 7,TVar 8,TVar 9,TVar 10,TVar 11]],Type ("Prelude","(,,,,,,,,,,,,)") Public [0,1,2,3,4,5,6,7,8,9,10,11,12] [Cons ("Prelude","(,,,,,,,,,,,,)") 13 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4,TVar 5,TVar 6,TVar 7,TVar 8,TVar 9,TVar 10,TVar 11,TVar 12]],Type ("Prelude","(,,,,,,,,,,,,,)") Public [0,1,2,3,4,5,6,7,8,9,10,11,12,13] [Cons ("Prelude","(,,,,,,,,,,,,,)") 14 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4,TVar 5,TVar 6,TVar 7,TVar 8,TVar 9,TVar 10,TVar 11,TVar 12,TVar 13]],Type ("Prelude","(,,,,,,,,,,,,,,)") Public [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14] [Cons ("Prelude","(,,,,,,,,,,,,,,)") 15 Public [TVar 0,TVar 1,TVar 2,TVar 3,TVar 4,TVar 5,TVar 6,TVar 7,TVar 8,TVar 9,TVar 10,TVar 11,TVar 12,TVar 13,TVar 14]],TypeSyn ("Prelude","String") Public [] (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]),Type ("Prelude","Float") Public [] [],Type ("Prelude","Char") Public [] [],Type ("Prelude","Bool") Public [] [Cons ("Prelude","False") 0 Public [],Cons ("Prelude","True") 0 Public []],Type ("Prelude","Ordering") Public [] [Cons ("Prelude","LT") 0 Public [],Cons ("Prelude","EQ") 0 Public [],Cons ("Prelude","GT") 0 Public []],Type ("Prelude","Nat") Public [] [Cons ("Prelude","IHi") 0 Public [],Cons ("Prelude","O") 1 Public [TCons ("Prelude","Nat") []],Cons ("Prelude","I") 1 Public [TCons ("Prelude","Nat") []]],Type ("Prelude","Int") Public [] [Cons ("Prelude","Neg") 1 Public [TCons ("Prelude","Nat") []],Cons ("Prelude","Zero") 0 Public [],Cons ("Prelude","Pos") 1 Public [TCons ("Prelude","Nat") []]],Type ("Prelude","Success") Public [] [Cons ("Prelude","Success") 0 Public []],Type ("Prelude","Maybe") Public [0] [Cons ("Prelude","Nothing") 0 Public [],Cons ("Prelude","Just") 1 Public [TVar 0]],Type ("Prelude","Either") Public [0,1] [Cons ("Prelude","Left") 1 Public [TVar 0],Cons ("Prelude","Right") 1 Public [TVar 1]],Type ("Prelude","IO") Public [0] [],Type ("Prelude","SearchTree") Public [0] [Cons ("Prelude","Fail") 0 Public [],Cons ("Prelude","Value") 1 Public [TVar 0],Cons ("Prelude","Choice") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]],Cons ("Prelude","Suspend") 0 Public []]] [Func ("Prelude",".") 2 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (FuncType (TVar 2) (TVar 0)) (FuncType (TVar 2) (TVar 1)))) (Rule [1,2] (Comb (FuncPartCall 1) ("Prelude",".._#lambda2") [Var 1,Var 2])),Func ("Prelude",".._#lambda2") 3 Private (FuncType (FuncType (TVar 9) (TVar 11)) (FuncType (FuncType (TVar 7) (TVar 9)) (FuncType (TVar 7) (TVar 11)))) (Rule [1,2,3] (Comb FuncCall ("Prelude","apply") [Var 1,Comb FuncCall ("Prelude","apply") [Var 2,Var 3]])),Func ("Prelude","id") 1 Public (FuncType (TVar 0) (TVar 0)) (Rule [1] (Var 1)),Func ("Prelude","const") 2 Public (FuncType (TVar 0) (FuncType (TVar 1) (TVar 0))) (Rule [1,2] (Var 1)),Func ("Prelude","curry") 3 Public (FuncType (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (TVar 2)) (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2)))) (Rule [1,2,3] (Comb FuncCall ("Prelude","apply") [Var 1,Comb ConsCall ("Prelude","(,)") [Var 2,Var 3]])),Func ("Prelude","uncurry") 2 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2))) (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (TVar 2))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 4])])),Func ("Prelude","flip") 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2))) (FuncType (TVar 1) (FuncType (TVar 0) (TVar 2)))) (Rule [1,2,3] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 2])),Func ("Prelude","until") 3 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (FuncType (TVar 0) (TVar 0)) (FuncType (TVar 0) (TVar 0)))) (Rule [1,2,3] (Case  Rigid (Comb FuncCall ("Prelude","apply") [Var 1,Var 3]) [Branch (Pattern ("Prelude","True") []) (Var 3),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","until") [Var 1,Var 2,Comb FuncCall ("Prelude","apply") [Var 2,Var 3]])])),Func ("Prelude","$") 2 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TVar 0) (TVar 1))) (Rule [1,2] (Comb FuncCall ("Prelude","apply") [Var 1,Var 2])),Func ("Prelude","$!") 2 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TVar 0) (TVar 1))) (External "Prelude.$!"),Func ("Prelude","$!!") 2 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TVar 0) (TVar 1))) (External "Prelude.$!!"),Func ("Prelude","$#") 2 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TVar 0) (TVar 1))) (External "Prelude.$#"),Func ("Prelude","$##") 2 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TVar 0) (TVar 1))) (External "Prelude.$##"),Func ("Prelude","ensureSpine") 0 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","$#") [Comb (FuncPartCall 1) ("Prelude","ensureSpine.ensureList.21") []])),Func ("Prelude","ensureSpine.ensureList.21") 1 Private (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","ensureSpine") [],Var 3]])])),Func ("Prelude","seq") 2 Public (FuncType (TVar 0) (FuncType (TVar 1) (TVar 1))) (Rule [1,2] (Comb FuncCall ("Prelude","$!") [Comb (FuncPartCall 1) ("Prelude","const") [Var 2],Var 1])),Func ("Prelude","error") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 0)) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Prelude","prim_error") [],Var 1])),Func ("Prelude","prim_error") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 0)) (External "Prelude.prim_error"),Func ("Prelude","failed") 0 Public (TVar 0) (External "Prelude.failed"),Func ("Prelude","&&") 2 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","True") []) (Var 2),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","False") [])])),Func ("Prelude","||") 2 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude","False") []) (Var 2)])),Func ("Prelude","not") 1 Public (FuncType (TCons ("Prelude","Bool") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","True") [])])),Func ("Prelude","otherwise") 0 Public (TCons ("Prelude","Bool") []) (Rule [] (Comb ConsCall ("Prelude","True") [])),Func ("Prelude","if_then_else") 3 Public (FuncType (TCons ("Prelude","Bool") []) (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0)))) (Rule [1,2,3] (Case  Rigid (Var 1) [Branch (Pattern ("Prelude","True") []) (Var 2),Branch (Pattern ("Prelude","False") []) (Var 3)])),Func ("Prelude","isLT") 1 Public (FuncType (TCons ("Prelude","Ordering") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","LT") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude","GT") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude","EQ") []) (Comb ConsCall ("Prelude","False") [])])),Func ("Prelude","isGT") 1 Public (FuncType (TCons ("Prelude","Ordering") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","LT") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude","GT") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude","EQ") []) (Comb ConsCall ("Prelude","False") [])])),Func ("Prelude","isEQ") 1 Public (FuncType (TCons ("Prelude","Ordering") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","LT") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude","GT") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude","EQ") []) (Comb ConsCall ("Prelude","True") [])])),Func ("Prelude","compare") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Ordering") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Zero") []) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","EQ") []),Branch (Pattern ("Prelude","Pos") [3]) (Comb ConsCall ("Prelude","LT") []),Branch (Pattern ("Prelude","Neg") [4]) (Comb ConsCall ("Prelude","GT") [])]),Branch (Pattern ("Prelude","Pos") [5]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","GT") []),Branch (Pattern ("Prelude","Pos") [6]) (Comb FuncCall ("Prelude","cmpNat") [Var 5,Var 6]),Branch (Pattern ("Prelude","Neg") [7]) (Comb ConsCall ("Prelude","GT") [])]),Branch (Pattern ("Prelude","Neg") [8]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","LT") []),Branch (Pattern ("Prelude","Pos") [9]) (Comb ConsCall ("Prelude","LT") []),Branch (Pattern ("Prelude","Neg") [10]) (Comb FuncCall ("Prelude","cmpNat") [Var 10,Var 8])])])),Func ("Prelude","<") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","compare") [Var 1,Var 2],Comb ConsCall ("Prelude","LT") []])),Func ("Prelude",">") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","compare") [Var 1,Var 2],Comb ConsCall ("Prelude","GT") []])),Func ("Prelude","<=") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","/=") [Comb FuncCall ("Prelude","compare") [Var 1,Var 2],Comb ConsCall ("Prelude","GT") []])),Func ("Prelude",">=") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","/=") [Comb FuncCall ("Prelude","compare") [Var 1,Var 2],Comb ConsCall ("Prelude","LT") []])),Func ("Prelude","max") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","compare") [Var 1,Var 2]) [Branch (Pattern ("Prelude","LT") []) (Var 2),Branch (Pattern ("Prelude","EQ") []) (Var 1),Branch (Pattern ("Prelude","GT") []) (Var 1)])),Func ("Prelude","min") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","compare") [Var 1,Var 2]) [Branch (Pattern ("Prelude","GT") []) (Var 2),Branch (Pattern ("Prelude","LT") []) (Var 1),Branch (Pattern ("Prelude","EQ") []) (Var 1)])),Func ("Prelude","==") 2 Public (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (External "Prelude.=="),Func ("Prelude","/=") 2 Public (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","==") [Var 1,Var 2]])),Func ("Prelude","fst") 1 Public (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (TVar 0)) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","snd") 1 Public (FuncType (TCons ("Prelude","(,)") [TVar 0,TVar 1]) (TVar 1)) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","head") 1 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0)) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Var 2)])),Func ("Prelude","tail") 1 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Var 3)])),Func ("Prelude","null") 1 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude",":") [2,3]) (Comb ConsCall ("Prelude","False") [])])),Func ("Prelude","++") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [3,4]) (Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("Prelude","++") [Var 4,Var 2]])])),Func ("Prelude","length") 1 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Lit (Intc  0)),Branch (Pattern ("Prelude",":") [2,3]) (Comb FuncCall ("Prelude","+") [Lit (Intc  1),Comb FuncCall ("Prelude","length") [Var 3]])])),Func ("Prelude","!!") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","Int") []) (TVar 0))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Var 3),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude",">") [Var 2,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","!!") [Var 4,Comb FuncCall ("Prelude","-") [Var 2,Lit (Intc  1)]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("Prelude","map") 2 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 1]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Comb FuncCall ("Prelude","map") [Var 1,Var 4]])])),Func ("Prelude","foldl") 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 0))) (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TVar 0)))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("Prelude","foldl") [Var 1,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 2],Var 4],Var 5])])),Func ("Prelude","foldl1") 2 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("Prelude","foldl") [Var 1,Var 3,Var 4])])),Func ("Prelude","foldr") 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 1))) (FuncType (TVar 1) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 1)))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [4,5]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Comb FuncCall ("Prelude","foldr") [Var 1,Var 2,Var 5]])])),Func ("Prelude","foldr1") 2 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TVar 0))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Var 3),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Comb FuncCall ("Prelude","foldr1") [Var 1,Comb ConsCall ("Prelude",":") [Var 5,Var 6]]])])])),Func ("Prelude","filter") 2 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Var 1,Var 3]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("Prelude","filter") [Var 1,Var 4]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","filter") [Var 1,Var 4])])])),Func ("Prelude","zip") 2 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [5,6]) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 3,Var 5],Comb FuncCall ("Prelude","zip") [Var 4,Var 6]])])])),Func ("Prelude","zip3") 3 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("Prelude","[]") [TVar 2]) (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TVar 0,TVar 1,TVar 2]])))) (Rule [1,2,3] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [4,5]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [8,9]) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,,)") [Var 4,Var 6,Var 8],Comb FuncCall ("Prelude","zip3") [Var 5,Var 7,Var 9]])])])])),Func ("Prelude","zipWith") 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (TCons ("Prelude","[]") [TVar 2])))) (Rule [1,2,3] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [4,5]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [6,7]) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Var 6],Comb FuncCall ("Prelude","zipWith") [Var 1,Var 5,Var 7]])])])),Func ("Prelude","zipWith3") 4 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3)))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 1]) (FuncType (TCons ("Prelude","[]") [TVar 2]) (TCons ("Prelude","[]") [TVar 3]))))) (Rule [1,2,3,4] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [5,6]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [7,8]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [9,10]) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 5],Var 7],Var 9],Comb FuncCall ("Prelude","zipWith3") [Var 1,Var 6,Var 8,Var 10]])])])])),Func ("Prelude","unzip") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 1]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [4,5]) (Let [(6,Comb FuncCall ("Prelude","unzip") [Var 3])] (Let [(7,Comb FuncCall ("Prelude","unzip._#selFP3#xs") [Var 6])] (Let [(8,Comb FuncCall ("Prelude","unzip._#selFP4#ys") [Var 6])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 7],Comb ConsCall ("Prelude",":") [Var 5,Var 8]]))))])])),Func ("Prelude","unzip._#selFP3#xs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 476],TCons ("Prelude","[]") [TVar 477]]) (TCons ("Prelude","[]") [TVar 476])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","unzip._#selFP4#ys") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 476],TCons ("Prelude","[]") [TVar 477]]) (TCons ("Prelude","[]") [TVar 477])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","unzip3") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,,)") [TVar 0,TVar 1,TVar 2]]) (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 1],TCons ("Prelude","[]") [TVar 2]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,,)") [4,5,6]) (Let [(7,Comb FuncCall ("Prelude","unzip3") [Var 3])] (Let [(8,Comb FuncCall ("Prelude","unzip3._#selFP6#xs") [Var 7])] (Let [(9,Comb FuncCall ("Prelude","unzip3._#selFP7#ys") [Var 7])] (Let [(10,Comb FuncCall ("Prelude","unzip3._#selFP8#zs") [Var 7])] (Comb ConsCall ("Prelude","(,,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 8],Comb ConsCall ("Prelude",":") [Var 5,Var 9],Comb ConsCall ("Prelude",":") [Var 6,Var 10]])))))])])),Func ("Prelude","unzip3._#selFP6#xs") 1 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 493],TCons ("Prelude","[]") [TVar 494],TCons ("Prelude","[]") [TVar 495]]) (TCons ("Prelude","[]") [TVar 493])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,,)") [2,3,4]) (Var 2)])),Func ("Prelude","unzip3._#selFP7#ys") 1 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 493],TCons ("Prelude","[]") [TVar 494],TCons ("Prelude","[]") [TVar 495]]) (TCons ("Prelude","[]") [TVar 494])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,,)") [2,3,4]) (Var 3)])),Func ("Prelude","unzip3._#selFP8#zs") 1 Private (FuncType (TCons ("Prelude","(,,)") [TCons ("Prelude","[]") [TVar 493],TCons ("Prelude","[]") [TVar 494],TCons ("Prelude","[]") [TVar 495]]) (TCons ("Prelude","[]") [TVar 495])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,,)") [2,3,4]) (Var 4)])),Func ("Prelude","concat") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 0]]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("Prelude","++") [],Comb ConsCall ("Prelude","[]") [],Var 1])),Func ("Prelude","concatMap") 1 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 1])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 1]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","concat") [],Comb (FuncPartCall 1) ("Prelude","map") [Var 1]])),Func ("Prelude","iterate") 2 Public (FuncType (FuncType (TVar 0) (TVar 0)) (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("Prelude","iterate") [Var 1,Comb FuncCall ("Prelude","apply") [Var 1,Var 2]]])),Func ("Prelude","repeat") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Comb ConsCall ("Prelude",":") [Var 1,Comb FuncCall ("Prelude","repeat") [Var 1]])),Func ("Prelude","replicate") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TVar 0) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Comb FuncCall ("Prelude","take") [Var 1,Comb FuncCall ("Prelude","repeat") [Var 2]])),Func ("Prelude","take") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Neg") [3]) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","Pos") [4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [5,6]) (Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("Prelude","take") [Comb FuncCall ("Prelude","-") [Comb ConsCall ("Prelude","Pos") [Var 4],Lit (Intc  1)],Var 6]])])])),Func ("Prelude","drop") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","<=") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Var 2),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","drop.dropp.272") [Var 1,Var 2])])),Func ("Prelude","drop.dropp.272") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("Prelude","drop") [Comb FuncCall ("Prelude","-") [Var 1,Lit (Intc  1)],Var 4])])),Func ("Prelude","splitAt") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","<=") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 2]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","splitAt.splitAtp.282") [Var 1,Var 2])])),Func ("Prelude","splitAt.splitAtp.282") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("Prelude","splitAt") [Comb FuncCall ("Prelude","-") [Var 1,Lit (Intc  1)],Var 4])] (Let [(6,Comb FuncCall ("Prelude","splitAt.splitAtp.282._#selFP10#ys") [Var 5])] (Let [(7,Comb FuncCall ("Prelude","splitAt.splitAtp.282._#selFP11#zs") [Var 5])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 6],Var 7]))))])),Func ("Prelude","splitAt.splitAtp.282._#selFP10#ys") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 576],TCons ("Prelude","[]") [TVar 576]]) (TCons ("Prelude","[]") [TVar 576])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","splitAt.splitAtp.282._#selFP11#zs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 576],TCons ("Prelude","[]") [TVar 576]]) (TCons ("Prelude","[]") [TVar 576])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","takeWhile") 2 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Var 1,Var 3]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("Prelude","takeWhile") [Var 1,Var 4]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])])])),Func ("Prelude","dropWhile") 2 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Var 1,Var 3]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","dropWhile") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Var 3,Var 4])])])),Func ("Prelude","span") 2 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Var 1,Var 3]) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("Prelude","span") [Var 1,Var 4])] (Let [(6,Comb FuncCall ("Prelude","span._#selFP13#ys") [Var 5])] (Let [(7,Comb FuncCall ("Prelude","span._#selFP14#zs") [Var 5])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 6],Var 7])))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 3,Var 4]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("Prelude","span._#selFP13#ys") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 627],TCons ("Prelude","[]") [TVar 627]]) (TCons ("Prelude","[]") [TVar 627])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","span._#selFP14#zs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 627],TCons ("Prelude","[]") [TVar 627]]) (TCons ("Prelude","[]") [TVar 627])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","break") 1 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))) (Rule [1] (Comb (FuncPartCall 1) ("Prelude","span") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","not") [],Var 1]])),Func ("Prelude","lines") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Let [(4,Comb FuncCall ("Prelude","lines.splitline.314") [Comb ConsCall ("Prelude",":") [Var 2,Var 3]])] (Let [(5,Comb FuncCall ("Prelude","lines._#selFP19#l") [Var 4])] (Let [(6,Comb FuncCall ("Prelude","lines._#selFP20#xs_l") [Var 4])] (Comb ConsCall ("Prelude",":") [Var 5,Comb FuncCall ("Prelude","lines") [Var 6]]))))])),Func ("Prelude","lines.splitline.314") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '\n')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("Prelude","lines.splitline.314") [Var 3])] (Let [(5,Comb FuncCall ("Prelude","lines.splitline.314._#selFP16#ds") [Var 4])] (Let [(6,Comb FuncCall ("Prelude","lines.splitline.314._#selFP17#es") [Var 4])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 2,Var 5],Var 6]))))])])),Func ("Prelude","lines.splitline.314._#selFP16#ds") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","lines.splitline.314._#selFP17#es") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","lines._#selFP19#l") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","lines._#selFP20#xs_l") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","unlines") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","++") [],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]],Var 1])),Func ("Prelude","words") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Let [(2,Comb FuncCall ("Prelude","dropWhile") [Comb (FuncPartCall 1) ("Prelude","words.isSpace.326") [],Var 1])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Let [(3,Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","break") [Comb (FuncPartCall 1) ("Prelude","words.isSpace.326") []],Var 2])] (Let [(4,Comb FuncCall ("Prelude","words._#selFP22#w") [Var 3])] (Let [(5,Comb FuncCall ("Prelude","words._#selFP23#s2") [Var 3])] (Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("Prelude","words") [Var 5]]))))]))),Func ("Prelude","words.isSpace.326") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  ' ')],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\t')],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\n')],Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\r')]]]])),Func ("Prelude","words._#selFP22#w") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","words._#selFP23#s2") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","unwords") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","foldr1") [Comb (FuncPartCall 2) ("Prelude","unwords._#lambda6") [],Var 1])])),Func ("Prelude","unwords._#lambda6") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Var 2]])),Func ("Prelude","reverse") 0 Public (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","foldl") [Comb (FuncPartCall 2) ("Prelude","flip") [Comb (ConsPartCall 2) ("Prelude",":") []],Comb ConsCall ("Prelude","[]") []])),Func ("Prelude","and") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","foldr") [Comb (FuncPartCall 2) ("Prelude","&&") [],Comb ConsCall ("Prelude","True") []])),Func ("Prelude","or") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []]) (TCons ("Prelude","Bool") [])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","foldr") [Comb (FuncPartCall 2) ("Prelude","||") [],Comb ConsCall ("Prelude","False") []])),Func ("Prelude","any") 1 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("Prelude","or") [],Comb (FuncPartCall 1) ("Prelude","map") [Var 1]])),Func ("Prelude","all") 1 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Bool") [])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("Prelude","and") [],Comb (FuncPartCall 1) ("Prelude","map") [Var 1]])),Func ("Prelude","elem") 1 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))) (Rule [1] (Comb FuncCall ("Prelude","any") [Comb (FuncPartCall 1) ("Prelude","==") [Var 1]])),Func ("Prelude","notElem") 1 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") []))) (Rule [1] (Comb FuncCall ("Prelude","all") [Comb (FuncPartCall 1) ("Prelude","/=") [Var 1]])),Func ("Prelude","lookup") 2 Public (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TVar 1]]) (TCons ("Prelude","Maybe") [TVar 1]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","Nothing") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Var 5]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","Just") [Var 6]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","lookup") [Var 1,Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("Prelude","enumFrom") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [1] (Comb ConsCall ("Prelude",":") [Var 1,Comb FuncCall ("Prelude","enumFrom") [Comb FuncCall ("Prelude","+") [Var 1,Lit (Intc  1)]]])),Func ("Prelude","enumFromThen") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","iterate") [Comb (FuncPartCall 1) ("Prelude","+") [Comb FuncCall ("Prelude","-") [Var 2,Var 1]],Var 1])),Func ("Prelude","enumFromTo") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude",">") [Var 1,Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Var 1,Comb FuncCall ("Prelude","enumFromTo") [Comb FuncCall ("Prelude","+") [Var 1,Lit (Intc  1)],Var 2]])])),Func ("Prelude","enumFromThenTo") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","takeWhile") [Comb (FuncPartCall 1) ("Prelude","enumFromThenTo.p.364") [Var 3,Var 1,Var 2],Comb FuncCall ("Prelude","enumFromThen") [Var 1,Var 2]])),Func ("Prelude","enumFromThenTo.p.364") 4 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") []))))) (Rule [1,2,3,4] (Case  Rigid (Comb FuncCall ("Prelude",">=") [Var 3,Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","<=") [Var 4,Var 1]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude",">=") [Var 4,Var 1]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])),Func ("Prelude","ord") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Prelude","prim_ord") [],Var 1])),Func ("Prelude","prim_ord") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Int") [])) (External "Prelude.prim_ord"),Func ("Prelude","chr") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Char") [])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Prelude","prim_chr") [],Var 1])),Func ("Prelude","prim_chr") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Char") [])) (External "Prelude.prim_chr"),Func ("Prelude","succ") 1 Public (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Nat") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","O") [2]) (Comb ConsCall ("Prelude","I") [Var 2]),Branch (Pattern ("Prelude","I") [3]) (Comb ConsCall ("Prelude","O") [Comb FuncCall ("Prelude","succ") [Var 3]]),Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","O") [Comb ConsCall ("Prelude","IHi") []])])),Func ("Prelude","+^") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Nat") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","O") [3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","O") [4]) (Comb ConsCall ("Prelude","O") [Comb FuncCall ("Prelude","+^") [Var 3,Var 4]]),Branch (Pattern ("Prelude","I") [5]) (Comb ConsCall ("Prelude","I") [Comb FuncCall ("Prelude","+^") [Var 3,Var 5]]),Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","I") [Var 3])]),Branch (Pattern ("Prelude","I") [6]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","O") [7]) (Comb ConsCall ("Prelude","I") [Comb FuncCall ("Prelude","+^") [Var 6,Var 7]]),Branch (Pattern ("Prelude","I") [8]) (Comb ConsCall ("Prelude","O") [Comb FuncCall ("Prelude","+^") [Comb FuncCall ("Prelude","succ") [Var 6],Var 8]]),Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","O") [Comb FuncCall ("Prelude","succ") [Var 6]])]),Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("Prelude","succ") [Var 2])])),Func ("Prelude","cmpNat") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Ordering") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","IHi") []) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","EQ") []),Branch (Pattern ("Prelude","O") [3]) (Comb ConsCall ("Prelude","LT") []),Branch (Pattern ("Prelude","I") [4]) (Comb ConsCall ("Prelude","LT") [])]),Branch (Pattern ("Prelude","O") [5]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","GT") []),Branch (Pattern ("Prelude","O") [6]) (Comb FuncCall ("Prelude","cmpNat") [Var 5,Var 6]),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("Prelude","cmpNatLT") [Var 5,Var 7])]),Branch (Pattern ("Prelude","I") [8]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","GT") []),Branch (Pattern ("Prelude","I") [9]) (Comb FuncCall ("Prelude","cmpNat") [Var 8,Var 9]),Branch (Pattern ("Prelude","O") [10]) (Comb FuncCall ("Prelude","cmpNatGT") [Var 8,Var 10])])])),Func ("Prelude","cmpNatLT") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Ordering") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","LT") []),Branch (Pattern ("Prelude","O") [3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","GT") []),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("Prelude","cmpNatLT") [Var 3,Var 4]),Branch (Pattern ("Prelude","I") [5]) (Comb FuncCall ("Prelude","cmpNatLT") [Var 3,Var 5])]),Branch (Pattern ("Prelude","I") [6]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","GT") []),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("Prelude","cmpNatLT") [Var 6,Var 7]),Branch (Pattern ("Prelude","O") [8]) (Comb FuncCall ("Prelude","cmpNatGT") [Var 6,Var 8])])])),Func ("Prelude","cmpNatGT") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Ordering") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","GT") []),Branch (Pattern ("Prelude","O") [3]) (Case  Flex (Var 1) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","LT") []),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("Prelude","cmpNatGT") [Var 4,Var 3]),Branch (Pattern ("Prelude","I") [5]) (Comb FuncCall ("Prelude","cmpNatGT") [Var 5,Var 3])]),Branch (Pattern ("Prelude","I") [6]) (Case  Flex (Var 1) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","LT") []),Branch (Pattern ("Prelude","I") [7]) (Comb FuncCall ("Prelude","cmpNatGT") [Var 7,Var 6]),Branch (Pattern ("Prelude","O") [8]) (Comb FuncCall ("Prelude","cmpNatLT") [Var 8,Var 6])])])),Func ("Prelude","<^") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","isLT") [Comb FuncCall ("Prelude","cmpNat") [Var 1,Var 2]])),Func ("Prelude",">^") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","isGT") [Comb FuncCall ("Prelude","cmpNat") [Var 1,Var 2]])),Func ("Prelude","<=^") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","isGT") [Comb FuncCall ("Prelude","cmpNat") [Var 1,Var 2]]])),Func ("Prelude",">=^") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","not") [Comb FuncCall ("Prelude","isLT") [Comb FuncCall ("Prelude","cmpNat") [Var 1,Var 2]]])),Func ("Prelude","*^") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Nat") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","IHi") []) (Var 2),Branch (Pattern ("Prelude","I") [3]) (Comb FuncCall ("Prelude","+^") [Comb ConsCall ("Prelude","O") [Comb FuncCall ("Prelude","*^") [Var 2,Var 3]],Var 2]),Branch (Pattern ("Prelude","O") [4]) (Comb ConsCall ("Prelude","O") [Comb FuncCall ("Prelude","*^") [Var 4,Var 2]])])),Func ("Prelude","pred") 1 Public (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Nat") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","O") [2]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","IHi") []),Branch (Pattern ("Prelude","O") [3]) (Comb ConsCall ("Prelude","I") [Comb FuncCall ("Prelude","pred") [Var 2]]),Branch (Pattern ("Prelude","I") [4]) (Comb ConsCall ("Prelude","I") [Comb ConsCall ("Prelude","O") [Var 4]])]),Branch (Pattern ("Prelude","I") [5]) (Comb ConsCall ("Prelude","O") [Var 5])])),Func ("Prelude","inc") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []]),Branch (Pattern ("Prelude","Pos") [2]) (Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("Prelude","succ") [Var 2]]),Branch (Pattern ("Prelude","Neg") [3]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","Zero") []),Branch (Pattern ("Prelude","O") [4]) (Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("Prelude","pred") [Comb ConsCall ("Prelude","O") [Var 4]]]),Branch (Pattern ("Prelude","I") [5]) (Comb ConsCall ("Prelude","Neg") [Comb ConsCall ("Prelude","O") [Var 5]])])])),Func ("Prelude","dec") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","Neg") [Comb ConsCall ("Prelude","IHi") []]),Branch (Pattern ("Prelude","Neg") [2]) (Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("Prelude","succ") [Var 2]]),Branch (Pattern ("Prelude","Pos") [3]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","Zero") []),Branch (Pattern ("Prelude","O") [4]) (Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("Prelude","pred") [Comb ConsCall ("Prelude","O") [Var 4]]]),Branch (Pattern ("Prelude","I") [5]) (Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 5]])])])),Func ("Prelude","mult2") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Pos") [2]) (Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 2]]),Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","Zero") []),Branch (Pattern ("Prelude","Neg") [3]) (Comb ConsCall ("Prelude","Neg") [Comb ConsCall ("Prelude","O") [Var 3]])])),Func ("Prelude","-^") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","IHi") []) (Comb FuncCall ("Prelude","inc") [Comb ConsCall ("Prelude","Neg") [Var 2]]),Branch (Pattern ("Prelude","O") [3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("Prelude","pred") [Comb ConsCall ("Prelude","O") [Var 3]]]),Branch (Pattern ("Prelude","O") [4]) (Comb FuncCall ("Prelude","mult2") [Comb FuncCall ("Prelude","-^") [Var 3,Var 4]]),Branch (Pattern ("Prelude","I") [5]) (Comb FuncCall ("Prelude","dec") [Comb FuncCall ("Prelude","mult2") [Comb FuncCall ("Prelude","-^") [Var 3,Var 5]]])]),Branch (Pattern ("Prelude","I") [6]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 6]]),Branch (Pattern ("Prelude","O") [7]) (Comb FuncCall ("Prelude","inc") [Comb FuncCall ("Prelude","mult2") [Comb FuncCall ("Prelude","-^") [Var 6,Var 7]]]),Branch (Pattern ("Prelude","I") [8]) (Comb FuncCall ("Prelude","mult2") [Comb FuncCall ("Prelude","-^") [Var 6,Var 8]])])])),Func ("Prelude","div2") 1 Public (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Nat") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","O") [2]) (Var 2),Branch (Pattern ("Prelude","I") [3]) (Var 3)])),Func ("Prelude","mod2") 1 Public (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","IHi") []) (Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []]),Branch (Pattern ("Prelude","O") [2]) (Comb ConsCall ("Prelude","Zero") []),Branch (Pattern ("Prelude","I") [3]) (Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []])])),Func ("Prelude","divmodNat") 2 Public (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Comb ConsCall ("Prelude","IHi") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Var 1],Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","cmpNat") [Var 1,Var 2]) [Branch (Pattern ("Prelude","EQ") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []],Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","LT") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Zero") [],Comb ConsCall ("Prelude","Pos") [Var 1]]),Branch (Pattern ("Prelude","GT") []) (Case  Rigid (Comb FuncCall ("Prelude","divmodNat") [Comb FuncCall ("Prelude","div2") [Var 1],Var 2]) [Branch (Pattern ("Prelude","(,)") [3,4]) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","IHi") []],Comb FuncCall ("Prelude","-^") [Var 1,Var 2]]),Branch (Pattern ("Prelude","Pos") [5]) (Case  Rigid (Var 4) [Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 5]],Comb FuncCall ("Prelude","mod2") [Var 1]]),Branch (Pattern ("Prelude","Pos") [6]) (Case  Rigid (Comb FuncCall ("Prelude","divmodNat") [Comb FuncCall ("Prelude","divmodNat.shift.523") [Var 1,Var 6],Var 2]) [Branch (Pattern ("Prelude","(,)") [7,8]) (Case  Rigid (Var 7) [Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb ConsCall ("Prelude","O") [Var 5]],Var 8]),Branch (Pattern ("Prelude","Pos") [9]) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("Prelude","+^") [Comb ConsCall ("Prelude","O") [Var 5],Var 9]],Var 8]),Branch (Pattern ("Prelude","Neg") [10]) (Comb FuncCall ("Prelude","failed") [])])]),Branch (Pattern ("Prelude","Neg") [11]) (Comb FuncCall ("Prelude","failed") [])]),Branch (Pattern ("Prelude","Neg") [12]) (Comb FuncCall ("Prelude","failed") [])])])]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])),Func ("Prelude","divmodNat.shift.523") 2 Private (FuncType (TCons ("Prelude","Nat") []) (FuncType (TCons ("Prelude","Nat") []) (TCons ("Prelude","Nat") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","O") [3]) (Comb ConsCall ("Prelude","O") [Var 2]),Branch (Pattern ("Prelude","I") [4]) (Comb ConsCall ("Prelude","I") [Var 2])])),Func ("Prelude","+") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Pos") [3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Pos") [4]) (Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("Prelude","+^") [Var 3,Var 4]]),Branch (Pattern ("Prelude","Neg") [5]) (Comb FuncCall ("Prelude","-^") [Var 3,Var 5]),Branch (Pattern ("Prelude","Zero") []) (Var 1)]),Branch (Pattern ("Prelude","Neg") [6]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Neg") [7]) (Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("Prelude","+^") [Var 6,Var 7]]),Branch (Pattern ("Prelude","Pos") [8]) (Comb FuncCall ("Prelude","-^") [Var 8,Var 6]),Branch (Pattern ("Prelude","Zero") []) (Var 1)]),Branch (Pattern ("Prelude","Zero") []) (Var 2)])),Func ("Prelude","-") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Neg") [3]) (Comb FuncCall ("Prelude","+") [Var 1,Comb ConsCall ("Prelude","Pos") [Var 3]]),Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("Prelude","+") [Var 1,Comb ConsCall ("Prelude","Neg") [Var 4]]),Branch (Pattern ("Prelude","Zero") []) (Var 1)])),Func ("Prelude","*") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Pos") [3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Pos") [4]) (Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("Prelude","*^") [Var 3,Var 4]]),Branch (Pattern ("Prelude","Neg") [5]) (Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("Prelude","*^") [Var 3,Var 5]]),Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","Zero") [])]),Branch (Pattern ("Prelude","Neg") [6]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Neg") [7]) (Comb ConsCall ("Prelude","Pos") [Comb FuncCall ("Prelude","*^") [Var 6,Var 7]]),Branch (Pattern ("Prelude","Pos") [8]) (Comb ConsCall ("Prelude","Neg") [Comb FuncCall ("Prelude","*^") [Var 6,Var 8]]),Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","Zero") [])]),Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","Zero") [])])),Func ("Prelude","divmod") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","Zero") [],Comb ConsCall ("Prelude","Zero") []]),Branch (Pattern ("Prelude","Pos") [3]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("Prelude","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","[]") []]]]]]]]]]]]]]]),Branch (Pattern ("Prelude","Pos") [4]) (Comb FuncCall ("Prelude","divmodNat") [Var 3,Var 4]),Branch (Pattern ("Prelude","Neg") [5]) (Let [(6,Comb FuncCall ("Prelude","divmodNat") [Var 3,Var 5])] (Let [(7,Comb FuncCall ("Prelude","divmod._#selFP25#d") [Var 6])] (Let [(8,Comb FuncCall ("Prelude","divmod._#selFP26#m") [Var 6])] (Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Prelude","negate") [Var 7],Var 8]))))]),Branch (Pattern ("Prelude","Neg") [9]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Zero") []) (Comb FuncCall ("Prelude","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","[]") []]]]]]]]]]]]]]]),Branch (Pattern ("Prelude","Pos") [10]) (Let [(11,Comb FuncCall ("Prelude","divmodNat") [Var 9,Var 10])] (Let [(12,Comb FuncCall ("Prelude","divmod._#selFP28#d") [Var 11])] (Let [(13,Comb FuncCall ("Prelude","divmod._#selFP29#m") [Var 11])] (Comb ConsCall ("Prelude","(,)") [Comb FuncCall ("Prelude","negate") [Var 12],Comb FuncCall ("Prelude","negate") [Var 13]])))),Branch (Pattern ("Prelude","Neg") [14]) (Let [(15,Comb FuncCall ("Prelude","divmodNat") [Var 9,Var 14])] (Let [(16,Comb FuncCall ("Prelude","divmod._#selFP31#d") [Var 15])] (Let [(17,Comb FuncCall ("Prelude","divmod._#selFP32#m") [Var 15])] (Comb ConsCall ("Prelude","(,)") [Var 16,Comb FuncCall ("Prelude","negate") [Var 17]]))))])])),Func ("Prelude","divmod._#selFP25#d") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","divmod._#selFP26#m") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","divmod._#selFP28#d") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","divmod._#selFP29#m") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","divmod._#selFP31#d") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","divmod._#selFP32#m") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","div") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Comb FuncCall ("Prelude","fst") [Comb FuncCall ("Prelude","divmod") [Var 1,Var 2]])),Func ("Prelude","mod") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Comb FuncCall ("Prelude","snd") [Comb FuncCall ("Prelude","divmod") [Var 1,Var 2]])),Func ("Prelude","negate") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Zero") []) (Comb ConsCall ("Prelude","Zero") []),Branch (Pattern ("Prelude","Pos") [2]) (Comb ConsCall ("Prelude","Neg") [Var 2]),Branch (Pattern ("Prelude","Neg") [3]) (Comb ConsCall ("Prelude","Pos") [Var 3])])),Func ("Prelude","success") 0 Public (TCons ("Prelude","Success") []) (Rule [] (Comb ConsCall ("Prelude","Success") [])),Func ("Prelude","=:=") 2 Public (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Success") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","===") [Var 1,Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","success") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])),Func ("Prelude","===") 2 Public (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (External "Prelude.==="),Func ("Prelude","&") 2 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TCons ("Prelude","Success") []) (TCons ("Prelude","Success") []))) (External "Prelude.&"),Func ("Prelude","&>") 2 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TVar 0) (TVar 0))) (Rule [1,2] (Comb FuncCall ("Prelude","cond") [Var 1,Var 2])),Func ("Prelude","maybe") 3 Public (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (TVar 0)) (FuncType (TCons ("Prelude","Maybe") [TVar 1]) (TVar 0)))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","Nothing") []) (Var 1),Branch (Pattern ("Prelude","Just") [4]) (Comb FuncCall ("Prelude","apply") [Var 2,Var 4])])),Func ("Prelude","either") 3 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (FuncType (TVar 2) (TVar 1)) (FuncType (TCons ("Prelude","Either") [TVar 0,TVar 2]) (TVar 1)))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","Left") [4]) (Comb FuncCall ("Prelude","apply") [Var 1,Var 4]),Branch (Pattern ("Prelude","Right") [5]) (Comb FuncCall ("Prelude","apply") [Var 2,Var 5])])),Func ("Prelude",">>=") 2 Public (FuncType (TCons ("Prelude","IO") [TVar 0]) (FuncType (FuncType (TVar 0) (TCons ("Prelude","IO") [TVar 1])) (TCons ("Prelude","IO") [TVar 1]))) (External "Prelude.>>="),Func ("Prelude","return") 1 Public (FuncType (TVar 0) (TCons ("Prelude","IO") [TVar 0])) (External "Prelude.return"),Func ("Prelude",">>") 2 Public (FuncType (TCons ("Prelude","IO") [TVar 0]) (FuncType (TCons ("Prelude","IO") [TVar 1]) (TCons ("Prelude","IO") [TVar 1]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Var 1,Comb (FuncPartCall 1) ("Prelude","const") [Var 2]])),Func ("Prelude","done") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","()") []]) (Rule [] (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","()") []])),Func ("Prelude","putChar") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Prelude","prim_putChar") [],Var 1])),Func ("Prelude","prim_putChar") 1 Public (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (External "Prelude.prim_putChar"),Func ("Prelude","getChar") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","Char") []]) (External "Prelude.getChar"),Func ("Prelude","readFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Prelude","prim_readFile") [],Var 1])),Func ("Prelude","prim_readFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (External "Prelude.prim_readFile"),Func ("Prelude","writeFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","$##") [Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 2) ("Prelude","prim_writeFile") [],Var 1],Var 2])),Func ("Prelude","prim_writeFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (External "Prelude.prim_writeFile"),Func ("Prelude","appendFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","$##") [Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 2) ("Prelude","prim_appendFile") [],Var 1],Var 2])),Func ("Prelude","prim_appendFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (External "Prelude.prim_appendFile"),Func ("Prelude","catchFail") 2 Public (FuncType (TCons ("Prelude","IO") [TVar 0]) (FuncType (TCons ("Prelude","IO") [TVar 0]) (TCons ("Prelude","IO") [TVar 0]))) (External "Prelude.catchFail"),Func ("Prelude","putStr") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","done") []),Branch (Pattern ("Prelude",":") [2,3]) (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putChar") [Var 2],Comb FuncCall ("Prelude","putStr") [Var 3]])])),Func ("Prelude","putStrLn") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude",">>") [Comb FuncCall ("Prelude","putStr") [Var 1],Comb FuncCall ("Prelude","putChar") [Lit (Charc  '\n')]])),Func ("Prelude","getLine") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (Rule [] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","getChar") [],Comb (FuncPartCall 1) ("Prelude","getLine._#lambda10") []])),Func ("Prelude","getLine._#lambda10") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  '\n')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","getLine") [],Comb (FuncPartCall 1) ("Prelude","getLine._#lambda10._#lambda11") [Var 1]])])),Func ("Prelude","getLine._#lambda10._#lambda11") 2 Private (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]))) (Rule [1,2] (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude",":") [Var 1,Var 2]])),Func ("Prelude","show") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Prelude","prim_show") [],Var 1])),Func ("Prelude","prim_show") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (External "Prelude.prim_show"),Func ("Prelude","print") 1 Public (FuncType (TVar 0) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude","putStrLn") [Comb FuncCall ("Prelude","show") [Var 1]])),Func ("Prelude","doSolve") 1 Public (FuncType (TCons ("Prelude","Success") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude","cond") [Var 1,Comb FuncCall ("Prelude","done") []])),Func ("Prelude","sequenceIO") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","IO") [TVar 0]]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 0]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [2,3]) (Comb FuncCall ("Prelude",">>=") [Var 2,Comb (FuncPartCall 1) ("Prelude","sequenceIO._#lambda12") [Var 3]])])),Func ("Prelude","sequenceIO._#lambda12") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","IO") [TVar 937]]) (FuncType (TVar 937) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 937]]))) (Rule [1,2] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","sequenceIO") [Var 1],Comb (FuncPartCall 1) ("Prelude","sequenceIO._#lambda12._#lambda13") [Var 2]])),Func ("Prelude","sequenceIO._#lambda12._#lambda13") 2 Private (FuncType (TVar 937) (FuncType (TCons ("Prelude","[]") [TVar 937]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 937]]))) (Rule [1,2] (Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude",":") [Var 1,Var 2]])),Func ("Prelude","sequenceIO_") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","IO") [TVar 0]]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","foldr") [Comb (FuncPartCall 2) ("Prelude",">>") [],Comb FuncCall ("Prelude","done") []])),Func ("Prelude","mapIO") 1 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","IO") [TVar 1])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 1]]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","sequenceIO") [],Comb (FuncPartCall 1) ("Prelude","map") [Var 1]])),Func ("Prelude","mapIO_") 1 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","IO") [TVar 1])) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1] (Comb FuncCall ("Prelude",".") [Comb FuncCall ("Prelude","sequenceIO_") [],Comb (FuncPartCall 1) ("Prelude","map") [Var 1]])),Func ("Prelude","?") 2 Public (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (Rule [1,2] (Or (Var 1) (Var 2))),Func ("Prelude","getSearchTree") 1 Public (FuncType (TVar 0) (TCons ("Prelude","IO") [TCons ("Prelude","SearchTree") [TVar 0]])) (External "Prelude.getSearchTree"),Func ("Prelude","allValuesD") 1 Public (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Value") [2]) (Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","Fail") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","Suspend") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude","Choice") [3]) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("Prelude","allValuesD") []],Var 3])])),Func ("Prelude","allValuesB") 1 Public (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Comb FuncCall ("Prelude","allValuesB.unfoldOrs.692") [Comb ConsCall ("Prelude",":") [Var 1,Comb ConsCall ("Prelude","[]") []]])),Func ("Prelude","allValuesB.partition.692") 2 Private (FuncType (TCons ("Prelude","SearchTree") [TVar 0]) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","Value") [3]) (Let [(4,Var 2)] (Let [(5,Comb FuncCall ("Prelude","allValuesB.partition.692._#selFP34#vs") [Var 4])] (Let [(6,Comb FuncCall ("Prelude","allValuesB.partition.692._#selFP35#ors") [Var 4])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 5],Var 6])))),Branch (Pattern ("Prelude","Choice") [7]) (Let [(8,Var 2)] (Let [(9,Comb FuncCall ("Prelude","allValuesB.partition.692._#selFP37#vs") [Var 8])] (Let [(10,Comb FuncCall ("Prelude","allValuesB.partition.692._#selFP38#ors") [Var 8])] (Comb ConsCall ("Prelude","(,)") [Var 9,Comb FuncCall ("Prelude","++") [Var 7,Var 10]])))),Branch (Pattern ("Prelude","Fail") []) (Var 2),Branch (Pattern ("Prelude","Suspend") []) (Var 2)])),Func ("Prelude","allValuesB.partition.692._#selFP34#vs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (TCons ("Prelude","[]") [TVar 1001])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","allValuesB.partition.692._#selFP35#ors") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","allValuesB.partition.692._#selFP37#vs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (TCons ("Prelude","[]") [TVar 1001])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","allValuesB.partition.692._#selFP38#ors") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1001],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]]]) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1001]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","allValuesB.unfoldOrs.692") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 0]]) (TCons ("Prelude","[]") [TVar 0])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Let [(4,Comb FuncCall ("Prelude","foldr") [Comb (FuncPartCall 2) ("Prelude","allValuesB.partition.692") [],Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude",":") [Var 2,Var 3]])] (Let [(5,Comb FuncCall ("Prelude","allValuesB.unfoldOrs.692._#selFP40#vals") [Var 4])] (Let [(6,Comb FuncCall ("Prelude","allValuesB.unfoldOrs.692._#selFP41#ors") [Var 4])] (Comb FuncCall ("Prelude","++") [Var 5,Comb FuncCall ("Prelude","allValuesB.unfoldOrs.692") [Var 6]]))))])),Func ("Prelude","allValuesB.unfoldOrs.692._#selFP40#vals") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1014],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1014]]]) (TCons ("Prelude","[]") [TVar 1014])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Prelude","allValuesB.unfoldOrs.692._#selFP41#ors") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 1014],TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1014]]]) (TCons ("Prelude","[]") [TCons ("Prelude","SearchTree") [TVar 1014]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Prelude","inject") 2 Public (FuncType (FuncType (TVar 0) (TCons ("Prelude","Success") [])) (FuncType (FuncType (TVar 0) (TCons ("Prelude","Success") [])) (FuncType (TVar 0) (TCons ("Prelude","Success") [])))) (Rule [1,2] (Comb (FuncPartCall 1) ("Prelude","inject._#lambda14") [Var 1,Var 2])),Func ("Prelude","inject._#lambda14") 3 Private (FuncType (FuncType (TVar 1025) (TCons ("Prelude","Success") [])) (FuncType (FuncType (TVar 1025) (TCons ("Prelude","Success") [])) (FuncType (TVar 1025) (TCons ("Prelude","Success") [])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","&") [Comb FuncCall ("Prelude","apply") [Var 2,Var 3],Comb FuncCall ("Prelude","apply") [Var 1,Var 3]])),Func ("Prelude","PEVAL") 1 Public (FuncType (TVar 0) (TVar 0)) (Rule [1] (Var 1)),Func ("Prelude","apply") 2 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TVar 0) (TVar 1))) (External "Prelude.apply"),Func ("Prelude","cond") 2 Public (FuncType (TCons ("Prelude","Success") []) (FuncType (TVar 0) (TVar 0))) (External "Prelude.cond"),Func ("Prelude","unknown") 0 Public (TVar 0) (Rule [] (Free [1] (Var 1))),Func ("Prelude","=:<=") 2 Public (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Success") []))) (External "Prelude.=:<=")] [Op ("Prelude","!!") InfixlOp 9,Op ("Prelude",".") InfixrOp 9,Op ("Prelude","*") InfixlOp 7,Op ("Prelude","*^") InfixlOp 7,Op ("Prelude","div") InfixlOp 7,Op ("Prelude","mod") InfixlOp 7,Op ("Prelude","+") InfixlOp 6,Op ("Prelude","+^") InfixlOp 6,Op ("Prelude","-") InfixlOp 6,Op ("Prelude","-^") InfixlOp 6,Op ("Prelude","++") InfixrOp 5,Op ("Prelude","=:=") InfixOp 4,Op ("Prelude","==") InfixOp 4,Op ("Prelude","===") InfixOp 4,Op ("Prelude","/=") InfixOp 4,Op ("Prelude","<") InfixOp 4,Op ("Prelude",">") InfixOp 4,Op ("Prelude","<=") InfixOp 4,Op ("Prelude",">=") InfixOp 4,Op ("Prelude","=:<=") InfixOp 4,Op ("Prelude","<^") InfixOp 4,Op ("Prelude","<=^") InfixOp 4,Op ("Prelude",">^") InfixOp 4,Op ("Prelude",">=^") InfixOp 4,Op ("Prelude","elem") InfixOp 4,Op ("Prelude","notElem") InfixOp 4,Op ("Prelude","&&") InfixrOp 3,Op ("Prelude","||") InfixrOp 2,Op ("Prelude",">>") InfixlOp 1,Op ("Prelude",">>=") InfixlOp 1,Op ("Prelude","$") InfixrOp 0,Op ("Prelude","$!") InfixrOp 0,Op ("Prelude","$!!") InfixrOp 0,Op ("Prelude","$#") InfixrOp 0,Op ("Prelude","$##") InfixrOp 0,Op ("Prelude","seq") InfixrOp 0,Op ("Prelude","&") InfixrOp 0,Op ("Prelude","&>") InfixrOp 0,Op ("Prelude","?") InfixrOp 0]
Curry/DebugModule/Prelude.hs.include view
@@ -1,5 +1,5 @@ import qualified Char-import qualified Debugger.ShowTerm as ST+import qualified Curry.Debugger.ShowTerm as ST  instance DI.GenTerm Float where   genTerm FloatUnderscore = DI.TermUnderscore (DI.SrcID "Prelude" 2)
+ Curry/DebugModule/RandomExternal.fcy view
@@ -0,0 +1,1 @@+Prog "RandomExternal" ["Prelude"] [] [Func ("RandomExternal","split") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [1] (Let [(2,Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("RandomExternal","prim_split") [],Var 1])] (Let [(3,Comb FuncCall ("RandomExternal","split._#selFP3#s1") [Var 2])] (Let [(4,Comb FuncCall ("RandomExternal","split._#selFP4#s2") [Var 2])] (Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("RandomExternal","split") [Var 4]]))))),Func ("RandomExternal","split._#selFP3#s1") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("RandomExternal","split._#selFP4#s2") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("RandomExternal","prim_split") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","(,)") [TCons ("Prelude","Int") [],TCons ("Prelude","Int") []])) (External "RandomExternal.prim_split"),Func ("RandomExternal","nextInt") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("RandomExternal","prim_nextInt") [],Var 1])),Func ("RandomExternal","prim_nextInt") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []])) (External "RandomExternal.prim_nextInt"),Func ("RandomExternal","nextIntRange") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","$##") [Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 2) ("RandomExternal","prim_nextIntRange") [],Var 1],Var 2])),Func ("RandomExternal","prim_nextIntRange") 2 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]))) (External "RandomExternal.prim_nextIntRange"),Func ("RandomExternal","nextBoolean") 1 Public (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Bool") []])) (Rule [1] (Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("Prelude","==") [Lit (Intc  0)],Comb FuncCall ("RandomExternal","nextIntRange") [Var 1,Lit (Intc  1)]])),Func ("RandomExternal","getRandomSeed") 0 Public (TCons ("Prelude","IO") [TCons ("Prelude","Int") []]) (External "RandomExternal.getRandomSeed")] []
+ Curry/DebugModule/Read.fcy view
@@ -0,0 +1,1 @@+Prog "Read" ["Char","Prelude"] [] [Func ("Read","readNat") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("Read","readNat.readNatPrefix.3") [Comb FuncCall ("Prelude","dropWhile") [Comb (FuncPartCall 1) ("Read","readNat._#lambda2") [],Var 1],Lit (Intc  0)])),Func ("Read","readNat.readNatPrefix.3") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("Prelude","ord") [Var 3])] (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Var 5,Comb FuncCall ("Prelude","ord") [Lit (Charc  '0')]],Comb FuncCall ("Prelude","<=") [Var 5,Comb FuncCall ("Prelude","ord") [Lit (Charc  '9')]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Read","readNat.readNatPrefix.3") [Var 4,Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","*") [Var 2,Lit (Intc  10)],Var 5],Comb FuncCall ("Prelude","ord") [Lit (Charc  '0')]]]),Branch (Pattern ("Prelude","False") []) (Var 2)]))])),Func ("Read","readNat._#lambda2") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  ' ')])),Func ("Read","readInt") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("Read","readInt.readIntPrefix.14") [Comb FuncCall ("Prelude","dropWhile") [Comb (FuncPartCall 1) ("Read","readInt._#lambda3") [],Var 1]])),Func ("Read","readInt.readIntPrefix.14") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Lit (Intc  0)),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '-')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","negate") [Comb FuncCall ("Read","readNat") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Read","readNat") [Comb ConsCall ("Prelude",":") [Var 2,Var 3]])])])),Func ("Read","readInt._#lambda3") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  ' ')])),Func ("Read","readHex") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Int") [])) (Rule [1] (Comb FuncCall ("Read","readHex.readHexPrefix.22") [Comb FuncCall ("Prelude","dropWhile") [Comb (FuncPartCall 1) ("Read","readHex._#lambda4") [],Var 1],Lit (Intc  0)])),Func ("Read","readHex.hex2int.22") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Char","isDigit") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  '0')]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')]],Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'F')]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')]],Lit (Intc  10)]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","negate") [Lit (Intc  1)])])])),Func ("Read","readHex.readHexPrefix.22") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Var 2),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("Read","readHex.hex2int.22") [Var 3])] (Case  Rigid (Comb FuncCall ("Prelude",">=") [Var 5,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Read","readHex.readHexPrefix.22") [Var 4,Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","*") [Var 2,Lit (Intc  16)],Var 5]]),Branch (Pattern ("Prelude","False") []) (Var 2)]))])),Func ("Read","readHex._#lambda4") 1 Private (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Comb FuncCall ("Prelude","==") [Var 1,Lit (Charc  ' ')]))] []
+ Curry/DebugModule/ReadShowTerm.fcy view
@@ -0,0 +1,1 @@+Prog "ReadShowTerm" ["Char","Prelude"] [] [Func ("ReadShowTerm","showTerm") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("ReadShowTerm","prim_showTerm") [],Var 1])),Func ("ReadShowTerm","prim_showTerm") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (External "ReadShowTerm.prim_showTerm"),Func ("ReadShowTerm","showQTerm") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("ReadShowTerm","prim_showQTerm") [],Var 1])),Func ("ReadShowTerm","prim_showQTerm") 1 Public (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (External "ReadShowTerm.prim_showQTerm"),Func ("ReadShowTerm","readsUnqualifiedTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude",":") [3,4]) (Comb FuncCall ("ReadShowTerm","readsUnqualifiedTermWithPrefixes") [Comb ConsCall ("Prelude",":") [Var 3,Var 4],Var 2])])),Func ("ReadShowTerm","readsUnqualifiedTermWithPrefixes") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (Rule [1,2] (Comb FuncCall ("Prelude","$##") [Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 2) ("ReadShowTerm","prim_readsUnqualifiedTerm") [],Var 1],Var 2])),Func ("ReadShowTerm","prim_readsUnqualifiedTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]))) (External "ReadShowTerm.prim_readsUnqualifiedTerm"),Func ("ReadShowTerm","readUnqualifiedTerm") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 0))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("ReadShowTerm","readsUnqualifiedTerm") [Var 1,Var 2]) [Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Case  Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","all") [Comb (FuncPartCall 1) ("Char","isSpace") []],Var 6]) [Branch (Pattern ("Prelude","True") []) (Var 5),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","error") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '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 6]])]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])),Func ("ReadShowTerm","readsTerm") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("ReadShowTerm","prim_readsUnqualifiedTerm") [Comb ConsCall ("Prelude","[]") []],Var 1])),Func ("ReadShowTerm","readTerm") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 0)) (Rule [1] (Let [(2,Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("ReadShowTerm","prim_readsUnqualifiedTerm") [Comb ConsCall ("Prelude","[]") []],Var 1])] (Case  Rigid (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Case  Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","all") [Comb (FuncPartCall 1) ("Char","isSpace") []],Var 6]) [Branch (Pattern ("Prelude","True") []) (Var 5),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","error") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '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 6]])]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","$") [Comb (FuncPartCall 1) ("Prelude","error") [],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '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 ("Prelude","take") [Lit (Intc  20),Var 1]]])]))),Func ("ReadShowTerm","readsQTerm") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("ReadShowTerm","prim_readsQTerm") [],Var 1])),Func ("ReadShowTerm","prim_readsQTerm") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TVar 0,TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (External "ReadShowTerm.prim_readsQTerm"),Func ("ReadShowTerm","readQTerm") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TVar 0)) (Rule [1] (Let [(2,Comb FuncCall ("ReadShowTerm","readsQTerm") [Var 1])] (Case  Rigid (Var 2) [Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude","(,)") [5,6]) (Case  Rigid (Var 4) [Branch (Pattern ("Prelude","[]") []) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","all") [Comb (FuncPartCall 1) ("Char","isSpace") []],Var 6]) [Branch (Pattern ("Prelude","True") []) (Var 5),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])]),Branch (Pattern ("Prelude",":") [7,8]) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])])]),Branch (Pattern ("Prelude","[]") []) (Comb FuncCall ("Prelude","error") [Comb ConsCall ("Prelude",":") [Lit (Charc  'R'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  '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","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])]))),Func ("ReadShowTerm","readQTermFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TVar 0])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (FuncPartCall 1) ("ReadShowTerm","readQTerm") []]])),Func ("ReadShowTerm","readQTermListFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TVar 0]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","map") [Comb (FuncPartCall 1) ("ReadShowTerm","readQTerm") []],Comb (FuncPartCall 1) ("Prelude","lines") []]]])),Func ("ReadShowTerm","writeQTermFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TVar 0) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","writeFile") [Var 1,Comb FuncCall ("ReadShowTerm","showQTerm") [Var 2]])),Func ("ReadShowTerm","writeQTermListFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("Prelude","writeFile") [Var 1,Comb FuncCall ("Prelude","unlines") [Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("ReadShowTerm","showQTerm") [],Var 2]]]))] []
+ Curry/DebugModule/Sort.fcy view
@@ -0,0 +1,1 @@+Prog "Sort" ["Char","Prelude"] [] [Func ("Sort","quickSort") 2 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Let [(5,Comb FuncCall ("Sort","quickSort.split.6") [Var 1,Var 3,Var 4])] (Let [(6,Comb FuncCall ("Sort","quickSort._#selFP6#l") [Var 5])] (Let [(7,Comb FuncCall ("Sort","quickSort._#selFP7#r") [Var 5])] (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Sort","quickSort") [Var 1,Var 6],Comb ConsCall ("Prelude",":") [Var 3,Comb FuncCall ("Sort","quickSort") [Var 1,Var 7]]]))))])),Func ("Sort","quickSort.split.6") 3 Private (FuncType (FuncType (TVar 8) (FuncType (TVar 8) (TCons ("Prelude","Bool") []))) (FuncType (TVar 8) (FuncType (TCons ("Prelude","[]") [TVar 8]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [4,5]) (Let [(6,Comb FuncCall ("Sort","quickSort.split.6") [Var 1,Var 2,Var 5])] (Let [(7,Comb FuncCall ("Sort","quickSort.split.6._#selFP3#l") [Var 6])] (Let [(8,Comb FuncCall ("Sort","quickSort.split.6._#selFP4#r") [Var 6])] (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 4,Var 7],Var 8]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Var 7,Comb ConsCall ("Prelude",":") [Var 4,Var 8]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])]))))])),Func ("Sort","quickSort.split.6._#selFP3#l") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (TCons ("Prelude","[]") [TVar 8])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Sort","quickSort.split.6._#selFP4#r") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (TCons ("Prelude","[]") [TVar 8])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Sort","quickSort._#selFP6#l") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (TCons ("Prelude","[]") [TVar 8])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("Sort","quickSort._#selFP7#r") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 8],TCons ("Prelude","[]") [TVar 8]]) (TCons ("Prelude","[]") [TVar 8])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("Sort","mergeSort") 2 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0]))) (Rule [1,2] (Comb FuncCall ("Sort","mergeSort.mergeLists.16") [Var 1,Comb FuncCall ("Sort","mergeSort.genRuns.16") [Var 1,Var 2]])),Func ("Sort","mergeSort.genRuns.16") 2 Private (FuncType (FuncType (TVar 79) (FuncType (TVar 79) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 79]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 3],Var 5]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Sort","mergeSort.genRuns.16") [Var 1,Var 6]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude",":") [Var 5,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Sort","mergeSort.genRuns.16") [Var 1,Var 6]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("Sort","mergeSort.mergePairs.16") 2 Private (FuncType (FuncType (TVar 79) (FuncType (TVar 79) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]]) (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [5,6]) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Sort","merge") [Var 1,Var 3,Var 5],Comb FuncCall ("Sort","mergeSort.mergePairs.16") [Var 1,Var 6]])])])),Func ("Sort","mergeSort.mergeLists.16") 2 Private (FuncType (FuncType (TVar 79) (FuncType (TVar 79) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","[]") [TVar 79]]) (TCons ("Prelude","[]") [TVar 79]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 4) [Branch (Pattern ("Prelude","[]") []) (Var 3),Branch (Pattern ("Prelude",":") [5,6]) (Comb FuncCall ("Sort","mergeSort.mergeLists.16") [Var 1,Comb ConsCall ("Prelude",":") [Comb FuncCall ("Sort","merge") [Var 1,Var 3,Var 5],Comb FuncCall ("Sort","mergeSort.mergePairs.16") [Var 1,Var 6]]])])])),Func ("Sort","merge") 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","[]") [TVar 0])))) (Rule [1,2,3] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Var 3),Branch (Pattern ("Prelude",":") [4,5]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Var 4,Var 5]),Branch (Pattern ("Prelude",":") [6,7]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Var 6]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 4,Comb FuncCall ("Sort","merge") [Var 1,Var 5,Comb ConsCall ("Prelude",":") [Var 6,Var 7]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 6,Comb FuncCall ("Sort","merge") [Var 1,Comb ConsCall ("Prelude",":") [Var 4,Var 5],Var 7]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("Sort","leqList") 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Bool") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Bool") [])))) (Rule [1,2,3] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude",":") [4,5]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude",":") [6,7]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Var 6]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Sort","leqList") [Var 1,Var 5,Var 7]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Var 6]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("Sort","cmpList") 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ("Prelude","Ordering") []))) (FuncType (TCons ("Prelude","[]") [TVar 0]) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","Ordering") [])))) (Rule [1,2,3] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","EQ") []),Branch (Pattern ("Prelude",":") [4,5]) (Comb ConsCall ("Prelude","LT") [])]),Branch (Pattern ("Prelude",":") [6,7]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","GT") []),Branch (Pattern ("Prelude",":") [8,9]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 6],Var 8],Comb ConsCall ("Prelude","EQ") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Sort","cmpList") [Var 1,Var 7,Var 9]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","apply") [Var 1,Var 6],Var 8]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("Sort","leqChar") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Var 2]])),Func ("Sort","cmpChar") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Ordering") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","EQ") []),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","<") [Comb FuncCall ("Prelude","ord") [Var 1],Comb FuncCall ("Prelude","ord") [Var 2]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","LT") []),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","GT") [])])])),Func ("Sort","leqCharIgnoreCase") 2 Public (FuncType (TCons ("Prelude","Char") []) (FuncType (TCons ("Prelude","Char") []) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Comb FuncCall ("Prelude","<=") [Comb FuncCall ("Prelude","ord") [Comb FuncCall ("Char","toUpper") [Var 1]],Comb FuncCall ("Prelude","ord") [Comb FuncCall ("Char","toUpper") [Var 2]]])),Func ("Sort","leqString") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") []))) (Rule [] (Comb (FuncPartCall 2) ("Sort","leqList") [Comb (FuncPartCall 2) ("Sort","leqChar") []])),Func ("Sort","cmpString") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Ordering") []))) (Rule [] (Comb (FuncPartCall 2) ("Sort","cmpList") [Comb (FuncPartCall 2) ("Sort","cmpChar") []])),Func ("Sort","leqStringIgnoreCase") 0 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") []))) (Rule [] (Comb (FuncPartCall 2) ("Sort","leqList") [Comb (FuncPartCall 2) ("Sort","leqCharIgnoreCase") []])),Func ("Sort","leqLexGerman") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","Bool") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude",":") [5,6]) (Let [(7,Comb FuncCall ("Sort","leqLexGerman.glex.89") [Comb FuncCall ("Prelude","ord") [Var 3]])] (Let [(8,Comb FuncCall ("Sort","leqLexGerman.glex.89") [Comb FuncCall ("Prelude","ord") [Var 5]])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 7,Var 8]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Sort","leqLexGerman") [Var 4,Var 6]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","<") [Var 7,Var 8]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])))])])),Func ("Sort","leqLexGerman.glex.89") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">=") [Var 1,Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')]],Comb FuncCall ("Prelude","<=") [Var 1,Comb FuncCall ("Prelude","ord") [Lit (Charc  'Z')]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","+") [Var 1,Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","ord") [Lit (Charc  'a')],Comb FuncCall ("Prelude","ord") [Lit (Charc  'A')]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  228)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","ord") [Lit (Charc  'a')]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  246)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","ord") [Lit (Charc  'o')]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  252)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","ord") [Lit (Charc  'u')]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  196)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","ord") [Lit (Charc  'a')]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  214)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","ord") [Lit (Charc  'o')]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  220)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","ord") [Lit (Charc  'u')]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  223)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","ord") [Lit (Charc  's')]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Var 1),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])])])]))] []
+ Curry/DebugModule/Time.fcy view
@@ -0,0 +1,1 @@+Prog "Time" ["Prelude"] [Type ("Time","ClockTime") Public [] [Cons ("Time","CTime") 1 Private [TCons ("Prelude","Int") []]],Type ("Time","CalendarTime") Public [] [Cons ("Time","CalendarTime") 7 Public [TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TCons ("Prelude","Int") [],TCons ("Prelude","Int") []]]] [Func ("Time","ctYear") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 2)])),Func ("Time","ctMonth") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 3)])),Func ("Time","ctDay") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 4)])),Func ("Time","ctHour") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 5)])),Func ("Time","ctMin") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 6)])),Func ("Time","ctSec") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 7)])),Func ("Time","ctTZ") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 8)])),Func ("Time","getClockTime") 0 Public (TCons ("Prelude","IO") [TCons ("Time","ClockTime") []]) (External "Time.getClockTime"),Func ("Time","getLocalTime") 0 Public (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []]) (Rule [] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Time","getClockTime") [],Comb (FuncPartCall 1) ("Time","getLocalTime._#lambda2") []])),Func ("Time","getLocalTime._#lambda2") 1 Private (FuncType (TCons ("Time","ClockTime") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []])) (Rule [1] (Comb FuncCall ("Time","toCalendarTime") [Var 1])),Func ("Time","clockTimeToInt") 1 Public (FuncType (TCons ("Time","ClockTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CTime") [2]) (Var 2)])),Func ("Time","toCalendarTime") 1 Public (FuncType (TCons ("Time","ClockTime") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Time","prim_toCalendarTime") [],Var 1])),Func ("Time","prim_toCalendarTime") 1 Private (FuncType (TCons ("Time","ClockTime") []) (TCons ("Prelude","IO") [TCons ("Time","CalendarTime") []])) (External "Time.prim_toCalendarTime"),Func ("Time","toUTCTime") 1 Public (FuncType (TCons ("Time","ClockTime") []) (TCons ("Time","CalendarTime") [])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Time","prim_toUTCTime") [],Var 1])),Func ("Time","prim_toUTCTime") 1 Private (FuncType (TCons ("Time","ClockTime") []) (TCons ("Time","CalendarTime") [])) (External "Time.prim_toUTCTime"),Func ("Time","toClockTime") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Time","ClockTime") [])) (Rule [1] (Comb FuncCall ("Prelude","$##") [Comb (FuncPartCall 1) ("Time","prim_toClockTime") [],Var 1])),Func ("Time","prim_toClockTime") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Time","ClockTime") [])) (External "Time.prim_toClockTime"),Func ("Time","calendarTimeToString") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Let [(9,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","[]") []]]]]]]]]]]]])] (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","!!") [Var 9,Comb FuncCall ("Prelude","-") [Var 3,Lit (Intc  1)]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Time","toTimeString") [Var 1],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","show") [Var 2]]]]]]]))])),Func ("Time","toDayString") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Let [(9,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","[]") []]]]]]]]]]]]])] (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","!!") [Var 9,Comb FuncCall ("Prelude","-") [Var 3,Lit (Intc  1)]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Var 4],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ','),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","show") [Var 2]]]]]))])),Func ("Time","toTimeString") 1 Public (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("Time","toTimeString.digit2.90") [Var 5],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Time","toTimeString.digit2.90") [Var 6],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ':'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Time","toTimeString.digit2.90") [Var 7]]]]])])),Func ("Time","toTimeString.digit2.90") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Rigid (Comb FuncCall ("Prelude","<") [Var 1,Lit (Intc  10)]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '0'),Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","ord") [Lit (Charc  '0')],Var 1]],Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","show") [Var 1])])),Func ("Time","addSeconds") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Time","ClockTime") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Time","CTime") [3]) (Comb ConsCall ("Time","CTime") [Comb FuncCall ("Prelude","+") [Var 3,Var 1]])])),Func ("Time","addMinutes") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Time","ClockTime") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Time","CTime") [3]) (Comb ConsCall ("Time","CTime") [Comb FuncCall ("Prelude","+") [Var 3,Comb FuncCall ("Prelude","*") [Var 1,Lit (Intc  60)]]])])),Func ("Time","addHours") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Time","ClockTime") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Time","CTime") [3]) (Comb ConsCall ("Time","CTime") [Comb FuncCall ("Prelude","+") [Var 3,Comb FuncCall ("Prelude","*") [Var 1,Lit (Intc  3600)]]])])),Func ("Time","addDays") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Time","ClockTime") []))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Time","CTime") [3]) (Comb ConsCall ("Time","CTime") [Comb FuncCall ("Prelude","+") [Var 3,Comb FuncCall ("Prelude","*") [Var 1,Lit (Intc  86400)]]])])),Func ("Time","addMonths") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Time","ClockTime") []))) (Rule [1,2] (Let [(3,Comb FuncCall ("Time","toUTCTime") [Var 2])] (Let [(4,Comb FuncCall ("Time","addMonths._#selFP3#y") [Var 3])] (Let [(5,Comb FuncCall ("Time","addMonths._#selFP4#mo") [Var 3])] (Let [(6,Comb FuncCall ("Time","addMonths._#selFP5#d") [Var 3])] (Let [(7,Comb FuncCall ("Time","addMonths._#selFP6#h") [Var 3])] (Let [(8,Comb FuncCall ("Time","addMonths._#selFP7#mi") [Var 3])] (Let [(9,Comb FuncCall ("Time","addMonths._#selFP8#s") [Var 3])] (Let [(10,Comb FuncCall ("Time","addMonths._#selFP9#tz") [Var 3])] (Let [(11,Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","mod") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","-") [Var 5,Lit (Intc  1)],Var 1],Lit (Intc  12)],Lit (Intc  1)])] (Case  Rigid (Comb FuncCall ("Prelude",">") [Var 11,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Time","addYears") [Comb FuncCall ("Prelude","div") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","-") [Var 5,Lit (Intc  1)],Var 1],Lit (Intc  12)],Comb FuncCall ("Time","toClockTime") [Comb ConsCall ("Time","CalendarTime") [Var 4,Var 11,Var 6,Var 7,Var 8,Var 9,Var 10]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Time","addYears") [Comb FuncCall ("Prelude","-") [Comb FuncCall ("Prelude","div") [Comb FuncCall ("Prelude","+") [Comb FuncCall ("Prelude","-") [Var 5,Lit (Intc  1)],Var 1],Lit (Intc  12)],Lit (Intc  1)],Comb FuncCall ("Time","toClockTime") [Comb ConsCall ("Time","CalendarTime") [Var 4,Comb FuncCall ("Prelude","+") [Var 11,Lit (Intc  12)],Var 6,Var 7,Var 8,Var 9,Var 10]]])]))))))))))),Func ("Time","addMonths._#selFP3#y") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 2)])),Func ("Time","addMonths._#selFP4#mo") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 3)])),Func ("Time","addMonths._#selFP5#d") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 4)])),Func ("Time","addMonths._#selFP6#h") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 5)])),Func ("Time","addMonths._#selFP7#mi") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 6)])),Func ("Time","addMonths._#selFP8#s") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 7)])),Func ("Time","addMonths._#selFP9#tz") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 8)])),Func ("Time","addYears") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Time","ClockTime") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Lit (Intc  0)]) [Branch (Pattern ("Prelude","True") []) (Var 2),Branch (Pattern ("Prelude","False") []) (Let [(3,Comb FuncCall ("Time","toUTCTime") [Var 2])] (Let [(4,Comb FuncCall ("Time","addYears._#selFP11#y") [Var 3])] (Let [(5,Comb FuncCall ("Time","addYears._#selFP12#mo") [Var 3])] (Let [(6,Comb FuncCall ("Time","addYears._#selFP13#d") [Var 3])] (Let [(7,Comb FuncCall ("Time","addYears._#selFP14#h") [Var 3])] (Let [(8,Comb FuncCall ("Time","addYears._#selFP15#mi") [Var 3])] (Let [(9,Comb FuncCall ("Time","addYears._#selFP16#s") [Var 3])] (Let [(10,Comb FuncCall ("Time","addYears._#selFP17#tz") [Var 3])] (Comb FuncCall ("Time","toClockTime") [Comb ConsCall ("Time","CalendarTime") [Comb FuncCall ("Prelude","+") [Var 4,Var 1],Var 5,Var 6,Var 7,Var 8,Var 9,Var 10]])))))))))])),Func ("Time","addYears._#selFP11#y") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 2)])),Func ("Time","addYears._#selFP12#mo") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 3)])),Func ("Time","addYears._#selFP13#d") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 4)])),Func ("Time","addYears._#selFP14#h") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 5)])),Func ("Time","addYears._#selFP15#mi") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 6)])),Func ("Time","addYears._#selFP16#s") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 7)])),Func ("Time","addYears._#selFP17#tz") 1 Private (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Int") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Time","CalendarTime") [2,3,4,5,6,7,8]) (Var 8)])),Func ("Time","daysOfMonth") 2 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Int") []))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","/=") [Var 1,Lit (Intc  2)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","!!") [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 ("Prelude","-") [Var 1,Lit (Intc  1)]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","mod") [Var 2,Lit (Intc  4)],Lit (Intc  0)],Comb FuncCall ("Prelude","||") [Comb FuncCall ("Prelude","/=") [Comb FuncCall ("Prelude","mod") [Var 2,Lit (Intc  100)],Lit (Intc  0)],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","mod") [Var 2,Lit (Intc  400)],Lit (Intc  0)]]]) [Branch (Pattern ("Prelude","True") []) (Lit (Intc  29)),Branch (Pattern ("Prelude","False") []) (Lit (Intc  28))])])),Func ("Time","validDate") 3 Public (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","Bool") [])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">") [Var 2,Lit (Intc  0)],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","<") [Var 2,Lit (Intc  13)],Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude",">") [Var 3,Lit (Intc  0)],Comb FuncCall ("Prelude","<=") [Var 3,Comb FuncCall ("Time","daysOfMonth") [Var 2,Var 1]]]]])),Func ("Time","compareDate") 0 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Ordering") []))) (Rule [] (Comb (FuncPartCall 2) ("Time","compareCalendarTime") [])),Func ("Time","compareCalendarTime") 2 Public (FuncType (TCons ("Time","CalendarTime") []) (FuncType (TCons ("Time","CalendarTime") []) (TCons ("Prelude","Ordering") []))) (Rule [1,2] (Comb FuncCall ("Time","compareClockTime") [Comb FuncCall ("Time","toClockTime") [Var 1],Comb FuncCall ("Time","toClockTime") [Var 2]])),Func ("Time","compareClockTime") 2 Public (FuncType (TCons ("Time","ClockTime") []) (FuncType (TCons ("Time","ClockTime") []) (TCons ("Prelude","Ordering") []))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Time","CTime") [3]) (Case  Flex (Var 2) [Branch (Pattern ("Time","CTime") [4]) (Case  Rigid (Comb FuncCall ("Prelude","<") [Var 3,Var 4]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","LT") []),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude",">") [Var 3,Var 4]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","GT") []),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","EQ") []),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])]))] []
+ Curry/DebugModule/Trace.fcy view
@@ -0,0 +1,1 @@+Prog "Trace" ["Prelude"] [] [Func ("Trace","trace") 1 Public (FuncType (TVar 0) (TVar 0)) (Rule [1] (Var 1))] []
+ Curry/DebugModule/XML.fcy view
@@ -0,0 +1,1 @@+Prog "XML" ["Char","List","Prelude","Read"] [Type ("XML","XmlExp") Public [] [Cons ("XML","XText") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]],Cons ("XML","XElem") 3 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]],Type ("XML","Encoding") Public [] [Cons ("XML","StandardEnc") 0 Public [],Cons ("XML","Iso88591Enc") 0 Public []],Type ("XML","XmlDocParams") Public [] [Cons ("XML","Enc") 1 Public [TCons ("XML","Encoding") []],Cons ("XML","DtdUrl") 1 Public [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]]] [Func ("XML","encoding2Attribute") 1 Private (FuncType (TCons ("XML","Encoding") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","StandardEnc") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("XML","Iso88591Enc") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '8'),Comb ConsCall ("Prelude",":") [Lit (Charc  '8'),Comb ConsCall ("Prelude",":") [Lit (Charc  '5'),Comb ConsCall ("Prelude",":") [Lit (Charc  '9'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '1'),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]])])),Func ("XML","encoding2EncFunc") 1 Private (FuncType (TCons ("XML","Encoding") []) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","StandardEnc") []) (Comb (FuncPartCall 1) ("XML","standardEncoding") []),Branch (Pattern ("XML","Iso88591Enc") []) (Comb (FuncPartCall 1) ("XML","iso88591Encoding") [])])),Func ("XML","standardEncoding") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '<')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '>')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]],Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '&')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '"')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  'q'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '\'')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]]]],Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","<") [Comb FuncCall ("Prelude","ord") [Var 2],Lit (Intc  32)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  '#'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Comb FuncCall ("Prelude","ord") [Var 2]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","standardEncoding") [Var 3]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude",">") [Comb FuncCall ("Prelude","ord") [Var 2],Lit (Intc  127)]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb ConsCall ("Prelude",":") [Lit (Charc  '#'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","show") [Comb FuncCall ("Prelude","ord") [Var 2]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","standardEncoding") [Var 3]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("XML","standardEncoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])])])])),Func ("XML","iso88591Encoding") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","elem") [Comb FuncCall ("Prelude","ord") [Var 2]],Comb FuncCall ("XML","iso88591list") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("XML","iso88591Encoding") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","standardEncoding") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("XML","iso88591Encoding") [Var 3]])])])),Func ("XML","iso88591list") 0 Private (TCons ("Prelude","[]") [TCons ("Prelude","Int") []]) (Rule [] (Comb ConsCall ("Prelude",":") [Lit (Intc  192),Comb ConsCall ("Prelude",":") [Lit (Intc  193),Comb ConsCall ("Prelude",":") [Lit (Intc  194),Comb ConsCall ("Prelude",":") [Lit (Intc  195),Comb ConsCall ("Prelude",":") [Lit (Intc  196),Comb ConsCall ("Prelude",":") [Lit (Intc  197),Comb ConsCall ("Prelude",":") [Lit (Intc  198),Comb ConsCall ("Prelude",":") [Lit (Intc  199),Comb ConsCall ("Prelude",":") [Lit (Intc  200),Comb ConsCall ("Prelude",":") [Lit (Intc  201),Comb ConsCall ("Prelude",":") [Lit (Intc  202),Comb ConsCall ("Prelude",":") [Lit (Intc  203),Comb ConsCall ("Prelude",":") [Lit (Intc  204),Comb ConsCall ("Prelude",":") [Lit (Intc  205),Comb ConsCall ("Prelude",":") [Lit (Intc  207),Comb ConsCall ("Prelude",":") [Lit (Intc  208),Comb ConsCall ("Prelude",":") [Lit (Intc  209),Comb ConsCall ("Prelude",":") [Lit (Intc  210),Comb ConsCall ("Prelude",":") [Lit (Intc  211),Comb ConsCall ("Prelude",":") [Lit (Intc  212),Comb ConsCall ("Prelude",":") [Lit (Intc  214),Comb ConsCall ("Prelude",":") [Lit (Intc  216),Comb ConsCall ("Prelude",":") [Lit (Intc  217),Comb ConsCall ("Prelude",":") [Lit (Intc  218),Comb ConsCall ("Prelude",":") [Lit (Intc  219),Comb ConsCall ("Prelude",":") [Lit (Intc  220),Comb ConsCall ("Prelude",":") [Lit (Intc  221),Comb ConsCall ("Prelude",":") [Lit (Intc  224),Comb ConsCall ("Prelude",":") [Lit (Intc  225),Comb ConsCall ("Prelude",":") [Lit (Intc  228),Comb ConsCall ("Prelude",":") [Lit (Intc  229),Comb ConsCall ("Prelude",":") [Lit (Intc  226),Comb ConsCall ("Prelude",":") [Lit (Intc  227),Comb ConsCall ("Prelude",":") [Lit (Intc  230),Comb ConsCall ("Prelude",":") [Lit (Intc  231),Comb ConsCall ("Prelude",":") [Lit (Intc  233),Comb ConsCall ("Prelude",":") [Lit (Intc  232),Comb ConsCall ("Prelude",":") [Lit (Intc  235),Comb ConsCall ("Prelude",":") [Lit (Intc  234),Comb ConsCall ("Prelude",":") [Lit (Intc  236),Comb ConsCall ("Prelude",":") [Lit (Intc  237),Comb ConsCall ("Prelude",":") [Lit (Intc  239),Comb ConsCall ("Prelude",":") [Lit (Intc  240),Comb ConsCall ("Prelude",":") [Lit (Intc  241),Comb ConsCall ("Prelude",":") [Lit (Intc  248),Comb ConsCall ("Prelude",":") [Lit (Intc  246),Comb ConsCall ("Prelude",":") [Lit (Intc  242),Comb ConsCall ("Prelude",":") [Lit (Intc  243),Comb ConsCall ("Prelude",":") [Lit (Intc  244),Comb ConsCall ("Prelude",":") [Lit (Intc  245),Comb ConsCall ("Prelude",":") [Lit (Intc  250),Comb ConsCall ("Prelude",":") [Lit (Intc  249),Comb ConsCall ("Prelude",":") [Lit (Intc  252),Comb ConsCall ("Prelude",":") [Lit (Intc  251),Comb ConsCall ("Prelude",":") [Lit (Intc  253),Comb ConsCall ("Prelude",":") [Lit (Intc  255),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]])),Func ("XML","lookupEncoding") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (TCons ("XML","Encoding") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("XML","Enc") [4]) (Var 4),Branch (Pattern ("XML","DtdUrl") [5]) (Comb FuncCall ("XML","lookupEncoding") [Var 3])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("XML","StandardEnc") [])])),Func ("XML","lookupDtdUrl") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("XML","Enc") [4]) (Comb FuncCall ("XML","lookupDtdUrl") [Var 3]),Branch (Pattern ("XML","DtdUrl") [5]) (Var 5)])])),Func ("XML","hasDtdUrl") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","False") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("XML","DtdUrl") [4]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("XML","Enc") [5]) (Comb FuncCall ("XML","hasDtdUrl") [Var 3])])])),Func ("XML","xtxt") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("XML","XmlExp") [])) (Rule [1] (Comb ConsCall ("XML","XText") [Var 1])),Func ("XML","xml") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (TCons ("XML","XmlExp") []))) (Rule [1,2] (Comb ConsCall ("XML","XElem") [Var 1,Comb ConsCall ("Prelude","[]") [],Var 2])),Func ("XML","writeXmlFile") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []]))) (Rule [1,2] (Comb FuncCall ("XML","writeXmlFileWithParams") [Var 1,Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","Enc") [Comb ConsCall ("XML","StandardEnc") []],Comb ConsCall ("Prelude","[]") []],Var 2])),Func ("XML","writeXmlFileWithParams") 3 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","writeFile") [Var 1,Comb FuncCall ("XML","showXmlDocWithParams") [Var 2,Var 3]])),Func ("XML","showXmlDoc") 1 Public (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("XML","showXmlDocWithParams") [Comb ConsCall ("Prelude","[]") [],Var 1])),Func ("XML","showXmlDocWithParams") 2 Public (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlDocParams") []]) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '?'),Comb ConsCall ("Prelude",":") [Lit (Charc  'x'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'v'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  '1'),Comb ConsCall ("Prelude",":") [Lit (Charc  '.'),Comb ConsCall ("Prelude",":") [Lit (Charc  '0'),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","encoding2Attribute") [Comb FuncCall ("XML","lookupEncoding") [Var 1]],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]],Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("XML","hasDtdUrl") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude","[]") []]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  'y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]])],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  '?'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Case  Rigid (Comb FuncCall ("XML","hasDtdUrl") [Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude",":") [Lit (Charc  'D'),Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'C'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'Y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'P'),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]]]]]]],Comb FuncCall ("Prelude","++") [Var 3,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'Y'),Comb ConsCall ("Prelude",":") [Lit (Charc  'S'),Comb ConsCall ("Prelude",":") [Lit (Charc  'T'),Comb ConsCall ("Prelude",":") [Lit (Charc  'E'),Comb ConsCall ("Prelude",":") [Lit (Charc  'M'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]]]]]]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","lookupDtdUrl") [Var 1],Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude","[]") [])],Comb FuncCall ("XML","showXmlExp") [Lit (Intc  0),Comb FuncCall ("XML","encoding2EncFunc") [Comb FuncCall ("XML","lookupEncoding") [Var 1]],Comb ConsCall ("XML","XElem") [Var 3,Var 4,Var 5]]]]]]]])])),Func ("XML","showXmlExp") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Case  Flex (Var 3) [Branch (Pattern ("XML","XText") [4]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","xtab") [Var 1],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 2,Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("XML","XElem") [5,6,7]) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","xtab") [Var 1],Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","showXmlOpenTag") [Var 5,Var 6,Var 2],Case  Rigid (Comb FuncCall ("Prelude","==") [Var 7,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","length") [Var 7],Lit (Intc  1)],Comb FuncCall ("XML","isXText") [Comb FuncCall ("Prelude","head") [Var 7]]]) [Branch (Pattern ("Prelude","True") []) (Let [(8,Var 7)] (Let [(9,Comb FuncCall ("XML","showXmlExp._#selFP3#s") [Var 8])] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 2,Var 9],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]))),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","showXmlExps") [Comb FuncCall ("Prelude","+") [Var 1,Lit (Intc  2)],Var 7,Var 2],Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","xtab") [Var 1],Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude",":") [Lit (Charc  '/'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Var 5,Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude",":") [Lit (Charc  '\n'),Comb ConsCall ("Prelude","[]") []]]]]]]])])]]])])),Func ("XML","showXmlExp._#selFP3#s") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude",":") [2,3]) (Case  Flex (Var 2) [Branch (Pattern ("XML","XText") [4]) (Case  Flex (Var 3) [Branch (Pattern ("Prelude","[]") []) (Var 4)])])])),Func ("XML","xtab") 1 Private (FuncType (TCons ("Prelude","Int") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","take") [Var 1,Comb FuncCall ("Prelude","repeat") [Lit (Charc  ' ')]])),Func ("XML","showXmlOpenTag") 3 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 0]]) (FuncType (FuncType (TVar 0) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","++") [Var 1,Comb FuncCall ("Prelude","concat") [Comb FuncCall ("Prelude","map") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]],Comb (FuncPartCall 1) ("XML","showXmlOpenTag.attr2string.125") [Var 3]],Var 2]]]])),Func ("XML","showXmlOpenTag.attr2string.125") 2 Private (FuncType (FuncType (TVar 130) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TVar 130]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","(,)") [3,4]) (Comb FuncCall ("Prelude","++") [Var 3,Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]],Comb FuncCall ("Prelude","++") [Comb FuncCall ("Prelude","apply") [Var 1,Var 4],Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb ConsCall ("Prelude","[]") []]]]])])),Func ("XML","showXmlExps") 3 Private (FuncType (TCons ("Prelude","Int") []) (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])))) (Rule [1,2,3] (Comb FuncCall ("Prelude","apply") [Comb FuncCall ("Prelude","concatMap") [Comb (FuncPartCall 1) ("XML","showXmlExp") [Var 1,Var 3]],Var 2])),Func ("XML","isXText") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","Bool") [])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XText") [2]) (Comb ConsCall ("Prelude","True") []),Branch (Pattern ("XML","XElem") [3,4,5]) (Comb ConsCall ("Prelude","False") [])])),Func ("XML","xmlUnquoteSpecials") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '&')]) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("XML","splitAtChar") [Lit (Charc  ';'),Var 3])] (Let [(5,Comb FuncCall ("XML","xmlUnquoteSpecials._#selFP5#special") [Var 4])] (Let [(6,Comb FuncCall ("XML","xmlUnquoteSpecials._#selFP6#rest") [Var 4])] (Comb FuncCall ("XML","xmlUnquoteSpecial") [Var 5,Var 6])))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("XML","xmlUnquoteSpecials._#selFP5#special") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","xmlUnquoteSpecials._#selFP6#rest") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","xmlUnquoteSpecial") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]))) (Rule [1,2] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'q'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '"'),Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'p'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '\''),Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  228)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  246)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  252)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'A'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  196)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'O'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  214)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  'U'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude","[]") []]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  220)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  'z'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'g'),Comb ConsCall ("Prelude","[]") []]]]]]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Lit (Intc  223)],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","++") [Comb FuncCall ("XML","unquoteUnicode") [Var 1],Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])])])])])])])])),Func ("XML","unquoteUnicode") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '#')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Var 3) [Branch (Pattern ("Prelude",":") [4,5]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 4,Lit (Charc  'x')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Read","readHex") [Var 5]],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Read","readInt") [Var 3]],Comb ConsCall ("Prelude","[]") []])]),Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Comb FuncCall ("Prelude","chr") [Comb FuncCall ("Read","readInt") [Var 3]],Comb ConsCall ("Prelude","[]") []])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  '&'),Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Var 2,Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  ';'),Comb ConsCall ("Prelude","[]") []]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("XML","readXmlFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("XML","XmlExp") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb (FuncPartCall 1) ("XML","readXmlFile._#lambda3") [Var 1]])),Func ("XML","readXmlFile._#lambda3") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("XML","XmlExp") []]))) (Rule [1,2] (Let [(3,Comb FuncCall ("XML","parseXmlString") [Var 2])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","error") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'X'),Comb ConsCall ("Prelude",":") [Lit (Charc  'M'),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","/=") [Comb FuncCall ("Prelude","tail") [Var 3],Comb ConsCall ("Prelude","[]") []]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","error") [Comb FuncCall ("Prelude","++") [Comb ConsCall ("Prelude",":") [Lit (Charc  'F'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'l'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []]]]]],Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'i'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  's'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'r'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  'h'),Comb ConsCall ("Prelude",":") [Lit (Charc  'a'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'X'),Comb ConsCall ("Prelude",":") [Lit (Charc  'M'),Comb ConsCall ("Prelude",":") [Lit (Charc  'L'),Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude",":") [Lit (Charc  'd'),Comb ConsCall ("Prelude",":") [Lit (Charc  'o'),Comb ConsCall ("Prelude",":") [Lit (Charc  'c'),Comb ConsCall ("Prelude",":") [Lit (Charc  'u'),Comb ConsCall ("Prelude",":") [Lit (Charc  'm'),Comb ConsCall ("Prelude",":") [Lit (Charc  'e'),Comb ConsCall ("Prelude",":") [Lit (Charc  'n'),Comb ConsCall ("Prelude",":") [Lit (Charc  't'),Comb ConsCall ("Prelude",":") [Lit (Charc  '!'),Comb ConsCall ("Prelude","[]") []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","return") [Comb FuncCall ("Prelude","head") [Var 3]])])]))),Func ("XML","readUnsafeXmlFile") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","Maybe") [TCons ("XML","XmlExp") []]])) (Rule [1] (Comb FuncCall ("Prelude","catchFail") [Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("XML","readXmlFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (ConsPartCall 1) ("Prelude","Just") []]],Comb FuncCall ("Prelude","return") [Comb ConsCall ("Prelude","Nothing") []]])),Func ("XML","showXmlFile") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","()") []])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("XML","readXmlFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","putStr") [],Comb (FuncPartCall 1) ("XML","showXmlDoc") []]])),Func ("XML","readFileWithXmlDocs") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","IO") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]])) (Rule [1] (Comb FuncCall ("Prelude",">>=") [Comb FuncCall ("Prelude","readFile") [Var 1],Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","return") [],Comb (FuncPartCall 1) ("XML","parseXmlString") []]])),Func ("XML","parseXmlString") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Comb FuncCall ("Prelude","fst") [Comb FuncCall ("XML","parseXmlTokens") [Comb FuncCall ("XML","scanXmlString") [Var 1],Comb ConsCall ("Prelude","Nothing") []]])),Func ("XML","parseXmlTokens") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (FuncType (TCons ("Prelude","Maybe") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]))) (Rule [1,2] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Case  Flex (Var 2) [Branch (Pattern ("Prelude","Nothing") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []])]),Branch (Pattern ("Prelude",":") [3,4]) (Case  Flex (Var 3) [Branch (Pattern ("XML","XText") [5]) (Let [(6,Comb FuncCall ("XML","parseXmlTokens") [Var 4,Var 2])] (Let [(7,Comb FuncCall ("XML","parseXmlTokens._#selFP8#xexps") [Var 6])] (Let [(8,Comb FuncCall ("XML","parseXmlTokens._#selFP9#rem_xtokens") [Var 6])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XText") [Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 5]],Var 7],Var 8])))),Branch (Pattern ("XML","XElem") [9,10,11]) (Case  Flex (Var 9) [Branch (Pattern ("Prelude",":") [12,13]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 12,Lit (Charc  '<')],Comb FuncCall ("Prelude","/=") [Comb FuncCall ("Prelude","head") [Var 13],Lit (Charc  '/')]]) [Branch (Pattern ("Prelude","True") []) (Let [(14,Comb FuncCall ("XML","parseXmlTokens") [Var 4,Comb ConsCall ("Prelude","Just") [Var 13]])] (Let [(15,Comb FuncCall ("XML","parseXmlTokens._#selFP14#xexps1") [Var 14])] (Let [(16,Comb FuncCall ("XML","parseXmlTokens._#selFP15#xtokens1") [Var 14])] (Let [(17,Comb FuncCall ("XML","parseXmlTokens") [Var 16,Var 2])] (Let [(18,Comb FuncCall ("XML","parseXmlTokens._#selFP12#xexps") [Var 17])] (Let [(19,Comb FuncCall ("XML","parseXmlTokens._#selFP13#rem_xtokens") [Var 17])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 13,Var 10,Var 15],Var 18],Var 19]))))))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 12,Lit (Charc  '<')],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 13],Lit (Charc  '/')]]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","maybe") [Comb ConsCall ("Prelude","False") [],Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","==") [],Comb FuncCall ("Prelude","tail") [Var 13]],Var 2]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(20,Comb FuncCall ("XML","parseXmlTokens") [Var 4,Var 2])] (Let [(21,Comb FuncCall ("XML","parseXmlTokens._#selFP17#xexps") [Var 20])] (Let [(22,Comb FuncCall ("XML","parseXmlTokens._#selFP18#rem_xtokens") [Var 20])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 13,Var 10,Var 11],Var 21],Var 22]))))]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Let [(23,Comb FuncCall ("XML","parseXmlTokens") [Var 4,Var 2])] (Let [(24,Comb FuncCall ("XML","parseXmlTokens._#selFP20#xexps") [Var 23])] (Let [(25,Comb FuncCall ("XML","parseXmlTokens._#selFP21#rem_xtokens") [Var 23])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Var 12,Var 13],Var 10,Var 11],Var 24],Var 25])))),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])])),Func ("XML","parseXmlTokens._#selFP8#xexps") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseXmlTokens._#selFP9#rem_xtokens") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseXmlTokens._#selFP14#xexps1") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseXmlTokens._#selFP15#xtokens1") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseXmlTokens._#selFP12#xexps") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseXmlTokens._#selFP13#rem_xtokens") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseXmlTokens._#selFP17#xexps") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseXmlTokens._#selFP18#rem_xtokens") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseXmlTokens._#selFP20#xexps") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseXmlTokens._#selFP21#rem_xtokens") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("XML","XmlExp") []],TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","scanXmlString") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Comb FuncCall ("XML","scanXmlString.scanXml.191") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("XML","dropBlanks") [],Var 1]])),Func ("XML","scanXmlString.scanXml.191") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '<')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlElem") [Var 3]),Branch (Pattern ("Prelude","False") []) (Let [(4,Comb FuncCall ("XML","scanXmlText") [Comb ConsCall ("Prelude",":") [Var 2,Var 3]])] (Let [(5,Comb FuncCall ("XML","scanXmlString.scanXml.191._#selFP23#initxt") [Var 4])] (Let [(6,Comb FuncCall ("XML","scanXmlString.scanXml.191._#selFP24#remtag") [Var 4])] (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XText") [Var 5],Comb FuncCall ("XML","scanXmlString.scanXml.191") [Var 6]]))))])])),Func ("XML","scanXmlString.scanXml.191._#selFP23#initxt") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","scanXmlString.scanXml.191._#selFP24#remtag") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","scanXmlText") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '<')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 2,Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Char","isSpace") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("XML","scanXmlText") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("XML","dropBlanks") [],Var 3]])] (Let [(5,Comb FuncCall ("XML","scanXmlText._#selFP26#txt") [Var 4])] (Let [(6,Comb FuncCall ("XML","scanXmlText._#selFP27#rem") [Var 4])] (Comb ConsCall ("Prelude","(,)") [Case  Rigid (Comb FuncCall ("Prelude","null") [Var 5]) [Branch (Pattern ("Prelude","True") []) (Var 5),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Var 5])],Var 6])))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Let [(7,Comb FuncCall ("XML","scanXmlText") [Var 3])] (Let [(8,Comb FuncCall ("XML","scanXmlText._#selFP29#txt") [Var 7])] (Let [(9,Comb FuncCall ("XML","scanXmlText._#selFP30#rem") [Var 7])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 2,Var 8],Var 9])))),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("XML","scanXmlText._#selFP26#txt") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","scanXmlText._#selFP27#rem") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","scanXmlText._#selFP29#txt") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","scanXmlText._#selFP30#rem") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","scanXmlElem") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '!')]) [Branch (Pattern ("Prelude","True") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude","[]") []]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlComment") [Comb FuncCall ("Prelude","drop") [Lit (Intc  2),Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("XML","scanXmlCData") [Var 3])]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '?')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlProcInstr") [Var 3]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlElemName") [Comb ConsCall ("Prelude",":") [Var 2,Comb ConsCall ("Prelude","[]") []],Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("XML","scanXmlElemName") 2 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Var 1],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '>')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Var 1],Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","scanXmlString") [Var 4]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Char","isSpace") [Var 3]) [Branch (Pattern ("Prelude","True") []) (Let [(5,Comb FuncCall ("XML","parseAttrs") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("XML","dropBlanks") [],Var 4]])] (Let [(6,Comb FuncCall ("XML","scanXmlElemName._#selFP32#attrs") [Var 5])] (Let [(7,Comb FuncCall ("XML","scanXmlElemName._#selFP33#rest") [Var 5])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 7],Lit (Charc  '/')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 1,Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","drop") [Lit (Intc  2),Var 7]]]),Branch (Pattern ("Prelude","False") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Comb ConsCall ("Prelude",":") [Lit (Charc  '<'),Var 1],Var 6,Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","tail") [Var 7]]])])))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 3,Lit (Charc  '/')],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 4],Lit (Charc  '>')]]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Comb ConsCall ("XML","XElem") [Var 1,Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","tail") [Var 4]]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlElemName") [Comb FuncCall ("Prelude","++") [Var 1,Comb ConsCall ("Prelude",":") [Var 3,Comb ConsCall ("Prelude","[]") []]],Var 4]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])])),Func ("XML","scanXmlElemName._#selFP32#attrs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","scanXmlElemName._#selFP33#rest") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","scanXmlComment") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '-')],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","take") [Lit (Intc  2),Var 3],Comb ConsCall ("Prelude",":") [Lit (Charc  '-'),Comb ConsCall ("Prelude",":") [Lit (Charc  '>'),Comb ConsCall ("Prelude","[]") []]]]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","drop") [Lit (Intc  2),Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("XML","scanXmlComment") [Var 3])])])),Func ("XML","scanXmlCData") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Let [(2,Comb FuncCall ("XML","dropCData") [Var 1])] (Case  Rigid (Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 2],Lit (Charc  '>')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","tail") [Var 2]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("XML","scanXmlCData") [Var 2])]))),Func ("XML","dropCData") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '[')]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("Prelude","tail") [Comb FuncCall ("Prelude","dropWhile") [Comb (FuncPartCall 1) ("Prelude","flip") [Comb (FuncPartCall 2) ("Prelude","/=") [],Lit (Charc  ']')],Var 3]]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '>')]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude",":") [Var 2,Var 3]),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","dropCData") [Var 3]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])])),Func ("XML","scanXmlProcInstr") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","[]") []),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Prelude","&&") [Comb FuncCall ("Prelude","==") [Var 2,Lit (Charc  '?')],Comb FuncCall ("Prelude","==") [Comb FuncCall ("Prelude","head") [Var 3],Lit (Charc  '>')]]) [Branch (Pattern ("Prelude","True") []) (Comb FuncCall ("XML","scanXmlString") [Comb FuncCall ("Prelude","tail") [Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("XML","scanXmlProcInstr") [Var 3])])])),Func ("XML","parseAttrs") 1 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [2,3]) (Case  Rigid (Comb FuncCall ("Char","isAlpha") [Var 2]) [Branch (Pattern ("Prelude","True") []) (Let [(4,Comb FuncCall ("XML","splitAtChar") [Lit (Charc  '='),Comb ConsCall ("Prelude",":") [Var 2,Var 3]])] (Let [(5,Comb FuncCall ("XML","parseAttrs._#selFP41#name") [Var 4])] (Let [(6,Comb FuncCall ("XML","parseAttrs._#selFP42#rest1") [Var 4])] (Let [(7,Comb FuncCall ("XML","splitAtChar") [Lit (Charc  '"'),Comb FuncCall ("Prelude","tail") [Var 6]])] (Let [(8,Comb FuncCall ("XML","parseAttrs._#selFP39#value") [Var 7])] (Let [(9,Comb FuncCall ("XML","parseAttrs._#selFP40#rest2") [Var 7])] (Let [(10,Comb FuncCall ("XML","parseAttrs") [Comb FuncCall ("Prelude","apply") [Comb FuncCall ("XML","dropBlanks") [],Var 9]])] (Let [(11,Comb FuncCall ("XML","parseAttrs._#selFP37#rem_attrs") [Var 10])] (Let [(12,Comb FuncCall ("XML","parseAttrs._#selFP38#rem_inp") [Var 10])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Comb ConsCall ("Prelude","(,)") [Var 5,Comb FuncCall ("XML","xmlUnquoteSpecials") [Var 8]],Var 11],Var 12])))))))))),Branch (Pattern ("Prelude","False") []) (Case  Rigid (Comb FuncCall ("Prelude","otherwise") []) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude",":") [Var 2,Var 3]]),Branch (Pattern ("Prelude","False") []) (Comb FuncCall ("Prelude","failed") [])])])])),Func ("XML","parseAttrs._#selFP41#name") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseAttrs._#selFP42#rest1") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseAttrs._#selFP39#value") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseAttrs._#selFP40#rest2") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","parseAttrs._#selFP37#rem_attrs") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","parseAttrs._#selFP38#rem_inp") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TCons ("Prelude","Char") []],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]],TCons ("Prelude","[]") [TCons ("Prelude","Char") []]]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","dropBlanks") 0 Private (FuncType (TCons ("Prelude","[]") [TCons ("Prelude","Char") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [] (Comb (FuncPartCall 1) ("Prelude","dropWhile") [Comb (FuncPartCall 1) ("Char","isSpace") []])),Func ("XML","splitAtChar") 2 Private (FuncType (TVar 0) (FuncType (TCons ("Prelude","[]") [TVar 0]) (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 0],TCons ("Prelude","[]") [TVar 0]]))) (Rule [1,2] (Case  Flex (Var 2) [Branch (Pattern ("Prelude","[]") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Comb ConsCall ("Prelude","[]") []]),Branch (Pattern ("Prelude",":") [3,4]) (Case  Rigid (Comb FuncCall ("Prelude","==") [Var 3,Var 1]) [Branch (Pattern ("Prelude","True") []) (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude","[]") [],Var 4]),Branch (Pattern ("Prelude","False") []) (Let [(5,Comb FuncCall ("XML","splitAtChar") [Var 1,Var 4])] (Let [(6,Comb FuncCall ("XML","splitAtChar._#selFP44#first") [Var 5])] (Let [(7,Comb FuncCall ("XML","splitAtChar._#selFP45#rest") [Var 5])] (Comb ConsCall ("Prelude","(,)") [Comb ConsCall ("Prelude",":") [Var 3,Var 6],Var 7]))))])])),Func ("XML","splitAtChar._#selFP44#first") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 231],TCons ("Prelude","[]") [TVar 231]]) (TCons ("Prelude","[]") [TVar 231])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 2)])),Func ("XML","splitAtChar._#selFP45#rest") 1 Private (FuncType (TCons ("Prelude","(,)") [TCons ("Prelude","[]") [TVar 231],TCons ("Prelude","[]") [TVar 231]]) (TCons ("Prelude","[]") [TVar 231])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("Prelude","(,)") [2,3]) (Var 3)])),Func ("XML","textOfXml") 1 Public (FuncType (TCons ("Prelude","[]") [TCons ("XML","XmlExp") []]) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Comb FuncCall ("Prelude","concat") [Comb FuncCall ("List","intersperse") [Comb ConsCall ("Prelude",":") [Lit (Charc  ' '),Comb ConsCall ("Prelude","[]") []],Comb FuncCall ("Prelude","filter") [Comb FuncCall ("Prelude",".") [Comb (FuncPartCall 1) ("Prelude","not") [],Comb (FuncPartCall 1) ("Prelude","null") []],Comb FuncCall ("Prelude","map") [Comb (FuncPartCall 1) ("XML","textOfXml.textOfXmlItem.255") [],Var 1]]]])),Func ("XML","textOfXml.textOfXmlItem.255") 1 Private (FuncType (TCons ("XML","XmlExp") []) (TCons ("Prelude","[]") [TCons ("Prelude","Char") []])) (Rule [1] (Case  Flex (Var 1) [Branch (Pattern ("XML","XText") [2]) (Var 2),Branch (Pattern ("XML","XElem") [3,4,5]) (Comb FuncCall ("XML","textOfXml") [Var 5])]))] []
Curry/Files/KiCSDebugPath.hs view
@@ -1,18 +1,25 @@ module Curry.Files.KiCSDebugPath    (getMkstrict   ,debugVersion-  ,module Curry.Files.ProphecyPath+  ,Curry.Files.KiCSDebugPath.getOracleLibDir+  ,getProphecy   ) where  import Data.Version import System.FilePath import Paths_KiCS_debugger -import Curry.Files.ProphecyPath+import Curry.Files.ProphecyPath as O  debugVersion = showVersion version  getMkstrict = do   execDir <- getBinDir   return (execDir </> "mkstrict")++getOracleLibDir = do+  o <- O.getOracleLibDir+  d <- getDataDir+  return [o,d </> "Curry" </> "Module"]+
KiCS-debugger.cabal view
@@ -1,5 +1,5 @@ Name:          KiCS-debugger-Version:       0.1.0+Version:       0.1.1 Cabal-Version: >= 1.6 Author:        Bernd Braßel Maintainer:    Bernd Braßel@@ -53,6 +53,80 @@     Curry.Debugger.Tools.StrictEvaluation.Monad     Curry.Debugger.Tools.Observe.Monad +    Curry.Module.OracleDequeue+    Curry.Module.OracleIOExts+    Curry.Module.OracleRedBlackTree+    Curry.Module.OracleList+    Curry.Module.OracleTraversal+    Curry.Module.OracleFlexRigid+    Curry.Module.OracleTime+    Curry.Module.OracleRead+    Curry.Module.OracleFloat+    Curry.Module.OracleSetRBT+    Curry.Module.OracleTrace+    Curry.Module.OraclePretty+    Curry.Module.OracleGraphInductive+    Curry.Module.OracleCurryStringClassifier+    Curry.Module.OracleFlatCurryTools+    Curry.Module.OracleInteger+    Curry.Module.OracleUnsafe+    Curry.Module.OracleDirectory+    Curry.Module.OracleFlatCurryShow+    Curry.Module.OracleChar+    Curry.Module.OracleSystem+    Curry.Module.OraclePropertyFile+    Curry.Module.OracleInteractive+    Curry.Module.OracleTableRBT+    Curry.Module.OracleSort+    Curry.Module.OracleFlatCurryRead+    Curry.Module.OracleSocket+    Curry.Module.OracleXML+    Curry.Module.OracleAbstractCurry+    Curry.Module.OracleStyledText+    Curry.Module.OracleFlatCurryXML+    Curry.Module.OraclePrettyFlat+    Curry.Module.OracleDistribution+    Curry.Module.OracleAbstractCurryPrinter+    Curry.Module.OracleReadShowTerm+    Curry.Module.OracleAnsiCodes+    Curry.Module.OracleFlatCurry+    Curry.Module.OracleParser+    Curry.Module.OracleFileGoodies+    Curry.Module.OracleMaybe+    Curry.Module.OracleCompactFlatCurry+    Curry.Module.OracleRandom+    Curry.Module.OracleCurrySyntax+    Curry.Module.OracleIO+    Curry.Module.OracleCSV+    Curry.Module.OracleRandomExternal+    Curry.Module.OracleGlobal+    Curry.Module.OracleArray+    Curry.Module.OracleAssertion+    Curry.Module.OracleFiniteMap+    Curry.Module.OracleMeta+    Curry.Module.OraclePrelude+    Curry.Module.OracleFlatCurryGoodies+    Curry.Module.OracleEasyCheck+    Curry.DebugModule.Dequeue+    Curry.DebugModule.List+    Curry.DebugModule.Time+    Curry.DebugModule.Read+    Curry.DebugModule.Float+    Curry.DebugModule.Trace+    Curry.DebugModule.Integer+    Curry.DebugModule.Directory+    Curry.DebugModule.Char+    Curry.DebugModule.Interactive+    Curry.DebugModule.Sort+    Curry.DebugModule.XML+    Curry.DebugModule.ReadShowTerm+    Curry.DebugModule.AnsiCodes+    Curry.DebugModule.FileGoodies+    Curry.DebugModule.Maybe+    Curry.DebugModule.CSV+    Curry.DebugModule.RandomExternal+    Curry.DebugModule.Prelude+   Other-Modules:     Curry.Debugger.Logic     Curry.Debugger.BoolStack@@ -72,9 +146,9 @@     base == 4.1.*,     haskell-src,     directory,-    curry-base >= 0.2.6,-    KiCS >= 0.9.0,-    KiCS-prophecy >= 0.1.0+    curry-base >= 0.2.7,+    KiCS >= 0.9.1,+    KiCS-prophecy >= 0.1.1   Other-Modules:     Curry.Module.SrcRef     Curry.Module.AbstractHaskell
Setup.hs view
@@ -12,14 +12,14 @@ import Distribution.Simple.PreProcess import Distribution.PackageDescription  import Distribution.Verbosity-import Distribution.ModuleName (ModuleName(..))+import Distribution.ModuleName hiding (main)  import Curry.Files.CymakePath import Curry.Files.KiCSPath import Curry.Files.ProphecyPath  withLibs :: Bool-withLibs = True+withLibs = False  kics, cymake, prophecy :: IO Program kics     = mkProg getKiCS@@ -42,7 +42,7 @@    defaultMainWithHooks simpleUserHooks     {hookedPrograms=mkstrict:kicsProg:cymakeProg:prophecyProg:-                     hookedPrograms simpleUserHooks+                    hookedPrograms simpleUserHooks     ,confHook=myConfHook     ,postConf=myPostConf     ,hookedPreProcessors=[("curry",mkModule),@@ -62,8 +62,8 @@   if not withLibs     then return lbi     else do-    libPath  <- getKiCSLibDir -    dataPath <- getKiCSDataDir+    print 13+    libPath <- getKiCSLibDir      allFiles <- getDirectoryContents libPath      let stdfiles  = filter (isSuffixOf ".fcy") allFiles@@ -72,14 +72,19 @@         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 dbgPath = "Curry" </> "DebugModule"++    mapM_ (putStrLn . ("    "++) . foldr (<.>) "" . components) libs++    mapM_ (\ lib -> mayCopyFile (libPath </> lib) (dbgPath </> lib)) goodfiles          let require = requireProg flags lbi      prop <- require prophecy     mapM_ (mkOracleLib (unflag $ configVerbosity flags) prop) stdlibs-  +    +    dataPath <- getKiCSDataDir+     let package  = localPkgDescr lbi         Just lib = library package         ex       = exposedModules lib@@ -88,8 +93,15 @@         llbi'    = llbi{hsSourceDirs=dataPath:hsdirs}         lib'     = Just lib{exposedModules=ex ++ libs,                             libBuildInfo=llbi'}-    return lbi{localPkgDescr=package{library=lib'}} +    return (lbi{localPkgDescr=package{library=lib'}})+++mayCopyFile :: FilePath -> FilePath -> IO ()+mayCopyFile src dest = do+  ex <- doesFileExist dest+  if ex then return () else copyFile src dest+ unflag = fromFlagOrDefault silent  requireProg :: ConfigFlags -> LocalBuildInfo -> IO Program @@ -215,7 +227,7 @@ runKicsFcy lbi infile outfile verb    | isPrefixOf "Curry/Module" infile   = do -    libPath <- getOracleLibDir+    libPath <- getOracleLibBaseDir     callKics ["-userlibpath",libPath ++ pathSeparator:"Curry/Module"]   | isPrefixOf "Curry/DebugModule" infile   = do
+ dist/build/Curry/DebugModule/AnsiCodes.hs view
@@ -0,0 +1,1323 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.AnsiCodes where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Char+import qualified Curry.DebugModule.List+import qualified Curry.DebugModule.Prelude+ +strict_esc :: (DM.DM dm) => dm Curry.DebugModule.Prelude.Char+strict_esc+  = DM.eval+      (DM.funcDeclHook "esc"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.I+                              (Curry.DebugModule.Prelude.I+                                 (Curry.DebugModule.Prelude.O+                                    (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))+             DM.funcCallHook "chr"+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x0]))+               (Curry.DebugModule.Prelude.strict_chr x0)))+ +strict_cmd ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+               dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_cmd x1+  = DM.eval+      (DM.funcDeclHook "cmd"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- DM.funcCallHook "esc"+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     strict_esc+             x7 <- do x4 <- do x2 <- DM.litHook+                                       (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                          (DI.DynamicInfo [] []))+                                       (Prelude.return (Curry.DebugModule.Prelude.Char '['))+                               x3 <- DM.constructorHook+                                       (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                          (DI.DynamicInfo [] []))+                                       (Prelude.return Curry.DebugModule.Prelude.Nil)+                               DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                                 (Prelude.return (Curry.DebugModule.Prelude.Cons x2 x3))+                      x5 <- Prelude.return x1+                      DM.funcCallHook "++"+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (Curry.DebugModule.Prelude.op_PlusPlus x4 x5)+             DM.constructorHook+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+               (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+term_strict_cmd x1 = DI.Term "cmd" (DI.SrcID "AnsiCodes" 0) x1+ +strict_cursorPos ::+                 (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                   a ->+                     b ->+                       dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_cursorPos x1 x2+  = DM.eval+      (DM.funcDeclHook "cursorPos"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x15 <- do x13 <- do x3 <- Prelude.return x1+                                 DM.funcCallHook "show"+                                   (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x3]))+                                   (Curry.DebugModule.Prelude.strict_show x3)+                       x14 <- do x11 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char ';'))+                                           x5 <- DM.constructorHook+                                                   (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return Curry.DebugModule.Prelude.Nil)+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x4 x5))+                                 x12 <- do x9 <- do x6 <- Prelude.return x2+                                                    DM.funcCallHook "show"+                                                      (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x6]))+                                                      (Curry.DebugModule.Prelude.strict_show x6)+                                           x10 <- do x7 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   'H'))+                                                     x8 <- DM.constructorHook+                                                             (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                Curry.DebugModule.Prelude.Nil)+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x7, DI.genTerm x8]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x7 x8))+                                           DM.funcCallHook "++"+                                             (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                             (Curry.DebugModule.Prelude.op_PlusPlus x9 x10)+                                 DM.funcCallHook "++"+                                   (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                   (Curry.DebugModule.Prelude.op_PlusPlus x11 x12)+                       DM.funcCallHook "++"+                         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                            (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14]))+                         (Curry.DebugModule.Prelude.op_PlusPlus x13 x14)+             DM.funcCallHook "cmd"+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (strict_cmd x15)))+term_strict_cursorPos x1+  = DI.Term "cursorPos" (DI.SrcID "AnsiCodes" 0) x1+ +strict_cursorHome ::+                  (DM.DM dm) =>+                    dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_cursorHome+  = DM.eval+      (DM.funcDeclHook "cursorHome"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x2 <- do x0 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char 'H'))+                      x1 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+             DM.funcCallHook "cmd"+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict_cmd x2)))+ +strict_moveCursor ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                      Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                        dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_moveCursor x1 x2+  = DM.eval+      (DM.funcDeclHook "moveCursor"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x6 <- do x4 <- do x3 <- Prelude.return x2+                               DM.funcCallHook "show"+                                 (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x3]))+                                 (Curry.DebugModule.Prelude.strict_show x3)+                      x5 <- Prelude.return x1+                      DM.funcCallHook "++"+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (Curry.DebugModule.Prelude.op_PlusPlus x4 x5)+             DM.funcCallHook "cmd"+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (strict_cmd x6)))+term_strict_moveCursor x1+  = DI.Term "moveCursor" (DI.SrcID "AnsiCodes" 0) x1+ +strict_cursorUp ::+                (DM.DM dm) =>+                  dm+                    (DM.Func dm+                       (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                       (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_cursorUp+  = DM.eval+      (DM.funcDeclHook "cursorUp"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x2 <- do x0 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char 'A'))+                      x1 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+             Prelude.return+               (PC.partCall1 (term_strict_moveCursor [DI.genTerm x2])+                  (strict_moveCursor x2))))+ +strict_cursorDown ::+                  (DM.DM dm) =>+                    dm+                      (DM.Func dm+                         (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                         (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_cursorDown+  = DM.eval+      (DM.funcDeclHook "cursorDown"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x2 <- do x0 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char 'B'))+                      x1 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+             Prelude.return+               (PC.partCall1 (term_strict_moveCursor [DI.genTerm x2])+                  (strict_moveCursor x2))))+ +strict_cursorFwd ::+                 (DM.DM dm) =>+                   dm+                     (DM.Func dm+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_cursorFwd+  = DM.eval+      (DM.funcDeclHook "cursorFwd"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x2 <- do x0 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char 'C'))+                      x1 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+             Prelude.return+               (PC.partCall1 (term_strict_moveCursor [DI.genTerm x2])+                  (strict_moveCursor x2))))+ +strict_cursorBack ::+                  (DM.DM dm) =>+                    dm+                      (DM.Func dm+                         (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                         (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_cursorBack+  = DM.eval+      (DM.funcDeclHook "cursorBack"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x2 <- do x0 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char 'D'))+                      x1 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+             Prelude.return+               (PC.partCall1 (term_strict_moveCursor [DI.genTerm x2])+                  (strict_moveCursor x2))))+ +strict_saveCursor ::+                  (DM.DM dm) =>+                    dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_saveCursor+  = DM.eval+      (DM.funcDeclHook "saveCursor"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x2 <- do x0 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char 's'))+                      x1 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+             DM.funcCallHook "cmd"+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict_cmd x2)))+ +strict_restoreCursor ::+                     (DM.DM dm) =>+                       dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_restoreCursor+  = DM.eval+      (DM.funcDeclHook "restoreCursor"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x2 <- do x0 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char 'u'))+                      x1 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+             DM.funcCallHook "cmd"+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict_cmd x2)))+ +strict_clear ::+             (DM.DM dm) =>+               dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_clear+  = DM.eval+      (DM.funcDeclHook "clear"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x4 <- do x2 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char '2'))+                      x3 <- do x0 <- DM.litHook+                                       (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                          (DI.DynamicInfo [] []))+                                       (Prelude.return (Curry.DebugModule.Prelude.Char 'J'))+                               x1 <- DM.constructorHook+                                       (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                          (DI.DynamicInfo [] []))+                                       (Prelude.return Curry.DebugModule.Prelude.Nil)+                               DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                                 (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x2 x3))+             DM.funcCallHook "cmd"+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (strict_cmd x4)))+ +strict_eraseLine ::+                 (DM.DM dm) =>+                   dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_eraseLine+  = DM.eval+      (DM.funcDeclHook "eraseLine"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x2 <- do x0 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char 'K'))+                      x1 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+             DM.funcCallHook "cmd"+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict_cmd x2)))+ +strict_mode ::+            (DM.DM dm, DI.GenTerm a) =>+              a ->+                Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                  dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_mode x1 x2+  = DM.eval+      (DM.funcDeclHook "mode"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (DM.letHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x3 <- do x8 <- do x6 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char '0'))+                                  x7 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char 'm'))+                                           x5 <- DM.constructorHook+                                                   (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return Curry.DebugModule.Prelude.Nil)+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x4 x5))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))+                         DM.funcCallHook "cmd"+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                              (DI.DynamicInfo [] [DI.genTerm x8]))+                           (strict_cmd x8)+                DM.eval+                  (do x24 <- do x22 <- do x9 <- Prelude.return x1+                                          DM.funcCallHook "show"+                                            (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                               (DI.DynamicInfo [] [DI.genTerm x9]))+                                            (Curry.DebugModule.Prelude.strict_show x9)+                                x23 <- do x20 <- do x10 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   'm'))+                                                    x11 <- DM.constructorHook+                                                             (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                Curry.DebugModule.Prelude.Nil)+                                                    DM.constructorHook+                                                      (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x10, DI.genTerm x11]))+                                                      (Prelude.return+                                                         (Curry.DebugModule.Prelude.Cons x10 x11))+                                          x21 <- do x18 <- Prelude.return x2+                                                    x19 <- do x15 <- Prelude.return x2+                                                              x16 <- Prelude.return x3+                                                              x17 <- do x13 <- do x12 <- Prelude.return+                                                                                           x3+                                                                                  DM.funcCallHook+                                                                                    "isSuffixOf"+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "AnsiCodes"+                                                                                          0)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          [DI.genTerm+                                                                                             x12]))+                                                                                    (strict_isSuffixOf+                                                                                       x12)+                                                                        x14 <- Prelude.return x2+                                                                        DM.funcCallHook "apply"+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "AnsiCodes"+                                                                                0)+                                                                             (DI.DynamicInfo []+                                                                                [DI.genTerm x13,+                                                                                 DI.genTerm x14]))+                                                                          (Curry.DebugModule.Prelude.strict_apply+                                                                             x13+                                                                             x14)+                                                              DM.funcCallHook "_case_4"+                                                                (DI.DebugInfo+                                                                   (DI.SrcID "AnsiCodes" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x15,+                                                                       DI.genTerm x16,+                                                                       DI.genTerm x17]))+                                                                (strict__case_4 x15 x16 x17)+                                                    DM.funcCallHook "++"+                                                      (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x18, DI.genTerm x19]))+                                                      (Curry.DebugModule.Prelude.op_PlusPlus x18+                                                         x19)+                                          DM.funcCallHook "++"+                                            (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                               (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21]))+                                            (Curry.DebugModule.Prelude.op_PlusPlus x20 x21)+                                DM.funcCallHook "++"+                                  (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x22, DI.genTerm x23]))+                                  (Curry.DebugModule.Prelude.op_PlusPlus x22 x23)+                      DM.funcCallHook "cmd"+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x24]))+                        (strict_cmd x24)))))+term_strict_mode x1 = DI.Term "mode" (DI.SrcID "AnsiCodes" 0) x1+ +strict_isSuffixOf ::+                  (DM.DM dm, DI.GenTerm a) =>+                    Curry.DebugModule.Prelude.List a ->+                      dm+                        (DM.Func dm (Curry.DebugModule.Prelude.List a)+                           Curry.DebugModule.Prelude.Bool)+strict_isSuffixOf x1+  = DM.eval+      (DM.funcDeclHook "isSuffixOf"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- do x4 <- do x2 <- DM.funcCallHook "reverse"+                                       (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                          (DI.DynamicInfo [] []))+                                       Curry.DebugModule.Prelude.strict_reverse+                               x3 <- Prelude.return x1+                               DM.funcCallHook "apply"+                                 (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                                 (Curry.DebugModule.Prelude.strict_apply x2 x3)+                      Prelude.return+                        (PC.partCall1+                           (Curry.DebugModule.List.term_strict_isPrefixOf [DI.genTerm x4])+                           (Curry.DebugModule.List.strict_isPrefixOf x4))+             x6 <- DM.funcCallHook "reverse"+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     Curry.DebugModule.Prelude.strict_reverse+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_Point x5 x6)))+term_strict_isSuffixOf x1+  = DI.Term "isSuffixOf" (DI.SrcID "AnsiCodes" 0) x1+ +strict_bold ::+            (DM.DM dm) =>+              dm+                (DM.Func dm+                   (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                   (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_bold+  = DM.eval+      (DM.funcDeclHook "bold"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos Curry.DebugModule.Prelude.IHi))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_underline ::+                 (DM.DM dm) =>+                   dm+                     (DM.Func dm+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_underline+  = DM.eval+      (DM.funcDeclHook "underline"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_revColors ::+                 (DM.DM dm) =>+                   dm+                     (DM.Func dm+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_revColors+  = DM.eval+      (DM.funcDeclHook "revColors"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.I+                              (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_concealed ::+                 (DM.DM dm) =>+                   dm+                     (DM.Func dm+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_concealed+  = DM.eval+      (DM.funcDeclHook "concealed"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.O+                                 (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi)))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_black ::+             (DM.DM dm) =>+               dm+                 (DM.Func dm+                    (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                    (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_black+  = DM.eval+      (DM.funcDeclHook "black"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.I+                                 (Curry.DebugModule.Prelude.I+                                    (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_red ::+           (DM.DM dm) =>+             dm+               (DM.Func dm+                  (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                  (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_red+  = DM.eval+      (DM.funcDeclHook "red"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.I+                              (Curry.DebugModule.Prelude.I+                                 (Curry.DebugModule.Prelude.I+                                    (Curry.DebugModule.Prelude.I Curry.DebugModule.Prelude.IHi))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_green ::+             (DM.DM dm) =>+               dm+                 (DM.Func dm+                    (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                    (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_green+  = DM.eval+      (DM.funcDeclHook "green"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.O+                                 (Curry.DebugModule.Prelude.O+                                    (Curry.DebugModule.Prelude.O+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_yellow ::+              (DM.DM dm) =>+                dm+                  (DM.Func dm+                     (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                     (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_yellow+  = DM.eval+      (DM.funcDeclHook "yellow"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.I+                              (Curry.DebugModule.Prelude.O+                                 (Curry.DebugModule.Prelude.O+                                    (Curry.DebugModule.Prelude.O+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_blue ::+            (DM.DM dm) =>+              dm+                (DM.Func dm+                   (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                   (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_blue+  = DM.eval+      (DM.funcDeclHook "blue"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.I+                                 (Curry.DebugModule.Prelude.O+                                    (Curry.DebugModule.Prelude.O+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_magenta ::+               (DM.DM dm) =>+                 dm+                   (DM.Func dm+                      (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                      (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_magenta+  = DM.eval+      (DM.funcDeclHook "magenta"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.I+                              (Curry.DebugModule.Prelude.I+                                 (Curry.DebugModule.Prelude.O+                                    (Curry.DebugModule.Prelude.O+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_cyan ::+            (DM.DM dm) =>+              dm+                (DM.Func dm+                   (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                   (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_cyan+  = DM.eval+      (DM.funcDeclHook "cyan"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.O+                                 (Curry.DebugModule.Prelude.I+                                    (Curry.DebugModule.Prelude.O+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_white ::+             (DM.DM dm) =>+               dm+                 (DM.Func dm+                    (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                    (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_white+  = DM.eval+      (DM.funcDeclHook "white"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.I+                              (Curry.DebugModule.Prelude.O+                                 (Curry.DebugModule.Prelude.I+                                    (Curry.DebugModule.Prelude.O+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_bgBlack ::+               (DM.DM dm) =>+                 dm+                   (DM.Func dm+                      (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                      (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_bgBlack+  = DM.eval+      (DM.funcDeclHook "bgBlack"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.O+                                 (Curry.DebugModule.Prelude.O+                                    (Curry.DebugModule.Prelude.I+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_bgRed ::+             (DM.DM dm) =>+               dm+                 (DM.Func dm+                    (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                    (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_bgRed+  = DM.eval+      (DM.funcDeclHook "bgRed"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.I+                              (Curry.DebugModule.Prelude.O+                                 (Curry.DebugModule.Prelude.O+                                    (Curry.DebugModule.Prelude.I+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_bgGreen ::+               (DM.DM dm) =>+                 dm+                   (DM.Func dm+                      (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                      (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_bgGreen+  = DM.eval+      (DM.funcDeclHook "bgGreen"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.I+                                 (Curry.DebugModule.Prelude.O+                                    (Curry.DebugModule.Prelude.I+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_bgYellow ::+                (DM.DM dm) =>+                  dm+                    (DM.Func dm+                       (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                       (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_bgYellow+  = DM.eval+      (DM.funcDeclHook "bgYellow"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.I+                              (Curry.DebugModule.Prelude.I+                                 (Curry.DebugModule.Prelude.O+                                    (Curry.DebugModule.Prelude.I+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_bgBlue ::+              (DM.DM dm) =>+                dm+                  (DM.Func dm+                     (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                     (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_bgBlue+  = DM.eval+      (DM.funcDeclHook "bgBlue"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.O+                                 (Curry.DebugModule.Prelude.I+                                    (Curry.DebugModule.Prelude.I+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_bgMagenta ::+                 (DM.DM dm) =>+                   dm+                     (DM.Func dm+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_bgMagenta+  = DM.eval+      (DM.funcDeclHook "bgMagenta"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.I+                              (Curry.DebugModule.Prelude.O+                                 (Curry.DebugModule.Prelude.I+                                    (Curry.DebugModule.Prelude.I+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_bgCyan ::+              (DM.DM dm) =>+                dm+                  (DM.Func dm+                     (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                     (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_bgCyan+  = DM.eval+      (DM.funcDeclHook "bgCyan"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.I+                                 (Curry.DebugModule.Prelude.I+                                    (Curry.DebugModule.Prelude.I+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_bgWhite ::+               (DM.DM dm) =>+                 dm+                   (DM.Func dm+                      (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                      (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_bgWhite+  = DM.eval+      (DM.funcDeclHook "bgWhite"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.I+                              (Curry.DebugModule.Prelude.I+                                 (Curry.DebugModule.Prelude.I+                                    (Curry.DebugModule.Prelude.I+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             Prelude.return+               (PC.partCall1 (term_strict_mode [DI.genTerm x0])+                  (strict_mode x0))))+ +strict_ansiLength ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                      dm Curry.DebugModule.Prelude.Int+strict_ansiLength x1+  = DM.eval+      (DM.funcDeclHook "ansiLength"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "length"+                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (Curry.DebugModule.Prelude.strict_length x2)+             DM.funcCallHook "ansiLength.aux.95"+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (x'xstrict_ansiLength46aux4695 x3 x4)))+term_strict_ansiLength x1+  = DI.Term "ansiLength" (DI.SrcID "AnsiCodes" 0) x1+ +x'xstrict_ansiLength46aux4695 ::+                              (DM.DM dm) =>+                                Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                  Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+x'xstrict_ansiLength46aux4695 x1 x2+  = DM.eval+      (DM.funcDeclHook "ansiLength.aux.95"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_3"+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_3 x3 x4)))+x'xterm_strict_ansiLength46aux4695 x1+  = DI.Term "ansiLength.aux.95" (DI.SrcID "AnsiCodes" 0) x1+strict__case_3 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x16 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "AnsiCodes" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x2+                                  x13 <- Prelude.return x3+                                  x14 <- Prelude.return x4+                                  x15 <- do x10 <- do x5 <- Prelude.return x3+                                                      x6 <- DM.funcCallHook "esc"+                                                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              strict_esc+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x5, DI.genTerm x6]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x5 x6)+                                            x11 <- do x9 <- do x7 <- Prelude.return x4+                                                               x8 <- DM.litHook+                                                                       (DI.DebugInfo+                                                                          (DI.SrcID "AnsiCodes" 0)+                                                                          (DI.DynamicInfo [] []))+                                                                       (Prelude.return+                                                                          (Curry.DebugModule.Prelude.Pos+                                                                             (Curry.DebugModule.Prelude.O+                                                                                Curry.DebugModule.Prelude.IHi)))+                                                               DM.funcCallHook "!!"+                                                                 (DI.DebugInfo+                                                                    (DI.SrcID "AnsiCodes" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x7,+                                                                        DI.genTerm x8]))+                                                                 (Curry.DebugModule.Prelude.op_EMarkEMark+                                                                    x7+                                                                    x8)+                                                      DM.funcCallHook "isDigit"+                                                        (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x9]))+                                                        (Curry.DebugModule.Char.strict_isDigit x9)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x10 x11)+                                  DM.funcCallHook "_case_2"+                                    (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x12, DI.genTerm x13, DI.genTerm x14,+                                           DI.genTerm x15]))+                                    (strict__case_2 x12 x13 x14 x15)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_3 x2)+                           x16)))+term_strict__case_3 x1+  = DI.Term "_case_3" (DI.SrcID "AnsiCodes" 0) x1+strict__case_2 x2 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x20 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- do x9 <- do x8 <- do x7 <- do x6 <- Prelude.return x4+                                                                       DM.funcCallHook "tail"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "AnsiCodes" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x6]))+                                                                         (Curry.DebugModule.Prelude.strict_tail+                                                                            x6)+                                                              DM.funcCallHook "tail"+                                                                (DI.DebugInfo+                                                                   (DI.SrcID "AnsiCodes" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x7]))+                                                                (Curry.DebugModule.Prelude.strict_tail+                                                                   x7)+                                                     DM.funcCallHook "tail"+                                                       (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x8]))+                                                       (Curry.DebugModule.Prelude.strict_tail x8)+                                            DM.funcCallHook "tail"+                                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.strict_tail x9)+                                  x13 <- do x10 <- Prelude.return x2+                                            x11 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Pos+                                                           (Curry.DebugModule.Prelude.I+                                                              (Curry.DebugModule.Prelude.O+                                                                 Curry.DebugModule.Prelude.IHi))))+                                            DM.funcCallHook "-"+                                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (Curry.DebugModule.Prelude.op_Minus x10 x11)+                                  DM.funcCallHook "ansiLength.aux.95"+                                    (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (x'xstrict_ansiLength46aux4695 x12 x13)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- Prelude.return x2+                                  x17 <- Prelude.return x3+                                  x18 <- Prelude.return x4+                                  x19 <- do x14 <- Prelude.return x3+                                            x15 <- DM.funcCallHook "esc"+                                                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                        (DI.DynamicInfo [] []))+                                                     strict_esc+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x14, DI.genTerm x15]))+                                              (Curry.DebugModule.Prelude.op_EqEq x14 x15)+                                  DM.funcCallHook "_case_1"+                                    (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x16, DI.genTerm x17, DI.genTerm x18,+                                           DI.genTerm x19]))+                                    (strict__case_1 x16 x17 x18 x19)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_2 x2 x3 x4)+                           x20)))+term_strict__case_2 x1+  = DI.Term "_case_2" (DI.SrcID "AnsiCodes" 0) x1+strict__case_1 x2 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x16 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x8 <- do x7 <- do x6 <- Prelude.return x4+                                                              DM.funcCallHook "tail"+                                                                (DI.DebugInfo+                                                                   (DI.SrcID "AnsiCodes" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x6]))+                                                                (Curry.DebugModule.Prelude.strict_tail+                                                                   x6)+                                                     DM.funcCallHook "tail"+                                                       (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x7]))+                                                       (Curry.DebugModule.Prelude.strict_tail x7)+                                            DM.funcCallHook "tail"+                                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8]))+                                              (Curry.DebugModule.Prelude.strict_tail x8)+                                  x12 <- do x9 <- Prelude.return x2+                                            x10 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Pos+                                                           (Curry.DebugModule.Prelude.O+                                                              (Curry.DebugModule.Prelude.O+                                                                 Curry.DebugModule.Prelude.IHi))))+                                            DM.funcCallHook "-"+                                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (Curry.DebugModule.Prelude.op_Minus x9 x10)+                                  DM.funcCallHook "ansiLength.aux.95"+                                    (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (x'xstrict_ansiLength46aux4695 x11 x12)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x2+                                  x14 <- Prelude.return x4+                                  x15 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                              (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_0"+                                    (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x13, DI.genTerm x14, DI.genTerm x15]))+                                    (strict__case_0 x13 x14 x15)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_1 x2 x3 x4)+                           x16)))+term_strict__case_1 x1+  = DI.Term "_case_1" (DI.SrcID "AnsiCodes" 0) x1+strict__case_0 x2 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x4, DI.genTerm x5]))+         (do x8 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x4+                                  x7 <- Prelude.return x2+                                  DM.funcCallHook "ansiLength.aux.95"+                                    (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (x'xstrict_ansiLength46aux4695 x6 x7)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_0 x2 x4)+                           x8)))+term_strict__case_0 x1+  = DI.Term "_case_0" (DI.SrcID "AnsiCodes" 0) x1+strict__case_4 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x5 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "AnsiCodes" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "AnsiCodes" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           (strict__case_4 x2 x3)+                           x5)))+term_strict__case_4 x1+  = DI.Term "_case_4" (DI.SrcID "AnsiCodes" 0) x1
+ dist/build/Curry/DebugModule/CSV.hs view
@@ -0,0 +1,2524 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.CSV where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.List+import qualified Curry.DebugModule.Prelude+ +strict_writeCSVFile ::+                    (DM.DM dm) =>+                      Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                        Curry.DebugModule.Prelude.List+                          (Curry.DebugModule.Prelude.List+                             (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+                          ->+                          dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_writeCSVFile x1 x2+  = DM.eval+      (DM.funcDeclHook "writeCSVFile"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x4 <- Prelude.return x1+             x5 <- do x3 <- Prelude.return x2+                      DM.funcCallHook "showCSV"+                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (strict_showCSV x3)+             DM.funcCallHook "writeFile"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (Curry.DebugModule.Prelude.strict_writeFile x4 x5)))+term_strict_writeCSVFile x1+  = DI.Term "writeCSVFile" (DI.SrcID "CSV" 0) x1+ +strict_showCSV ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.List+                   (Curry.DebugModule.Prelude.List+                      (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+                   ->+                   dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_showCSV x1+  = DM.eval+      (DM.funcDeclHook "showCSV"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- do x2 <- Prelude.return+                              (PC.partCall1 (term_strict_showCSVLine []) strict_showCSVLine)+                      DM.funcCallHook "concatMap"+                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (Curry.DebugModule.Prelude.strict_concatMap x2)+             x4 <- Prelude.return x1+             DM.funcCallHook "apply"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (Curry.DebugModule.Prelude.strict_apply x3 x4)))+term_strict_showCSV x1 = DI.Term "showCSV" (DI.SrcID "CSV" 0) x1+ +strict_showCSVLine ::+                   (DM.DM dm) =>+                     Curry.DebugModule.Prelude.List+                       (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                       ->+                       dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_showCSVLine x1+  = DM.eval+      (DM.funcDeclHook "showCSVLine"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x11 <- do x8 <- do x6 <- do x2 <- DM.litHook+                                                 (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                    (DI.DynamicInfo [] []))+                                                 (Prelude.return+                                                    (Curry.DebugModule.Prelude.Char ','))+                                         x3 <- DM.constructorHook+                                                 (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                    (DI.DynamicInfo [] []))+                                                 (Prelude.return Curry.DebugModule.Prelude.Nil)+                                         DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "CSV" 0)+                                              (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                                           (Prelude.return (Curry.DebugModule.Prelude.Cons x2 x3))+                                x7 <- do x4 <- Prelude.return+                                                 (PC.partCall1+                                                    (x'xterm_strict_showCSVLine46convert467 [])+                                                    x'xstrict_showCSVLine46convert467)+                                         x5 <- Prelude.return x1+                                         DM.funcCallHook "map"+                                           (DI.DebugInfo (DI.SrcID "CSV" 0)+                                              (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                           (Curry.DebugModule.Prelude.strict_map x4 x5)+                                DM.funcCallHook "intersperse"+                                  (DI.DebugInfo (DI.SrcID "CSV" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                  (Curry.DebugModule.List.strict_intersperse x6 x7)+                       DM.funcCallHook "concat"+                         (DI.DebugInfo (DI.SrcID "CSV" 0)+                            (DI.DynamicInfo [] [DI.genTerm x8]))+                         (Curry.DebugModule.Prelude.strict_concat x8)+             x12 <- do x9 <- DM.litHook+                               (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                               (Prelude.return (Curry.DebugModule.Prelude.Char '\n'))+                       x10 <- DM.constructorHook+                                (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                (Prelude.return Curry.DebugModule.Prelude.Nil)+                       DM.constructorHook+                         (DI.DebugInfo (DI.SrcID "CSV" 0)+                            (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                         (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10))+             DM.funcCallHook "++"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+               (Curry.DebugModule.Prelude.op_PlusPlus x11 x12)))+term_strict_showCSVLine x1+  = DI.Term "showCSVLine" (DI.SrcID "CSV" 0) x1+ +x'xstrict_showCSVLine46convert467 ::+                                  (DM.DM dm) =>+                                    Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                      dm+                                        (Curry.DebugModule.Prelude.List+                                           Curry.DebugModule.Prelude.Char)+x'xstrict_showCSVLine46convert467 x1+  = DM.eval+      (DM.funcDeclHook "showCSVLine.convert.7"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- Prelude.return x1+             x6 <- do x3 <- do x2 <- Prelude.return+                                       (PC.partCall1+                                          (x'xterm_strict_showCSVLine46convert46746_35lambda2 [])+                                          x'xstrict_showCSVLine46convert46746_35lambda2)+                               DM.funcCallHook "any"+                                 (DI.DebugInfo (DI.SrcID "CSV" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x2]))+                                 (Curry.DebugModule.Prelude.strict_any x2)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "apply"+                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.strict_apply x3 x4)+             DM.funcCallHook "_case_16"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (strict__case_16 x5 x6)))+x'xterm_strict_showCSVLine46convert467 x1+  = DI.Term "showCSVLine.convert.7" (DI.SrcID "CSV" 0) x1+ +x'xstrict_showCSVLine46convert46746_35lambda2 ::+                                              (DM.DM dm) =>+                                                Curry.DebugModule.Prelude.Char ->+                                                  dm Curry.DebugModule.Prelude.Bool+x'xstrict_showCSVLine46convert46746_35lambda2 x1+  = DM.eval+      (DM.funcDeclHook "showCSVLine.convert.7._#lambda2"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x11 <- do x2 <- Prelude.return x1+                       DM.funcCallHook "elem"+                         (DI.DebugInfo (DI.SrcID "CSV" 0)+                            (DI.DynamicInfo [] [DI.genTerm x2]))+                         (Curry.DebugModule.Prelude.strict_elem x2)+             x12 <- do x9 <- DM.litHook+                               (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                               (Prelude.return (Curry.DebugModule.Prelude.Char '"'))+                       x10 <- do x7 <- DM.litHook+                                         (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                         (Prelude.return (Curry.DebugModule.Prelude.Char ','))+                                 x8 <- do x5 <- DM.litHook+                                                  (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                     (DI.DynamicInfo [] []))+                                                  (Prelude.return+                                                     (Curry.DebugModule.Prelude.Char ';'))+                                          x6 <- do x3 <- DM.litHook+                                                           (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                              (DI.DynamicInfo [] []))+                                                           (Prelude.return+                                                              (Curry.DebugModule.Prelude.Char ':'))+                                                   x4 <- DM.constructorHook+                                                           (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                              (DI.DynamicInfo [] []))+                                                           (Prelude.return+                                                              Curry.DebugModule.Prelude.Nil)+                                                   DM.constructorHook+                                                     (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                        (DI.DynamicInfo []+                                                           [DI.genTerm x3, DI.genTerm x4]))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Cons x3 x4))+                                          DM.constructorHook+                                            (DI.DebugInfo (DI.SrcID "CSV" 0)+                                               (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                            (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))+                                 DM.constructorHook+                                   (DI.DebugInfo (DI.SrcID "CSV" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                   (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8))+                       DM.constructorHook+                         (DI.DebugInfo (DI.SrcID "CSV" 0)+                            (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                         (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10))+             DM.funcCallHook "apply"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+               (Curry.DebugModule.Prelude.strict_apply x11 x12)))+x'xterm_strict_showCSVLine46convert46746_35lambda2 x1+  = DI.Term "showCSVLine.convert.7._#lambda2" (DI.SrcID "CSV" 0) x1+ +x'xstrict_showCSVLine46convert46746_35lambda3 ::+                                              (DM.DM dm) =>+                                                Curry.DebugModule.Prelude.Char ->+                                                  dm+                                                    (Curry.DebugModule.Prelude.List+                                                       Curry.DebugModule.Prelude.Char)+x'xstrict_showCSVLine46convert46746_35lambda3 x1+  = DM.eval+      (DM.funcDeclHook "showCSVLine.convert.7._#lambda3"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             x5 <- do x2 <- Prelude.return x1+                      x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char '"'))+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.op_EqEq x2 x3)+             DM.funcCallHook "_case_15"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (strict__case_15 x4 x5)))+x'xterm_strict_showCSVLine46convert46746_35lambda3 x1+  = DI.Term "showCSVLine.convert.7._#lambda3" (DI.SrcID "CSV" 0) x1+ +strict_readCSVFile ::+                   (DM.DM dm) =>+                     dm+                       (DM.Func dm+                          (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                          (Curry.DebugModule.Prelude.IO dm+                             (Curry.DebugModule.Prelude.List+                                (Curry.DebugModule.Prelude.List+                                   (Curry.DebugModule.Prelude.List+                                      Curry.DebugModule.Prelude.Char)))))+strict_readCSVFile+  = DM.eval+      (DM.funcDeclHook "readCSVFile"+         (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+         (do x2 <- do x0 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char ','))+                      x1 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                           (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+             Prelude.return+               (PC.partCall1 (term_strict_readCSVFileWithDelims [DI.genTerm x2])+                  (strict_readCSVFileWithDelims x2))))+ +strict_readCSVFileWithDelims ::+                             (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.List+                                           (Curry.DebugModule.Prelude.List+                                              (Curry.DebugModule.Prelude.List+                                                 Curry.DebugModule.Prelude.Char))))+strict_readCSVFileWithDelims x1 x2+  = DM.eval+      (DM.funcDeclHook "readCSVFileWithDelims"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x2+                      DM.funcCallHook "readFile"+                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.strict_readFile x3)+             x6 <- do x4 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1+                           (x'xterm_strict_readCSVFileWithDelims46_35lambda4 [DI.genTerm x4])+                           (x'xstrict_readCSVFileWithDelims46_35lambda4 x4))+             DM.funcCallHook ">>="+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_GtGtEq x5 x6)))+term_strict_readCSVFileWithDelims x1+  = DI.Term "readCSVFileWithDelims" (DI.SrcID "CSV" 0) x1+ +x'xstrict_readCSVFileWithDelims46_35lambda4 ::+                                            (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.List+                                                          (Curry.DebugModule.Prelude.List+                                                             (Curry.DebugModule.Prelude.List+                                                                Curry.DebugModule.Prelude.Char))))+x'xstrict_readCSVFileWithDelims46_35lambda4 x1 x2+  = DM.eval+      (DM.funcDeclHook "readCSVFileWithDelims._#lambda4"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "readCSVWithDelims"+                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_readCSVWithDelims x3 x4)+             DM.funcCallHook "return"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (Curry.DebugModule.Prelude.strict_return x5)))+x'xterm_strict_readCSVFileWithDelims46_35lambda4 x1+  = DI.Term "readCSVFileWithDelims._#lambda4" (DI.SrcID "CSV" 0) x1+ +strict_readCSV ::+               (DM.DM dm) =>+                 dm+                   (DM.Func dm+                      (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                      (Curry.DebugModule.Prelude.List+                         (Curry.DebugModule.Prelude.List+                            (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))))+strict_readCSV+  = DM.eval+      (DM.funcDeclHook "readCSV"+         (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+         (do x2 <- do x0 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char ','))+                      x1 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                           (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x0 x1))+             Prelude.return+               (PC.partCall1 (term_strict_readCSVWithDelims [DI.genTerm x2])+                  (strict_readCSVWithDelims x2))))+ +strict_readCSVWithDelims ::+                         (DM.DM dm) =>+                           Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                             Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                               dm+                                 (Curry.DebugModule.Prelude.List+                                    (Curry.DebugModule.Prelude.List+                                       (Curry.DebugModule.Prelude.List+                                          Curry.DebugModule.Prelude.Char)))+strict_readCSVWithDelims x1 x2+  = DM.eval+      (DM.funcDeclHook "readCSVWithDelims"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1 (term_strict_components [DI.genTerm x3])+                           (strict_components x3))+             x6 <- do x4 <- Prelude.return x2+                      DM.funcCallHook "lines"+                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.strict_lines x4)+             DM.funcCallHook "map"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.strict_map x5 x6)))+term_strict_readCSVWithDelims x1+  = DI.Term "readCSVWithDelims" (DI.SrcID "CSV" 0) x1+ +strict_components ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                      Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                        dm+                          (Curry.DebugModule.Prelude.List+                             (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_components x1 x2+  = DM.eval+      (DM.funcDeclHook "components"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_14"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_14 x3 x4)))+term_strict_components x1+  = DI.Term "components" (DI.SrcID "CSV" 0) x1+ +x'xstrict_components46breakString4625 ::+                                      (DM.DM dm) =>+                                        Curry.DebugModule.Prelude.List+                                          (Curry.DebugModule.Prelude.List+                                             Curry.DebugModule.Prelude.Char)+                                          ->+                                          Curry.DebugModule.Prelude.List+                                            Curry.DebugModule.Prelude.Char+                                            ->+                                            Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char+                                              ->+                                              dm+                                                (Curry.DebugModule.Prelude.List+                                                   (Curry.DebugModule.Prelude.List+                                                      Curry.DebugModule.Prelude.Char))+x'xstrict_components46breakString4625 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "components.breakString.25"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_11"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_11 x4 x5 x6)))+x'xterm_strict_components46breakString4625 x1+  = DI.Term "components.breakString.25" (DI.SrcID "CSV" 0) x1+ +x'xstrict_components46breakString462546_35selFP335b ::+                                                    (DM.DM dm) =>+                                                      Curry.DebugModule.Prelude.List+                                                        (Curry.DebugModule.Prelude.List+                                                           Curry.DebugModule.Prelude.Char)+                                                        ->+                                                        dm+                                                          (Curry.DebugModule.Prelude.List+                                                             Curry.DebugModule.Prelude.Char)+x'xstrict_components46breakString462546_35selFP335b x1+  = DM.eval+      (DM.funcDeclHook "components.breakString.25._#selFP3#b"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_5"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_5 x2)))+x'xterm_strict_components46breakString462546_35selFP335b x1+  = DI.Term "components.breakString.25._#selFP3#b" (DI.SrcID "CSV" 0)+      x1+ +x'xstrict_components46breakString462546_35selFP435bs ::+                                                     (DM.DM dm) =>+                                                       Curry.DebugModule.Prelude.List+                                                         (Curry.DebugModule.Prelude.List+                                                            Curry.DebugModule.Prelude.Char)+                                                         ->+                                                         dm+                                                           (Curry.DebugModule.Prelude.List+                                                              (Curry.DebugModule.Prelude.List+                                                                 Curry.DebugModule.Prelude.Char))+x'xstrict_components46breakString462546_35selFP435bs x1+  = DM.eval+      (DM.funcDeclHook "components.breakString.25._#selFP4#bs"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_4"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_4 x2)))+x'xterm_strict_components46breakString462546_35selFP435bs x1+  = DI.Term "components.breakString.25._#selFP4#bs"+      (DI.SrcID "CSV" 0)+      x1+ +x'xstrict_components46breakString462546_35selFP635b ::+                                                    (DM.DM dm) =>+                                                      Curry.DebugModule.Prelude.List+                                                        (Curry.DebugModule.Prelude.List+                                                           Curry.DebugModule.Prelude.Char)+                                                        ->+                                                        dm+                                                          (Curry.DebugModule.Prelude.List+                                                             Curry.DebugModule.Prelude.Char)+x'xstrict_components46breakString462546_35selFP635b x1+  = DM.eval+      (DM.funcDeclHook "components.breakString.25._#selFP6#b"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_3"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_3 x2)))+x'xterm_strict_components46breakString462546_35selFP635b x1+  = DI.Term "components.breakString.25._#selFP6#b" (DI.SrcID "CSV" 0)+      x1+ +x'xstrict_components46breakString462546_35selFP735bs ::+                                                     (DM.DM dm) =>+                                                       Curry.DebugModule.Prelude.List+                                                         (Curry.DebugModule.Prelude.List+                                                            Curry.DebugModule.Prelude.Char)+                                                         ->+                                                         dm+                                                           (Curry.DebugModule.Prelude.List+                                                              (Curry.DebugModule.Prelude.List+                                                                 Curry.DebugModule.Prelude.Char))+x'xstrict_components46breakString462546_35selFP735bs x1+  = DM.eval+      (DM.funcDeclHook "components.breakString.25._#selFP7#bs"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_2"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_2 x2)))+x'xterm_strict_components46breakString462546_35selFP735bs x1+  = DI.Term "components.breakString.25._#selFP7#bs"+      (DI.SrcID "CSV" 0)+      x1+ +x'xstrict_components46_35selFP935e ::+                                   (DM.DM dm) =>+                                     Curry.DebugModule.Prelude.Tuple2+                                       (Curry.DebugModule.Prelude.List+                                          Curry.DebugModule.Prelude.Char)+                                       (Curry.DebugModule.Prelude.List+                                          Curry.DebugModule.Prelude.Char)+                                       ->+                                       dm+                                         (Curry.DebugModule.Prelude.List+                                            Curry.DebugModule.Prelude.Char)+x'xstrict_components46_35selFP935e x1+  = DM.eval+      (DM.funcDeclHook "components._#selFP9#e"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_1"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_1 x2)))+x'xterm_strict_components46_35selFP935e x1+  = DI.Term "components._#selFP9#e" (DI.SrcID "CSV" 0) x1+ +x'xstrict_components46_35selFP1035s ::+                                    (DM.DM dm) =>+                                      Curry.DebugModule.Prelude.Tuple2+                                        (Curry.DebugModule.Prelude.List+                                           Curry.DebugModule.Prelude.Char)+                                        (Curry.DebugModule.Prelude.List+                                           Curry.DebugModule.Prelude.Char)+                                        ->+                                        dm+                                          (Curry.DebugModule.Prelude.List+                                             Curry.DebugModule.Prelude.Char)+x'xstrict_components46_35selFP1035s x1+  = DM.eval+      (DM.funcDeclHook "components._#selFP10#s"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_0"+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_0 x2)))+x'xterm_strict_components46_35selFP1035s x1+  = DI.Term "components._#selFP10#s" (DI.SrcID "CSV" 0) x1+strict__case_0 x1+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_0+                           x4)))+term_strict__case_0 x1 = DI.Term "_case_0" (DI.SrcID "CSV" 0) x1+strict__case_1 x1+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_1+                           x4)))+term_strict__case_1 x1 = DI.Term "_case_1" (DI.SrcID "CSV" 0) x1+strict__case_2 x1+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_2+                           x4)))+term_strict__case_2 x1 = DI.Term "_case_2" (DI.SrcID "CSV" 0) x1+strict__case_3 x1+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_3+                           x4)))+term_strict__case_3 x1 = DI.Term "_case_3" (DI.SrcID "CSV" 0) x1+strict__case_4 x1+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_4+                           x4)))+term_strict__case_4 x1 = DI.Term "_case_4" (DI.SrcID "CSV" 0) x1+strict__case_5 x1+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_5+                           x4)))+term_strict__case_5 x1 = DI.Term "_case_5" (DI.SrcID "CSV" 0) x1+strict__case_11 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_11"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x10 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x2+                                  x8 <- Prelude.return x4+                                  x9 <- Prelude.return x5+                                  DM.funcCallHook "_case_10"+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (strict__case_10 x6 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_11 x1 x2)+                           x10)))+term_strict__case_11 x1 = DI.Term "_case_11" (DI.SrcID "CSV" 0) x1+strict__case_10 x1 x2 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_10"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x4, DI.genTerm x5]))+         (do x25 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x25]))+               (case x25 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x1+                                  x11 <- Prelude.return x4+                                  x12 <- do x8 <- Prelude.return x4+                                            x9 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Char '"'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.op_EqEq x8 x9)+                                  DM.funcCallHook "_case_9"+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_9 x10 x11 x12)))+                    Curry.DebugModule.Prelude.Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x19 <- Prelude.return x1+                                  x20 <- Prelude.return x2+                                  x21 <- Prelude.return x4+                                  x22 <- Prelude.return x6+                                  x23 <- Prelude.return x7+                                  x24 <- do x17 <- do x13 <- Prelude.return x4+                                                      x14 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '"'))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x13 x14)+                                            x18 <- do x15 <- Prelude.return x6+                                                      x16 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '"'))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x15, DI.genTerm x16]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x15 x16)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x17, DI.genTerm x18]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x17 x18)+                                  DM.funcCallHook "_case_8"+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x19, DI.genTerm x20, DI.genTerm x21,+                                           DI.genTerm x22, DI.genTerm x23, DI.genTerm x24]))+                                    (strict__case_8 x19 x20 x21 x22 x23 x24)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x25])))+                           (strict__case_10 x1 x2 x4)+                           x25)))+term_strict__case_10 x1 = DI.Term "_case_10" (DI.SrcID "CSV" 0) x1+strict__case_8 x1 x2 x4 x6 x7 x11+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x4, DI.genTerm x6,+                DI.genTerm x7, DI.genTerm x11]))+         (do x34 <- Prelude.return x11+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x34]))+               (case x34 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x8 <- do x12 <- Prelude.return x1+                                              x13 <- Prelude.return x2+                                              x14 <- Prelude.return x7+                                              DM.funcCallHook "components.breakString.25"+                                                (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x12, DI.genTerm x13,+                                                       DI.genTerm x14]))+                                                (x'xstrict_components46breakString4625 x12 x13 x14)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x9 <- do x15 <- Prelude.return x8+                                                       DM.funcCallHook+                                                         "components.breakString.25._#selFP3#b"+                                                         (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x15]))+                                                         (x'xstrict_components46breakString462546_35selFP335b+                                                            x15)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x10 <- do x16 <- Prelude.return x8+                                                                 DM.funcCallHook+                                                                   "components.breakString.25._#selFP4#bs"+                                                                   (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x16]))+                                                                   (x'xstrict_components46breakString462546_35selFP435bs+                                                                      x16)+                                                       DM.eval+                                                         (do x19 <- do x17 <- Prelude.return x4+                                                                       x18 <- Prelude.return x9+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "CSV" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x17,+                                                                                DI.genTerm x18]))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Cons+                                                                               x17+                                                                               x18))+                                                             x20 <- Prelude.return x10+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x19,+                                                                      DI.genTerm x20]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Cons+                                                                     x19+                                                                     x20))))))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x28 <- Prelude.return x1+                                  x29 <- Prelude.return x2+                                  x30 <- Prelude.return x4+                                  x31 <- Prelude.return x6+                                  x32 <- Prelude.return x7+                                  x33 <- do x26 <- do x21 <- Prelude.return x4+                                                      x22 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '"'))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x21, DI.genTerm x22]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x21 x22)+                                            x27 <- do x24 <- do x23 <- Prelude.return x6+                                                                DM.funcCallHook "elem"+                                                                  (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x23]))+                                                                  (Curry.DebugModule.Prelude.strict_elem+                                                                     x23)+                                                      x25 <- Prelude.return x2+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x24, DI.genTerm x25]))+                                                        (Curry.DebugModule.Prelude.strict_apply x24+                                                           x25)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x26, DI.genTerm x27]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x26 x27)+                                  DM.funcCallHook "_case_7"+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x28, DI.genTerm x29, DI.genTerm x30,+                                           DI.genTerm x31, DI.genTerm x32, DI.genTerm x33]))+                                    (strict__case_7 x28 x29 x30 x31 x32 x33)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x34])))+                           (strict__case_8 x1 x2 x4 x6 x7)+                           x34)))+term_strict__case_8 x1 = DI.Term "_case_8" (DI.SrcID "CSV" 0) x1+strict__case_7 x1 x2 x4 x6 x7 x8+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x4, DI.genTerm x6,+                DI.genTerm x7, DI.genTerm x8]))+         (do x19 <- Prelude.return x8+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x12 <- do x9 <- Prelude.return x2+                                            x10 <- Prelude.return x7+                                            DM.funcCallHook "components"+                                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (strict_components x9 x10)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x1+                                  x14 <- Prelude.return x2+                                  x15 <- Prelude.return x4+                                  x16 <- Prelude.return x6+                                  x17 <- Prelude.return x7+                                  x18 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_6"+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x13, DI.genTerm x14, DI.genTerm x15,+                                           DI.genTerm x16, DI.genTerm x17, DI.genTerm x18]))+                                    (strict__case_6 x13 x14 x15 x16 x17 x18)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           (strict__case_7 x1 x2 x4 x6 x7)+                           x19)))+term_strict__case_7 x1 = DI.Term "_case_7" (DI.SrcID "CSV" 0) x1+strict__case_6 x1 x2 x4 x6 x7 x14+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x4, DI.genTerm x6,+                DI.genTerm x7, DI.genTerm x14]))+         (do x26 <- Prelude.return x14+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x26]))+               (case x26 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x11 <- do x17 <- Prelude.return x1+                                               x18 <- Prelude.return x2+                                               x19 <- do x15 <- Prelude.return x6+                                                         x16 <- Prelude.return x7+                                                         DM.constructorHook+                                                           (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                              (DI.DynamicInfo []+                                                                 [DI.genTerm x15, DI.genTerm x16]))+                                                           (Prelude.return+                                                              (Curry.DebugModule.Prelude.Cons x15+                                                                 x16))+                                               DM.funcCallHook "components.breakString.25"+                                                 (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                    (DI.DynamicInfo []+                                                       [DI.genTerm x17, DI.genTerm x18,+                                                        DI.genTerm x19]))+                                                 (x'xstrict_components46breakString4625 x17 x18 x19)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x12 <- do x20 <- Prelude.return x11+                                                        DM.funcCallHook+                                                          "components.breakString.25._#selFP6#b"+                                                          (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                             (DI.DynamicInfo [] [DI.genTerm x20]))+                                                          (x'xstrict_components46breakString462546_35selFP635b+                                                             x20)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x13 <- do x21 <- Prelude.return x11+                                                                 DM.funcCallHook+                                                                   "components.breakString.25._#selFP7#bs"+                                                                   (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x21]))+                                                                   (x'xstrict_components46breakString462546_35selFP735bs+                                                                      x21)+                                                       DM.eval+                                                         (do x24 <- do x22 <- Prelude.return x4+                                                                       x23 <- Prelude.return x12+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "CSV" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x22,+                                                                                DI.genTerm x23]))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Cons+                                                                               x22+                                                                               x23))+                                                             x25 <- Prelude.return x13+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x24,+                                                                      DI.genTerm x25]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Cons+                                                                     x24+                                                                     x25))))))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x26])))+                           (strict__case_6 x1 x2 x4 x6 x7)+                           x26)))+term_strict__case_6 x1 = DI.Term "_case_6" (DI.SrcID "CSV" 0) x1+strict__case_9 x1 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_9"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5]))+         (do x8 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x7 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_9 x1 x4)+                           x8)))+term_strict__case_9 x1 = DI.Term "_case_9" (DI.SrcID "CSV" 0) x1+strict__case_14 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_14"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x96 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x96]))+               (case x96 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x7 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x5 <- do x88 <- do x86 <- DM.litHook+                                                                 (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                    (DI.DynamicInfo [] []))+                                                                 (Prelude.return+                                                                    (Curry.DebugModule.Prelude.Char+                                                                       'M'))+                                                        x87 <- do x84 <- DM.litHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "CSV" 0)+                                                                              (DI.DynamicInfo []+                                                                                 []))+                                                                           (Prelude.return+                                                                              (Curry.DebugModule.Prelude.Char+                                                                                 'i'))+                                                                  x85 <- do x82 <- DM.litHook+                                                                                     (DI.DebugInfo+                                                                                        (DI.SrcID+                                                                                           "CSV"+                                                                                           0)+                                                                                        (DI.DynamicInfo+                                                                                           []+                                                                                           []))+                                                                                     (Prelude.return+                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                           's'))+                                                                            x83 <- do x80 <- DM.litHook+                                                                                               (DI.DebugInfo+                                                                                                  (DI.SrcID+                                                                                                     "CSV"+                                                                                                     0)+                                                                                                  (DI.DynamicInfo+                                                                                                     []+                                                                                                     []))+                                                                                               (Prelude.return+                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                     's'))+                                                                                      x81 <- do x78 <- DM.litHook+                                                                                                         (DI.DebugInfo+                                                                                                            (DI.SrcID+                                                                                                               "CSV"+                                                                                                               0)+                                                                                                            (DI.DynamicInfo+                                                                                                               []+                                                                                                               []))+                                                                                                         (Prelude.return+                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                               'i'))+                                                                                                x79 <- do x76 <- DM.litHook+                                                                                                                   (DI.DebugInfo+                                                                                                                      (DI.SrcID+                                                                                                                         "CSV"+                                                                                                                         0)+                                                                                                                      (DI.DynamicInfo+                                                                                                                         []+                                                                                                                         []))+                                                                                                                   (Prelude.return+                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                         'n'))+                                                                                                          x77 <- do x74 <- DM.litHook+                                                                                                                             (DI.DebugInfo+                                                                                                                                (DI.SrcID+                                                                                                                                   "CSV"+                                                                                                                                   0)+                                                                                                                                (DI.DynamicInfo+                                                                                                                                   []+                                                                                                                                   []))+                                                                                                                             (Prelude.return+                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                   'g'))+                                                                                                                    x75 <- do x72 <- DM.litHook+                                                                                                                                       (DI.DebugInfo+                                                                                                                                          (DI.SrcID+                                                                                                                                             "CSV"+                                                                                                                                             0)+                                                                                                                                          (DI.DynamicInfo+                                                                                                                                             []+                                                                                                                                             []))+                                                                                                                                       (Prelude.return+                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                             ' '))+                                                                                                                              x73 <- do x70 <- DM.litHook+                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                    (DI.SrcID+                                                                                                                                                       "CSV"+                                                                                                                                                       0)+                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                       []+                                                                                                                                                       []))+                                                                                                                                                 (Prelude.return+                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                       'c'))+                                                                                                                                        x71 <- do x68 <- DM.litHook+                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                              (DI.SrcID+                                                                                                                                                                 "CSV"+                                                                                                                                                                 0)+                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                 []+                                                                                                                                                                 []))+                                                                                                                                                           (Prelude.return+                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                 'l'))+                                                                                                                                                  x69 <- do x66 <- DM.litHook+                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                           "CSV"+                                                                                                                                                                           0)+                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                           []+                                                                                                                                                                           []))+                                                                                                                                                                     (Prelude.return+                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                           'o'))+                                                                                                                                                            x67 <- do x64 <- DM.litHook+                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                     "CSV"+                                                                                                                                                                                     0)+                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                     []+                                                                                                                                                                                     []))+                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                     's'))+                                                                                                                                                                      x65 <- do x62 <- DM.litHook+                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                               "CSV"+                                                                                                                                                                                               0)+                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                               []+                                                                                                                                                                                               []))+                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                               'i'))+                                                                                                                                                                                x63 <- do x60 <- DM.litHook+                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                         "CSV"+                                                                                                                                                                                                         0)+                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                         []+                                                                                                                                                                                                         []))+                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                         'n'))+                                                                                                                                                                                          x61 <- do x58 <- DM.litHook+                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                   "CSV"+                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                   []+                                                                                                                                                                                                                   []))+                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                   'g'))+                                                                                                                                                                                                    x59 <- do x56 <- DM.litHook+                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                             "CSV"+                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                             []+                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                             ' '))+                                                                                                                                                                                                              x57 <- do x54 <- DM.litHook+                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                       "CSV"+                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                       'd'))+                                                                                                                                                                                                                        x55 <- do x52 <- DM.litHook+                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                 "CSV"+                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                 'e'))+                                                                                                                                                                                                                                  x53 <- do x50 <- DM.litHook+                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                           "CSV"+                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                           'l'))+                                                                                                                                                                                                                                            x51 <- do x48 <- DM.litHook+                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                     "CSV"+                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                     'i'))+                                                                                                                                                                                                                                                      x49 <- do x46 <- DM.litHook+                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                               "CSV"+                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                               'm'))+                                                                                                                                                                                                                                                                x47 <- do x44 <- DM.litHook+                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                         "CSV"+                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                         'i'))+                                                                                                                                                                                                                                                                          x45 <- do x42 <- DM.litHook+                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                   "CSV"+                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                   't'))+                                                                                                                                                                                                                                                                                    x43 <- do x40 <- DM.litHook+                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                             "CSV"+                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                             'e'))+                                                                                                                                                                                                                                                                                              x41 <- do x38 <- DM.litHook+                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                       "CSV"+                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                       'r'))+                                                                                                                                                                                                                                                                                                        x39 <- do x36 <- DM.litHook+                                                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                                                 "CSV"+                                                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                 ' '))+                                                                                                                                                                                                                                                                                                                  x37 <- do x34 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                           "CSV"+                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                           'i'))+                                                                                                                                                                                                                                                                                                                            x35 <- do x32 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                     "CSV"+                                                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                     'n'))+                                                                                                                                                                                                                                                                                                                                      x33 <- do x30 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                               "CSV"+                                                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                               ' '))+                                                                                                                                                                                                                                                                                                                                                x31 <- do x28 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                         "CSV"+                                                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                         'C'))+                                                                                                                                                                                                                                                                                                                                                          x29 <- do x26 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                   "CSV"+                                                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                   'S'))+                                                                                                                                                                                                                                                                                                                                                                    x27 <- do x24 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                             "CSV"+                                                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                             'V'))+                                                                                                                                                                                                                                                                                                                                                                              x25 <- do x22 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                       "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                       ' '))+                                                                                                                                                                                                                                                                                                                                                                                        x23 <- do x20 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                 "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                 'r'))+                                                                                                                                                                                                                                                                                                                                                                                                  x21 <- do x18 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                           "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                           'e'))+                                                                                                                                                                                                                                                                                                                                                                                                            x19 <- do x16 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                     "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                     'c'))+                                                                                                                                                                                                                                                                                                                                                                                                                      x17 <- do x14 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                               "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                               'o'))+                                                                                                                                                                                                                                                                                                                                                                                                                                x15 <- do x12 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                         "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                         'r'))+                                                                                                                                                                                                                                                                                                                                                                                                                                          x13 <- do x10 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   'd'))+                                                                                                                                                                                                                                                                                                                                                                                                                                                    x11 <- do x8 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            '!'))+                                                                                                                                                                                                                                                                                                                                                                                                                                                              x9 <- DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         x8,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         x9]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      x8+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      x9))+                                                                                                                                                                                                                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                            "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                               x10,+                                                                                                                                                                                                                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                               x11]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                            x10+                                                                                                                                                                                                                                                                                                                                                                                                                                                            x11))+                                                                                                                                                                                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                  "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                     x12,+                                                                                                                                                                                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                     x13]))+                                                                                                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                  x12+                                                                                                                                                                                                                                                                                                                                                                                                                                                  x13))+                                                                                                                                                                                                                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                        "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                           x14,+                                                                                                                                                                                                                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                           x15]))+                                                                                                                                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                        x14+                                                                                                                                                                                                                                                                                                                                                                                                                                        x15))+                                                                                                                                                                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                              "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                 x16,+                                                                                                                                                                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                 x17]))+                                                                                                                                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                              x16+                                                                                                                                                                                                                                                                                                                                                                                                                              x17))+                                                                                                                                                                                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                    "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                       x18,+                                                                                                                                                                                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                       x19]))+                                                                                                                                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                    x18+                                                                                                                                                                                                                                                                                                                                                                                                                    x19))+                                                                                                                                                                                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                          "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                             x20,+                                                                                                                                                                                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                             x21]))+                                                                                                                                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                          x20+                                                                                                                                                                                                                                                                                                                                                                                                          x21))+                                                                                                                                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                "CSV"+                                                                                                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                   x22,+                                                                                                                                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                   x23]))+                                                                                                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                x22+                                                                                                                                                                                                                                                                                                                                                                                                x23))+                                                                                                                                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                      "CSV"+                                                                                                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                         x24,+                                                                                                                                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                         x25]))+                                                                                                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                      x24+                                                                                                                                                                                                                                                                                                                                                                                      x25))+                                                                                                                                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                            "CSV"+                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                               x26,+                                                                                                                                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                               x27]))+                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                            x26+                                                                                                                                                                                                                                                                                                                                                                            x27))+                                                                                                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                  "CSV"+                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                     x28,+                                                                                                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                     x29]))+                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                  x28+                                                                                                                                                                                                                                                                                                                                                                  x29))+                                                                                                                                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                        "CSV"+                                                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                           x30,+                                                                                                                                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                                                                                                                                           x31]))+                                                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                        x30+                                                                                                                                                                                                                                                                                                                                                        x31))+                                                                                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                                                              "CSV"+                                                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                 x32,+                                                                                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                                                                                 x33]))+                                                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                              x32+                                                                                                                                                                                                                                                                                                                                              x33))+                                                                                                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                                                    "CSV"+                                                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                                                                                                       x34,+                                                                                                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                                                                                                       x35]))+                                                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                    x34+                                                                                                                                                                                                                                                                                                                                    x35))+                                                                                                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                                                          "CSV"+                                                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                                                                                                             x36,+                                                                                                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                                                                                                             x37]))+                                                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                          x36+                                                                                                                                                                                                                                                                                                                          x37))+                                                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                "CSV"+                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                                                   x38,+                                                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                                                   x39]))+                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                x38+                                                                                                                                                                                                                                                                                                                x39))+                                                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                      "CSV"+                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                                                         x40,+                                                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                                                         x41]))+                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                      x40+                                                                                                                                                                                                                                                                                                      x41))+                                                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                            "CSV"+                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                                                               x42,+                                                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                                                               x43]))+                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                            x42+                                                                                                                                                                                                                                                                                            x43))+                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                  "CSV"+                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                     x44,+                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                     x45]))+                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                  x44+                                                                                                                                                                                                                                                                                  x45))+                                                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                        "CSV"+                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                                                           x46,+                                                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                                                           x47]))+                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                        x46+                                                                                                                                                                                                                                                                        x47))+                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                              "CSV"+                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                 x48,+                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                 x49]))+                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                              x48+                                                                                                                                                                                                                                                              x49))+                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                    "CSV"+                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                       x50,+                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                       x51]))+                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                    x50+                                                                                                                                                                                                                                                    x51))+                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                          "CSV"+                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                             x52,+                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                             x53]))+                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                          x52+                                                                                                                                                                                                                                          x53))+                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                "CSV"+                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                   x54,+                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                   x55]))+                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                x54+                                                                                                                                                                                                                                x55))+                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                      "CSV"+                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                      []+                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                         x56,+                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                         x57]))+                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                      x56+                                                                                                                                                                                                                      x57))+                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                            "CSV"+                                                                                                                                                                                                            0)+                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                            []+                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                               x58,+                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                               x59]))+                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                            x58+                                                                                                                                                                                                            x59))+                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                  "CSV"+                                                                                                                                                                                                  0)+                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                  []+                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                     x60,+                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                     x61]))+                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                  x60+                                                                                                                                                                                                  x61))+                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                        "CSV"+                                                                                                                                                                                        0)+                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                        []+                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                           x62,+                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                           x63]))+                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                        x62+                                                                                                                                                                                        x63))+                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                              "CSV"+                                                                                                                                                                              0)+                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                              []+                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                 x64,+                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                 x65]))+                                                                                                                                                                        (Prelude.return+                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                              x64+                                                                                                                                                                              x65))+                                                                                                                                                            DM.constructorHook+                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                    "CSV"+                                                                                                                                                                    0)+                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                    []+                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                       x66,+                                                                                                                                                                     DI.genTerm+                                                                                                                                                                       x67]))+                                                                                                                                                              (Prelude.return+                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                    x66+                                                                                                                                                                    x67))+                                                                                                                                                  DM.constructorHook+                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                       (DI.SrcID+                                                                                                                                                          "CSV"+                                                                                                                                                          0)+                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                          []+                                                                                                                                                          [DI.genTerm+                                                                                                                                                             x68,+                                                                                                                                                           DI.genTerm+                                                                                                                                                             x69]))+                                                                                                                                                    (Prelude.return+                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                          x68+                                                                                                                                                          x69))+                                                                                                                                        DM.constructorHook+                                                                                                                                          (DI.DebugInfo+                                                                                                                                             (DI.SrcID+                                                                                                                                                "CSV"+                                                                                                                                                0)+                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                []+                                                                                                                                                [DI.genTerm+                                                                                                                                                   x70,+                                                                                                                                                 DI.genTerm+                                                                                                                                                   x71]))+                                                                                                                                          (Prelude.return+                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                x70+                                                                                                                                                x71))+                                                                                                                              DM.constructorHook+                                                                                                                                (DI.DebugInfo+                                                                                                                                   (DI.SrcID+                                                                                                                                      "CSV"+                                                                                                                                      0)+                                                                                                                                   (DI.DynamicInfo+                                                                                                                                      []+                                                                                                                                      [DI.genTerm+                                                                                                                                         x72,+                                                                                                                                       DI.genTerm+                                                                                                                                         x73]))+                                                                                                                                (Prelude.return+                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                      x72+                                                                                                                                      x73))+                                                                                                                    DM.constructorHook+                                                                                                                      (DI.DebugInfo+                                                                                                                         (DI.SrcID+                                                                                                                            "CSV"+                                                                                                                            0)+                                                                                                                         (DI.DynamicInfo+                                                                                                                            []+                                                                                                                            [DI.genTerm+                                                                                                                               x74,+                                                                                                                             DI.genTerm+                                                                                                                               x75]))+                                                                                                                      (Prelude.return+                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                            x74+                                                                                                                            x75))+                                                                                                          DM.constructorHook+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "CSV"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  [DI.genTerm+                                                                                                                     x76,+                                                                                                                   DI.genTerm+                                                                                                                     x77]))+                                                                                                            (Prelude.return+                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                  x76+                                                                                                                  x77))+                                                                                                DM.constructorHook+                                                                                                  (DI.DebugInfo+                                                                                                     (DI.SrcID+                                                                                                        "CSV"+                                                                                                        0)+                                                                                                     (DI.DynamicInfo+                                                                                                        []+                                                                                                        [DI.genTerm+                                                                                                           x78,+                                                                                                         DI.genTerm+                                                                                                           x79]))+                                                                                                  (Prelude.return+                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                        x78+                                                                                                        x79))+                                                                                      DM.constructorHook+                                                                                        (DI.DebugInfo+                                                                                           (DI.SrcID+                                                                                              "CSV"+                                                                                              0)+                                                                                           (DI.DynamicInfo+                                                                                              []+                                                                                              [DI.genTerm+                                                                                                 x80,+                                                                                               DI.genTerm+                                                                                                 x81]))+                                                                                        (Prelude.return+                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                              x80+                                                                                              x81))+                                                                            DM.constructorHook+                                                                              (DI.DebugInfo+                                                                                 (DI.SrcID "CSV" 0)+                                                                                 (DI.DynamicInfo []+                                                                                    [DI.genTerm x82,+                                                                                     DI.genTerm+                                                                                       x83]))+                                                                              (Prelude.return+                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                    x82+                                                                                    x83))+                                                                  DM.constructorHook+                                                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                       (DI.DynamicInfo []+                                                                          [DI.genTerm x84,+                                                                           DI.genTerm x85]))+                                                                    (Prelude.return+                                                                       (Curry.DebugModule.Prelude.Cons+                                                                          x84+                                                                          x85))+                                                        DM.constructorHook+                                                          (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x86, DI.genTerm x87]))+                                                          (Prelude.return+                                                             (Curry.DebugModule.Prelude.Cons x86+                                                                x87))+                                              DM.funcCallHook "error"+                                                (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x88]))+                                                (Curry.DebugModule.Prelude.strict_error x88)+                                     DM.eval+                                       (do x91 <- Prelude.return x1+                                           x92 <- Prelude.return x3+                                           x93 <- Prelude.return x4+                                           x94 <- Prelude.return x5+                                           x95 <- do x89 <- Prelude.return x3+                                                     x90 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    '"'))+                                                     DM.funcCallHook "=="+                                                       (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x89, DI.genTerm x90]))+                                                       (Curry.DebugModule.Prelude.op_EqEq x89 x90)+                                           DM.funcCallHook "_case_13"+                                             (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x91, DI.genTerm x92, DI.genTerm x93,+                                                    DI.genTerm x94, DI.genTerm x95]))+                                             (strict__case_13 x91 x92 x93 x94 x95)))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "CSV" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x96])))+                           (strict__case_14 x1)+                           x96)))+term_strict__case_14 x1 = DI.Term "_case_14" (DI.SrcID "CSV" 0) x1+strict__case_13 x1 x3 x4 x5 x9+  = DM.eval+      (DM.funcDeclHook "_case_13"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5,+                DI.genTerm x9]))+         (do x28 <- Prelude.return x9+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x28]))+               (case x28 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x5+                                  x11 <- Prelude.return x1+                                  x12 <- Prelude.return x4+                                  DM.funcCallHook "components.breakString.25"+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12]))+                                    (x'xstrict_components46breakString4625 x10 x11 x12)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x6 <- do x18 <- do x15 <- do x13 <- Prelude.return+                                                                           (PC.partCall1+                                                                              (Curry.DebugModule.Prelude.term_strict_elem+                                                                                 [])+                                                                              Curry.DebugModule.Prelude.strict_elem)+                                                                  x14 <- Prelude.return x1+                                                                  Prelude.return+                                                                    (PC.partCall1+                                                                       (Curry.DebugModule.Prelude.term_strict_flip+                                                                          [DI.genTerm x13,+                                                                           DI.genTerm x14])+                                                                       (Curry.DebugModule.Prelude.strict_flip+                                                                          x13+                                                                          x14))+                                                        DM.funcCallHook "break"+                                                          (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                             (DI.DynamicInfo [] [DI.genTerm x15]))+                                                          (Curry.DebugModule.Prelude.strict_break+                                                             x15)+                                              x19 <- do x16 <- Prelude.return x3+                                                        x17 <- Prelude.return x4+                                                        DM.constructorHook+                                                          (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x16, DI.genTerm x17]))+                                                          (Prelude.return+                                                             (Curry.DebugModule.Prelude.Cons x16+                                                                x17))+                                              DM.funcCallHook "apply"+                                                (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x18, DI.genTerm x19]))+                                                (Curry.DebugModule.Prelude.strict_apply x18 x19)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x7 <- do x20 <- Prelude.return x6+                                                       DM.funcCallHook "components._#selFP9#e"+                                                         (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x20]))+                                                         (x'xstrict_components46_35selFP935e x20)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x8 <- do x21 <- Prelude.return x6+                                                                DM.funcCallHook+                                                                  "components._#selFP10#s"+                                                                  (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x21]))+                                                                  (x'xstrict_components46_35selFP1035s+                                                                     x21)+                                                       DM.eval+                                                         (do x26 <- Prelude.return x7+                                                             x27 <- do x23 <- Prelude.return x1+                                                                       x24 <- Prelude.return x8+                                                                       x25 <- do x22 <- Prelude.return+                                                                                          x8+                                                                                 DM.funcCallHook+                                                                                   "null"+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "CSV"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         [DI.genTerm+                                                                                            x22]))+                                                                                   (Curry.DebugModule.Prelude.strict_null+                                                                                      x22)+                                                                       DM.funcCallHook "_case_12"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "CSV" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x23,+                                                                                DI.genTerm x24,+                                                                                DI.genTerm x25]))+                                                                         (strict__case_12 x23 x24+                                                                            x25)+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x26,+                                                                      DI.genTerm x27]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Cons+                                                                     x26+                                                                     x27))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x28])))+                           (strict__case_13 x1 x3 x4 x5)+                           x28)))+term_strict__case_13 x1 = DI.Term "_case_13" (DI.SrcID "CSV" 0) x1+strict__case_12 x1 x8 x9+  = DM.eval+      (DM.funcDeclHook "_case_12"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x8, DI.genTerm x9]))+         (do x13 <- Prelude.return x9+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x1+                                  x12 <- do x10 <- Prelude.return x8+                                            DM.funcCallHook "tail"+                                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x10]))+                                              (Curry.DebugModule.Prelude.strict_tail x10)+                                  DM.funcCallHook "components"+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (strict_components x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_12 x1 x8)+                           x13)))+term_strict__case_12 x1 = DI.Term "_case_12" (DI.SrcID "CSV" 0) x1+strict__case_15 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_15"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x9 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- do x3 <- Prelude.return x1+                                           x4 <- DM.constructorHook+                                                   (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return Curry.DebugModule.Prelude.Nil)+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x3 x4))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_15 x1)+                           x9)))+term_strict__case_15 x1 = DI.Term "_case_15" (DI.SrcID "CSV" 0) x1+strict__case_16 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_16"+         (DI.DebugInfo (DI.SrcID "CSV" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x12 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "CSV" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- DM.litHook+                                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return (Curry.DebugModule.Prelude.Char '"'))+                                  x11 <- do x8 <- do x4 <- do x3 <- Prelude.return+                                                                      (PC.partCall1+                                                                         (x'xterm_strict_showCSVLine46convert46746_35lambda3+                                                                            [])+                                                                         x'xstrict_showCSVLine46convert46746_35lambda3)+                                                              DM.funcCallHook "concatMap"+                                                                (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x3]))+                                                                (Curry.DebugModule.Prelude.strict_concatMap+                                                                   x3)+                                                     x5 <- Prelude.return x1+                                                     DM.funcCallHook "apply"+                                                       (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x4, DI.genTerm x5]))+                                                       (Curry.DebugModule.Prelude.strict_apply x4+                                                          x5)+                                            x9 <- do x6 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   '"'))+                                                     x7 <- DM.constructorHook+                                                             (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                Curry.DebugModule.Prelude.Nil)+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x6, DI.genTerm x7]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x6 x7))+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x8 x9)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "CSV" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "CSV" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "CSV" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_16 x1)+                           x12)))+term_strict__case_16 x1 = DI.Term "_case_16" (DI.SrcID "CSV" 0) x1
+ dist/build/Curry/DebugModule/Char.hs view
@@ -0,0 +1,3343 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Char where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Prelude+ +strict_isUpper ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+strict_isUpper x1+  = DM.eval+      (DM.funcDeclHook "isUpper"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- do x4 <- do x2 <- Prelude.return x1+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x2]))+                                  (Curry.DebugModule.Prelude.strict_ord x2)+                       x5 <- do x3 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return (Curry.DebugModule.Prelude.Char 'A'))+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x3]))+                                  (Curry.DebugModule.Prelude.strict_ord x3)+                       DM.funcCallHook ">="+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                         (Curry.DebugModule.Prelude.op_GtEq x4 x5)+             x11 <- do x8 <- do x6 <- Prelude.return x1+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x6]))+                                  (Curry.DebugModule.Prelude.strict_ord x6)+                       x9 <- do x7 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return (Curry.DebugModule.Prelude.Char 'Z'))+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x7]))+                                  (Curry.DebugModule.Prelude.strict_ord x7)+                       DM.funcCallHook "<="+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                         (Curry.DebugModule.Prelude.op_LtEq x8 x9)+             DM.funcCallHook "&&"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+               (Curry.DebugModule.Prelude.op_AndAnd x10 x11)))+term_strict_isUpper x1 = DI.Term "isUpper" (DI.SrcID "Char" 0) x1+ +strict_isLower ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+strict_isLower x1+  = DM.eval+      (DM.funcDeclHook "isLower"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- do x4 <- do x2 <- Prelude.return x1+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x2]))+                                  (Curry.DebugModule.Prelude.strict_ord x2)+                       x5 <- do x3 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return (Curry.DebugModule.Prelude.Char 'a'))+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x3]))+                                  (Curry.DebugModule.Prelude.strict_ord x3)+                       DM.funcCallHook ">="+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                         (Curry.DebugModule.Prelude.op_GtEq x4 x5)+             x11 <- do x8 <- do x6 <- Prelude.return x1+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x6]))+                                  (Curry.DebugModule.Prelude.strict_ord x6)+                       x9 <- do x7 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return (Curry.DebugModule.Prelude.Char 'z'))+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x7]))+                                  (Curry.DebugModule.Prelude.strict_ord x7)+                       DM.funcCallHook "<="+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                         (Curry.DebugModule.Prelude.op_LtEq x8 x9)+             DM.funcCallHook "&&"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+               (Curry.DebugModule.Prelude.op_AndAnd x10 x11)))+term_strict_isLower x1 = DI.Term "isLower" (DI.SrcID "Char" 0) x1+ +strict_isAlpha ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+strict_isAlpha x1+  = DM.eval+      (DM.funcDeclHook "isAlpha"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "isUpper"+                        (DI.DebugInfo (DI.SrcID "Char" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_isUpper x2)+             x5 <- do x3 <- Prelude.return x1+                      DM.funcCallHook "isLower"+                        (DI.DebugInfo (DI.SrcID "Char" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (strict_isLower x3)+             DM.funcCallHook "||"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (Curry.DebugModule.Prelude.op_OrOr x4 x5)))+term_strict_isAlpha x1 = DI.Term "isAlpha" (DI.SrcID "Char" 0) x1+ +strict_isDigit ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+strict_isDigit x1+  = DM.eval+      (DM.funcDeclHook "isDigit"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- do x4 <- do x2 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return (Curry.DebugModule.Prelude.Char '0'))+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x2]))+                                  (Curry.DebugModule.Prelude.strict_ord x2)+                       x5 <- do x3 <- Prelude.return x1+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x3]))+                                  (Curry.DebugModule.Prelude.strict_ord x3)+                       DM.funcCallHook "<="+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                         (Curry.DebugModule.Prelude.op_LtEq x4 x5)+             x11 <- do x8 <- do x6 <- Prelude.return x1+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x6]))+                                  (Curry.DebugModule.Prelude.strict_ord x6)+                       x9 <- do x7 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return (Curry.DebugModule.Prelude.Char '9'))+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x7]))+                                  (Curry.DebugModule.Prelude.strict_ord x7)+                       DM.funcCallHook "<="+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                         (Curry.DebugModule.Prelude.op_LtEq x8 x9)+             DM.funcCallHook "&&"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+               (Curry.DebugModule.Prelude.op_AndAnd x10 x11)))+term_strict_isDigit x1 = DI.Term "isDigit" (DI.SrcID "Char" 0) x1+ +strict_isAlphaNum ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+strict_isAlphaNum x1+  = DM.eval+      (DM.funcDeclHook "isAlphaNum"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "isAlpha"+                        (DI.DebugInfo (DI.SrcID "Char" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_isAlpha x2)+             x5 <- do x3 <- Prelude.return x1+                      DM.funcCallHook "isDigit"+                        (DI.DebugInfo (DI.SrcID "Char" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (strict_isDigit x3)+             DM.funcCallHook "||"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (Curry.DebugModule.Prelude.op_OrOr x4 x5)))+term_strict_isAlphaNum x1+  = DI.Term "isAlphaNum" (DI.SrcID "Char" 0) x1+ +strict_isOctDigit ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+strict_isOctDigit x1+  = DM.eval+      (DM.funcDeclHook "isOctDigit"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- do x4 <- do x2 <- Prelude.return x1+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x2]))+                                  (Curry.DebugModule.Prelude.strict_ord x2)+                       x5 <- do x3 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return (Curry.DebugModule.Prelude.Char '0'))+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x3]))+                                  (Curry.DebugModule.Prelude.strict_ord x3)+                       DM.funcCallHook ">="+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                         (Curry.DebugModule.Prelude.op_GtEq x4 x5)+             x11 <- do x8 <- do x6 <- Prelude.return x1+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x6]))+                                  (Curry.DebugModule.Prelude.strict_ord x6)+                       x9 <- do x7 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return (Curry.DebugModule.Prelude.Char '7'))+                                DM.funcCallHook "ord"+                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x7]))+                                  (Curry.DebugModule.Prelude.strict_ord x7)+                       DM.funcCallHook "<="+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                         (Curry.DebugModule.Prelude.op_LtEq x8 x9)+             DM.funcCallHook "&&"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+               (Curry.DebugModule.Prelude.op_AndAnd x10 x11)))+term_strict_isOctDigit x1+  = DI.Term "isOctDigit" (DI.SrcID "Char" 0) x1+ +strict_isHexDigit ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+strict_isHexDigit x1+  = DM.eval+      (DM.funcDeclHook "isHexDigit"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x25 <- do x2 <- Prelude.return x1+                       DM.funcCallHook "isDigit"+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x2]))+                         (strict_isDigit x2)+             x26 <- do x23 <- do x11 <- do x5 <- do x3 <- Prelude.return x1+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Char" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x3]))+                                                      (Curry.DebugModule.Prelude.strict_ord x3)+                                           x6 <- do x4 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Char" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Char 'A'))+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Char" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x4]))+                                                      (Curry.DebugModule.Prelude.strict_ord x4)+                                           DM.funcCallHook ">="+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Curry.DebugModule.Prelude.op_GtEq x5 x6)+                                 x12 <- do x9 <- do x7 <- Prelude.return x1+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Char" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x7]))+                                                      (Curry.DebugModule.Prelude.strict_ord x7)+                                           x10 <- do x8 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   'F'))+                                                     DM.funcCallHook "ord"+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x8]))+                                                       (Curry.DebugModule.Prelude.strict_ord x8)+                                           DM.funcCallHook "<="+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                             (Curry.DebugModule.Prelude.op_LtEq x9 x10)+                                 DM.funcCallHook "&&"+                                   (DI.DebugInfo (DI.SrcID "Char" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                   (Curry.DebugModule.Prelude.op_AndAnd x11 x12)+                       x24 <- do x21 <- do x15 <- do x13 <- Prelude.return x1+                                                     DM.funcCallHook "ord"+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x13]))+                                                       (Curry.DebugModule.Prelude.strict_ord x13)+                                           x16 <- do x14 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    'a'))+                                                     DM.funcCallHook "ord"+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x14]))+                                                       (Curry.DebugModule.Prelude.strict_ord x14)+                                           DM.funcCallHook ">="+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x15, DI.genTerm x16]))+                                             (Curry.DebugModule.Prelude.op_GtEq x15 x16)+                                 x22 <- do x19 <- do x17 <- Prelude.return x1+                                                     DM.funcCallHook "ord"+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x17]))+                                                       (Curry.DebugModule.Prelude.strict_ord x17)+                                           x20 <- do x18 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    'f'))+                                                     DM.funcCallHook "ord"+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x18]))+                                                       (Curry.DebugModule.Prelude.strict_ord x18)+                                           DM.funcCallHook "<="+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x19, DI.genTerm x20]))+                                             (Curry.DebugModule.Prelude.op_LtEq x19 x20)+                                 DM.funcCallHook "&&"+                                   (DI.DebugInfo (DI.SrcID "Char" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22]))+                                   (Curry.DebugModule.Prelude.op_AndAnd x21 x22)+                       DM.funcCallHook "||"+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x23, DI.genTerm x24]))+                         (Curry.DebugModule.Prelude.op_OrOr x23 x24)+             DM.funcCallHook "||"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x25, DI.genTerm x26]))+               (Curry.DebugModule.Prelude.op_OrOr x25 x26)))+term_strict_isHexDigit x1+  = DI.Term "isHexDigit" (DI.SrcID "Char" 0) x1+ +strict_isSpace ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+strict_isSpace x1+  = DM.eval+      (DM.funcDeclHook "isSpace"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x19 <- do x2 <- Prelude.return x1+                       x3 <- DM.litHook+                               (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                               (Prelude.return (Curry.DebugModule.Prelude.Char ' '))+                       DM.funcCallHook "=="+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                         (Curry.DebugModule.Prelude.op_EqEq x2 x3)+             x20 <- do x17 <- do x4 <- Prelude.return x1+                                 x5 <- DM.litHook+                                         (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                         (Prelude.return (Curry.DebugModule.Prelude.Char '\t'))+                                 DM.funcCallHook "=="+                                   (DI.DebugInfo (DI.SrcID "Char" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                   (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                       x18 <- do x15 <- do x6 <- Prelude.return x1+                                           x7 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Char" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char '\n'))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (Curry.DebugModule.Prelude.op_EqEq x6 x7)+                                 x16 <- do x13 <- do x8 <- Prelude.return x1+                                                     x9 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   '\r'))+                                                     DM.funcCallHook "=="+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x8, DI.genTerm x9]))+                                                       (Curry.DebugModule.Prelude.op_EqEq x8 x9)+                                           x14 <- do x11 <- do x10 <- Prelude.return x1+                                                               DM.funcCallHook "ord"+                                                                 (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x10]))+                                                                 (Curry.DebugModule.Prelude.strict_ord+                                                                    x10)+                                                     x12 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Pos+                                                                    (Curry.DebugModule.Prelude.O+                                                                       (Curry.DebugModule.Prelude.O+                                                                          (Curry.DebugModule.Prelude.I+                                                                             Curry.DebugModule.Prelude.IHi)))))+                                                     DM.funcCallHook "=="+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x11, DI.genTerm x12]))+                                                       (Curry.DebugModule.Prelude.op_EqEq x11 x12)+                                           DM.funcCallHook "||"+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x13, DI.genTerm x14]))+                                             (Curry.DebugModule.Prelude.op_OrOr x13 x14)+                                 DM.funcCallHook "||"+                                   (DI.DebugInfo (DI.SrcID "Char" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16]))+                                   (Curry.DebugModule.Prelude.op_OrOr x15 x16)+                       DM.funcCallHook "||"+                         (DI.DebugInfo (DI.SrcID "Char" 0)+                            (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18]))+                         (Curry.DebugModule.Prelude.op_OrOr x17 x18)+             DM.funcCallHook "||"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x19, DI.genTerm x20]))+               (Curry.DebugModule.Prelude.op_OrOr x19 x20)))+term_strict_isSpace x1 = DI.Term "isSpace" (DI.SrcID "Char" 0) x1+ +strict_toUpper ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Char+strict_toUpper x1+  = DM.eval+      (DM.funcDeclHook "toUpper"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "isLower"+                        (DI.DebugInfo (DI.SrcID "Char" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_isLower x2)+             DM.funcCallHook "_case_10"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_10 x3 x4)))+term_strict_toUpper x1 = DI.Term "toUpper" (DI.SrcID "Char" 0) x1+ +strict_toLower ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Char+strict_toLower x1+  = DM.eval+      (DM.funcDeclHook "toLower"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "isUpper"+                        (DI.DebugInfo (DI.SrcID "Char" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_isUpper x2)+             DM.funcCallHook "_case_8"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_8 x3 x4)))+term_strict_toLower x1 = DI.Term "toLower" (DI.SrcID "Char" 0) x1+ +strict_digitToInt ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Int+strict_digitToInt x1+  = DM.eval+      (DM.funcDeclHook "digitToInt"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "isDigit"+                        (DI.DebugInfo (DI.SrcID "Char" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_isDigit x2)+             DM.funcCallHook "_case_6"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_6 x3 x4)))+term_strict_digitToInt x1+  = DI.Term "digitToInt" (DI.SrcID "Char" 0) x1+ +strict_intToDigit ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Char+strict_intToDigit x1+  = DM.eval+      (DM.funcDeclHook "intToDigit"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             x9 <- do x6 <- do x2 <- Prelude.return x1+                               x3 <- DM.litHook+                                       (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                       (Prelude.return Curry.DebugModule.Prelude.Zero)+                               DM.funcCallHook ">="+                                 (DI.DebugInfo (DI.SrcID "Char" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                                 (Curry.DebugModule.Prelude.op_GtEq x2 x3)+                      x7 <- do x4 <- Prelude.return x1+                               x5 <- DM.litHook+                                       (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                       (Prelude.return+                                          (Curry.DebugModule.Prelude.Pos+                                             (Curry.DebugModule.Prelude.I+                                                (Curry.DebugModule.Prelude.O+                                                   (Curry.DebugModule.Prelude.O+                                                      Curry.DebugModule.Prelude.IHi)))))+                               DM.funcCallHook "<="+                                 (DI.DebugInfo (DI.SrcID "Char" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                 (Curry.DebugModule.Prelude.op_LtEq x4 x5)+                      DM.funcCallHook "&&"+                        (DI.DebugInfo (DI.SrcID "Char" 0)+                           (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                        (Curry.DebugModule.Prelude.op_AndAnd x6 x7)+             DM.funcCallHook "_case_2"+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+               (strict__case_2 x8 x9)))+term_strict_intToDigit x1+  = DI.Term "intToDigit" (DI.SrcID "Char" 0) x1+strict__case_2 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x15 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- do x3 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Char" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Char '0'))+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Char" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x3]))+                                                      (Curry.DebugModule.Prelude.strict_ord x3)+                                           x5 <- Prelude.return x1+                                           DM.funcCallHook "+"+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_Plus x4 x5)+                                  DM.funcCallHook "chr"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Curry.DebugModule.Prelude.strict_chr x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x1+                                  x14 <- do x11 <- do x7 <- Prelude.return x1+                                                      x8 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Pos+                                                                    (Curry.DebugModule.Prelude.O+                                                                       (Curry.DebugModule.Prelude.I+                                                                          (Curry.DebugModule.Prelude.O+                                                                             Curry.DebugModule.Prelude.IHi)))))+                                                      DM.funcCallHook ">="+                                                        (DI.DebugInfo (DI.SrcID "Char" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x7, DI.genTerm x8]))+                                                        (Curry.DebugModule.Prelude.op_GtEq x7 x8)+                                            x12 <- do x9 <- Prelude.return x1+                                                      x10 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Pos+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.I+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))+                                                      DM.funcCallHook "<="+                                                        (DI.DebugInfo (DI.SrcID "Char" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Curry.DebugModule.Prelude.op_LtEq x9 x10)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x11 x12)+                                  DM.funcCallHook "_case_1"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14]))+                                    (strict__case_1 x13 x14)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_2 x1)+                           x15)))+term_strict__case_2 x1 = DI.Term "_case_2" (DI.SrcID "Char" 0) x1+strict__case_1 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x10 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x6 <- do x4 <- do x3 <- DM.litHook+                                                                     (DI.DebugInfo+                                                                        (DI.SrcID "Char" 0)+                                                                        (DI.DynamicInfo [] []))+                                                                     (Prelude.return+                                                                        (Curry.DebugModule.Prelude.Char+                                                                           'A'))+                                                             DM.funcCallHook "ord"+                                                               (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x3]))+                                                               (Curry.DebugModule.Prelude.strict_ord+                                                                  x3)+                                                    x5 <- Prelude.return x1+                                                    DM.funcCallHook "+"+                                                      (DI.DebugInfo (DI.SrcID "Char" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x4, DI.genTerm x5]))+                                                      (Curry.DebugModule.Prelude.op_Plus x4 x5)+                                           x7 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Char" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.I+                                                               (Curry.DebugModule.Prelude.O+                                                                  Curry.DebugModule.Prelude.IHi)))))+                                           DM.funcCallHook "-"+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (Curry.DebugModule.Prelude.op_Minus x6 x7)+                                  DM.funcCallHook "chr"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Curry.DebugModule.Prelude.strict_chr x8)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- DM.funcCallHook "otherwise"+                                          (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                          Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_0"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9]))+                                    (strict__case_0 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_1 x1)+                           x10)))+term_strict__case_1 x1 = DI.Term "_case_1" (DI.SrcID "Char" 0) x1+strict__case_0 x1+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x89 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x89]))+               (case x89 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x88 <- do x86 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Char" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char 'C'))+                                            x87 <- do x84 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'h'))+                                                      x85 <- do x82 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Char" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'a'))+                                                                x83 <- do x80 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Char"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'r'))+                                                                          x81 <- do x78 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "Char"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   '.'))+                                                                                    x79 <- do x76 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "Char"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             'i'))+                                                                                              x77 <- do x74 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Char"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       'n'))+                                                                                                        x75 <- do x72 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "Char"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                 't'))+                                                                                                                  x73 <- do x70 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "Char"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                           'T'))+                                                                                                                            x71 <- do x68 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "Char"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                     'o'))+                                                                                                                                      x69 <- do x66 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "Char"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                               'D'))+                                                                                                                                                x67 <- do x64 <- DM.litHook+                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                         "Char"+                                                                                                                                                                         0)+                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                         []+                                                                                                                                                                         []))+                                                                                                                                                                   (Prelude.return+                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                         'i'))+                                                                                                                                                          x65 <- do x62 <- DM.litHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "Char"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                   'g'))+                                                                                                                                                                    x63 <- do x60 <- DM.litHook+                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                             "Char"+                                                                                                                                                                                             0)+                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                             []+                                                                                                                                                                                             []))+                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                             'i'))+                                                                                                                                                                              x61 <- do x58 <- DM.litHook+                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                       "Char"+                                                                                                                                                                                                       0)+                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                       []+                                                                                                                                                                                                       []))+                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                       't'))+                                                                                                                                                                                        x59 <- do x56 <- DM.litHook+                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                 "Char"+                                                                                                                                                                                                                 0)+                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                 []+                                                                                                                                                                                                                 []))+                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                 ':'))+                                                                                                                                                                                                  x57 <- do x54 <- DM.litHook+                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                           "Char"+                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                           []+                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                           ' '))+                                                                                                                                                                                                            x55 <- do x52 <- DM.litHook+                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                     "Char"+                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                     'a'))+                                                                                                                                                                                                                      x53 <- do x50 <- DM.litHook+                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                               "Char"+                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                               'r'))+                                                                                                                                                                                                                                x51 <- do x48 <- DM.litHook+                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                         "Char"+                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                         'g'))+                                                                                                                                                                                                                                          x49 <- do x46 <- DM.litHook+                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                   "Char"+                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                   'u'))+                                                                                                                                                                                                                                                    x47 <- do x44 <- DM.litHook+                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                             "Char"+                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                             'm'))+                                                                                                                                                                                                                                                              x45 <- do x42 <- DM.litHook+                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                       "Char"+                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                       'e'))+                                                                                                                                                                                                                                                                        x43 <- do x40 <- DM.litHook+                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                 "Char"+                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                 'n'))+                                                                                                                                                                                                                                                                                  x41 <- do x38 <- DM.litHook+                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                           "Char"+                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                           't'))+                                                                                                                                                                                                                                                                                            x39 <- do x36 <- DM.litHook+                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                     "Char"+                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                     ' '))+                                                                                                                                                                                                                                                                                                      x37 <- do x34 <- DM.litHook+                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                               "Char"+                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                               'n'))+                                                                                                                                                                                                                                                                                                                x35 <- do x32 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                         "Char"+                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                         'o'))+                                                                                                                                                                                                                                                                                                                          x33 <- do x30 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                   "Char"+                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                   't'))+                                                                                                                                                                                                                                                                                                                                    x31 <- do x28 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                             "Char"+                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                             ' '))+                                                                                                                                                                                                                                                                                                                                              x29 <- do x26 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                       "Char"+                                                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                       'a'))+                                                                                                                                                                                                                                                                                                                                                        x27 <- do x24 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                 "Char"+                                                                                                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                 ' '))+                                                                                                                                                                                                                                                                                                                                                                  x25 <- do x22 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                           "Char"+                                                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                           'd'))+                                                                                                                                                                                                                                                                                                                                                                            x23 <- do x20 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                     "Char"+                                                                                                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                     'i'))+                                                                                                                                                                                                                                                                                                                                                                                      x21 <- do x18 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                               "Char"+                                                                                                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                               'g'))+                                                                                                                                                                                                                                                                                                                                                                                                x19 <- do x16 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                         "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                         'i'))+                                                                                                                                                                                                                                                                                                                                                                                                          x17 <- do x14 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                   "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                   't'))+                                                                                                                                                                                                                                                                                                                                                                                                                    x15 <- do x12 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                             "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                             ' '))+                                                                                                                                                                                                                                                                                                                                                                                                                              x13 <- do x10 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                       "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                       'v'))+                                                                                                                                                                                                                                                                                                                                                                                                                                        x11 <- do x8 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                                'a'))+                                                                                                                                                                                                                                                                                                                                                                                                                                                  x9 <- do x6 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         'l'))+                                                                                                                                                                                                                                                                                                                                                                                                                                                           x7 <- do x4 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  'u'))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                    x5 <- do x2 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           'e'))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                             x3 <- DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        x2,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        x3]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     x2+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     x3))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                               x4,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                               x5]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            x4+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            x5))+                                                                                                                                                                                                                                                                                                                                                                                                                                                           DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      x6,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                    DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      x7]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   x6+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   x7))+                                                                                                                                                                                                                                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                          "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                             x8,+                                                                                                                                                                                                                                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                             x9]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                          x8+                                                                                                                                                                                                                                                                                                                                                                                                                                                          x9))+                                                                                                                                                                                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                   x10,+                                                                                                                                                                                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                   x11]))+                                                                                                                                                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                x10+                                                                                                                                                                                                                                                                                                                                                                                                                                                x11))+                                                                                                                                                                                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                      "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                         x12,+                                                                                                                                                                                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                         x13]))+                                                                                                                                                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                      x12+                                                                                                                                                                                                                                                                                                                                                                                                                                      x13))+                                                                                                                                                                                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                            "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                               x14,+                                                                                                                                                                                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                               x15]))+                                                                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                            x14+                                                                                                                                                                                                                                                                                                                                                                                                                            x15))+                                                                                                                                                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                  "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                     x16,+                                                                                                                                                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                     x17]))+                                                                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                  x16+                                                                                                                                                                                                                                                                                                                                                                                                                  x17))+                                                                                                                                                                                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                        "Char"+                                                                                                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                           x18,+                                                                                                                                                                                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                           x19]))+                                                                                                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                        x18+                                                                                                                                                                                                                                                                                                                                                                                                        x19))+                                                                                                                                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                              "Char"+                                                                                                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                 x20,+                                                                                                                                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                 x21]))+                                                                                                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                              x20+                                                                                                                                                                                                                                                                                                                                                                                              x21))+                                                                                                                                                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                    "Char"+                                                                                                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                       x22,+                                                                                                                                                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                       x23]))+                                                                                                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                    x22+                                                                                                                                                                                                                                                                                                                                                                                    x23))+                                                                                                                                                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                          "Char"+                                                                                                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                             x24,+                                                                                                                                                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                             x25]))+                                                                                                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                          x24+                                                                                                                                                                                                                                                                                                                                                                          x25))+                                                                                                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                "Char"+                                                                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                   x26,+                                                                                                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                   x27]))+                                                                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                x26+                                                                                                                                                                                                                                                                                                                                                                x27))+                                                                                                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                      "Char"+                                                                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                         x28,+                                                                                                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                                                                                                         x29]))+                                                                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                      x28+                                                                                                                                                                                                                                                                                                                                                      x29))+                                                                                                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                            "Char"+                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                                                                                                               x30,+                                                                                                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                                                                                                               x31]))+                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                            x30+                                                                                                                                                                                                                                                                                                                                            x31))+                                                                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                  "Char"+                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                                                                     x32,+                                                                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                                                                     x33]))+                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                  x32+                                                                                                                                                                                                                                                                                                                                  x33))+                                                                                                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                        "Char"+                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                                                                                                           x34,+                                                                                                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                                                                                                           x35]))+                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                        x34+                                                                                                                                                                                                                                                                                                                        x35))+                                                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                              "Char"+                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                                                 x36,+                                                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                                                 x37]))+                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                              x36+                                                                                                                                                                                                                                                                                                              x37))+                                                                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                    "Char"+                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                                                                       x38,+                                                                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                                                                       x39]))+                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                    x38+                                                                                                                                                                                                                                                                                                    x39))+                                                                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                          "Char"+                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                                                                             x40,+                                                                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                                                                             x41]))+                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                          x40+                                                                                                                                                                                                                                                                                          x41))+                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                "Char"+                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                   x42,+                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                   x43]))+                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                x42+                                                                                                                                                                                                                                                                                x43))+                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                      "Char"+                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                         x44,+                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                         x45]))+                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                      x44+                                                                                                                                                                                                                                                                      x45))+                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                            "Char"+                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                               x46,+                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                               x47]))+                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                            x46+                                                                                                                                                                                                                                                            x47))+                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                  "Char"+                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                     x48,+                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                     x49]))+                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                  x48+                                                                                                                                                                                                                                                  x49))+                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                        "Char"+                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                           x50,+                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                           x51]))+                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                        x50+                                                                                                                                                                                                                                        x51))+                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                              "Char"+                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                              []+                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                 x52,+                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                 x53]))+                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                              x52+                                                                                                                                                                                                                              x53))+                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                    "Char"+                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                    []+                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                       x54,+                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                       x55]))+                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                    x54+                                                                                                                                                                                                                    x55))+                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                          "Char"+                                                                                                                                                                                                          0)+                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                          []+                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                             x56,+                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                             x57]))+                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                          x56+                                                                                                                                                                                                          x57))+                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                "Char"+                                                                                                                                                                                                0)+                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                []+                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                   x58,+                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                   x59]))+                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                x58+                                                                                                                                                                                                x59))+                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                      "Char"+                                                                                                                                                                                      0)+                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                      []+                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                         x60,+                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                         x61]))+                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                      x60+                                                                                                                                                                                      x61))+                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "Char"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                               x62,+                                                                                                                                                                             DI.genTerm+                                                                                                                                                                               x63]))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                            x62+                                                                                                                                                                            x63))+                                                                                                                                                          DM.constructorHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "Char"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                     x64,+                                                                                                                                                                   DI.genTerm+                                                                                                                                                                     x65]))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                  x64+                                                                                                                                                                  x65))+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "Char"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x66,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x67]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                        x66+                                                                                                                                                        x67))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "Char"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x68,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x69]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x68+                                                                                                                                              x69))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "Char"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x70,+                                                                                                                                     DI.genTerm+                                                                                                                                       x71]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                    x70+                                                                                                                                    x71))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "Char"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x72,+                                                                                                                           DI.genTerm+                                                                                                                             x73]))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                          x72+                                                                                                                          x73))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "Char"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x74,+                                                                                                                 DI.genTerm+                                                                                                                   x75]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x74+                                                                                                                x75))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "Char"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x76,+                                                                                                       DI.genTerm+                                                                                                         x77]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x76+                                                                                                      x77))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Char"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x78,+                                                                                             DI.genTerm+                                                                                               x79]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x78+                                                                                            x79))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Char" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x80,+                                                                                   DI.genTerm x81]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x80+                                                                                  x81))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x82,+                                                                         DI.genTerm x83]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x82+                                                                        x83))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Char" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x84, DI.genTerm x85]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x84 x85))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x86, DI.genTerm x87]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x86 x87))+                                  DM.funcCallHook "error"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x88]))+                                    (Curry.DebugModule.Prelude.strict_error x88)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x89])))+                           strict__case_0+                           x89)))+term_strict__case_0 x1 = DI.Term "_case_0" (DI.SrcID "Char" 0) x1+strict__case_6 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x19 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- do x3 <- Prelude.return x1+                                           DM.funcCallHook "ord"+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x3]))+                                             (Curry.DebugModule.Prelude.strict_ord x3)+                                  x6 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Char" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char '0'))+                                           DM.funcCallHook "ord"+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.strict_ord x4)+                                  DM.funcCallHook "-"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Curry.DebugModule.Prelude.op_Minus x5 x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- Prelude.return x1+                                  x18 <- do x15 <- do x9 <- do x7 <- Prelude.return x1+                                                               DM.funcCallHook "ord"+                                                                 (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x7]))+                                                                 (Curry.DebugModule.Prelude.strict_ord+                                                                    x7)+                                                      x10 <- do x8 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "Char" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Char+                                                                              'A'))+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x8]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x8)+                                                      DM.funcCallHook ">="+                                                        (DI.DebugInfo (DI.SrcID "Char" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Curry.DebugModule.Prelude.op_GtEq x9 x10)+                                            x16 <- do x13 <- do x11 <- Prelude.return x1+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x11)+                                                      x14 <- do x12 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Char" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'F'))+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x12)+                                                      DM.funcCallHook "<="+                                                        (DI.DebugInfo (DI.SrcID "Char" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Curry.DebugModule.Prelude.op_LtEq x13 x14)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x15 x16)+                                  DM.funcCallHook "_case_5"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18]))+                                    (strict__case_5 x17 x18)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           (strict__case_6 x1)+                           x19)))+term_strict__case_6 x1 = DI.Term "_case_6" (DI.SrcID "Char" 0) x1+strict__case_5 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x21 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x5 <- do x3 <- Prelude.return x1+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Char" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x3]))+                                                      (Curry.DebugModule.Prelude.strict_ord x3)+                                           x6 <- do x4 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Char" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Char 'A'))+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Char" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x4]))+                                                      (Curry.DebugModule.Prelude.strict_ord x4)+                                           DM.funcCallHook "-"+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Curry.DebugModule.Prelude.op_Minus x5 x6)+                                  x8 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return+                                             (Curry.DebugModule.Prelude.Pos+                                                (Curry.DebugModule.Prelude.O+                                                   (Curry.DebugModule.Prelude.I+                                                      (Curry.DebugModule.Prelude.O+                                                         Curry.DebugModule.Prelude.IHi)))))+                                  DM.funcCallHook "+"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Curry.DebugModule.Prelude.op_Plus x7 x8)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x19 <- Prelude.return x1+                                  x20 <- do x17 <- do x11 <- do x9 <- Prelude.return x1+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x9]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x9)+                                                      x12 <- do x10 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Char" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'a'))+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x10]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x10)+                                                      DM.funcCallHook ">="+                                                        (DI.DebugInfo (DI.SrcID "Char" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x11, DI.genTerm x12]))+                                                        (Curry.DebugModule.Prelude.op_GtEq x11 x12)+                                            x18 <- do x15 <- do x13 <- Prelude.return x1+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x13]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x13)+                                                      x16 <- do x14 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Char" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'f'))+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x14]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x14)+                                                      DM.funcCallHook "<="+                                                        (DI.DebugInfo (DI.SrcID "Char" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x15, DI.genTerm x16]))+                                                        (Curry.DebugModule.Prelude.op_LtEq x15 x16)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x17, DI.genTerm x18]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x17 x18)+                                  DM.funcCallHook "_case_4"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x19, DI.genTerm x20]))+                                    (strict__case_4 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_5 x1)+                           x21)))+term_strict__case_5 x1 = DI.Term "_case_5" (DI.SrcID "Char" 0) x1+strict__case_4 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x10 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x5 <- do x3 <- Prelude.return x1+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Char" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x3]))+                                                      (Curry.DebugModule.Prelude.strict_ord x3)+                                           x6 <- do x4 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Char" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Char 'a'))+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Char" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x4]))+                                                      (Curry.DebugModule.Prelude.strict_ord x4)+                                           DM.funcCallHook "-"+                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Curry.DebugModule.Prelude.op_Minus x5 x6)+                                  x8 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return+                                             (Curry.DebugModule.Prelude.Pos+                                                (Curry.DebugModule.Prelude.O+                                                   (Curry.DebugModule.Prelude.I+                                                      (Curry.DebugModule.Prelude.O+                                                         Curry.DebugModule.Prelude.IHi)))))+                                  DM.funcCallHook "+"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Curry.DebugModule.Prelude.op_Plus x7 x8)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- DM.funcCallHook "otherwise"+                                          (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                          Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_3"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9]))+                                    (strict__case_3 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_4 x1)+                           x10)))+term_strict__case_4 x1 = DI.Term "_case_4" (DI.SrcID "Char" 0) x1+strict__case_3 x1+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x83 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x83]))+               (case x83 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x82 <- do x80 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Char" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char 'C'))+                                            x81 <- do x78 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'h'))+                                                      x79 <- do x76 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Char" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'a'))+                                                                x77 <- do x74 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Char"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'r'))+                                                                          x75 <- do x72 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "Char"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   '.'))+                                                                                    x73 <- do x70 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "Char"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             'd'))+                                                                                              x71 <- do x68 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Char"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       'i'))+                                                                                                        x69 <- do x66 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "Char"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                 'g'))+                                                                                                                  x67 <- do x64 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "Char"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                           'i'))+                                                                                                                            x65 <- do x62 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "Char"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                     't'))+                                                                                                                                      x63 <- do x60 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "Char"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                               'T'))+                                                                                                                                                x61 <- do x58 <- DM.litHook+                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                         "Char"+                                                                                                                                                                         0)+                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                         []+                                                                                                                                                                         []))+                                                                                                                                                                   (Prelude.return+                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                         'o'))+                                                                                                                                                          x59 <- do x56 <- DM.litHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "Char"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                   'I'))+                                                                                                                                                                    x57 <- do x54 <- DM.litHook+                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                             "Char"+                                                                                                                                                                                             0)+                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                             []+                                                                                                                                                                                             []))+                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                             'n'))+                                                                                                                                                                              x55 <- do x52 <- DM.litHook+                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                       "Char"+                                                                                                                                                                                                       0)+                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                       []+                                                                                                                                                                                                       []))+                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                       't'))+                                                                                                                                                                                        x53 <- do x50 <- DM.litHook+                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                 "Char"+                                                                                                                                                                                                                 0)+                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                 []+                                                                                                                                                                                                                 []))+                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                 ':'))+                                                                                                                                                                                                  x51 <- do x48 <- DM.litHook+                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                           "Char"+                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                           []+                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                           ' '))+                                                                                                                                                                                                            x49 <- do x46 <- DM.litHook+                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                     "Char"+                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                     'a'))+                                                                                                                                                                                                                      x47 <- do x44 <- DM.litHook+                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                               "Char"+                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                               'r'))+                                                                                                                                                                                                                                x45 <- do x42 <- DM.litHook+                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                         "Char"+                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                         'g'))+                                                                                                                                                                                                                                          x43 <- do x40 <- DM.litHook+                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                   "Char"+                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                   'u'))+                                                                                                                                                                                                                                                    x41 <- do x38 <- DM.litHook+                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                             "Char"+                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                             'm'))+                                                                                                                                                                                                                                                              x39 <- do x36 <- DM.litHook+                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                       "Char"+                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                       'e'))+                                                                                                                                                                                                                                                                        x37 <- do x34 <- DM.litHook+                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                 "Char"+                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                 'n'))+                                                                                                                                                                                                                                                                                  x35 <- do x32 <- DM.litHook+                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                           "Char"+                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                           't'))+                                                                                                                                                                                                                                                                                            x33 <- do x30 <- DM.litHook+                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                     "Char"+                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                     ' '))+                                                                                                                                                                                                                                                                                                      x31 <- do x28 <- DM.litHook+                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                               "Char"+                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                               'i'))+                                                                                                                                                                                                                                                                                                                x29 <- do x26 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                         "Char"+                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                         's'))+                                                                                                                                                                                                                                                                                                                          x27 <- do x24 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                   "Char"+                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                   ' '))+                                                                                                                                                                                                                                                                                                                                    x25 <- do x22 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                             "Char"+                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                             'n'))+                                                                                                                                                                                                                                                                                                                                              x23 <- do x20 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                       "Char"+                                                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                       'o'))+                                                                                                                                                                                                                                                                                                                                                        x21 <- do x18 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                 "Char"+                                                                                                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                 't'))+                                                                                                                                                                                                                                                                                                                                                                  x19 <- do x16 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                           "Char"+                                                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                           ' '))+                                                                                                                                                                                                                                                                                                                                                                            x17 <- do x14 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                     "Char"+                                                                                                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                     'a'))+                                                                                                                                                                                                                                                                                                                                                                                      x15 <- do x12 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                               "Char"+                                                                                                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                               ' '))+                                                                                                                                                                                                                                                                                                                                                                                                x13 <- do x10 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                         "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                         'd'))+                                                                                                                                                                                                                                                                                                                                                                                                          x11 <- do x8 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                  "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                                                                                  []))+                                                                                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                  'i'))+                                                                                                                                                                                                                                                                                                                                                                                                                    x9 <- do x6 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                           "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                           'g'))+                                                                                                                                                                                                                                                                                                                                                                                                                             x7 <- do x4 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                    "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                    'i'))+                                                                                                                                                                                                                                                                                                                                                                                                                                      x5 <- do x2 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                             "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                             't'))+                                                                                                                                                                                                                                                                                                                                                                                                                                               x3 <- DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                             "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                          Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                                                                                                                                                                                                               DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                       "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                          x2,+                                                                                                                                                                                                                                                                                                                                                                                                                                                        DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                          x3]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                       x2+                                                                                                                                                                                                                                                                                                                                                                                                                                                       x3))+                                                                                                                                                                                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                              "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                 x4,+                                                                                                                                                                                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                 x5]))+                                                                                                                                                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                              x4+                                                                                                                                                                                                                                                                                                                                                                                                                                              x5))+                                                                                                                                                                                                                                                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                     "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                        x6,+                                                                                                                                                                                                                                                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                        x7]))+                                                                                                                                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                     x6+                                                                                                                                                                                                                                                                                                                                                                                                                                     x7))+                                                                                                                                                                                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                            "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                               x8,+                                                                                                                                                                                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                               x9]))+                                                                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                            x8+                                                                                                                                                                                                                                                                                                                                                                                                                            x9))+                                                                                                                                                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                  "Char"+                                                                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                     x10,+                                                                                                                                                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                     x11]))+                                                                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                  x10+                                                                                                                                                                                                                                                                                                                                                                                                                  x11))+                                                                                                                                                                                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                        "Char"+                                                                                                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                           x12,+                                                                                                                                                                                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                           x13]))+                                                                                                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                        x12+                                                                                                                                                                                                                                                                                                                                                                                                        x13))+                                                                                                                                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                              "Char"+                                                                                                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                 x14,+                                                                                                                                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                 x15]))+                                                                                                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                              x14+                                                                                                                                                                                                                                                                                                                                                                                              x15))+                                                                                                                                                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                    "Char"+                                                                                                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                       x16,+                                                                                                                                                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                       x17]))+                                                                                                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                    x16+                                                                                                                                                                                                                                                                                                                                                                                    x17))+                                                                                                                                                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                          "Char"+                                                                                                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                             x18,+                                                                                                                                                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                             x19]))+                                                                                                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                          x18+                                                                                                                                                                                                                                                                                                                                                                          x19))+                                                                                                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                "Char"+                                                                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                   x20,+                                                                                                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                   x21]))+                                                                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                x20+                                                                                                                                                                                                                                                                                                                                                                x21))+                                                                                                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                      "Char"+                                                                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                         x22,+                                                                                                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                                                                                                         x23]))+                                                                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                      x22+                                                                                                                                                                                                                                                                                                                                                      x23))+                                                                                                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                            "Char"+                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                                                                                                               x24,+                                                                                                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                                                                                                               x25]))+                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                            x24+                                                                                                                                                                                                                                                                                                                                            x25))+                                                                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                  "Char"+                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                                                                     x26,+                                                                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                                                                     x27]))+                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                  x26+                                                                                                                                                                                                                                                                                                                                  x27))+                                                                                                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                        "Char"+                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                                                                                                           x28,+                                                                                                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                                                                                                           x29]))+                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                        x28+                                                                                                                                                                                                                                                                                                                        x29))+                                                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                              "Char"+                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                                                 x30,+                                                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                                                 x31]))+                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                              x30+                                                                                                                                                                                                                                                                                                              x31))+                                                                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                    "Char"+                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                                                                       x32,+                                                                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                                                                       x33]))+                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                    x32+                                                                                                                                                                                                                                                                                                    x33))+                                                                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                          "Char"+                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                                                                             x34,+                                                                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                                                                             x35]))+                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                          x34+                                                                                                                                                                                                                                                                                          x35))+                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                "Char"+                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                   x36,+                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                   x37]))+                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                x36+                                                                                                                                                                                                                                                                                x37))+                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                      "Char"+                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                         x38,+                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                         x39]))+                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                      x38+                                                                                                                                                                                                                                                                      x39))+                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                            "Char"+                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                               x40,+                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                               x41]))+                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                            x40+                                                                                                                                                                                                                                                            x41))+                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                  "Char"+                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                     x42,+                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                     x43]))+                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                  x42+                                                                                                                                                                                                                                                  x43))+                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                        "Char"+                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                           x44,+                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                           x45]))+                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                        x44+                                                                                                                                                                                                                                        x45))+                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                              "Char"+                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                              []+                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                 x46,+                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                 x47]))+                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                              x46+                                                                                                                                                                                                                              x47))+                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                    "Char"+                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                    []+                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                       x48,+                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                       x49]))+                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                    x48+                                                                                                                                                                                                                    x49))+                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                          "Char"+                                                                                                                                                                                                          0)+                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                          []+                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                             x50,+                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                             x51]))+                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                          x50+                                                                                                                                                                                                          x51))+                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                "Char"+                                                                                                                                                                                                0)+                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                []+                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                   x52,+                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                   x53]))+                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                x52+                                                                                                                                                                                                x53))+                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                      "Char"+                                                                                                                                                                                      0)+                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                      []+                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                         x54,+                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                         x55]))+                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                      x54+                                                                                                                                                                                      x55))+                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "Char"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                               x56,+                                                                                                                                                                             DI.genTerm+                                                                                                                                                                               x57]))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                            x56+                                                                                                                                                                            x57))+                                                                                                                                                          DM.constructorHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "Char"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                     x58,+                                                                                                                                                                   DI.genTerm+                                                                                                                                                                     x59]))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                  x58+                                                                                                                                                                  x59))+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "Char"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x60,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x61]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                        x60+                                                                                                                                                        x61))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "Char"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x62,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x63]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x62+                                                                                                                                              x63))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "Char"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x64,+                                                                                                                                     DI.genTerm+                                                                                                                                       x65]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                    x64+                                                                                                                                    x65))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "Char"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x66,+                                                                                                                           DI.genTerm+                                                                                                                             x67]))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                          x66+                                                                                                                          x67))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "Char"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x68,+                                                                                                                 DI.genTerm+                                                                                                                   x69]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x68+                                                                                                                x69))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "Char"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x70,+                                                                                                       DI.genTerm+                                                                                                         x71]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x70+                                                                                                      x71))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Char"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x72,+                                                                                             DI.genTerm+                                                                                               x73]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x72+                                                                                            x73))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Char" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x74,+                                                                                   DI.genTerm x75]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x74+                                                                                  x75))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x76,+                                                                         DI.genTerm x77]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x76+                                                                        x77))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Char" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x78, DI.genTerm x79]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x78 x79))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x80, DI.genTerm x81]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x80 x81))+                                  DM.funcCallHook "error"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x82]))+                                    (Curry.DebugModule.Prelude.strict_error x82)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x83])))+                           strict__case_3+                           x83)))+term_strict__case_3 x1 = DI.Term "_case_3" (DI.SrcID "Char" 0) x1+strict__case_8 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x8 <- do x5 <- do x3 <- Prelude.return x1+                                                              DM.funcCallHook "ord"+                                                                (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x3]))+                                                                (Curry.DebugModule.Prelude.strict_ord+                                                                   x3)+                                                     x6 <- do x4 <- DM.litHook+                                                                      (DI.DebugInfo+                                                                         (DI.SrcID "Char" 0)+                                                                         (DI.DynamicInfo [] []))+                                                                      (Prelude.return+                                                                         (Curry.DebugModule.Prelude.Char+                                                                            'A'))+                                                              DM.funcCallHook "ord"+                                                                (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x4]))+                                                                (Curry.DebugModule.Prelude.strict_ord+                                                                   x4)+                                                     DM.funcCallHook "-"+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x5, DI.genTerm x6]))+                                                       (Curry.DebugModule.Prelude.op_Minus x5 x6)+                                            x9 <- do x7 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   'a'))+                                                     DM.funcCallHook "ord"+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x7]))+                                                       (Curry.DebugModule.Prelude.strict_ord x7)+                                            DM.funcCallHook "+"+                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.op_Plus x8 x9)+                                  DM.funcCallHook "chr"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10]))+                                    (Curry.DebugModule.Prelude.strict_chr x10)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x1+                                  x12 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_7"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_7 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_8 x1)+                           x13)))+term_strict__case_8 x1 = DI.Term "_case_8" (DI.SrcID "Char" 0) x1+strict__case_7 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (case x3 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x3])))+                           (strict__case_7 x1)+                           x3)))+term_strict__case_7 x1 = DI.Term "_case_7" (DI.SrcID "Char" 0) x1+strict__case_10 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_10"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x8 <- do x5 <- do x3 <- Prelude.return x1+                                                              DM.funcCallHook "ord"+                                                                (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x3]))+                                                                (Curry.DebugModule.Prelude.strict_ord+                                                                   x3)+                                                     x6 <- do x4 <- DM.litHook+                                                                      (DI.DebugInfo+                                                                         (DI.SrcID "Char" 0)+                                                                         (DI.DynamicInfo [] []))+                                                                      (Prelude.return+                                                                         (Curry.DebugModule.Prelude.Char+                                                                            'a'))+                                                              DM.funcCallHook "ord"+                                                                (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x4]))+                                                                (Curry.DebugModule.Prelude.strict_ord+                                                                   x4)+                                                     DM.funcCallHook "-"+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x5, DI.genTerm x6]))+                                                       (Curry.DebugModule.Prelude.op_Minus x5 x6)+                                            x9 <- do x7 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "Char" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   'A'))+                                                     DM.funcCallHook "ord"+                                                       (DI.DebugInfo (DI.SrcID "Char" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x7]))+                                                       (Curry.DebugModule.Prelude.strict_ord x7)+                                            DM.funcCallHook "+"+                                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.op_Plus x8 x9)+                                  DM.funcCallHook "chr"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10]))+                                    (Curry.DebugModule.Prelude.strict_chr x10)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x1+                                  x12 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_9"+                                    (DI.DebugInfo (DI.SrcID "Char" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_9 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_10 x1)+                           x13)))+term_strict__case_10 x1 = DI.Term "_case_10" (DI.SrcID "Char" 0) x1+strict__case_9 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_9"+         (DI.DebugInfo (DI.SrcID "Char" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Char" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (case x3 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Char" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Char" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x3])))+                           (strict__case_9 x1)+                           x3)))+term_strict__case_9 x1 = DI.Term "_case_9" (DI.SrcID "Char" 0) x1
+ dist/build/Curry/DebugModule/Dequeue.hs view
@@ -0,0 +1,1631 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Dequeue where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Prelude+ +instance (DI.GenTerm a) => DI.GenTerm (Queue a) where+        genTerm (S x1 x2 x3 x4)+          = DI.Term "S" (DI.SrcID "Dequeue" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]+        genTerm x1 = DM.genericTerm (DI.SrcID "Dequeue" 0) x1+ +data Queue a = QueueFail+             | QueueOr DM.OrRef [Queue a]+             | QueueUnderscore+             | S Curry.DebugModule.Prelude.Int+                 (Curry.DebugModule.Prelude.List a) Curry.DebugModule.Prelude.Int+                 (Curry.DebugModule.Prelude.List a)+             deriving (Data.Generics.Typeable, Data.Generics.Data)+ +strict_empty :: (DM.DM dm, DI.GenTerm a) => dm (Queue a)+strict_empty+  = DM.eval+      (DM.funcDeclHook "empty"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Zero)+             x1 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Nil)+             x2 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Zero)+             x3 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Nil)+             DM.constructorHook+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x0, DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+               (Prelude.return (S x0 x1 x2 x3))))+ +strict_isEmpty ::+               (DM.DM dm, DI.GenTerm a) =>+                 Queue a -> dm Curry.DebugModule.Prelude.Bool+strict_isEmpty x1+  = DM.eval+      (DM.funcDeclHook "isEmpty"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_25"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_25 x2)))+term_strict_isEmpty x1+  = DI.Term "isEmpty" (DI.SrcID "Dequeue" 0) x1+ +strict_deqHead :: (DM.DM dm, DI.GenTerm a) => Queue a -> dm a+strict_deqHead x1+  = DM.eval+      (DM.funcDeclHook "deqHead"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_24"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_24 x2)))+term_strict_deqHead x1+  = DI.Term "deqHead" (DI.SrcID "Dequeue" 0) x1+ +strict_deqLast :: (DM.DM dm, DI.GenTerm a) => Queue a -> dm a+strict_deqLast x1+  = DM.eval+      (DM.funcDeclHook "deqLast"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_22"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_22 x2)))+term_strict_deqLast x1+  = DI.Term "deqLast" (DI.SrcID "Dequeue" 0) x1+ +strict_cons ::+            (DM.DM dm, DI.GenTerm a) => a -> Queue a -> dm (Queue a)+strict_cons x1 x2+  = DM.eval+      (DM.funcDeclHook "cons"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_20"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_20 x3 x4)))+term_strict_cons x1 = DI.Term "cons" (DI.SrcID "Dequeue" 0) x1+ +strict_deqTail ::+               (DM.DM dm, DI.GenTerm a) => Queue a -> dm (Queue a)+strict_deqTail x1+  = DM.eval+      (DM.funcDeclHook "deqTail"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_19"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_19 x2)))+term_strict_deqTail x1+  = DI.Term "deqTail" (DI.SrcID "Dequeue" 0) x1+ +strict_snoc ::+            (DM.DM dm, DI.GenTerm a) => a -> Queue a -> dm (Queue a)+strict_snoc x1 x2+  = DM.eval+      (DM.funcDeclHook "snoc"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_17"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_17 x3 x4)))+term_strict_snoc x1 = DI.Term "snoc" (DI.SrcID "Dequeue" 0) x1+ +strict_deqInit ::+               (DM.DM dm, DI.GenTerm a) => Queue a -> dm (Queue a)+strict_deqInit x1+  = DM.eval+      (DM.funcDeclHook "deqInit"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_16"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_16 x2)))+term_strict_deqInit x1+  = DI.Term "deqInit" (DI.SrcID "Dequeue" 0) x1+ +strict_deqReverse ::+                  (DM.DM dm, DI.GenTerm a) => Queue a -> dm (Queue a)+strict_deqReverse x1+  = DM.eval+      (DM.funcDeclHook "deqReverse"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_14"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_14 x2)))+term_strict_deqReverse x1+  = DI.Term "deqReverse" (DI.SrcID "Dequeue" 0) x1+ +strict_check ::+             (DM.DM dm, DI.GenTerm a) =>+               Curry.DebugModule.Prelude.Int ->+                 Curry.DebugModule.Prelude.List a ->+                   Curry.DebugModule.Prelude.Int ->+                     Curry.DebugModule.Prelude.List a -> dm (Queue a)+strict_check x1 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "check"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (DM.letHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x5 <- do x12 <- Prelude.return x1+                         x13 <- Prelude.return x3+                         DM.funcCallHook "+"+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                              (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                           (Curry.DebugModule.Prelude.op_Plus x12 x13)+                DM.eval+                  (DM.letHook+                     (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                     (do x6 <- do x14 <- Prelude.return x5+                                  x15 <- DM.litHook+                                           (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                              (DI.DynamicInfo [] []))+                                           (Prelude.return+                                              (Curry.DebugModule.Prelude.Pos+                                                 (Curry.DebugModule.Prelude.O+                                                    Curry.DebugModule.Prelude.IHi)))+                                  DM.funcCallHook "div"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (Curry.DebugModule.Prelude.strict_div x14 x15)+                         DM.eval+                           (DM.letHook+                              (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                              (do x7 <- do x16 <- Prelude.return x5+                                           x17 <- Prelude.return x6+                                           DM.funcCallHook "-"+                                             (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x16, DI.genTerm x17]))+                                             (Curry.DebugModule.Prelude.op_Minus x16 x17)+                                  DM.eval+                                    (DM.letHook+                                       (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                          (DI.DynamicInfo [] []))+                                       (do x8 <- do x18 <- Prelude.return x6+                                                    x19 <- Prelude.return x2+                                                    DM.funcCallHook "splitAt"+                                                      (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x18, DI.genTerm x19]))+                                                      (Curry.DebugModule.Prelude.strict_splitAt x18+                                                         x19)+                                           DM.eval+                                             (DM.letHook+                                                (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                   (DI.DynamicInfo [] []))+                                                (do x9 <- do x20 <- Prelude.return x8+                                                             DM.funcCallHook "check._#selFP3#f'"+                                                               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x20]))+                                                               (x'xstrict_check46_35selFP335f' x20)+                                                    DM.eval+                                                      (DM.letHook+                                                         (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                            (DI.DynamicInfo [] []))+                                                         (do x10 <- do x21 <- Prelude.return x8+                                                                       DM.funcCallHook+                                                                         "check._#selFP4#rf'"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Dequeue" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x21]))+                                                                         (x'xstrict_check46_35selFP435rf'+                                                                            x21)+                                                             DM.eval+                                                               (DM.letHook+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "DummyModule" 42)+                                                                     (DI.DynamicInfo [] []))+                                                                  (do x11 <- do x24 <- Prelude.return+                                                                                         x4+                                                                                x25 <- do x22 <- DM.funcCallHook+                                                                                                   "reverse"+                                                                                                   (DI.DebugInfo+                                                                                                      (DI.SrcID+                                                                                                         "Dequeue"+                                                                                                         0)+                                                                                                      (DI.DynamicInfo+                                                                                                         []+                                                                                                         []))+                                                                                                   Curry.DebugModule.Prelude.strict_reverse+                                                                                          x23 <- Prelude.return+                                                                                                   x10+                                                                                          DM.funcCallHook+                                                                                            "apply"+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "Dequeue"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  [DI.genTerm+                                                                                                     x22,+                                                                                                   DI.genTerm+                                                                                                     x23]))+                                                                                            (Curry.DebugModule.Prelude.strict_apply+                                                                                               x22+                                                                                               x23)+                                                                                DM.funcCallHook "++"+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID+                                                                                        "Dequeue"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        [DI.genTerm+                                                                                           x24,+                                                                                         DI.genTerm+                                                                                           x25]))+                                                                                  (Curry.DebugModule.Prelude.op_PlusPlus+                                                                                     x24+                                                                                     x25)+                                                                      DM.eval+                                                                        (do x32 <- Prelude.return x1+                                                                            x33 <- Prelude.return x2+                                                                            x34 <- Prelude.return x3+                                                                            x35 <- Prelude.return x4+                                                                            x36 <- Prelude.return x6+                                                                            x37 <- Prelude.return x7+                                                                            x38 <- Prelude.return x9+                                                                            x39 <- Prelude.return+                                                                                     x11+                                                                            x40 <- do x30 <- Prelude.return+                                                                                               x1+                                                                                      x31 <- do x28 <- do x26 <- DM.litHook+                                                                                                                   (DI.DebugInfo+                                                                                                                      (DI.SrcID+                                                                                                                         "Dequeue"+                                                                                                                         0)+                                                                                                                      (DI.DynamicInfo+                                                                                                                         []+                                                                                                                         []))+                                                                                                                   (Prelude.return+                                                                                                                      (Curry.DebugModule.Prelude.Pos+                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                            Curry.DebugModule.Prelude.IHi)))+                                                                                                          x27 <- Prelude.return+                                                                                                                   x3+                                                                                                          DM.funcCallHook+                                                                                                            "*"+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "Dequeue"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  [DI.genTerm+                                                                                                                     x26,+                                                                                                                   DI.genTerm+                                                                                                                     x27]))+                                                                                                            (Curry.DebugModule.Prelude.op_Asterisk+                                                                                                               x26+                                                                                                               x27)+                                                                                                x29 <- DM.litHook+                                                                                                         (DI.DebugInfo+                                                                                                            (DI.SrcID+                                                                                                               "Dequeue"+                                                                                                               0)+                                                                                                            (DI.DynamicInfo+                                                                                                               []+                                                                                                               []))+                                                                                                         (Prelude.return+                                                                                                            (Curry.DebugModule.Prelude.Pos+                                                                                                               Curry.DebugModule.Prelude.IHi))+                                                                                                DM.funcCallHook+                                                                                                  "+"+                                                                                                  (DI.DebugInfo+                                                                                                     (DI.SrcID+                                                                                                        "Dequeue"+                                                                                                        0)+                                                                                                     (DI.DynamicInfo+                                                                                                        []+                                                                                                        [DI.genTerm+                                                                                                           x28,+                                                                                                         DI.genTerm+                                                                                                           x29]))+                                                                                                  (Curry.DebugModule.Prelude.op_Plus+                                                                                                     x28+                                                                                                     x29)+                                                                                      DM.funcCallHook+                                                                                        "<="+                                                                                        (DI.DebugInfo+                                                                                           (DI.SrcID+                                                                                              "Dequeue"+                                                                                              0)+                                                                                           (DI.DynamicInfo+                                                                                              []+                                                                                              [DI.genTerm+                                                                                                 x30,+                                                                                               DI.genTerm+                                                                                                 x31]))+                                                                                        (Curry.DebugModule.Prelude.op_LtEq+                                                                                           x30+                                                                                           x31)+                                                                            DM.funcCallHook+                                                                              "_case_13"+                                                                              (DI.DebugInfo+                                                                                 (DI.SrcID "Dequeue"+                                                                                    0)+                                                                                 (DI.DynamicInfo []+                                                                                    [DI.genTerm x32,+                                                                                     DI.genTerm x33,+                                                                                     DI.genTerm x34,+                                                                                     DI.genTerm x35,+                                                                                     DI.genTerm x36,+                                                                                     DI.genTerm x37,+                                                                                     DI.genTerm x38,+                                                                                     DI.genTerm x39,+                                                                                     DI.genTerm+                                                                                       x40]))+                                                                              (strict__case_13 x32+                                                                                 x33+                                                                                 x34+                                                                                 x35+                                                                                 x36+                                                                                 x37+                                                                                 x38+                                                                                 x39+                                                                                 x40)))))))))))))))))+term_strict_check x1 = DI.Term "check" (DI.SrcID "Dequeue" 0) x1+ +x'xstrict_check46_35selFP335f' ::+                               (DM.DM dm, DI.GenTerm x45) =>+                                 Curry.DebugModule.Prelude.Tuple2+                                   (Curry.DebugModule.Prelude.List x45)+                                   (Curry.DebugModule.Prelude.List x45)+                                   -> dm (Curry.DebugModule.Prelude.List x45)+x'xstrict_check46_35selFP335f' x1+  = DM.eval+      (DM.funcDeclHook "check._#selFP3#f'"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_11"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_11 x2)))+x'xterm_strict_check46_35selFP335f' x1+  = DI.Term "check._#selFP3#f'" (DI.SrcID "Dequeue" 0) x1+ +x'xstrict_check46_35selFP435rf' ::+                                (DM.DM dm, DI.GenTerm x45) =>+                                  Curry.DebugModule.Prelude.Tuple2+                                    (Curry.DebugModule.Prelude.List x45)+                                    (Curry.DebugModule.Prelude.List x45)+                                    -> dm (Curry.DebugModule.Prelude.List x45)+x'xstrict_check46_35selFP435rf' x1+  = DM.eval+      (DM.funcDeclHook "check._#selFP4#rf'"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_10"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_10 x2)))+x'xterm_strict_check46_35selFP435rf' x1+  = DI.Term "check._#selFP4#rf'" (DI.SrcID "Dequeue" 0) x1+ +strict_listToDeq ::+                 (DM.DM dm, DI.GenTerm a) =>+                   Curry.DebugModule.Prelude.List a -> dm (Queue a)+strict_listToDeq x1+  = DM.eval+      (DM.funcDeclHook "listToDeq"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "length"+                        (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (Curry.DebugModule.Prelude.strict_length x2)+             x4 <- Prelude.return x1+             x5 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Zero)+             x6 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Nil)+             DM.funcCallHook "check"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict_check x3 x4 x5 x6)))+term_strict_listToDeq x1+  = DI.Term "listToDeq" (DI.SrcID "Dequeue" 0) x1+ +strict_deqToList ::+                 (DM.DM dm, DI.GenTerm a) =>+                   Queue a -> dm (Curry.DebugModule.Prelude.List a)+strict_deqToList x1+  = DM.eval+      (DM.funcDeclHook "deqToList"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_9"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_9 x2)))+term_strict_deqToList x1+  = DI.Term "deqToList" (DI.SrcID "Dequeue" 0) x1+ +strict_deqLength ::+                 (DM.DM dm, DI.GenTerm a) =>+                   Queue a -> dm Curry.DebugModule.Prelude.Int+strict_deqLength x1+  = DM.eval+      (DM.funcDeclHook "deqLength"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_8"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_8 x2)))+term_strict_deqLength x1+  = DI.Term "deqLength" (DI.SrcID "Dequeue" 0) x1+ +strict_rotate ::+              (DM.DM dm, DI.GenTerm a) => Queue a -> dm (Queue a)+strict_rotate x1+  = DM.eval+      (DM.funcDeclHook "rotate"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "deqHead"+                        (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_deqHead x2)+             x5 <- do x3 <- Prelude.return x1+                      DM.funcCallHook "deqTail"+                        (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (strict_deqTail x3)+             DM.funcCallHook "snoc"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (strict_snoc x4 x5)))+term_strict_rotate x1 = DI.Term "rotate" (DI.SrcID "Dequeue" 0) x1+ +strict_matchHead ::+                 (DM.DM dm, DI.GenTerm a) =>+                   Queue a ->+                     dm+                       (Curry.DebugModule.Prelude.Maybe+                          (Curry.DebugModule.Prelude.Tuple2 a (Queue a)))+strict_matchHead x1+  = DM.eval+      (DM.funcDeclHook "matchHead"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_7"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_7 x2)))+term_strict_matchHead x1+  = DI.Term "matchHead" (DI.SrcID "Dequeue" 0) x1+ +strict_matchLast ::+                 (DM.DM dm, DI.GenTerm a) =>+                   Queue a ->+                     dm+                       (Curry.DebugModule.Prelude.Maybe+                          (Curry.DebugModule.Prelude.Tuple2 a (Queue a)))+strict_matchLast x1+  = DM.eval+      (DM.funcDeclHook "matchLast"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_3"+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_3 x2)))+term_strict_matchLast x1+  = DI.Term "matchLast" (DI.SrcID "Dequeue" 0) x1+strict__case_3 x1+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    S x2 x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- Prelude.return x4+                                  x9 <- Prelude.return x5+                                  DM.funcCallHook "_case_2"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (strict__case_2 x6 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           strict__case_3+                           x10)))+term_strict__case_3 x1+  = DI.Term "_case_3" (DI.SrcID "Dequeue" 0) x1+strict__case_2 x2 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x20 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x3+                                  DM.funcCallHook "_case_1"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10]))+                                    (strict__case_1 x10)))+                    Curry.DebugModule.Prelude.Cons x8 x9+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x19 <- do x17 <- Prelude.return x8+                                            x18 <- do x13 <- Prelude.return x2+                                                      x14 <- Prelude.return x3+                                                      x15 <- do x11 <- Prelude.return x4+                                                                x12 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Dequeue" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Pos+                                                                               Curry.DebugModule.Prelude.IHi))+                                                                DM.funcCallHook "-"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Dequeue" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Curry.DebugModule.Prelude.op_Minus+                                                                     x11+                                                                     x12)+                                                      x16 <- Prelude.return x9+                                                      DM.funcCallHook "check"+                                                        (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14,+                                                               DI.genTerm x15, DI.genTerm x16]))+                                                        (strict_check x13 x14 x15 x16)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x17, DI.genTerm x18]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Tuple2 x17 x18))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x19]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Just x19))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_2 x2 x3 x4)+                           x20)))+term_strict__case_2 x1+  = DI.Term "_case_2" (DI.SrcID "Dequeue" 0) x1+strict__case_1 x3+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x3]))+         (do x10 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nothing)))+                    Curry.DebugModule.Prelude.Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x6+                                  x9 <- Prelude.return x7+                                  DM.funcCallHook "_case_0"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (strict__case_0 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           strict__case_1+                           x10)))+term_strict__case_1 x1+  = DI.Term "_case_1" (DI.SrcID "Dequeue" 0) x1+strict__case_0 x6 x7+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+         (do x11 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x8 <- Prelude.return x6+                                            x9 <- DM.funcCallHook "empty"+                                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                       (DI.DynamicInfo [] []))+                                                    strict_empty+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Tuple2 x8 x9))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Just x10))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_0 x6)+                           x11)))+term_strict__case_0 x1+  = DI.Term "_case_0" (DI.SrcID "Dequeue" 0) x1+strict__case_7 x1+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    S x2 x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x4+                                  x8 <- Prelude.return x5+                                  x9 <- Prelude.return x3+                                  DM.funcCallHook "_case_6"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (strict__case_6 x6 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           strict__case_7+                           x10)))+term_strict__case_7 x1+  = DI.Term "_case_7" (DI.SrcID "Dequeue" 0) x1+strict__case_6 x2 x4 x5 x3+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x4, DI.genTerm x5, DI.genTerm x3]))+         (do x21 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x5+                                  DM.funcCallHook "_case_5"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10]))+                                    (strict__case_5 x10)))+                    Curry.DebugModule.Prelude.Cons x8 x9+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x20 <- do x18 <- Prelude.return x8+                                            x19 <- do x17 <- do x13 <- Prelude.return x4+                                                                x14 <- Prelude.return x5+                                                                x15 <- do x11 <- Prelude.return x2+                                                                          x12 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Dequeue"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Pos+                                                                                         Curry.DebugModule.Prelude.IHi))+                                                                          DM.funcCallHook "-"+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Dequeue"+                                                                                  0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x11,+                                                                                   DI.genTerm x12]))+                                                                            (Curry.DebugModule.Prelude.op_Minus+                                                                               x11+                                                                               x12)+                                                                x16 <- Prelude.return x9+                                                                DM.funcCallHook "check"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Dequeue" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x13,+                                                                         DI.genTerm x14,+                                                                         DI.genTerm x15,+                                                                         DI.genTerm x16]))+                                                                  (strict_check x13 x14 x15 x16)+                                                      DM.funcCallHook "deqReverse"+                                                        (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x17]))+                                                        (strict_deqReverse x17)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x18, DI.genTerm x19]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Tuple2 x18 x19))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x20]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Just x20))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_6 x2 x4 x5)+                           x21)))+term_strict__case_6 x1+  = DI.Term "_case_6" (DI.SrcID "Dequeue" 0) x1+strict__case_5 x5+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x5]))+         (do x10 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nothing)))+                    Curry.DebugModule.Prelude.Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x6+                                  x9 <- Prelude.return x7+                                  DM.funcCallHook "_case_4"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (strict__case_4 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           strict__case_5+                           x10)))+term_strict__case_5 x1+  = DI.Term "_case_5" (DI.SrcID "Dequeue" 0) x1+strict__case_4 x6 x7+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+         (do x11 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x8 <- Prelude.return x6+                                            x9 <- DM.funcCallHook "empty"+                                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                       (DI.DynamicInfo [] []))+                                                    strict_empty+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Tuple2 x8 x9))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Just x10))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_4 x6)+                           x11)))+term_strict__case_4 x1+  = DI.Term "_case_4" (DI.SrcID "Dequeue" 0) x1+strict__case_8 x1+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    S x2 x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "+"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Curry.DebugModule.Prelude.op_Plus x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_8+                           x8)))+term_strict__case_8 x1+  = DI.Term "_case_8" (DI.SrcID "Dequeue" 0) x1+strict__case_9 x1+  = DM.eval+      (DM.funcDeclHook "_case_9"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    S x2 x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  x9 <- do x6 <- DM.funcCallHook "reverse"+                                                   (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                      (DI.DynamicInfo [] []))+                                                   Curry.DebugModule.Prelude.strict_reverse+                                           x7 <- Prelude.return x5+                                           DM.funcCallHook "apply"+                                             (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (Curry.DebugModule.Prelude.strict_apply x6 x7)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           strict__case_9+                           x10)))+term_strict__case_9 x1+  = DI.Term "_case_9" (DI.SrcID "Dequeue" 0) x1+strict__case_10 x1+  = DM.eval+      (DM.funcDeclHook "_case_10"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_10+                           x4)))+term_strict__case_10 x1+  = DI.Term "_case_10" (DI.SrcID "Dequeue" 0) x1+strict__case_11 x1+  = DM.eval+      (DM.funcDeclHook "_case_11"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_11+                           x4)))+term_strict__case_11 x1+  = DI.Term "_case_11" (DI.SrcID "Dequeue" 0) x1+strict__case_13 x1 x2 x3 x4 x6 x7 x9 x11 x12+  = DM.eval+      (DM.funcDeclHook "_case_13"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+                DI.genTerm x6, DI.genTerm x7, DI.genTerm x9, DI.genTerm x11,+                DI.genTerm x12]))+         (do x22 <- Prelude.return x12+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x22]))+               (case x22 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x1+                                  x14 <- Prelude.return x2+                                  x15 <- Prelude.return x3+                                  x16 <- Prelude.return x4+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x13, DI.genTerm x14, DI.genTerm x15,+                                           DI.genTerm x16]))+                                    (Prelude.return (S x13 x14 x15 x16))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- Prelude.return x6+                                  x18 <- Prelude.return x7+                                  x19 <- Prelude.return x9+                                  x20 <- Prelude.return x11+                                  x21 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                              (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_12"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19,+                                           DI.genTerm x20, DI.genTerm x21]))+                                    (strict__case_12 x17 x18 x19 x20 x21)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x22])))+                           (strict__case_13 x1 x2 x3 x4 x6 x7 x9 x11)+                           x22)))+term_strict__case_13 x1+  = DI.Term "_case_13" (DI.SrcID "Dequeue" 0) x1+strict__case_12 x6 x7 x9 x11 x12+  = DM.eval+      (DM.funcDeclHook "_case_12"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo []+               [DI.genTerm x6, DI.genTerm x7, DI.genTerm x9, DI.genTerm x11,+                DI.genTerm x12]))+         (do x17 <- Prelude.return x12+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x17]))+               (case x17 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x6+                                  x14 <- Prelude.return x9+                                  x15 <- Prelude.return x7+                                  x16 <- Prelude.return x11+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x13, DI.genTerm x14, DI.genTerm x15,+                                           DI.genTerm x16]))+                                    (Prelude.return (S x13 x14 x15 x16))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x17])))+                           (strict__case_12 x6 x7 x9 x11)+                           x17)))+term_strict__case_12 x1+  = DI.Term "_case_12" (DI.SrcID "Dequeue" 0) x1+strict__case_14 x1+  = DM.eval+      (DM.funcDeclHook "_case_14"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    S x2 x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x4+                                  x7 <- Prelude.return x5+                                  x8 <- Prelude.return x2+                                  x9 <- Prelude.return x3+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (Prelude.return (S x6 x7 x8 x9))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           strict__case_14+                           x10)))+term_strict__case_14 x1+  = DI.Term "_case_14" (DI.SrcID "Dequeue" 0) x1+strict__case_16 x1+  = DM.eval+      (DM.funcDeclHook "_case_16"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    S x2 x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- Prelude.return x4+                                  x9 <- Prelude.return x5+                                  DM.funcCallHook "_case_15"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (strict__case_15 x6 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           strict__case_16+                           x10)))+term_strict__case_16 x1+  = DI.Term "_case_16" (DI.SrcID "Dequeue" 0) x1+strict__case_15 x2 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_15"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x14 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "empty"+                                 (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                                 strict_empty))+                    Curry.DebugModule.Prelude.Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x2+                                  x11 <- Prelude.return x3+                                  x12 <- do x8 <- Prelude.return x4+                                            x9 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Pos+                                                          Curry.DebugModule.Prelude.IHi))+                                            DM.funcCallHook "-"+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.op_Minus x8 x9)+                                  x13 <- Prelude.return x7+                                  DM.funcCallHook "check"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12,+                                           DI.genTerm x13]))+                                    (strict_check x10 x11 x12 x13)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_15 x2 x3 x4)+                           x14)))+term_strict__case_15 x1+  = DI.Term "_case_15" (DI.SrcID "Dequeue" 0) x1+strict__case_17 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_17"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x16 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    S x3 x4 x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- do x11 <- do x7 <- Prelude.return x5+                                                      x8 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Pos+                                                                    Curry.DebugModule.Prelude.IHi))+                                                      DM.funcCallHook "+"+                                                        (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x7, DI.genTerm x8]))+                                                        (Curry.DebugModule.Prelude.op_Plus x7 x8)+                                            x12 <- do x9 <- Prelude.return x1+                                                      x10 <- Prelude.return x6+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x9 x10))+                                            x13 <- Prelude.return x3+                                            x14 <- Prelude.return x4+                                            DM.funcCallHook "check"+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12, DI.genTerm x13,+                                                     DI.genTerm x14]))+                                              (strict_check x11 x12 x13 x14)+                                  DM.funcCallHook "deqReverse"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x15]))+                                    (strict_deqReverse x15)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_17 x1)+                           x16)))+term_strict__case_17 x1+  = DI.Term "_case_17" (DI.SrcID "Dequeue" 0) x1+strict__case_19 x1+  = DM.eval+      (DM.funcDeclHook "_case_19"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    S x2 x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x4+                                  x8 <- Prelude.return x5+                                  x9 <- Prelude.return x3+                                  DM.funcCallHook "_case_18"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (strict__case_18 x6 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           strict__case_19+                           x10)))+term_strict__case_19 x1+  = DI.Term "_case_19" (DI.SrcID "Dequeue" 0) x1+strict__case_18 x2 x4 x5 x3+  = DM.eval+      (DM.funcDeclHook "_case_18"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x4, DI.genTerm x5, DI.genTerm x3]))+         (do x15 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "empty"+                                 (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                                 strict_empty))+                    Curry.DebugModule.Prelude.Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- do x10 <- Prelude.return x4+                                            x11 <- Prelude.return x5+                                            x12 <- do x8 <- Prelude.return x2+                                                      x9 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Pos+                                                                    Curry.DebugModule.Prelude.IHi))+                                                      DM.funcCallHook "-"+                                                        (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x8, DI.genTerm x9]))+                                                        (Curry.DebugModule.Prelude.op_Minus x8 x9)+                                            x13 <- Prelude.return x7+                                            DM.funcCallHook "check"+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12,+                                                     DI.genTerm x13]))+                                              (strict_check x10 x11 x12 x13)+                                  DM.funcCallHook "deqReverse"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14]))+                                    (strict_deqReverse x14)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_18 x2 x4 x5)+                           x15)))+term_strict__case_18 x1+  = DI.Term "_case_18" (DI.SrcID "Dequeue" 0) x1+strict__case_20 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_20"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x15 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    S x3 x4 x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x7 <- Prelude.return x3+                                            x8 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Pos+                                                          Curry.DebugModule.Prelude.IHi))+                                            DM.funcCallHook "+"+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (Curry.DebugModule.Prelude.op_Plus x7 x8)+                                  x12 <- do x9 <- Prelude.return x1+                                            x10 <- Prelude.return x4+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x9 x10))+                                  x13 <- Prelude.return x5+                                  x14 <- Prelude.return x6+                                  DM.funcCallHook "check"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x11, DI.genTerm x12, DI.genTerm x13,+                                           DI.genTerm x14]))+                                    (strict_check x11 x12 x13 x14)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_20 x1)+                           x15)))+term_strict__case_20 x1+  = DI.Term "_case_20" (DI.SrcID "Dequeue" 0) x1+strict__case_22 x1+  = DM.eval+      (DM.funcDeclHook "_case_22"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x13 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    S x2 x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- do x8 <- Prelude.return x3+                                            x9 <- Prelude.return x4+                                            x10 <- Prelude.return x5+                                            x11 <- do x6 <- Prelude.return x4+                                                      x7 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 Curry.DebugModule.Prelude.Zero)+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x6, DI.genTerm x7]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x6 x7)+                                            DM.funcCallHook "_case_21"+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                                                     DI.genTerm x11]))+                                              (strict__case_21 x8 x9 x10 x11)+                                  DM.funcCallHook "head"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12]))+                                    (Curry.DebugModule.Prelude.strict_head x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           strict__case_22+                           x13)))+term_strict__case_22 x1+  = DI.Term "_case_22" (DI.SrcID "Dequeue" 0) x1+strict__case_21 x3 x4 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_21"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo []+               [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+         (do x7 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x5))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_21 x3 x4 x5)+                           x7)))+term_strict__case_21 x1+  = DI.Term "_case_21" (DI.SrcID "Dequeue" 0) x1+strict__case_24 x1+  = DM.eval+      (DM.funcDeclHook "_case_24"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x13 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    S x2 x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- do x8 <- Prelude.return x2+                                            x9 <- Prelude.return x3+                                            x10 <- Prelude.return x5+                                            x11 <- do x6 <- Prelude.return x2+                                                      x7 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 Curry.DebugModule.Prelude.Zero)+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x6, DI.genTerm x7]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x6 x7)+                                            DM.funcCallHook "_case_23"+                                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                                                     DI.genTerm x11]))+                                              (strict__case_23 x8 x9 x10 x11)+                                  DM.funcCallHook "head"+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12]))+                                    (Curry.DebugModule.Prelude.strict_head x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           strict__case_24+                           x13)))+term_strict__case_24 x1+  = DI.Term "_case_24" (DI.SrcID "Dequeue" 0) x1+strict__case_23 x2 x3 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_23"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x3, DI.genTerm x5, DI.genTerm x6]))+         (do x7 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x5))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_23 x2 x3 x5)+                           x7)))+term_strict__case_23 x1+  = DI.Term "_case_23" (DI.SrcID "Dequeue" 0) x1+strict__case_25 x1+  = DM.eval+      (DM.funcDeclHook "_case_25"+         (DI.DebugInfo (DI.SrcID "Dequeue" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    S x2 x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Dequeue" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x6 <- Prelude.return x2+                                           x7 <- Prelude.return x4+                                           DM.funcCallHook "+"+                                             (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (Curry.DebugModule.Prelude.op_Plus x6 x7)+                                  x9 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Zero)+                                  DM.funcCallHook "=="+                                    (DI.DebugInfo (DI.SrcID "Dequeue" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Curry.DebugModule.Prelude.op_EqEq x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Dequeue" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           strict__case_25+                           x10)))+term_strict__case_25 x1+  = DI.Term "_case_25" (DI.SrcID "Dequeue" 0) x1+term_S x1 = DI.Term "S" (DI.SrcID "Dequeue" 0) x1
+ dist/build/Curry/DebugModule/Directory.hs view
@@ -0,0 +1,447 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Directory where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Prelude+import qualified Curry.DebugModule.Time+ +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")+ +strict_doesFileExist ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                         dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Bool)+strict_doesFileExist x1+  = DM.eval+      (DM.funcDeclHook "doesFileExist"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_doesFileExist [])+                        strict_prim_doesFileExist)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_doesFileExist x1+  = DI.Term "doesFileExist" (DI.SrcID "Directory" 0) x1+ +strict_doesDirectoryExist ::+                          (DM.DM dm) =>+                            Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                              dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Bool)+strict_doesDirectoryExist x1+  = DM.eval+      (DM.funcDeclHook "doesDirectoryExist"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_doesDirectoryExist [])+                        strict_prim_doesDirectoryExist)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_doesDirectoryExist x1+  = DI.Term "doesDirectoryExist" (DI.SrcID "Directory" 0) x1+ +strict_fileSize ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                    dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Int)+strict_fileSize x1+  = DM.eval+      (DM.funcDeclHook "fileSize"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_fileSize []) strict_prim_fileSize)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_fileSize x1+  = DI.Term "fileSize" (DI.SrcID "Directory" 0) x1+ +strict_getModificationTime ::+                           (DM.DM dm) =>+                             Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                               dm+                                 (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Time.ClockTime)+strict_getModificationTime x1+  = DM.eval+      (DM.funcDeclHook "getModificationTime"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_getModificationTime [])+                        strict_prim_getModificationTime)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_getModificationTime x1+  = DI.Term "getModificationTime" (DI.SrcID "Directory" 0) x1+ +strict_setCurrentDirectory ::+                           (DM.DM dm) =>+                             Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                               dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_setCurrentDirectory x1+  = DM.eval+      (DM.funcDeclHook "setCurrentDirectory"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_setCurrentDirectory [])+                        strict_prim_setCurrentDirectory)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_setCurrentDirectory x1+  = DI.Term "setCurrentDirectory" (DI.SrcID "Directory" 0) x1+ +strict_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_getDirectoryContents x1+  = DM.eval+      (DM.funcDeclHook "getDirectoryContents"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_getDirectoryContents [])+                        strict_prim_getDirectoryContents)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_getDirectoryContents x1+  = DI.Term "getDirectoryContents" (DI.SrcID "Directory" 0) x1+ +strict_createDirectory ::+                       (DM.DM dm) =>+                         Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                           dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_createDirectory x1+  = DM.eval+      (DM.funcDeclHook "createDirectory"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_createDirectory [])+                        strict_prim_createDirectory)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_createDirectory x1+  = DI.Term "createDirectory" (DI.SrcID "Directory" 0) x1+ +strict_removeFile ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                      dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_removeFile x1+  = DM.eval+      (DM.funcDeclHook "removeFile"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_removeFile [])+                        strict_prim_removeFile)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_removeFile x1+  = DI.Term "removeFile" (DI.SrcID "Directory" 0) x1+ +strict_removeDirectory ::+                       (DM.DM dm) =>+                         Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                           dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_removeDirectory x1+  = DM.eval+      (DM.funcDeclHook "removeDirectory"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_removeDirectory [])+                        strict_prim_removeDirectory)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_removeDirectory x1+  = DI.Term "removeDirectory" (DI.SrcID "Directory" 0) x1+ +strict_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_renameFile x1 x2+  = DM.eval+      (DM.funcDeclHook "renameFile"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_renameFile [])+                                 strict_prim_renameFile)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$##"+                        (DI.DebugInfo (DI.SrcID "Directory" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhombRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x5 x6)))+term_strict_renameFile x1+  = DI.Term "renameFile" (DI.SrcID "Directory" 0) x1+ +strict_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_renameDirectory x1 x2+  = DM.eval+      (DM.funcDeclHook "renameDirectory"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_renameDirectory [])+                                 strict_prim_renameDirectory)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$##"+                        (DI.DebugInfo (DI.SrcID "Directory" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhombRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Directory" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x5 x6)))+term_strict_renameDirectory x1+  = DI.Term "renameDirectory" (DI.SrcID "Directory" 0) x1+hook_strict_prim_doesFileExist x1 value+  = DM.eval+      (DM.funcDeclHook "prim_doesFileExist"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_doesFileExist x1+  = DI.Term "prim_doesFileExist" (DI.SrcID "Directory" 0) x1+hook_strict_prim_doesDirectoryExist x1 value+  = DM.eval+      (DM.funcDeclHook "prim_doesDirectoryExist"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_doesDirectoryExist x1+  = DI.Term "prim_doesDirectoryExist" (DI.SrcID "Directory" 0) x1+hook_strict_prim_fileSize x1 value+  = DM.eval+      (DM.funcDeclHook "prim_fileSize"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_fileSize x1+  = DI.Term "prim_fileSize" (DI.SrcID "Directory" 0) x1+hook_strict_prim_getModificationTime x1 value+  = DM.eval+      (DM.funcDeclHook "prim_getModificationTime"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_getModificationTime x1+  = DI.Term "prim_getModificationTime" (DI.SrcID "Directory" 0) x1+hook_strict_getCurrentDirectory value+  = DM.eval+      (DM.funcDeclHook "getCurrentDirectory"+         (DI.DebugInfo (DI.SrcID "Directory" 0) (DI.DynamicInfo [] []))+         value)+term_strict_getCurrentDirectory x1+  = DI.Term "getCurrentDirectory" (DI.SrcID "Directory" 0) x1+hook_strict_prim_setCurrentDirectory x1 value+  = DM.eval+      (DM.funcDeclHook "prim_setCurrentDirectory"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_setCurrentDirectory x1+  = DI.Term "prim_setCurrentDirectory" (DI.SrcID "Directory" 0) x1+hook_strict_prim_getDirectoryContents x1 value+  = DM.eval+      (DM.funcDeclHook "prim_getDirectoryContents"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_getDirectoryContents x1+  = DI.Term "prim_getDirectoryContents" (DI.SrcID "Directory" 0) x1+hook_strict_prim_createDirectory x1 value+  = DM.eval+      (DM.funcDeclHook "prim_createDirectory"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_createDirectory x1+  = DI.Term "prim_createDirectory" (DI.SrcID "Directory" 0) x1+hook_strict_prim_removeFile x1 value+  = DM.eval+      (DM.funcDeclHook "prim_removeFile"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_removeFile x1+  = DI.Term "prim_removeFile" (DI.SrcID "Directory" 0) x1+hook_strict_prim_removeDirectory x1 value+  = DM.eval+      (DM.funcDeclHook "prim_removeDirectory"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_removeDirectory x1+  = DI.Term "prim_removeDirectory" (DI.SrcID "Directory" 0) x1+hook_strict_prim_renameFile x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_renameFile"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_renameFile x1+  = DI.Term "prim_renameFile" (DI.SrcID "Directory" 0) x1+hook_strict_prim_renameDirectory x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_renameDirectory"+         (DI.DebugInfo (DI.SrcID "Directory" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_renameDirectory x1+  = DI.Term "prim_renameDirectory" (DI.SrcID "Directory" 0) x1
+ dist/build/Curry/DebugModule/FileGoodies.hs view
@@ -0,0 +1,2521 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.FileGoodies where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Directory+import qualified Curry.DebugModule.List+import qualified Curry.DebugModule.Prelude+ +strict_separatorChar ::+                     (DM.DM dm) => dm Curry.DebugModule.Prelude.Char+strict_separatorChar+  = DM.eval+      (DM.funcDeclHook "separatorChar"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+         (DM.litHook+            (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+            (Prelude.return (Curry.DebugModule.Prelude.Char '/'))))+ +strict_pathSeparatorChar ::+                         (DM.DM dm) => dm Curry.DebugModule.Prelude.Char+strict_pathSeparatorChar+  = DM.eval+      (DM.funcDeclHook "pathSeparatorChar"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+         (DM.litHook+            (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+            (Prelude.return (Curry.DebugModule.Prelude.Char ':'))))+ +strict_suffixSeparatorChar ::+                           (DM.DM dm) => dm Curry.DebugModule.Prelude.Char+strict_suffixSeparatorChar+  = DM.eval+      (DM.funcDeclHook "suffixSeparatorChar"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+         (DM.litHook+            (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+            (Prelude.return (Curry.DebugModule.Prelude.Char '.'))))+ +strict_isAbsolute ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                      dm Curry.DebugModule.Prelude.Bool+strict_isAbsolute x1+  = DM.eval+      (DM.funcDeclHook "isAbsolute"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_19"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_19 x2)))+term_strict_isAbsolute x1+  = DI.Term "isAbsolute" (DI.SrcID "FileGoodies" 0) x1+ +strict_dirName ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                   dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_dirName x1+  = DM.eval+      (DM.funcDeclHook "dirName"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "splitDirectoryBaseName"+                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_splitDirectoryBaseName x2)+             DM.funcCallHook "fst"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (Curry.DebugModule.Prelude.strict_fst x3)))+term_strict_dirName x1+  = DI.Term "dirName" (DI.SrcID "FileGoodies" 0) x1+ +strict_baseName ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                    dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_baseName x1+  = DM.eval+      (DM.funcDeclHook "baseName"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "splitDirectoryBaseName"+                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_splitDirectoryBaseName x2)+             DM.funcCallHook "snd"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (Curry.DebugModule.Prelude.strict_snd x3)))+term_strict_baseName x1+  = DI.Term "baseName" (DI.SrcID "FileGoodies" 0) x1+ +strict_splitDirectoryBaseName ::+                              (DM.DM dm) =>+                                Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                  dm+                                    (Curry.DebugModule.Prelude.Tuple2+                                       (Curry.DebugModule.Prelude.List+                                          Curry.DebugModule.Prelude.Char)+                                       (Curry.DebugModule.Prelude.List+                                          Curry.DebugModule.Prelude.Char))+strict_splitDirectoryBaseName x1+  = DM.eval+      (DM.funcDeclHook "splitDirectoryBaseName"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (DM.letHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x2 <- do x10 <- do x7 <- do x5 <- Prelude.return+                                                    (PC.partCall2+                                                       (Curry.DebugModule.Prelude.term_op_EqEq [])+                                                       Curry.DebugModule.Prelude.op_EqEq)+                                            x6 <- DM.funcCallHook "separatorChar"+                                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                       (DI.DynamicInfo [] []))+                                                    strict_separatorChar+                                            Prelude.return+                                              (PC.partCall1+                                                 (Curry.DebugModule.Prelude.term_strict_flip+                                                    [DI.genTerm x5, DI.genTerm x6])+                                                 (Curry.DebugModule.Prelude.strict_flip x5 x6))+                                   DM.funcCallHook "break"+                                     (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                        (DI.DynamicInfo [] [DI.genTerm x7]))+                                     (Curry.DebugModule.Prelude.strict_break x7)+                         x11 <- do x8 <- DM.funcCallHook "reverse"+                                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                              (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_reverse+                                   x9 <- Prelude.return x1+                                   DM.funcCallHook "apply"+                                     (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                        (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                     (Curry.DebugModule.Prelude.strict_apply x8 x9)+                         DM.funcCallHook "apply"+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                              (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                           (Curry.DebugModule.Prelude.strict_apply x10 x11)+                DM.eval+                  (DM.letHook+                     (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                     (do x3 <- do x12 <- Prelude.return x2+                                  DM.funcCallHook "splitDirectoryBaseName._#selFP3#rbase"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12]))+                                    (x'xstrict_splitDirectoryBaseName46_35selFP335rbase x12)+                         DM.eval+                           (DM.letHook+                              (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                              (do x4 <- do x13 <- Prelude.return x2+                                           DM.funcCallHook "splitDirectoryBaseName._#selFP4#rdir"+                                             (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x13]))+                                             (x'xstrict_splitDirectoryBaseName46_35selFP435rdir x13)+                                  DM.eval+                                    (do x15 <- Prelude.return x3+                                        x16 <- Prelude.return x4+                                        x17 <- do x14 <- Prelude.return x4+                                                  DM.funcCallHook "null"+                                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                       (DI.DynamicInfo [] [DI.genTerm x14]))+                                                    (Curry.DebugModule.Prelude.strict_null x14)+                                        DM.funcCallHook "_case_18"+                                          (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                             (DI.DynamicInfo []+                                                [DI.genTerm x15, DI.genTerm x16, DI.genTerm x17]))+                                          (strict__case_18 x15 x16 x17)))))))))+term_strict_splitDirectoryBaseName x1+  = DI.Term "splitDirectoryBaseName" (DI.SrcID "FileGoodies" 0) x1+ +x'xstrict_splitDirectoryBaseName46_35selFP335rbase ::+                                                   (DM.DM dm) =>+                                                     Curry.DebugModule.Prelude.Tuple2+                                                       (Curry.DebugModule.Prelude.List+                                                          Curry.DebugModule.Prelude.Char)+                                                       (Curry.DebugModule.Prelude.List+                                                          Curry.DebugModule.Prelude.Char)+                                                       ->+                                                       dm+                                                         (Curry.DebugModule.Prelude.List+                                                            Curry.DebugModule.Prelude.Char)+x'xstrict_splitDirectoryBaseName46_35selFP335rbase x1+  = DM.eval+      (DM.funcDeclHook "splitDirectoryBaseName._#selFP3#rbase"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_17"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_17 x2)))+x'xterm_strict_splitDirectoryBaseName46_35selFP335rbase x1+  = DI.Term "splitDirectoryBaseName._#selFP3#rbase"+      (DI.SrcID "FileGoodies" 0)+      x1+ +x'xstrict_splitDirectoryBaseName46_35selFP435rdir ::+                                                  (DM.DM dm) =>+                                                    Curry.DebugModule.Prelude.Tuple2+                                                      (Curry.DebugModule.Prelude.List+                                                         Curry.DebugModule.Prelude.Char)+                                                      (Curry.DebugModule.Prelude.List+                                                         Curry.DebugModule.Prelude.Char)+                                                      ->+                                                      dm+                                                        (Curry.DebugModule.Prelude.List+                                                           Curry.DebugModule.Prelude.Char)+x'xstrict_splitDirectoryBaseName46_35selFP435rdir x1+  = DM.eval+      (DM.funcDeclHook "splitDirectoryBaseName._#selFP4#rdir"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_16"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_16 x2)))+x'xterm_strict_splitDirectoryBaseName46_35selFP435rdir x1+  = DI.Term "splitDirectoryBaseName._#selFP4#rdir"+      (DI.SrcID "FileGoodies" 0)+      x1+ +strict_stripSuffix ::+                   (DM.DM dm) =>+                     dm+                       (DM.Func dm+                          (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                          (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_stripSuffix+  = DM.eval+      (DM.funcDeclHook "stripSuffix"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return+                     (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_fst [])+                        Curry.DebugModule.Prelude.strict_fst)+             x1 <- Prelude.return+                     (PC.partCall1 (term_strict_splitBaseName []) strict_splitBaseName)+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+               (Curry.DebugModule.Prelude.op_Point x0 x1)))+ +strict_fileSuffix ::+                  (DM.DM dm) =>+                    dm+                      (DM.Func dm+                         (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                         (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_fileSuffix+  = DM.eval+      (DM.funcDeclHook "fileSuffix"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return+                     (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_snd [])+                        Curry.DebugModule.Prelude.strict_snd)+             x1 <- Prelude.return+                     (PC.partCall1 (term_strict_splitBaseName []) strict_splitBaseName)+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+               (Curry.DebugModule.Prelude.op_Point x0 x1)))+ +strict_splitBaseName ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                         dm+                           (Curry.DebugModule.Prelude.Tuple2+                              (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                              (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_splitBaseName x1+  = DM.eval+      (DM.funcDeclHook "splitBaseName"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (DM.letHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x2 <- do x10 <- do x7 <- do x5 <- Prelude.return+                                                    (PC.partCall2+                                                       (Curry.DebugModule.Prelude.term_op_EqEq [])+                                                       Curry.DebugModule.Prelude.op_EqEq)+                                            x6 <- DM.funcCallHook "suffixSeparatorChar"+                                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                       (DI.DynamicInfo [] []))+                                                    strict_suffixSeparatorChar+                                            Prelude.return+                                              (PC.partCall1+                                                 (Curry.DebugModule.Prelude.term_strict_flip+                                                    [DI.genTerm x5, DI.genTerm x6])+                                                 (Curry.DebugModule.Prelude.strict_flip x5 x6))+                                   DM.funcCallHook "break"+                                     (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                        (DI.DynamicInfo [] [DI.genTerm x7]))+                                     (Curry.DebugModule.Prelude.strict_break x7)+                         x11 <- do x8 <- DM.funcCallHook "reverse"+                                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                              (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_reverse+                                   x9 <- Prelude.return x1+                                   DM.funcCallHook "apply"+                                     (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                        (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                     (Curry.DebugModule.Prelude.strict_apply x8 x9)+                         DM.funcCallHook "apply"+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                              (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                           (Curry.DebugModule.Prelude.strict_apply x10 x11)+                DM.eval+                  (DM.letHook+                     (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                     (do x3 <- do x12 <- Prelude.return x2+                                  DM.funcCallHook "splitBaseName._#selFP6#rsuffix"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12]))+                                    (x'xstrict_splitBaseName46_35selFP635rsuffix x12)+                         DM.eval+                           (DM.letHook+                              (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                              (do x4 <- do x13 <- Prelude.return x2+                                           DM.funcCallHook "splitBaseName._#selFP7#rbase"+                                             (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x13]))+                                             (x'xstrict_splitBaseName46_35selFP735rbase x13)+                                  DM.eval+                                    (do x20 <- Prelude.return x1+                                        x21 <- Prelude.return x3+                                        x22 <- Prelude.return x4+                                        x23 <- do x18 <- do x14 <- Prelude.return x4+                                                            DM.funcCallHook "null"+                                                              (DI.DebugInfo+                                                                 (DI.SrcID "FileGoodies" 0)+                                                                 (DI.DynamicInfo []+                                                                    [DI.genTerm x14]))+                                                              (Curry.DebugModule.Prelude.strict_null+                                                                 x14)+                                                  x19 <- do x16 <- do x15 <- DM.funcCallHook+                                                                               "separatorChar"+                                                                               (DI.DebugInfo+                                                                                  (DI.SrcID+                                                                                     "FileGoodies"+                                                                                     0)+                                                                                  (DI.DynamicInfo []+                                                                                     []))+                                                                               strict_separatorChar+                                                                      DM.funcCallHook "elem"+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "FileGoodies"+                                                                              0)+                                                                           (DI.DynamicInfo []+                                                                              [DI.genTerm x15]))+                                                                        (Curry.DebugModule.Prelude.strict_elem+                                                                           x15)+                                                            x17 <- Prelude.return x3+                                                            DM.funcCallHook "apply"+                                                              (DI.DebugInfo+                                                                 (DI.SrcID "FileGoodies" 0)+                                                                 (DI.DynamicInfo []+                                                                    [DI.genTerm x16,+                                                                     DI.genTerm x17]))+                                                              (Curry.DebugModule.Prelude.strict_apply+                                                                 x16+                                                                 x17)+                                                  DM.funcCallHook "||"+                                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                       (DI.DynamicInfo []+                                                          [DI.genTerm x18, DI.genTerm x19]))+                                                    (Curry.DebugModule.Prelude.op_OrOr x18 x19)+                                        DM.funcCallHook "_case_15"+                                          (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                             (DI.DynamicInfo []+                                                [DI.genTerm x20, DI.genTerm x21, DI.genTerm x22,+                                                 DI.genTerm x23]))+                                          (strict__case_15 x20 x21 x22 x23)))))))))+term_strict_splitBaseName x1+  = DI.Term "splitBaseName" (DI.SrcID "FileGoodies" 0) x1+ +x'xstrict_splitBaseName46_35selFP635rsuffix ::+                                            (DM.DM dm) =>+                                              Curry.DebugModule.Prelude.Tuple2+                                                (Curry.DebugModule.Prelude.List+                                                   Curry.DebugModule.Prelude.Char)+                                                (Curry.DebugModule.Prelude.List+                                                   Curry.DebugModule.Prelude.Char)+                                                ->+                                                dm+                                                  (Curry.DebugModule.Prelude.List+                                                     Curry.DebugModule.Prelude.Char)+x'xstrict_splitBaseName46_35selFP635rsuffix x1+  = DM.eval+      (DM.funcDeclHook "splitBaseName._#selFP6#rsuffix"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_14"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_14 x2)))+x'xterm_strict_splitBaseName46_35selFP635rsuffix x1+  = DI.Term "splitBaseName._#selFP6#rsuffix"+      (DI.SrcID "FileGoodies" 0)+      x1+ +x'xstrict_splitBaseName46_35selFP735rbase ::+                                          (DM.DM dm) =>+                                            Curry.DebugModule.Prelude.Tuple2+                                              (Curry.DebugModule.Prelude.List+                                                 Curry.DebugModule.Prelude.Char)+                                              (Curry.DebugModule.Prelude.List+                                                 Curry.DebugModule.Prelude.Char)+                                              ->+                                              dm+                                                (Curry.DebugModule.Prelude.List+                                                   Curry.DebugModule.Prelude.Char)+x'xstrict_splitBaseName46_35selFP735rbase x1+  = DM.eval+      (DM.funcDeclHook "splitBaseName._#selFP7#rbase"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_13"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_13 x2)))+x'xterm_strict_splitBaseName46_35selFP735rbase x1+  = DI.Term "splitBaseName._#selFP7#rbase" (DI.SrcID "FileGoodies" 0)+      x1+ +strict_splitPath ::+                 (DM.DM dm) =>+                   Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                     dm+                       (Curry.DebugModule.Prelude.List+                          (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_splitPath x1+  = DM.eval+      (DM.funcDeclHook "splitPath"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_12"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_12 x2)))+term_strict_splitPath x1+  = DI.Term "splitPath" (DI.SrcID "FileGoodies" 0) x1+ +x'xstrict_splitPath46_35selFP935ys ::+                                   (DM.DM dm) =>+                                     Curry.DebugModule.Prelude.Tuple2+                                       (Curry.DebugModule.Prelude.List+                                          Curry.DebugModule.Prelude.Char)+                                       (Curry.DebugModule.Prelude.List+                                          Curry.DebugModule.Prelude.Char)+                                       ->+                                       dm+                                         (Curry.DebugModule.Prelude.List+                                            Curry.DebugModule.Prelude.Char)+x'xstrict_splitPath46_35selFP935ys x1+  = DM.eval+      (DM.funcDeclHook "splitPath._#selFP9#ys"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_10"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_10 x2)))+x'xterm_strict_splitPath46_35selFP935ys x1+  = DI.Term "splitPath._#selFP9#ys" (DI.SrcID "FileGoodies" 0) x1+ +x'xstrict_splitPath46_35selFP1035zs ::+                                    (DM.DM dm) =>+                                      Curry.DebugModule.Prelude.Tuple2+                                        (Curry.DebugModule.Prelude.List+                                           Curry.DebugModule.Prelude.Char)+                                        (Curry.DebugModule.Prelude.List+                                           Curry.DebugModule.Prelude.Char)+                                        ->+                                        dm+                                          (Curry.DebugModule.Prelude.List+                                             Curry.DebugModule.Prelude.Char)+x'xstrict_splitPath46_35selFP1035zs x1+  = DM.eval+      (DM.funcDeclHook "splitPath._#selFP10#zs"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_9"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_9 x2)))+x'xterm_strict_splitPath46_35selFP1035zs x1+  = DI.Term "splitPath._#selFP10#zs" (DI.SrcID "FileGoodies" 0) x1+ +strict_findFileInPath ::+                      (DM.DM dm) =>+                        dm+                          (DM.Func dm+                             (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                             (DM.Func dm+                                (Curry.DebugModule.Prelude.List+                                   (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+                                (DM.Func dm+                                   (Curry.DebugModule.Prelude.List+                                      (Curry.DebugModule.Prelude.List+                                         Curry.DebugModule.Prelude.Char))+                                   (Curry.DebugModule.Prelude.IO dm+                                      (Curry.DebugModule.Prelude.Maybe+                                         (Curry.DebugModule.Prelude.List+                                            Curry.DebugModule.Prelude.Char))))))+strict_findFileInPath+  = DM.eval+      (DM.funcDeclHook "findFileInPath"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+         (Prelude.return+            (PC.partCall3 (term_strict_lookupFileInPath [])+               strict_lookupFileInPath)))+ +strict_lookupFileInPath ::+                        (DM.DM dm) =>+                          Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                            Curry.DebugModule.Prelude.List+                              (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                              ->+                              Curry.DebugModule.Prelude.List+                                (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_lookupFileInPath x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "lookupFileInPath"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- Prelude.return x3+             x8 <- do x4 <- Prelude.return x1+                      DM.funcCallHook "isAbsolute"+                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4]))+                        (strict_isAbsolute x4)+             DM.funcCallHook "_case_8"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+               (strict__case_8 x5 x6 x7 x8)))+term_strict_lookupFileInPath x1+  = DI.Term "lookupFileInPath" (DI.SrcID "FileGoodies" 0) x1+ +x'xstrict_lookupFileInPath46lookupFirstFileWithSuffix4636 ::+                                                          (DM.DM dm) =>+                                                            Curry.DebugModule.Prelude.List+                                                              Curry.DebugModule.Prelude.Char+                                                              ->+                                                              Curry.DebugModule.Prelude.List+                                                                (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)))+x'xstrict_lookupFileInPath46lookupFirstFileWithSuffix4636 x1 x2+  = DM.eval+      (DM.funcDeclHook "lookupFileInPath.lookupFirstFileWithSuffix.36"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_7"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_7 x3 x4)))+x'xterm_strict_lookupFileInPath46lookupFirstFileWithSuffix4636 x1+  = DI.Term "lookupFileInPath.lookupFirstFileWithSuffix.36"+      (DI.SrcID "FileGoodies" 0)+      x1+ +x'xstrict_lookupFileInPath46lookupFirstFileWithSuffix463646_35lambda3 ::+                                                                      (DM.DM dm) =>+                                                                        Curry.DebugModule.Prelude.List+                                                                          Curry.DebugModule.Prelude.Char+                                                                          ->+                                                                          Curry.DebugModule.Prelude.List+                                                                            Curry.DebugModule.Prelude.Char+                                                                            ->+                                                                            Curry.DebugModule.Prelude.List+                                                                              (Curry.DebugModule.Prelude.List+                                                                                 Curry.DebugModule.Prelude.Char)+                                                                              ->+                                                                              Curry.DebugModule.Prelude.Bool+                                                                                ->+                                                                                dm+                                                                                  (Curry.DebugModule.Prelude.IO+                                                                                     dm+                                                                                     (Curry.DebugModule.Prelude.Maybe+                                                                                        (Curry.DebugModule.Prelude.List+                                                                                           Curry.DebugModule.Prelude.Char)))+x'xstrict_lookupFileInPath46lookupFirstFileWithSuffix463646_35lambda3+  x1 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook+         "lookupFileInPath.lookupFirstFileWithSuffix.36._#lambda3"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- Prelude.return x3+             x8 <- Prelude.return x4+             DM.funcCallHook "_case_6"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+               (strict__case_6 x5 x6 x7 x8)))+x'xterm_strict_lookupFileInPath46lookupFirstFileWithSuffix463646_35lambda3+  x1+  = DI.Term "lookupFileInPath.lookupFirstFileWithSuffix.36._#lambda3"+      (DI.SrcID "FileGoodies" 0)+      x1+ +x'xstrict_lookupFileInPath46lookupFirstFile4636 ::+                                                (DM.DM dm) =>+                                                  Curry.DebugModule.Prelude.List+                                                    Curry.DebugModule.Prelude.Char+                                                    ->+                                                    Curry.DebugModule.Prelude.List+                                                      (Curry.DebugModule.Prelude.List+                                                         Curry.DebugModule.Prelude.Char)+                                                      ->+                                                      Curry.DebugModule.Prelude.List+                                                        (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)))+x'xstrict_lookupFileInPath46lookupFirstFile4636 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "lookupFileInPath.lookupFirstFile.36"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_5"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_5 x4 x5 x6)))+x'xterm_strict_lookupFileInPath46lookupFirstFile4636 x1+  = DI.Term "lookupFileInPath.lookupFirstFile.36"+      (DI.SrcID "FileGoodies" 0)+      x1+ +x'xstrict_lookupFileInPath46lookupFirstFile463646_35lambda2 ::+                                                            (DM.DM dm) =>+                                                              Curry.DebugModule.Prelude.List+                                                                (Curry.DebugModule.Prelude.List+                                                                   Curry.DebugModule.Prelude.Char)+                                                                ->+                                                                Curry.DebugModule.Prelude.List+                                                                  Curry.DebugModule.Prelude.Char+                                                                  ->+                                                                  Curry.DebugModule.Prelude.List+                                                                    (Curry.DebugModule.Prelude.List+                                                                       Curry.DebugModule.Prelude.Char)+                                                                    ->+                                                                    Curry.DebugModule.Prelude.Maybe+                                                                      (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)))+x'xstrict_lookupFileInPath46lookupFirstFile463646_35lambda2 x1 x2+  x3 x4+  = DM.eval+      (DM.funcDeclHook "lookupFileInPath.lookupFirstFile.36._#lambda2"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x10 <- do x5 <- Prelude.return x2+                       x6 <- Prelude.return x3+                       x7 <- Prelude.return x1+                       DM.funcCallHook "lookupFileInPath.lookupFirstFile.36"+                         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                            (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                         (x'xstrict_lookupFileInPath46lookupFirstFile4636 x5 x6 x7)+             x11 <- do x8 <- Prelude.return+                               (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_return [])+                                  Curry.DebugModule.Prelude.strict_return)+                       x9 <- Prelude.return+                               (PC.partCall1 (Curry.DebugModule.Prelude.term_Just [])+                                  (\ x0 -> Prelude.return (Curry.DebugModule.Prelude.Just x0)))+                       DM.funcCallHook "."+                         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                            (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                         (Curry.DebugModule.Prelude.op_Point x8 x9)+             x12 <- Prelude.return x4+             DM.funcCallHook "maybe"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12]))+               (Curry.DebugModule.Prelude.strict_maybe x10 x11 x12)))+x'xterm_strict_lookupFileInPath46lookupFirstFile463646_35lambda2 x1+  = DI.Term "lookupFileInPath.lookupFirstFile.36._#lambda2"+      (DI.SrcID "FileGoodies" 0)+      x1+ +strict_getFileInPath ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                         Curry.DebugModule.Prelude.List+                           (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                           ->+                           Curry.DebugModule.Prelude.List+                             (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                             ->+                             dm+                               (Curry.DebugModule.Prelude.IO dm+                                  (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_getFileInPath x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "getFileInPath"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x9 <- do x4 <- Prelude.return x1+                      x5 <- Prelude.return x2+                      x6 <- Prelude.return x3+                      DM.funcCallHook "lookupFileInPath"+                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+                        (strict_lookupFileInPath x4 x5 x6)+             x10 <- do x7 <- Prelude.return x1+                       x8 <- Prelude.return x3+                       Prelude.return+                         (PC.partCall1+                            (x'xterm_strict_getFileInPath46_35lambda4+                               [DI.genTerm x7, DI.genTerm x8])+                            (x'xstrict_getFileInPath46_35lambda4 x7 x8))+             DM.funcCallHook ">>="+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+               (Curry.DebugModule.Prelude.op_GtGtEq x9 x10)))+term_strict_getFileInPath x1+  = DI.Term "getFileInPath" (DI.SrcID "FileGoodies" 0) x1+ +x'xstrict_getFileInPath46_35lambda4 ::+                                    (DM.DM dm) =>+                                      Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char+                                        ->+                                        Curry.DebugModule.Prelude.List+                                          (Curry.DebugModule.Prelude.List+                                             Curry.DebugModule.Prelude.Char)+                                          ->+                                          Curry.DebugModule.Prelude.Maybe+                                            (Curry.DebugModule.Prelude.List+                                               Curry.DebugModule.Prelude.Char)+                                            ->+                                            dm+                                              (Curry.DebugModule.Prelude.IO dm+                                                 (Curry.DebugModule.Prelude.List+                                                    Curry.DebugModule.Prelude.Char))+x'xstrict_getFileInPath46_35lambda4 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "getFileInPath._#lambda4"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x65 <- do x63 <- Prelude.return+                                (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_error [])+                                   Curry.DebugModule.Prelude.strict_error)+                       x64 <- do x61 <- do x12 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Char 'F'))+                                           x13 <- do x10 <- DM.litHook+                                                              (DI.DebugInfo+                                                                 (DI.SrcID "FileGoodies" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    'i'))+                                                     x11 <- do x8 <- DM.litHook+                                                                       (DI.DebugInfo+                                                                          (DI.SrcID "FileGoodies" 0)+                                                                          (DI.DynamicInfo [] []))+                                                                       (Prelude.return+                                                                          (Curry.DebugModule.Prelude.Char+                                                                             'l'))+                                                               x9 <- do x6 <- DM.litHook+                                                                                (DI.DebugInfo+                                                                                   (DI.SrcID+                                                                                      "FileGoodies"+                                                                                      0)+                                                                                   (DI.DynamicInfo+                                                                                      []+                                                                                      []))+                                                                                (Prelude.return+                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                      'e'))+                                                                        x7 <- do x4 <- DM.litHook+                                                                                         (DI.DebugInfo+                                                                                            (DI.SrcID+                                                                                               "FileGoodies"+                                                                                               0)+                                                                                            (DI.DynamicInfo+                                                                                               []+                                                                                               []))+                                                                                         (Prelude.return+                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                               ' '))+                                                                                 x5 <- DM.constructorHook+                                                                                         (DI.DebugInfo+                                                                                            (DI.SrcID+                                                                                               "FileGoodies"+                                                                                               0)+                                                                                            (DI.DynamicInfo+                                                                                               []+                                                                                               []))+                                                                                         (Prelude.return+                                                                                            Curry.DebugModule.Prelude.Nil)+                                                                                 DM.constructorHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "FileGoodies"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         [DI.genTerm+                                                                                            x4,+                                                                                          DI.genTerm+                                                                                            x5]))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                         x4+                                                                                         x5))+                                                                        DM.constructorHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "FileGoodies"+                                                                                0)+                                                                             (DI.DynamicInfo []+                                                                                [DI.genTerm x6,+                                                                                 DI.genTerm x7]))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                x6+                                                                                x7))+                                                               DM.constructorHook+                                                                 (DI.DebugInfo+                                                                    (DI.SrcID "FileGoodies" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x8,+                                                                        DI.genTerm x9]))+                                                                 (Prelude.return+                                                                    (Curry.DebugModule.Prelude.Cons+                                                                       x8+                                                                       x9))+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x10, DI.genTerm x11]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x10 x11))+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x12, DI.genTerm x13]))+                                             (Prelude.return+                                                (Curry.DebugModule.Prelude.Cons x12 x13))+                                 x62 <- do x59 <- Prelude.return x1+                                           x60 <- do x57 <- do x50 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "FileGoodies"+                                                                              0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Char+                                                                              ' '))+                                                               x51 <- do x48 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID+                                                                                        "FileGoodies"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        'n'))+                                                                         x49 <- do x46 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "FileGoodies"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  'o'))+                                                                                   x47 <- do x44 <- DM.litHook+                                                                                                      (DI.DebugInfo+                                                                                                         (DI.SrcID+                                                                                                            "FileGoodies"+                                                                                                            0)+                                                                                                         (DI.DynamicInfo+                                                                                                            []+                                                                                                            []))+                                                                                                      (Prelude.return+                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                            't'))+                                                                                             x45 <- do x42 <- DM.litHook+                                                                                                                (DI.DebugInfo+                                                                                                                   (DI.SrcID+                                                                                                                      "FileGoodies"+                                                                                                                      0)+                                                                                                                   (DI.DynamicInfo+                                                                                                                      []+                                                                                                                      []))+                                                                                                                (Prelude.return+                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                      ' '))+                                                                                                       x43 <- do x40 <- DM.litHook+                                                                                                                          (DI.DebugInfo+                                                                                                                             (DI.SrcID+                                                                                                                                "FileGoodies"+                                                                                                                                0)+                                                                                                                             (DI.DynamicInfo+                                                                                                                                []+                                                                                                                                []))+                                                                                                                          (Prelude.return+                                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                                'f'))+                                                                                                                 x41 <- do x38 <- DM.litHook+                                                                                                                                    (DI.DebugInfo+                                                                                                                                       (DI.SrcID+                                                                                                                                          "FileGoodies"+                                                                                                                                          0)+                                                                                                                                       (DI.DynamicInfo+                                                                                                                                          []+                                                                                                                                          []))+                                                                                                                                    (Prelude.return+                                                                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                                                                          'o'))+                                                                                                                           x39 <- do x36 <- DM.litHook+                                                                                                                                              (DI.DebugInfo+                                                                                                                                                 (DI.SrcID+                                                                                                                                                    "FileGoodies"+                                                                                                                                                    0)+                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                    []+                                                                                                                                                    []))+                                                                                                                                              (Prelude.return+                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                    'u'))+                                                                                                                                     x37 <- do x34 <- DM.litHook+                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                           (DI.SrcID+                                                                                                                                                              "FileGoodies"+                                                                                                                                                              0)+                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                              []+                                                                                                                                                              []))+                                                                                                                                                        (Prelude.return+                                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                                              'n'))+                                                                                                                                               x35 <- do x32 <- DM.litHook+                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                        "FileGoodies"+                                                                                                                                                                        0)+                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                        []+                                                                                                                                                                        []))+                                                                                                                                                                  (Prelude.return+                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                        'd'))+                                                                                                                                                         x33 <- do x30 <- DM.litHook+                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                  "FileGoodies"+                                                                                                                                                                                  0)+                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                  []+                                                                                                                                                                                  []))+                                                                                                                                                                            (Prelude.return+                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                  ' '))+                                                                                                                                                                   x31 <- do x28 <- DM.litHook+                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                            "FileGoodies"+                                                                                                                                                                                            0)+                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                            []+                                                                                                                                                                                            []))+                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                            'i'))+                                                                                                                                                                             x29 <- do x26 <- DM.litHook+                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                      "FileGoodies"+                                                                                                                                                                                                      0)+                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                      []+                                                                                                                                                                                                      []))+                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                      'n'))+                                                                                                                                                                                       x27 <- do x24 <- DM.litHook+                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                "FileGoodies"+                                                                                                                                                                                                                0)+                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                []+                                                                                                                                                                                                                []))+                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                ' '))+                                                                                                                                                                                                 x25 <- do x22 <- DM.litHook+                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                          "FileGoodies"+                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                          []+                                                                                                                                                                                                                          []))+                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                          'p'))+                                                                                                                                                                                                           x23 <- do x20 <- DM.litHook+                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                    "FileGoodies"+                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                    'a'))+                                                                                                                                                                                                                     x21 <- do x18 <- DM.litHook+                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                              "FileGoodies"+                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                              []))+                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                              't'))+                                                                                                                                                                                                                               x19 <- do x16 <- DM.litHook+                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                        "FileGoodies"+                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                        'h'))+                                                                                                                                                                                                                                         x17 <- do x14 <- DM.litHook+                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                  "FileGoodies"+                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                  []))+                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                  ' '))+                                                                                                                                                                                                                                                   x15 <- DM.constructorHook+                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                  "FileGoodies"+                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                  []))+                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                           "FileGoodies"+                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                                                                              x14,+                                                                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                                                                              x15]))+                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                           x14+                                                                                                                                                                                                                                                           x15))+                                                                                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                 "FileGoodies"+                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                                                                                    x16,+                                                                                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                                                                                    x17]))+                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                 x16+                                                                                                                                                                                                                                                 x17))+                                                                                                                                                                                                                               DM.constructorHook+                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                       "FileGoodies"+                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                                                                                          x18,+                                                                                                                                                                                                                                        DI.genTerm+                                                                                                                                                                                                                                          x19]))+                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                       x18+                                                                                                                                                                                                                                       x19))+                                                                                                                                                                                                                     DM.constructorHook+                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                             "FileGoodies"+                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                             []+                                                                                                                                                                                                                             [DI.genTerm+                                                                                                                                                                                                                                x20,+                                                                                                                                                                                                                              DI.genTerm+                                                                                                                                                                                                                                x21]))+                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                             x20+                                                                                                                                                                                                                             x21))+                                                                                                                                                                                                           DM.constructorHook+                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                   "FileGoodies"+                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                   []+                                                                                                                                                                                                                   [DI.genTerm+                                                                                                                                                                                                                      x22,+                                                                                                                                                                                                                    DI.genTerm+                                                                                                                                                                                                                      x23]))+                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                   x22+                                                                                                                                                                                                                   x23))+                                                                                                                                                                                                 DM.constructorHook+                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                         "FileGoodies"+                                                                                                                                                                                                         0)+                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                         []+                                                                                                                                                                                                         [DI.genTerm+                                                                                                                                                                                                            x24,+                                                                                                                                                                                                          DI.genTerm+                                                                                                                                                                                                            x25]))+                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                         x24+                                                                                                                                                                                                         x25))+                                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                               "FileGoodies"+                                                                                                                                                                                               0)+                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                               []+                                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                                  x26,+                                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                                  x27]))+                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                               x26+                                                                                                                                                                                               x27))+                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                     "FileGoodies"+                                                                                                                                                                                     0)+                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                     []+                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                        x28,+                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                        x29]))+                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                     x28+                                                                                                                                                                                     x29))+                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                           "FileGoodies"+                                                                                                                                                                           0)+                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                           []+                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                              x30,+                                                                                                                                                                            DI.genTerm+                                                                                                                                                                              x31]))+                                                                                                                                                                     (Prelude.return+                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                           x30+                                                                                                                                                                           x31))+                                                                                                                                                         DM.constructorHook+                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                              (DI.SrcID+                                                                                                                                                                 "FileGoodies"+                                                                                                                                                                 0)+                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                 []+                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                    x32,+                                                                                                                                                                  DI.genTerm+                                                                                                                                                                    x33]))+                                                                                                                                                           (Prelude.return+                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                 x32+                                                                                                                                                                 x33))+                                                                                                                                               DM.constructorHook+                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                    (DI.SrcID+                                                                                                                                                       "FileGoodies"+                                                                                                                                                       0)+                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                       []+                                                                                                                                                       [DI.genTerm+                                                                                                                                                          x34,+                                                                                                                                                        DI.genTerm+                                                                                                                                                          x35]))+                                                                                                                                                 (Prelude.return+                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                       x34+                                                                                                                                                       x35))+                                                                                                                                     DM.constructorHook+                                                                                                                                       (DI.DebugInfo+                                                                                                                                          (DI.SrcID+                                                                                                                                             "FileGoodies"+                                                                                                                                             0)+                                                                                                                                          (DI.DynamicInfo+                                                                                                                                             []+                                                                                                                                             [DI.genTerm+                                                                                                                                                x36,+                                                                                                                                              DI.genTerm+                                                                                                                                                x37]))+                                                                                                                                       (Prelude.return+                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                             x36+                                                                                                                                             x37))+                                                                                                                           DM.constructorHook+                                                                                                                             (DI.DebugInfo+                                                                                                                                (DI.SrcID+                                                                                                                                   "FileGoodies"+                                                                                                                                   0)+                                                                                                                                (DI.DynamicInfo+                                                                                                                                   []+                                                                                                                                   [DI.genTerm+                                                                                                                                      x38,+                                                                                                                                    DI.genTerm+                                                                                                                                      x39]))+                                                                                                                             (Prelude.return+                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                   x38+                                                                                                                                   x39))+                                                                                                                 DM.constructorHook+                                                                                                                   (DI.DebugInfo+                                                                                                                      (DI.SrcID+                                                                                                                         "FileGoodies"+                                                                                                                         0)+                                                                                                                      (DI.DynamicInfo+                                                                                                                         []+                                                                                                                         [DI.genTerm+                                                                                                                            x40,+                                                                                                                          DI.genTerm+                                                                                                                            x41]))+                                                                                                                   (Prelude.return+                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                         x40+                                                                                                                         x41))+                                                                                                       DM.constructorHook+                                                                                                         (DI.DebugInfo+                                                                                                            (DI.SrcID+                                                                                                               "FileGoodies"+                                                                                                               0)+                                                                                                            (DI.DynamicInfo+                                                                                                               []+                                                                                                               [DI.genTerm+                                                                                                                  x42,+                                                                                                                DI.genTerm+                                                                                                                  x43]))+                                                                                                         (Prelude.return+                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                               x42+                                                                                                               x43))+                                                                                             DM.constructorHook+                                                                                               (DI.DebugInfo+                                                                                                  (DI.SrcID+                                                                                                     "FileGoodies"+                                                                                                     0)+                                                                                                  (DI.DynamicInfo+                                                                                                     []+                                                                                                     [DI.genTerm+                                                                                                        x44,+                                                                                                      DI.genTerm+                                                                                                        x45]))+                                                                                               (Prelude.return+                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                     x44+                                                                                                     x45))+                                                                                   DM.constructorHook+                                                                                     (DI.DebugInfo+                                                                                        (DI.SrcID+                                                                                           "FileGoodies"+                                                                                           0)+                                                                                        (DI.DynamicInfo+                                                                                           []+                                                                                           [DI.genTerm+                                                                                              x46,+                                                                                            DI.genTerm+                                                                                              x47]))+                                                                                     (Prelude.return+                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                           x46+                                                                                           x47))+                                                                         DM.constructorHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID+                                                                                 "FileGoodies"+                                                                                 0)+                                                                              (DI.DynamicInfo []+                                                                                 [DI.genTerm x48,+                                                                                  DI.genTerm x49]))+                                                                           (Prelude.return+                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                 x48+                                                                                 x49))+                                                               DM.constructorHook+                                                                 (DI.DebugInfo+                                                                    (DI.SrcID "FileGoodies" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x50,+                                                                        DI.genTerm x51]))+                                                                 (Prelude.return+                                                                    (Curry.DebugModule.Prelude.Cons+                                                                       x50+                                                                       x51))+                                                     x58 <- do x56 <- do x54 <- do x52 <- DM.funcCallHook+                                                                                            "pathSeparatorChar"+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "FileGoodies"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            strict_pathSeparatorChar+                                                                                   x53 <- DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "FileGoodies"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                   DM.constructorHook+                                                                                     (DI.DebugInfo+                                                                                        (DI.SrcID+                                                                                           "FileGoodies"+                                                                                           0)+                                                                                        (DI.DynamicInfo+                                                                                           []+                                                                                           [DI.genTerm+                                                                                              x52,+                                                                                            DI.genTerm+                                                                                              x53]))+                                                                                     (Prelude.return+                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                           x52+                                                                                           x53))+                                                                         x55 <- Prelude.return x2+                                                                         DM.funcCallHook+                                                                           "intersperse"+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID+                                                                                 "FileGoodies"+                                                                                 0)+                                                                              (DI.DynamicInfo []+                                                                                 [DI.genTerm x54,+                                                                                  DI.genTerm x55]))+                                                                           (Curry.DebugModule.List.strict_intersperse+                                                                              x54+                                                                              x55)+                                                               DM.funcCallHook "concat"+                                                                 (DI.DebugInfo+                                                                    (DI.SrcID "FileGoodies" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x56]))+                                                                 (Curry.DebugModule.Prelude.strict_concat+                                                                    x56)+                                                     DM.funcCallHook "++"+                                                       (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x57, DI.genTerm x58]))+                                                       (Curry.DebugModule.Prelude.op_PlusPlus x57+                                                          x58)+                                           DM.funcCallHook "++"+                                             (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x59, DI.genTerm x60]))+                                             (Curry.DebugModule.Prelude.op_PlusPlus x59 x60)+                                 DM.funcCallHook "++"+                                   (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x61, DI.genTerm x62]))+                                   (Curry.DebugModule.Prelude.op_PlusPlus x61 x62)+                       DM.funcCallHook "$"+                         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                            (DI.DynamicInfo [] [DI.genTerm x63, DI.genTerm x64]))+                         (Curry.DebugModule.Prelude.op_Dollar x63 x64)+             x66 <- Prelude.return+                      (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_return [])+                         Curry.DebugModule.Prelude.strict_return)+             x67 <- Prelude.return x3+             DM.funcCallHook "maybe"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x65, DI.genTerm x66, DI.genTerm x67]))+               (Curry.DebugModule.Prelude.strict_maybe x65 x66 x67)))+x'xterm_strict_getFileInPath46_35lambda4 x1+  = DI.Term "getFileInPath._#lambda4" (DI.SrcID "FileGoodies" 0) x1+ +strict_replaceFileName ::+                       (DM.DM dm) =>+                         DM.Func dm+                           (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                           (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                           ->+                           Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                             dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_replaceFileName x1 x2+  = DM.eval+      (DM.funcDeclHook "replaceFileName"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (DM.letHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x3 <- do x6 <- Prelude.return x2+                         DM.funcCallHook "splitDirectoryBaseName"+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                              (DI.DynamicInfo [] [DI.genTerm x6]))+                           (strict_splitDirectoryBaseName x6)+                DM.eval+                  (DM.letHook+                     (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                     (do x4 <- do x7 <- Prelude.return x3+                                  DM.funcCallHook "replaceFileName._#selFP12#dir"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7]))+                                    (x'xstrict_replaceFileName46_35selFP1235dir x7)+                         DM.eval+                           (DM.letHook+                              (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                              (do x5 <- do x8 <- Prelude.return x3+                                           DM.funcCallHook "replaceFileName._#selFP13#fn"+                                             (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x8]))+                                             (x'xstrict_replaceFileName46_35selFP1335fn x8)+                                  DM.eval+                                    (do x9 <- Prelude.return x1+                                        x10 <- Prelude.return x5+                                        x11 <- Prelude.return x4+                                        DM.funcCallHook "_case_4"+                                          (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                             (DI.DynamicInfo []+                                                [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11]))+                                          (strict__case_4 x9 x10 x11)))))))))+term_strict_replaceFileName x1+  = DI.Term "replaceFileName" (DI.SrcID "FileGoodies" 0) x1+ +x'xstrict_replaceFileName46_35selFP1235dir ::+                                           (DM.DM dm) =>+                                             Curry.DebugModule.Prelude.Tuple2+                                               (Curry.DebugModule.Prelude.List+                                                  Curry.DebugModule.Prelude.Char)+                                               (Curry.DebugModule.Prelude.List+                                                  Curry.DebugModule.Prelude.Char)+                                               ->+                                               dm+                                                 (Curry.DebugModule.Prelude.List+                                                    Curry.DebugModule.Prelude.Char)+x'xstrict_replaceFileName46_35selFP1235dir x1+  = DM.eval+      (DM.funcDeclHook "replaceFileName._#selFP12#dir"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_1"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_1 x2)))+x'xterm_strict_replaceFileName46_35selFP1235dir x1+  = DI.Term "replaceFileName._#selFP12#dir"+      (DI.SrcID "FileGoodies" 0)+      x1+ +x'xstrict_replaceFileName46_35selFP1335fn ::+                                          (DM.DM dm) =>+                                            Curry.DebugModule.Prelude.Tuple2+                                              (Curry.DebugModule.Prelude.List+                                                 Curry.DebugModule.Prelude.Char)+                                              (Curry.DebugModule.Prelude.List+                                                 Curry.DebugModule.Prelude.Char)+                                              ->+                                              dm+                                                (Curry.DebugModule.Prelude.List+                                                   Curry.DebugModule.Prelude.Char)+x'xstrict_replaceFileName46_35selFP1335fn x1+  = DM.eval+      (DM.funcDeclHook "replaceFileName._#selFP13#fn"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_0"+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_0 x2)))+x'xterm_strict_replaceFileName46_35selFP1335fn x1+  = DI.Term "replaceFileName._#selFP13#fn" (DI.SrcID "FileGoodies" 0)+      x1+strict__case_0 x1+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_0+                           x4)))+term_strict__case_0 x1+  = DI.Term "_case_0" (DI.SrcID "FileGoodies" 0) x1+strict__case_1 x1+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_1+                           x4)))+term_strict__case_1 x1+  = DI.Term "_case_1" (DI.SrcID "FileGoodies" 0) x1+strict__case_4 x1 x5 x4+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x5, DI.genTerm x4]))+         (do x22 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x22]))+               (case x22 of+                    Curry.DebugModule.Prelude.Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x1+                                  x11 <- Prelude.return x4+                                  x12 <- Prelude.return x5+                                  x13 <- Prelude.return x6+                                  x14 <- Prelude.return x7+                                  x15 <- do x8 <- Prelude.return x6+                                            x9 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Char '.'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.op_EqEq x8 x9)+                                  DM.funcCallHook "_case_3"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12,+                                           DI.genTerm x13, DI.genTerm x14, DI.genTerm x15]))+                                    (strict__case_3 x10 x11 x12 x13 x14 x15)))+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x20 <- Prelude.return x4+                                  x21 <- do x18 <- DM.funcCallHook "separatorChar"+                                                     (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                        (DI.DynamicInfo [] []))+                                                     strict_separatorChar+                                            x19 <- do x16 <- Prelude.return x1+                                                      x17 <- Prelude.return x5+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x16, DI.genTerm x17]))+                                                        (Curry.DebugModule.Prelude.strict_apply x16+                                                           x17)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x18, DI.genTerm x19]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x18 x19))+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x20, DI.genTerm x21]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x20 x21)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x22])))+                           (strict__case_4 x1 x5)+                           x22)))+term_strict__case_4 x1+  = DI.Term "_case_4" (DI.SrcID "FileGoodies" 0) x1+strict__case_3 x1 x4 x5 x6 x7 x8+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6,+                DI.genTerm x7, DI.genTerm x8]))+         (do x19 <- Prelude.return x8+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- Prelude.return x4+                                  x11 <- Prelude.return x5+                                  x12 <- Prelude.return x7+                                  DM.funcCallHook "_case_2"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11,+                                           DI.genTerm x12]))+                                    (strict__case_2 x9 x10 x11 x12)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- Prelude.return x4+                                  x18 <- do x15 <- DM.funcCallHook "separatorChar"+                                                     (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                        (DI.DynamicInfo [] []))+                                                     strict_separatorChar+                                            x16 <- do x13 <- Prelude.return x1+                                                      x14 <- Prelude.return x5+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Curry.DebugModule.Prelude.strict_apply x13+                                                           x14)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x15 x16))+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x17 x18)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           (strict__case_3 x1 x4 x5 x6 x7)+                           x19)))+term_strict__case_3 x1+  = DI.Term "_case_3" (DI.SrcID "FileGoodies" 0) x1+strict__case_2 x1 x4 x5 x7+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x7]))+         (do x18 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x1+                                  x11 <- Prelude.return x5+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (Curry.DebugModule.Prelude.strict_apply x10 x11)))+                    Curry.DebugModule.Prelude.Cons x8 x9+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- Prelude.return x4+                                  x17 <- do x14 <- DM.funcCallHook "separatorChar"+                                                     (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                        (DI.DynamicInfo [] []))+                                                     strict_separatorChar+                                            x15 <- do x12 <- Prelude.return x1+                                                      x13 <- Prelude.return x5+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x12, DI.genTerm x13]))+                                                        (Curry.DebugModule.Prelude.strict_apply x12+                                                           x13)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x14, DI.genTerm x15]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x14 x15))+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x16 x17)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_2 x1 x4 x5)+                           x18)))+term_strict__case_2 x1+  = DI.Term "_case_2" (DI.SrcID "FileGoodies" 0) x1+strict__case_5 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x18 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nothing)+                                  DM.funcCallHook "return"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Curry.DebugModule.Prelude.strict_return x6)))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- do x11 <- do x9 <- Prelude.return x4+                                                      x10 <- do x7 <- DM.funcCallHook+                                                                        "separatorChar"+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "FileGoodies"+                                                                              0)+                                                                           (DI.DynamicInfo [] []))+                                                                        strict_separatorChar+                                                                x8 <- Prelude.return x1+                                                                DM.constructorHook+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "FileGoodies" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x7,+                                                                         DI.genTerm x8]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x7+                                                                        x8))+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x9+                                                           x10)+                                            x12 <- Prelude.return x2+                                            DM.funcCallHook+                                              "lookupFileInPath.lookupFirstFileWithSuffix.36"+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12]))+                                              (x'xstrict_lookupFileInPath46lookupFirstFileWithSuffix4636+                                                 x11+                                                 x12)+                                  x17 <- do x13 <- Prelude.return x5+                                            x14 <- Prelude.return x1+                                            x15 <- Prelude.return x2+                                            Prelude.return+                                              (PC.partCall1+                                                 (x'xterm_strict_lookupFileInPath46lookupFirstFile463646_35lambda2+                                                    [DI.genTerm x13, DI.genTerm x14,+                                                     DI.genTerm x15])+                                                 (x'xstrict_lookupFileInPath46lookupFirstFile463646_35lambda2+                                                    x13+                                                    x14+                                                    x15))+                                  DM.funcCallHook ">>="+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17]))+                                    (Curry.DebugModule.Prelude.op_GtGtEq x16 x17)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_5 x1 x2)+                           x18)))+term_strict__case_5 x1+  = DI.Term "_case_5" (DI.SrcID "FileGoodies" 0) x1+strict__case_6 x1 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x9 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x5 <- Prelude.return x2+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Just x5))+                                  DM.funcCallHook "return"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Curry.DebugModule.Prelude.strict_return x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x3+                                  DM.funcCallHook "lookupFileInPath.lookupFirstFileWithSuffix.36"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (x'xstrict_lookupFileInPath46lookupFirstFileWithSuffix4636 x7+                                       x8)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_6 x1 x2 x3)+                           x9)))+term_strict__case_6 x1+  = DI.Term "_case_6" (DI.SrcID "FileGoodies" 0) x1+strict__case_7 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x15 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nothing)+                                  DM.funcCallHook "return"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Curry.DebugModule.Prelude.strict_return x6)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x5 <- do x7 <- Prelude.return x1+                                              x8 <- Prelude.return x3+                                              DM.funcCallHook "++"+                                                (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x7, DI.genTerm x8]))+                                                (Curry.DebugModule.Prelude.op_PlusPlus x7 x8)+                                     DM.eval+                                       (do x13 <- do x9 <- Prelude.return x5+                                                     DM.funcCallHook "doesFileExist"+                                                       (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x9]))+                                                       (Curry.DebugModule.Directory.strict_doesFileExist+                                                          x9)+                                           x14 <- do x10 <- Prelude.return x1+                                                     x11 <- Prelude.return x5+                                                     x12 <- Prelude.return x4+                                                     Prelude.return+                                                       (PC.partCall1+                                                          (x'xterm_strict_lookupFileInPath46lookupFirstFileWithSuffix463646_35lambda3+                                                             [DI.genTerm x10, DI.genTerm x11,+                                                              DI.genTerm x12])+                                                          (x'xstrict_lookupFileInPath46lookupFirstFileWithSuffix463646_35lambda3+                                                             x10+                                                             x11+                                                             x12))+                                           DM.funcCallHook ">>="+                                             (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x13, DI.genTerm x14]))+                                             (Curry.DebugModule.Prelude.op_GtGtEq x13 x14)))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_7 x1)+                           x15)))+term_strict__case_7 x1+  = DI.Term "_case_7" (DI.SrcID "FileGoodies" 0) x1+strict__case_8 x1 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x10 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- Prelude.return x2+                                  DM.funcCallHook "lookupFileInPath.lookupFirstFileWithSuffix.36"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (x'xstrict_lookupFileInPath46lookupFirstFileWithSuffix4636 x5+                                       x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x2+                                  x9 <- Prelude.return x3+                                  DM.funcCallHook "lookupFileInPath.lookupFirstFile.36"+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+                                    (x'xstrict_lookupFileInPath46lookupFirstFile4636 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_8 x1 x2 x3)+                           x10)))+term_strict__case_8 x1+  = DI.Term "_case_8" (DI.SrcID "FileGoodies" 0) x1+strict__case_9 x1+  = DM.eval+      (DM.funcDeclHook "_case_9"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_9+                           x4)))+term_strict__case_9 x1+  = DI.Term "_case_9" (DI.SrcID "FileGoodies" 0) x1+strict__case_10 x1+  = DM.eval+      (DM.funcDeclHook "_case_10"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_10+                           x4)))+term_strict__case_10 x1+  = DI.Term "_case_10" (DI.SrcID "FileGoodies" 0) x1+strict__case_12 x1+  = DM.eval+      (DM.funcDeclHook "_case_12"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x20 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x4 <- do x12 <- do x9 <- do x7 <- Prelude.return+                                                                         (PC.partCall2+                                                                            (Curry.DebugModule.Prelude.term_op_EqEq+                                                                               [])+                                                                            Curry.DebugModule.Prelude.op_EqEq)+                                                                 x8 <- DM.funcCallHook+                                                                         "pathSeparatorChar"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "FileGoodies"+                                                                               0)+                                                                            (DI.DynamicInfo [] []))+                                                                         strict_pathSeparatorChar+                                                                 Prelude.return+                                                                   (PC.partCall1+                                                                      (Curry.DebugModule.Prelude.term_strict_flip+                                                                         [DI.genTerm x7,+                                                                          DI.genTerm x8])+                                                                      (Curry.DebugModule.Prelude.strict_flip+                                                                         x7+                                                                         x8))+                                                        DM.funcCallHook "break"+                                                          (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                             (DI.DynamicInfo [] [DI.genTerm x9]))+                                                          (Curry.DebugModule.Prelude.strict_break+                                                             x9)+                                              x13 <- do x10 <- Prelude.return x2+                                                        x11 <- Prelude.return x3+                                                        DM.constructorHook+                                                          (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x10, DI.genTerm x11]))+                                                          (Prelude.return+                                                             (Curry.DebugModule.Prelude.Cons x10+                                                                x11))+                                              DM.funcCallHook "apply"+                                                (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x12, DI.genTerm x13]))+                                                (Curry.DebugModule.Prelude.strict_apply x12 x13)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x5 <- do x14 <- Prelude.return x4+                                                       DM.funcCallHook "splitPath._#selFP9#ys"+                                                         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x14]))+                                                         (x'xstrict_splitPath46_35selFP935ys x14)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x6 <- do x15 <- Prelude.return x4+                                                                DM.funcCallHook+                                                                  "splitPath._#selFP10#zs"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "FileGoodies" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x15]))+                                                                  (x'xstrict_splitPath46_35selFP1035zs+                                                                     x15)+                                                       DM.eval+                                                         (do x17 <- Prelude.return x5+                                                             x18 <- Prelude.return x6+                                                             x19 <- do x16 <- Prelude.return x6+                                                                       DM.funcCallHook "null"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "FileGoodies"+                                                                               0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x16]))+                                                                         (Curry.DebugModule.Prelude.strict_null+                                                                            x16)+                                                             DM.funcCallHook "_case_11"+                                                               (DI.DebugInfo+                                                                  (DI.SrcID "FileGoodies" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x17,+                                                                      DI.genTerm x18,+                                                                      DI.genTerm x19]))+                                                               (strict__case_11 x17 x18 x19)))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           strict__case_12+                           x20)))+term_strict__case_12 x1+  = DI.Term "_case_12" (DI.SrcID "FileGoodies" 0) x1+strict__case_11 x5 x6 x7+  = DM.eval+      (DM.funcDeclHook "_case_11"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+         (do x14 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x5+                                  x9 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x5+                                  x13 <- do x11 <- do x10 <- Prelude.return x6+                                                      DM.funcCallHook "tail"+                                                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x10]))+                                                        (Curry.DebugModule.Prelude.strict_tail x10)+                                            DM.funcCallHook "splitPath"+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x11]))+                                              (strict_splitPath x11)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_11 x5 x6)+                           x14)))+term_strict__case_11 x1+  = DI.Term "_case_11" (DI.SrcID "FileGoodies" 0) x1+strict__case_13 x1+  = DM.eval+      (DM.funcDeclHook "_case_13"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_13+                           x4)))+term_strict__case_13 x1+  = DI.Term "_case_13" (DI.SrcID "FileGoodies" 0) x1+strict__case_14 x1+  = DM.eval+      (DM.funcDeclHook "_case_14"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_14+                           x4)))+term_strict__case_14 x1+  = DI.Term "_case_14" (DI.SrcID "FileGoodies" 0) x1+strict__case_15 x1 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_15"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x15 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- do x9 <- DM.funcCallHook "reverse"+                                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                       (DI.DynamicInfo [] []))+                                                    Curry.DebugModule.Prelude.strict_reverse+                                            x10 <- do x8 <- Prelude.return x4+                                                      DM.funcCallHook "tail"+                                                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x8]))+                                                        (Curry.DebugModule.Prelude.strict_tail x8)+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (Curry.DebugModule.Prelude.strict_apply x9 x10)+                                  x14 <- do x11 <- DM.funcCallHook "reverse"+                                                     (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                        (DI.DynamicInfo [] []))+                                                     Curry.DebugModule.Prelude.strict_reverse+                                            x12 <- Prelude.return x3+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12]))+                                              (Curry.DebugModule.Prelude.strict_apply x11 x12)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x13 x14))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_15 x1 x3 x4)+                           x15)))+term_strict__case_15 x1+  = DI.Term "_case_15" (DI.SrcID "FileGoodies" 0) x1+strict__case_16 x1+  = DM.eval+      (DM.funcDeclHook "_case_16"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_16+                           x4)))+term_strict__case_16 x1+  = DI.Term "_case_16" (DI.SrcID "FileGoodies" 0) x1+strict__case_17 x1+  = DM.eval+      (DM.funcDeclHook "_case_17"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_17+                           x4)))+term_strict__case_17 x1+  = DI.Term "_case_17" (DI.SrcID "FileGoodies" 0) x1+strict__case_18 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_18"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x19 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x6 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Char '.'))+                                            x7 <- DM.constructorHook+                                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x6 x7))+                                  x11 <- do x8 <- DM.funcCallHook "reverse"+                                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                       (DI.DynamicInfo [] []))+                                                    Curry.DebugModule.Prelude.strict_reverse+                                            x9 <- Prelude.return x3+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.strict_apply x8 x9)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x10 x11))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- do x13 <- DM.funcCallHook "reverse"+                                                     (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                        (DI.DynamicInfo [] []))+                                                     Curry.DebugModule.Prelude.strict_reverse+                                            x14 <- do x12 <- Prelude.return x4+                                                      DM.funcCallHook "tail"+                                                        (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x12]))+                                                        (Curry.DebugModule.Prelude.strict_tail x12)+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x13, DI.genTerm x14]))+                                              (Curry.DebugModule.Prelude.strict_apply x13 x14)+                                  x18 <- do x15 <- DM.funcCallHook "reverse"+                                                     (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                        (DI.DynamicInfo [] []))+                                                     Curry.DebugModule.Prelude.strict_reverse+                                            x16 <- Prelude.return x3+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Curry.DebugModule.Prelude.strict_apply x15 x16)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x17 x18))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           (strict__case_18 x3 x4)+                           x19)))+term_strict__case_18 x1+  = DI.Term "_case_18" (DI.SrcID "FileGoodies" 0) x1+strict__case_19 x1+  = DM.eval+      (DM.funcDeclHook "_case_19"+         (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "FileGoodies" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x2+                                  x5 <- DM.funcCallHook "separatorChar"+                                          (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                             (DI.DynamicInfo [] []))+                                          strict_separatorChar+                                  DM.funcCallHook "=="+                                    (DI.DebugInfo (DI.SrcID "FileGoodies" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Curry.DebugModule.Prelude.op_EqEq x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "FileGoodies" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_19+                           x6)))+term_strict__case_19 x1+  = DI.Term "_case_19" (DI.SrcID "FileGoodies" 0) x1
+ dist/build/Curry/DebugModule/Float.hs view
@@ -0,0 +1,665 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Float where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Prelude+ +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")+ +op_PlusPoint ::+             (DM.DM dm) =>+               Curry.DebugModule.Prelude.Float ->+                 Curry.DebugModule.Prelude.Float ->+                   dm Curry.DebugModule.Prelude.Float+op_PlusPoint x1 x2+  = DM.eval+      (DM.funcDeclHook "+."+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_Float_plus [])+                                 strict_prim_Float_plus)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$#"+                        (DI.DebugInfo (DI.SrcID "Float" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x5 x6)))+term_op_PlusPoint x1 = DI.Term "+." (DI.SrcID "Float" 0) x1+ +op_MinusPoint ::+              (DM.DM dm) =>+                Curry.DebugModule.Prelude.Float ->+                  Curry.DebugModule.Prelude.Float ->+                    dm Curry.DebugModule.Prelude.Float+op_MinusPoint x1 x2+  = DM.eval+      (DM.funcDeclHook "-."+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_Float_minus [])+                                 strict_prim_Float_minus)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$#"+                        (DI.DebugInfo (DI.SrcID "Float" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x5 x6)))+term_op_MinusPoint x1 = DI.Term "-." (DI.SrcID "Float" 0) x1+ +op_AsteriskPoint ::+                 (DM.DM dm) =>+                   Curry.DebugModule.Prelude.Float ->+                     Curry.DebugModule.Prelude.Float ->+                       dm Curry.DebugModule.Prelude.Float+op_AsteriskPoint x1 x2+  = DM.eval+      (DM.funcDeclHook "*."+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_Float_times [])+                                 strict_prim_Float_times)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$#"+                        (DI.DebugInfo (DI.SrcID "Float" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x5 x6)))+term_op_AsteriskPoint x1 = DI.Term "*." (DI.SrcID "Float" 0) x1+ +op_SlashPoint ::+              (DM.DM dm) =>+                Curry.DebugModule.Prelude.Float ->+                  Curry.DebugModule.Prelude.Float ->+                    dm Curry.DebugModule.Prelude.Float+op_SlashPoint x1 x2+  = DM.eval+      (DM.funcDeclHook "/."+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_Float_divide [])+                                 strict_prim_Float_divide)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$#"+                        (DI.DebugInfo (DI.SrcID "Float" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x5 x6)))+term_op_SlashPoint x1 = DI.Term "/." (DI.SrcID "Float" 0) x1+ +op_LtPoint ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Float ->+               Curry.DebugModule.Prelude.Float ->+                 dm Curry.DebugModule.Prelude.Bool+op_LtPoint x1 x2+  = DM.eval+      (DM.funcDeclHook "<."+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_Float_lt []) strict_prim_Float_lt)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$#"+                        (DI.DebugInfo (DI.SrcID "Float" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x5 x6)))+term_op_LtPoint x1 = DI.Term "<." (DI.SrcID "Float" 0) x1+ +op_GtPoint ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Float ->+               Curry.DebugModule.Prelude.Float ->+                 dm Curry.DebugModule.Prelude.Bool+op_GtPoint x1 x2+  = DM.eval+      (DM.funcDeclHook ">."+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_Float_gt []) strict_prim_Float_gt)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$#"+                        (DI.DebugInfo (DI.SrcID "Float" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x5 x6)))+term_op_GtPoint x1 = DI.Term ">." (DI.SrcID "Float" 0) x1+ +op_LtEqPoint ::+             (DM.DM dm) =>+               Curry.DebugModule.Prelude.Float ->+                 Curry.DebugModule.Prelude.Float ->+                   dm Curry.DebugModule.Prelude.Bool+op_LtEqPoint x1 x2+  = DM.eval+      (DM.funcDeclHook "<=."+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_Float_leq [])+                                 strict_prim_Float_leq)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$#"+                        (DI.DebugInfo (DI.SrcID "Float" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x5 x6)))+term_op_LtEqPoint x1 = DI.Term "<=." (DI.SrcID "Float" 0) x1+ +op_GtEqPoint ::+             (DM.DM dm) =>+               Curry.DebugModule.Prelude.Float ->+                 Curry.DebugModule.Prelude.Float ->+                   dm Curry.DebugModule.Prelude.Bool+op_GtEqPoint x1 x2+  = DM.eval+      (DM.funcDeclHook ">=."+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_Float_geq [])+                                 strict_prim_Float_geq)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$#"+                        (DI.DebugInfo (DI.SrcID "Float" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x5 x6)))+term_op_GtEqPoint x1 = DI.Term ">=." (DI.SrcID "Float" 0) x1+ +strict_i2f ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Float+strict_i2f x1+  = DM.eval+      (DM.funcDeclHook "i2f"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_i2f []) strict_prim_i2f)+             x3 <- Prelude.return x1+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x2 x3)))+term_strict_i2f x1 = DI.Term "i2f" (DI.SrcID "Float" 0) x1+ +strict_truncate ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Float -> dm Curry.DebugModule.Prelude.Int+strict_truncate x1+  = DM.eval+      (DM.funcDeclHook "truncate"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_truncate []) strict_prim_truncate)+             x3 <- Prelude.return x1+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x2 x3)))+term_strict_truncate x1+  = DI.Term "truncate" (DI.SrcID "Float" 0) x1+ +strict_round ::+             (DM.DM dm) =>+               Curry.DebugModule.Prelude.Float -> dm Curry.DebugModule.Prelude.Int+strict_round x1+  = DM.eval+      (DM.funcDeclHook "round"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_round []) strict_prim_round)+             x3 <- Prelude.return x1+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x2 x3)))+term_strict_round x1 = DI.Term "round" (DI.SrcID "Float" 0) x1+ +strict_sqrt ::+            (DM.DM dm) =>+              Curry.DebugModule.Prelude.Float ->+                dm Curry.DebugModule.Prelude.Float+strict_sqrt x1+  = DM.eval+      (DM.funcDeclHook "sqrt"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_sqrt []) strict_prim_sqrt)+             x3 <- Prelude.return x1+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x2 x3)))+term_strict_sqrt x1 = DI.Term "sqrt" (DI.SrcID "Float" 0) x1+ +strict_log ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Float ->+               dm Curry.DebugModule.Prelude.Float+strict_log x1+  = DM.eval+      (DM.funcDeclHook "log"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_log []) strict_prim_log)+             x3 <- Prelude.return x1+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x2 x3)))+term_strict_log x1 = DI.Term "log" (DI.SrcID "Float" 0) x1+ +strict_exp ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Float ->+               dm Curry.DebugModule.Prelude.Float+strict_exp x1+  = DM.eval+      (DM.funcDeclHook "exp"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_exp []) strict_prim_exp)+             x3 <- Prelude.return x1+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x2 x3)))+term_strict_exp x1 = DI.Term "exp" (DI.SrcID "Float" 0) x1+ +strict_sin ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Float ->+               dm Curry.DebugModule.Prelude.Float+strict_sin x1+  = DM.eval+      (DM.funcDeclHook "sin"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_sin []) strict_prim_sin)+             x3 <- Prelude.return x1+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x2 x3)))+term_strict_sin x1 = DI.Term "sin" (DI.SrcID "Float" 0) x1+ +strict_cos ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Float ->+               dm Curry.DebugModule.Prelude.Float+strict_cos x1+  = DM.eval+      (DM.funcDeclHook "cos"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_cos []) strict_prim_cos)+             x3 <- Prelude.return x1+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x2 x3)))+term_strict_cos x1 = DI.Term "cos" (DI.SrcID "Float" 0) x1+ +strict_tan ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Float ->+               dm Curry.DebugModule.Prelude.Float+strict_tan x1+  = DM.eval+      (DM.funcDeclHook "tan"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_tan []) strict_prim_tan)+             x3 <- Prelude.return x1+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x2 x3)))+term_strict_tan x1 = DI.Term "tan" (DI.SrcID "Float" 0) x1+ +strict_atan ::+            (DM.DM dm) =>+              Curry.DebugModule.Prelude.Float ->+                dm Curry.DebugModule.Prelude.Float+strict_atan x1+  = DM.eval+      (DM.funcDeclHook "atan"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_atan []) strict_prim_atan)+             x3 <- Prelude.return x1+             DM.funcCallHook "$#"+               (DI.DebugInfo (DI.SrcID "Float" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhomb x2 x3)))+term_strict_atan x1 = DI.Term "atan" (DI.SrcID "Float" 0) x1+hook_strict_prim_Float_plus x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_Float_plus"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_Float_plus x1+  = DI.Term "prim_Float_plus" (DI.SrcID "Float" 0) x1+hook_strict_prim_Float_minus x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_Float_minus"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_Float_minus x1+  = DI.Term "prim_Float_minus" (DI.SrcID "Float" 0) x1+hook_strict_prim_Float_times x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_Float_times"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_Float_times x1+  = DI.Term "prim_Float_times" (DI.SrcID "Float" 0) x1+hook_strict_prim_Float_divide x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_Float_divide"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_Float_divide x1+  = DI.Term "prim_Float_divide" (DI.SrcID "Float" 0) x1+hook_strict_prim_Float_lt x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_Float_lt"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_Float_lt x1+  = DI.Term "prim_Float_lt" (DI.SrcID "Float" 0) x1+hook_strict_prim_Float_gt x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_Float_gt"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_Float_gt x1+  = DI.Term "prim_Float_gt" (DI.SrcID "Float" 0) x1+hook_strict_prim_Float_leq x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_Float_leq"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_Float_leq x1+  = DI.Term "prim_Float_leq" (DI.SrcID "Float" 0) x1+hook_strict_prim_Float_geq x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_Float_geq"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_Float_geq x1+  = DI.Term "prim_Float_geq" (DI.SrcID "Float" 0) x1+hook_strict_prim_i2f x1 value+  = DM.eval+      (DM.funcDeclHook "prim_i2f"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_i2f x1+  = DI.Term "prim_i2f" (DI.SrcID "Float" 0) x1+hook_strict_prim_truncate x1 value+  = DM.eval+      (DM.funcDeclHook "prim_truncate"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_truncate x1+  = DI.Term "prim_truncate" (DI.SrcID "Float" 0) x1+hook_strict_prim_round x1 value+  = DM.eval+      (DM.funcDeclHook "prim_round"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_round x1+  = DI.Term "prim_round" (DI.SrcID "Float" 0) x1+hook_strict_prim_sqrt x1 value+  = DM.eval+      (DM.funcDeclHook "prim_sqrt"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_sqrt x1+  = DI.Term "prim_sqrt" (DI.SrcID "Float" 0) x1+hook_strict_prim_log x1 value+  = DM.eval+      (DM.funcDeclHook "prim_log"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_log x1+  = DI.Term "prim_log" (DI.SrcID "Float" 0) x1+hook_strict_prim_exp x1 value+  = DM.eval+      (DM.funcDeclHook "prim_exp"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_exp x1+  = DI.Term "prim_exp" (DI.SrcID "Float" 0) x1+hook_strict_prim_sin x1 value+  = DM.eval+      (DM.funcDeclHook "prim_sin"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_sin x1+  = DI.Term "prim_sin" (DI.SrcID "Float" 0) x1+hook_strict_prim_cos x1 value+  = DM.eval+      (DM.funcDeclHook "prim_cos"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_cos x1+  = DI.Term "prim_cos" (DI.SrcID "Float" 0) x1+hook_strict_prim_tan x1 value+  = DM.eval+      (DM.funcDeclHook "prim_tan"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_tan x1+  = DI.Term "prim_tan" (DI.SrcID "Float" 0) x1+hook_strict_prim_atan x1 value+  = DM.eval+      (DM.funcDeclHook "prim_atan"+         (DI.DebugInfo (DI.SrcID "Float" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_atan x1+  = DI.Term "prim_atan" (DI.SrcID "Float" 0) x1
+ dist/build/Curry/DebugModule/Integer.hs view
@@ -0,0 +1,2273 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Integer where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Prelude+ +strict_pow ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Int ->+               Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_pow x1 x2+  = DM.eval+      (DM.funcDeclHook "pow"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x2+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook ">="+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_GtEq x3 x4)+             DM.funcCallHook "_case_27"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_27 x5 x6 x7)))+term_strict_pow x1 = DI.Term "pow" (DI.SrcID "Integer" 0) x1+ +x'xstrict_pow46powaux463 ::+                         (DM.DM dm) =>+                           Curry.DebugModule.Prelude.Int ->+                             Curry.DebugModule.Prelude.Int ->+                               Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+x'xstrict_pow46powaux463 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "pow.powaux.3"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- Prelude.return x1+             x7 <- Prelude.return x2+             x8 <- Prelude.return x3+             x9 <- do x4 <- Prelude.return x3+                      x5 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (Curry.DebugModule.Prelude.op_EqEq x4 x5)+             DM.funcCallHook "_case_26"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+               (strict__case_26 x6 x7 x8 x9)))+x'xterm_strict_pow46powaux463 x1+  = DI.Term "pow.powaux.3" (DI.SrcID "Integer" 0) x1+ +strict_ilog ::+            (DM.DM dm) =>+              Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_ilog x1+  = DM.eval+      (DM.funcDeclHook "ilog"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             x5 <- do x2 <- Prelude.return x1+                      x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook ">"+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.op_Gt x2 x3)+             DM.funcCallHook "_case_24"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (strict__case_24 x4 x5)))+term_strict_ilog x1 = DI.Term "ilog" (DI.SrcID "Integer" 0) x1+ +strict_isqrt ::+             (DM.DM dm) =>+               Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_isqrt x1+  = DM.eval+      (DM.funcDeclHook "isqrt"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             x5 <- do x2 <- Prelude.return x1+                      x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook ">="+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.op_GtEq x2 x3)+             DM.funcCallHook "_case_22"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (strict__case_22 x4 x5)))+term_strict_isqrt x1 = DI.Term "isqrt" (DI.SrcID "Integer" 0) x1+ +x'xstrict_isqrt46aux4621 ::+                         (DM.DM dm) =>+                           Curry.DebugModule.Prelude.Int ->+                             Curry.DebugModule.Prelude.Int ->+                               Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+x'xstrict_isqrt46aux4621 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "isqrt.aux.21"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x8 <- Prelude.return x1+             x9 <- Prelude.return x2+             x10 <- Prelude.return x3+             x11 <- do x6 <- Prelude.return x3+                       x7 <- do x4 <- Prelude.return x2+                                x5 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return+                                           (Curry.DebugModule.Prelude.Pos+                                              Curry.DebugModule.Prelude.IHi))+                                DM.funcCallHook "+"+                                  (DI.DebugInfo (DI.SrcID "Integer" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                  (Curry.DebugModule.Prelude.op_Plus x4 x5)+                       DM.funcCallHook "=="+                         (DI.DebugInfo (DI.SrcID "Integer" 0)+                            (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                         (Curry.DebugModule.Prelude.op_EqEq x6 x7)+             DM.funcCallHook "_case_19"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10, DI.genTerm x11]))+               (strict__case_19 x8 x9 x10 x11)))+x'xterm_strict_isqrt46aux4621 x1+  = DI.Term "isqrt.aux.21" (DI.SrcID "Integer" 0) x1+ +strict_factorial ::+                 (DM.DM dm) =>+                   Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_factorial x1+  = DM.eval+      (DM.funcDeclHook "factorial"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             x5 <- do x2 <- Prelude.return x1+                      x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook ">="+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.op_GtEq x2 x3)+             DM.funcCallHook "_case_17"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (strict__case_17 x4 x5)))+term_strict_factorial x1+  = DI.Term "factorial" (DI.SrcID "Integer" 0) x1+ +strict_binomial ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Int ->+                    Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_binomial x1 x2+  = DM.eval+      (DM.funcDeclHook "binomial"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x9 <- Prelude.return x1+             x10 <- Prelude.return x2+             x11 <- do x7 <- do x3 <- Prelude.return x2+                                x4 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return Curry.DebugModule.Prelude.Zero)+                                DM.funcCallHook ">"+                                  (DI.DebugInfo (DI.SrcID "Integer" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                  (Curry.DebugModule.Prelude.op_Gt x3 x4)+                       x8 <- do x5 <- Prelude.return x1+                                x6 <- Prelude.return x2+                                DM.funcCallHook ">="+                                  (DI.DebugInfo (DI.SrcID "Integer" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                  (Curry.DebugModule.Prelude.op_GtEq x5 x6)+                       DM.funcCallHook "&&"+                         (DI.DebugInfo (DI.SrcID "Integer" 0)+                            (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                         (Curry.DebugModule.Prelude.op_AndAnd x7 x8)+             DM.funcCallHook "_case_15"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11]))+               (strict__case_15 x9 x10 x11)))+term_strict_binomial x1+  = DI.Term "binomial" (DI.SrcID "Integer" 0) x1+ +x'xstrict_binomial46aux4641 ::+                            (DM.DM dm) =>+                              Curry.DebugModule.Prelude.Int ->+                                Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+x'xstrict_binomial46aux4641 x1 x2+  = DM.eval+      (DM.funcDeclHook "binomial.aux.41"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_EqEq x3 x4)+             DM.funcCallHook "_case_14"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_14 x5 x6 x7)))+x'xterm_strict_binomial46aux4641 x1+  = DI.Term "binomial.aux.41" (DI.SrcID "Integer" 0) x1+ +strict_abs ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_abs x1+  = DM.eval+      (DM.funcDeclHook "abs"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             x5 <- do x2 <- Prelude.return x1+                      x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook "<"+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.op_Lt x2 x3)+             DM.funcCallHook "_case_13"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (strict__case_13 x4 x5)))+term_strict_abs x1 = DI.Term "abs" (DI.SrcID "Integer" 0) x1+ +strict_max ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Int ->+               Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_max x1 x2+  = DM.eval+      (DM.funcDeclHook "max"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "<"+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_Lt x3 x4)+             DM.funcCallHook "_case_12"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_12 x5 x6 x7)))+term_strict_max x1 = DI.Term "max" (DI.SrcID "Integer" 0) x1+ +strict_min ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Int ->+               Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_min x1 x2+  = DM.eval+      (DM.funcDeclHook "min"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "<"+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_Lt x3 x4)+             DM.funcCallHook "_case_11"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_11 x5 x6 x7)))+term_strict_min x1 = DI.Term "min" (DI.SrcID "Integer" 0) x1+ +strict_max3 ::+            (DM.DM dm) =>+              Curry.DebugModule.Prelude.Int ->+                Curry.DebugModule.Prelude.Int ->+                  Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_max3 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "max3"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- Prelude.return x1+             x7 <- do x4 <- Prelude.return x2+                      x5 <- Prelude.return x3+                      DM.funcCallHook "max"+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (strict_max x4 x5)+             DM.funcCallHook "max"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+               (strict_max x6 x7)))+term_strict_max3 x1 = DI.Term "max3" (DI.SrcID "Integer" 0) x1+ +strict_min3 ::+            (DM.DM dm) =>+              Curry.DebugModule.Prelude.Int ->+                Curry.DebugModule.Prelude.Int ->+                  Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_min3 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "min3"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- Prelude.return x1+             x7 <- do x4 <- Prelude.return x2+                      x5 <- Prelude.return x3+                      DM.funcCallHook "min"+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (strict_min x4 x5)+             DM.funcCallHook "min"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+               (strict_min x6 x7)))+term_strict_min3 x1 = DI.Term "min3" (DI.SrcID "Integer" 0) x1+ +strict_maxlist ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int ->+                   dm Curry.DebugModule.Prelude.Int+strict_maxlist x1+  = DM.eval+      (DM.funcDeclHook "maxlist"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_10"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_10 x2)))+term_strict_maxlist x1+  = DI.Term "maxlist" (DI.SrcID "Integer" 0) x1+ +strict_minlist ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int ->+                   dm Curry.DebugModule.Prelude.Int+strict_minlist x1+  = DM.eval+      (DM.funcDeclHook "minlist"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_8"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_8 x2)))+term_strict_minlist x1+  = DI.Term "minlist" (DI.SrcID "Integer" 0) x1+ +strict_bitTrunc ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Int ->+                    Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_bitTrunc x1 x2+  = DM.eval+      (DM.funcDeclHook "bitTrunc"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x7 <- do x5 <- do x3 <- DM.litHook+                                       (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                       (Prelude.return+                                          (Curry.DebugModule.Prelude.Pos+                                             (Curry.DebugModule.Prelude.O+                                                Curry.DebugModule.Prelude.IHi)))+                               x4 <- Prelude.return x1+                               DM.funcCallHook "pow"+                                 (DI.DebugInfo (DI.SrcID "Integer" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                 (strict_pow x3 x4)+                      x6 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return+                                 (Curry.DebugModule.Prelude.Pos Curry.DebugModule.Prelude.IHi))+                      DM.funcCallHook "-"+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                        (Curry.DebugModule.Prelude.op_Minus x5 x6)+             x8 <- Prelude.return x2+             DM.funcCallHook "bitAnd"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+               (strict_bitAnd x7 x8)))+term_strict_bitTrunc x1+  = DI.Term "bitTrunc" (DI.SrcID "Integer" 0) x1+ +strict_bitAnd ::+              (DM.DM dm) =>+                Curry.DebugModule.Prelude.Int ->+                  Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_bitAnd x1 x2+  = DM.eval+      (DM.funcDeclHook "bitAnd"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x2+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_EqEq x3 x4)+             DM.funcCallHook "_case_6"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_6 x5 x6 x7)))+term_strict_bitAnd x1 = DI.Term "bitAnd" (DI.SrcID "Integer" 0) x1+ +strict_bitOr ::+             (DM.DM dm) =>+               Curry.DebugModule.Prelude.Int ->+                 Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_bitOr x1 x2+  = DM.eval+      (DM.funcDeclHook "bitOr"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x2+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_EqEq x3 x4)+             DM.funcCallHook "_case_4"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_4 x5 x6 x7)))+term_strict_bitOr x1 = DI.Term "bitOr" (DI.SrcID "Integer" 0) x1+ +strict_bitNot ::+              (DM.DM dm) =>+                Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_bitNot x1+  = DM.eval+      (DM.funcDeclHook "bitNot"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                     (Prelude.return+                        (Curry.DebugModule.Prelude.Pos+                           (Curry.DebugModule.Prelude.O+                              (Curry.DebugModule.Prelude.O+                                 (Curry.DebugModule.Prelude.O+                                    (Curry.DebugModule.Prelude.O+                                       (Curry.DebugModule.Prelude.O+                                          Curry.DebugModule.Prelude.IHi)))))))+             x3 <- Prelude.return x1+             DM.funcCallHook "bitNot.aux.100"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (x'xstrict_bitNot46aux46100 x2 x3)))+term_strict_bitNot x1 = DI.Term "bitNot" (DI.SrcID "Integer" 0) x1+ +x'xstrict_bitNot46aux46100 ::+                           (DM.DM dm) =>+                             Curry.DebugModule.Prelude.Int ->+                               Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+x'xstrict_bitNot46aux46100 x1 x2+  = DM.eval+      (DM.funcDeclHook "bitNot.aux.100"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_EqEq x3 x4)+             DM.funcCallHook "_case_2"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_2 x5 x6 x7)))+x'xterm_strict_bitNot46aux46100 x1+  = DI.Term "bitNot.aux.100" (DI.SrcID "Integer" 0) x1+ +strict_bitXor ::+              (DM.DM dm) =>+                Curry.DebugModule.Prelude.Int ->+                  Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_bitXor x1 x2+  = DM.eval+      (DM.funcDeclHook "bitXor"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x2+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_EqEq x3 x4)+             DM.funcCallHook "_case_1"+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_1 x5 x6 x7)))+term_strict_bitXor x1 = DI.Term "bitXor" (DI.SrcID "Integer" 0) x1+ +strict_even ::+            (DM.DM dm) =>+              Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Bool+strict_even x1+  = DM.eval+      (DM.funcDeclHook "even"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return x1+                      x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return+                                 (Curry.DebugModule.Prelude.Pos+                                    (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi)))+                      DM.funcCallHook "mod"+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.strict_mod x2 x3)+             x5 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Zero)+             DM.funcCallHook "=="+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (Curry.DebugModule.Prelude.op_EqEq x4 x5)))+term_strict_even x1 = DI.Term "even" (DI.SrcID "Integer" 0) x1+ +strict_odd ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Bool+strict_odd x1+  = DM.eval+      (DM.funcDeclHook "odd"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return x1+                      x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                              (Prelude.return+                                 (Curry.DebugModule.Prelude.Pos+                                    (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi)))+                      DM.funcCallHook "mod"+                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.strict_mod x2 x3)+             x5 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Zero)+             DM.funcCallHook "/="+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (Curry.DebugModule.Prelude.op_SlashEq x4 x5)))+term_strict_odd x1 = DI.Term "odd" (DI.SrcID "Integer" 0) x1+strict__case_1 x1 x2 x5+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5]))+         (do x25 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x25]))+               (case x25 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x3 <- do x12 <- DM.litHook+                                                       (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                          (DI.DynamicInfo [] []))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Pos+                                                             (Curry.DebugModule.Prelude.O+                                                                Curry.DebugModule.Prelude.IHi)))+                                              x13 <- do x10 <- do x6 <- Prelude.return x1+                                                                  x7 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                (Curry.DebugModule.Prelude.O+                                                                                   Curry.DebugModule.Prelude.IHi)))+                                                                  DM.funcCallHook "div"+                                                                    (DI.DebugInfo+                                                                       (DI.SrcID "Integer" 0)+                                                                       (DI.DynamicInfo []+                                                                          [DI.genTerm x6,+                                                                           DI.genTerm x7]))+                                                                    (Curry.DebugModule.Prelude.strict_div+                                                                       x6+                                                                       x7)+                                                        x11 <- do x8 <- Prelude.return x2+                                                                  x9 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                (Curry.DebugModule.Prelude.O+                                                                                   Curry.DebugModule.Prelude.IHi)))+                                                                  DM.funcCallHook "div"+                                                                    (DI.DebugInfo+                                                                       (DI.SrcID "Integer" 0)+                                                                       (DI.DynamicInfo []+                                                                          [DI.genTerm x8,+                                                                           DI.genTerm x9]))+                                                                    (Curry.DebugModule.Prelude.strict_div+                                                                       x8+                                                                       x9)+                                                        DM.funcCallHook "bitXor"+                                                          (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x10, DI.genTerm x11]))+                                                          (strict_bitXor x10 x11)+                                              DM.funcCallHook "*"+                                                (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x12, DI.genTerm x13]))+                                                (Curry.DebugModule.Prelude.op_Asterisk x12 x13)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x4 <- do x20 <- Prelude.return x1+                                                       x21 <- Prelude.return x2+                                                       x22 <- do x18 <- do x14 <- Prelude.return x2+                                                                           x15 <- DM.litHook+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "Integer"+                                                                                          0)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          []))+                                                                                    (Prelude.return+                                                                                       (Curry.DebugModule.Prelude.Pos+                                                                                          (Curry.DebugModule.Prelude.O+                                                                                             Curry.DebugModule.Prelude.IHi)))+                                                                           DM.funcCallHook "mod"+                                                                             (DI.DebugInfo+                                                                                (DI.SrcID "Integer"+                                                                                   0)+                                                                                (DI.DynamicInfo []+                                                                                   [DI.genTerm x14,+                                                                                    DI.genTerm+                                                                                      x15]))+                                                                             (Curry.DebugModule.Prelude.strict_mod+                                                                                x14+                                                                                x15)+                                                                 x19 <- do x16 <- Prelude.return x1+                                                                           x17 <- DM.litHook+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "Integer"+                                                                                          0)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          []))+                                                                                    (Prelude.return+                                                                                       (Curry.DebugModule.Prelude.Pos+                                                                                          (Curry.DebugModule.Prelude.O+                                                                                             Curry.DebugModule.Prelude.IHi)))+                                                                           DM.funcCallHook "mod"+                                                                             (DI.DebugInfo+                                                                                (DI.SrcID "Integer"+                                                                                   0)+                                                                                (DI.DynamicInfo []+                                                                                   [DI.genTerm x16,+                                                                                    DI.genTerm+                                                                                      x17]))+                                                                             (Curry.DebugModule.Prelude.strict_mod+                                                                                x16+                                                                                x17)+                                                                 DM.funcCallHook "=="+                                                                   (DI.DebugInfo+                                                                      (DI.SrcID "Integer" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x18,+                                                                          DI.genTerm x19]))+                                                                   (Curry.DebugModule.Prelude.op_EqEq+                                                                      x18+                                                                      x19)+                                                       DM.funcCallHook "_case_0"+                                                         (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                            (DI.DynamicInfo []+                                                               [DI.genTerm x20, DI.genTerm x21,+                                                                DI.genTerm x22]))+                                                         (strict__case_0 x20 x21 x22)+                                              DM.eval+                                                (do x23 <- Prelude.return x3+                                                    x24 <- Prelude.return x4+                                                    DM.funcCallHook "+"+                                                      (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x23, DI.genTerm x24]))+                                                      (Curry.DebugModule.Prelude.op_Plus x23+                                                         x24)))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x25])))+                           (strict__case_1 x1 x2)+                           x25)))+term_strict__case_1 x1+  = DI.Term "_case_1" (DI.SrcID "Integer" 0) x1+strict__case_0 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Zero)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return+                                    (Curry.DebugModule.Prelude.Pos Curry.DebugModule.Prelude.IHi))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_0 x1 x2)+                           x4)))+term_strict__case_0 x1+  = DI.Term "_case_0" (DI.SrcID "Integer" 0) x1+strict__case_2 x1 x2 x5+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5]))+         (do x20 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Zero)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x3 <- do x12 <- DM.litHook+                                                       (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                          (DI.DynamicInfo [] []))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Pos+                                                             (Curry.DebugModule.Prelude.O+                                                                Curry.DebugModule.Prelude.IHi)))+                                              x13 <- do x10 <- do x6 <- Prelude.return x1+                                                                  x7 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                Curry.DebugModule.Prelude.IHi))+                                                                  DM.funcCallHook "-"+                                                                    (DI.DebugInfo+                                                                       (DI.SrcID "Integer" 0)+                                                                       (DI.DynamicInfo []+                                                                          [DI.genTerm x6,+                                                                           DI.genTerm x7]))+                                                                    (Curry.DebugModule.Prelude.op_Minus+                                                                       x6+                                                                       x7)+                                                        x11 <- do x8 <- Prelude.return x2+                                                                  x9 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                (Curry.DebugModule.Prelude.O+                                                                                   Curry.DebugModule.Prelude.IHi)))+                                                                  DM.funcCallHook "div"+                                                                    (DI.DebugInfo+                                                                       (DI.SrcID "Integer" 0)+                                                                       (DI.DynamicInfo []+                                                                          [DI.genTerm x8,+                                                                           DI.genTerm x9]))+                                                                    (Curry.DebugModule.Prelude.strict_div+                                                                       x8+                                                                       x9)+                                                        DM.funcCallHook "bitNot.aux.100"+                                                          (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x10, DI.genTerm x11]))+                                                          (x'xstrict_bitNot46aux46100 x10 x11)+                                              DM.funcCallHook "*"+                                                (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x12, DI.genTerm x13]))+                                                (Curry.DebugModule.Prelude.op_Asterisk x12 x13)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x4 <- do x16 <- DM.litHook+                                                                (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                                   (DI.DynamicInfo [] []))+                                                                (Prelude.return+                                                                   (Curry.DebugModule.Prelude.Pos+                                                                      Curry.DebugModule.Prelude.IHi))+                                                       x17 <- do x14 <- Prelude.return x2+                                                                 x15 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                (Curry.DebugModule.Prelude.O+                                                                                   Curry.DebugModule.Prelude.IHi)))+                                                                 DM.funcCallHook "mod"+                                                                   (DI.DebugInfo+                                                                      (DI.SrcID "Integer" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x14,+                                                                          DI.genTerm x15]))+                                                                   (Curry.DebugModule.Prelude.strict_mod+                                                                      x14+                                                                      x15)+                                                       DM.funcCallHook "-"+                                                         (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                            (DI.DynamicInfo []+                                                               [DI.genTerm x16, DI.genTerm x17]))+                                                         (Curry.DebugModule.Prelude.op_Minus x16+                                                            x17)+                                              DM.eval+                                                (do x18 <- Prelude.return x3+                                                    x19 <- Prelude.return x4+                                                    DM.funcCallHook "+"+                                                      (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x18, DI.genTerm x19]))+                                                      (Curry.DebugModule.Prelude.op_Plus x18+                                                         x19)))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_2 x1 x2)+                           x20)))+term_strict__case_2 x1+  = DI.Term "_case_2" (DI.SrcID "Integer" 0) x1+strict__case_4 x1 x2 x5+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5]))+         (do x23 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x23]))+               (case x23 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x3 <- do x12 <- DM.litHook+                                                       (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                          (DI.DynamicInfo [] []))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Pos+                                                             (Curry.DebugModule.Prelude.O+                                                                Curry.DebugModule.Prelude.IHi)))+                                              x13 <- do x10 <- do x6 <- Prelude.return x1+                                                                  x7 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                (Curry.DebugModule.Prelude.O+                                                                                   Curry.DebugModule.Prelude.IHi)))+                                                                  DM.funcCallHook "div"+                                                                    (DI.DebugInfo+                                                                       (DI.SrcID "Integer" 0)+                                                                       (DI.DynamicInfo []+                                                                          [DI.genTerm x6,+                                                                           DI.genTerm x7]))+                                                                    (Curry.DebugModule.Prelude.strict_div+                                                                       x6+                                                                       x7)+                                                        x11 <- do x8 <- Prelude.return x2+                                                                  x9 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                (Curry.DebugModule.Prelude.O+                                                                                   Curry.DebugModule.Prelude.IHi)))+                                                                  DM.funcCallHook "div"+                                                                    (DI.DebugInfo+                                                                       (DI.SrcID "Integer" 0)+                                                                       (DI.DynamicInfo []+                                                                          [DI.genTerm x8,+                                                                           DI.genTerm x9]))+                                                                    (Curry.DebugModule.Prelude.strict_div+                                                                       x8+                                                                       x9)+                                                        DM.funcCallHook "bitOr"+                                                          (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x10, DI.genTerm x11]))+                                                          (strict_bitOr x10 x11)+                                              DM.funcCallHook "*"+                                                (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x12, DI.genTerm x13]))+                                                (Curry.DebugModule.Prelude.op_Asterisk x12 x13)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x4 <- do x18 <- Prelude.return x1+                                                       x19 <- Prelude.return x2+                                                       x20 <- do x16 <- do x14 <- Prelude.return x2+                                                                           x15 <- DM.litHook+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "Integer"+                                                                                          0)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          []))+                                                                                    (Prelude.return+                                                                                       (Curry.DebugModule.Prelude.Pos+                                                                                          (Curry.DebugModule.Prelude.O+                                                                                             Curry.DebugModule.Prelude.IHi)))+                                                                           DM.funcCallHook "mod"+                                                                             (DI.DebugInfo+                                                                                (DI.SrcID "Integer"+                                                                                   0)+                                                                                (DI.DynamicInfo []+                                                                                   [DI.genTerm x14,+                                                                                    DI.genTerm+                                                                                      x15]))+                                                                             (Curry.DebugModule.Prelude.strict_mod+                                                                                x14+                                                                                x15)+                                                                 x17 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                Curry.DebugModule.Prelude.IHi))+                                                                 DM.funcCallHook "=="+                                                                   (DI.DebugInfo+                                                                      (DI.SrcID "Integer" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x16,+                                                                          DI.genTerm x17]))+                                                                   (Curry.DebugModule.Prelude.op_EqEq+                                                                      x16+                                                                      x17)+                                                       DM.funcCallHook "_case_3"+                                                         (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                            (DI.DynamicInfo []+                                                               [DI.genTerm x18, DI.genTerm x19,+                                                                DI.genTerm x20]))+                                                         (strict__case_3 x18 x19 x20)+                                              DM.eval+                                                (do x21 <- Prelude.return x3+                                                    x22 <- Prelude.return x4+                                                    DM.funcCallHook "+"+                                                      (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x21, DI.genTerm x22]))+                                                      (Curry.DebugModule.Prelude.op_Plus x21+                                                         x22)))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x23])))+                           (strict__case_4 x1 x2)+                           x23)))+term_strict__case_4 x1+  = DI.Term "_case_4" (DI.SrcID "Integer" 0) x1+strict__case_3 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return+                                    (Curry.DebugModule.Prelude.Pos Curry.DebugModule.Prelude.IHi))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x1+                                  x5 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Integer" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return+                                             (Curry.DebugModule.Prelude.Pos+                                                (Curry.DebugModule.Prelude.O+                                                   Curry.DebugModule.Prelude.IHi)))+                                  DM.funcCallHook "mod"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Curry.DebugModule.Prelude.strict_mod x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           (strict__case_3 x1 x2)+                           x6)))+term_strict__case_3 x1+  = DI.Term "_case_3" (DI.SrcID "Integer" 0) x1+strict__case_6 x1 x2 x5+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5]))+         (do x23 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x23]))+               (case x23 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Zero)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x3 <- do x12 <- DM.litHook+                                                       (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                          (DI.DynamicInfo [] []))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Pos+                                                             (Curry.DebugModule.Prelude.O+                                                                Curry.DebugModule.Prelude.IHi)))+                                              x13 <- do x10 <- do x6 <- Prelude.return x1+                                                                  x7 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                (Curry.DebugModule.Prelude.O+                                                                                   Curry.DebugModule.Prelude.IHi)))+                                                                  DM.funcCallHook "div"+                                                                    (DI.DebugInfo+                                                                       (DI.SrcID "Integer" 0)+                                                                       (DI.DynamicInfo []+                                                                          [DI.genTerm x6,+                                                                           DI.genTerm x7]))+                                                                    (Curry.DebugModule.Prelude.strict_div+                                                                       x6+                                                                       x7)+                                                        x11 <- do x8 <- Prelude.return x2+                                                                  x9 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                (Curry.DebugModule.Prelude.O+                                                                                   Curry.DebugModule.Prelude.IHi)))+                                                                  DM.funcCallHook "div"+                                                                    (DI.DebugInfo+                                                                       (DI.SrcID "Integer" 0)+                                                                       (DI.DynamicInfo []+                                                                          [DI.genTerm x8,+                                                                           DI.genTerm x9]))+                                                                    (Curry.DebugModule.Prelude.strict_div+                                                                       x8+                                                                       x9)+                                                        DM.funcCallHook "bitAnd"+                                                          (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x10, DI.genTerm x11]))+                                                          (strict_bitAnd x10 x11)+                                              DM.funcCallHook "*"+                                                (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x12, DI.genTerm x13]))+                                                (Curry.DebugModule.Prelude.op_Asterisk x12 x13)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x4 <- do x18 <- Prelude.return x1+                                                       x19 <- Prelude.return x2+                                                       x20 <- do x16 <- do x14 <- Prelude.return x2+                                                                           x15 <- DM.litHook+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "Integer"+                                                                                          0)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          []))+                                                                                    (Prelude.return+                                                                                       (Curry.DebugModule.Prelude.Pos+                                                                                          (Curry.DebugModule.Prelude.O+                                                                                             Curry.DebugModule.Prelude.IHi)))+                                                                           DM.funcCallHook "mod"+                                                                             (DI.DebugInfo+                                                                                (DI.SrcID "Integer"+                                                                                   0)+                                                                                (DI.DynamicInfo []+                                                                                   [DI.genTerm x14,+                                                                                    DI.genTerm+                                                                                      x15]))+                                                                             (Curry.DebugModule.Prelude.strict_mod+                                                                                x14+                                                                                x15)+                                                                 x17 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Integer" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             Curry.DebugModule.Prelude.Zero)+                                                                 DM.funcCallHook "=="+                                                                   (DI.DebugInfo+                                                                      (DI.SrcID "Integer" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x16,+                                                                          DI.genTerm x17]))+                                                                   (Curry.DebugModule.Prelude.op_EqEq+                                                                      x16+                                                                      x17)+                                                       DM.funcCallHook "_case_5"+                                                         (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                            (DI.DynamicInfo []+                                                               [DI.genTerm x18, DI.genTerm x19,+                                                                DI.genTerm x20]))+                                                         (strict__case_5 x18 x19 x20)+                                              DM.eval+                                                (do x21 <- Prelude.return x3+                                                    x22 <- Prelude.return x4+                                                    DM.funcCallHook "+"+                                                      (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x21, DI.genTerm x22]))+                                                      (Curry.DebugModule.Prelude.op_Plus x21+                                                         x22)))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x23])))+                           (strict__case_6 x1 x2)+                           x23)))+term_strict__case_6 x1+  = DI.Term "_case_6" (DI.SrcID "Integer" 0) x1+strict__case_5 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Zero)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x1+                                  x5 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Integer" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return+                                             (Curry.DebugModule.Prelude.Pos+                                                (Curry.DebugModule.Prelude.O+                                                   Curry.DebugModule.Prelude.IHi)))+                                  DM.funcCallHook "mod"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Curry.DebugModule.Prelude.strict_mod x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           (strict__case_5 x1 x2)+                           x6)))+term_strict__case_5 x1+  = DI.Term "_case_5" (DI.SrcID "Integer" 0) x1+strict__case_8 x1+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x2+                                  x5 <- Prelude.return x3+                                  DM.funcCallHook "_case_7"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (strict__case_7 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Integer" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_8+                           x6)))+term_strict__case_8 x1+  = DI.Term "_case_8" (DI.SrcID "Integer" 0) x1+strict__case_7 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+         (do x11 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x2+                                  x10 <- do x8 <- do x6 <- Prelude.return x4+                                                     x7 <- Prelude.return x5+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x6, DI.genTerm x7]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x6 x7))+                                            DM.funcCallHook "minlist"+                                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8]))+                                              (strict_minlist x8)+                                  DM.funcCallHook "min"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (strict_min x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Integer" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_7 x2)+                           x11)))+term_strict__case_7 x1+  = DI.Term "_case_7" (DI.SrcID "Integer" 0) x1+strict__case_10 x1+  = DM.eval+      (DM.funcDeclHook "_case_10"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x2+                                  x5 <- Prelude.return x3+                                  DM.funcCallHook "_case_9"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (strict__case_9 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Integer" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_10+                           x6)))+term_strict__case_10 x1+  = DI.Term "_case_10" (DI.SrcID "Integer" 0) x1+strict__case_9 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_9"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+         (do x11 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x2+                                  x10 <- do x8 <- do x6 <- Prelude.return x4+                                                     x7 <- Prelude.return x5+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x6, DI.genTerm x7]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x6 x7))+                                            DM.funcCallHook "maxlist"+                                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8]))+                                              (strict_maxlist x8)+                                  DM.funcCallHook "max"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (strict_max x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Integer" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_9 x2)+                           x11)))+term_strict__case_9 x1+  = DI.Term "_case_9" (DI.SrcID "Integer" 0) x1+strict__case_11 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_11"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_11 x1 x2)+                           x4)))+term_strict__case_11 x1+  = DI.Term "_case_11" (DI.SrcID "Integer" 0) x1+strict__case_12 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_12"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_12 x1 x2)+                           x4)))+term_strict__case_12 x1+  = DI.Term "_case_12" (DI.SrcID "Integer" 0) x1+strict__case_13 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_13"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x4 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- Prelude.return x1+                                  DM.funcCallHook "negate"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3]))+                                    (Curry.DebugModule.Prelude.strict_negate x3)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_13 x1)+                           x4)))+term_strict__case_13 x1+  = DI.Term "_case_13" (DI.SrcID "Integer" 0) x1+strict__case_14 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_14"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x12 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return+                                    (Curry.DebugModule.Prelude.Pos Curry.DebugModule.Prelude.IHi))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x2+                                  x11 <- do x8 <- do x4 <- Prelude.return x1+                                                     x5 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Pos+                                                                   Curry.DebugModule.Prelude.IHi))+                                                     DM.funcCallHook "-"+                                                       (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x4, DI.genTerm x5]))+                                                       (Curry.DebugModule.Prelude.op_Minus x4 x5)+                                            x9 <- do x6 <- Prelude.return x2+                                                     x7 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Pos+                                                                   Curry.DebugModule.Prelude.IHi))+                                                     DM.funcCallHook "-"+                                                       (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x6, DI.genTerm x7]))+                                                       (Curry.DebugModule.Prelude.op_Minus x6 x7)+                                            DM.funcCallHook "binomial.aux.41"+                                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (x'xstrict_binomial46aux4641 x8 x9)+                                  DM.funcCallHook "*"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (Curry.DebugModule.Prelude.op_Asterisk x10 x11)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_14 x1 x2)+                           x12)))+term_strict__case_14 x1+  = DI.Term "_case_14" (DI.SrcID "Integer" 0) x1+strict__case_15 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_15"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x9 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x4 <- Prelude.return x2+                                           x5 <- Prelude.return x1+                                           DM.funcCallHook "binomial.aux.41"+                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (x'xstrict_binomial46aux4641 x4 x5)+                                  x8 <- do x6 <- Prelude.return x2+                                           DM.funcCallHook "factorial"+                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6]))+                                             (strict_factorial x6)+                                  DM.funcCallHook "div"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Curry.DebugModule.Prelude.strict_div x7 x8)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_15 x1 x2)+                           x9)))+term_strict__case_15 x1+  = DI.Term "_case_15" (DI.SrcID "Integer" 0) x1+strict__case_17 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_17"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- do x3 <- Prelude.return x1+                                           x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return Curry.DebugModule.Prelude.Zero)+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.op_EqEq x3 x4)+                                  DM.funcCallHook "_case_16"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (strict__case_16 x5 x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_17 x1)+                           x7)))+term_strict__case_17 x1+  = DI.Term "_case_17" (DI.SrcID "Integer" 0) x1+strict__case_16 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_16"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return+                                    (Curry.DebugModule.Prelude.Pos Curry.DebugModule.Prelude.IHi))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- do x5 <- do x3 <- Prelude.return x1+                                                    x4 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Pos+                                                                  Curry.DebugModule.Prelude.IHi))+                                                    DM.funcCallHook "-"+                                                      (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x3, DI.genTerm x4]))+                                                      (Curry.DebugModule.Prelude.op_Minus x3 x4)+                                           DM.funcCallHook "factorial"+                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_factorial x5)+                                  DM.funcCallHook "*"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Curry.DebugModule.Prelude.op_Asterisk x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_16 x1)+                           x8)))+term_strict__case_16 x1+  = DI.Term "_case_16" (DI.SrcID "Integer" 0) x1+strict__case_19 x1 x2 x3 x5+  = DM.eval+      (DM.funcDeclHook "_case_19"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x5]))+         (do x19 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x4 <- do x8 <- do x6 <- Prelude.return x3+                                                       x7 <- Prelude.return x2+                                                       DM.funcCallHook "+"+                                                         (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                            (DI.DynamicInfo []+                                                               [DI.genTerm x6, DI.genTerm x7]))+                                                         (Curry.DebugModule.Prelude.op_Plus x6 x7)+                                              x9 <- DM.litHook+                                                      (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                         (DI.DynamicInfo [] []))+                                                      (Prelude.return+                                                         (Curry.DebugModule.Prelude.Pos+                                                            (Curry.DebugModule.Prelude.O+                                                               Curry.DebugModule.Prelude.IHi)))+                                              DM.funcCallHook "div"+                                                (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x8, DI.genTerm x9]))+                                                (Curry.DebugModule.Prelude.strict_div x8 x9)+                                     DM.eval+                                       (do x14 <- Prelude.return x1+                                           x15 <- Prelude.return x2+                                           x16 <- Prelude.return x3+                                           x17 <- Prelude.return x4+                                           x18 <- do x12 <- do x10 <- Prelude.return x4+                                                               x11 <- Prelude.return x4+                                                               DM.funcCallHook "*"+                                                                 (DI.DebugInfo+                                                                    (DI.SrcID "Integer" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x10,+                                                                        DI.genTerm x11]))+                                                                 (Curry.DebugModule.Prelude.op_Asterisk+                                                                    x10+                                                                    x11)+                                                     x13 <- Prelude.return x1+                                                     DM.funcCallHook ">"+                                                       (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x12, DI.genTerm x13]))+                                                       (Curry.DebugModule.Prelude.op_Gt x12 x13)+                                           DM.funcCallHook "_case_18"+                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x14, DI.genTerm x15, DI.genTerm x16,+                                                    DI.genTerm x17, DI.genTerm x18]))+                                             (strict__case_18 x14 x15 x16 x17 x18)))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           (strict__case_19 x1 x2 x3)+                           x19)))+term_strict__case_19 x1+  = DI.Term "_case_19" (DI.SrcID "Integer" 0) x1+strict__case_18 x1 x2 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_18"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+                DI.genTerm x5]))+         (do x12 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x2+                                  x8 <- Prelude.return x4+                                  DM.funcCallHook "isqrt.aux.21"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (x'xstrict_isqrt46aux4621 x6 x7 x8)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- Prelude.return x4+                                  x11 <- Prelude.return x3+                                  DM.funcCallHook "isqrt.aux.21"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11]))+                                    (x'xstrict_isqrt46aux4621 x9 x10 x11)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_18 x1 x2 x3 x4)+                           x12)))+term_strict__case_18 x1+  = DI.Term "_case_18" (DI.SrcID "Integer" 0) x1+strict__case_22 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_22"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- do x3 <- Prelude.return x1+                                           x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return Curry.DebugModule.Prelude.Zero)+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.op_EqEq x3 x4)+                                  DM.funcCallHook "_case_21"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (strict__case_21 x5 x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_22 x1)+                           x7)))+term_strict__case_22 x1+  = DI.Term "_case_22" (DI.SrcID "Integer" 0) x1+strict__case_21 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_21"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Zero)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- do x3 <- Prelude.return x1+                                           x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.O+                                                               Curry.DebugModule.Prelude.IHi))))+                                           DM.funcCallHook "<"+                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.op_Lt x3 x4)+                                  DM.funcCallHook "_case_20"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (strict__case_20 x5 x6)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_21 x1)+                           x7)))+term_strict__case_21 x1+  = DI.Term "_case_21" (DI.SrcID "Integer" 0) x1+strict__case_20 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_20"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x6 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return+                                    (Curry.DebugModule.Prelude.Pos Curry.DebugModule.Prelude.IHi))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- Prelude.return x1+                                  x4 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Integer" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return+                                             (Curry.DebugModule.Prelude.Pos+                                                (Curry.DebugModule.Prelude.O+                                                   Curry.DebugModule.Prelude.IHi)))+                                  x5 <- Prelude.return x1+                                  DM.funcCallHook "isqrt.aux.21"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+                                    (x'xstrict_isqrt46aux4621 x3 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           (strict__case_20 x1)+                           x6)))+term_strict__case_20 x1+  = DI.Term "_case_20" (DI.SrcID "Integer" 0) x1+strict__case_24 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_24"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- do x3 <- Prelude.return x1+                                           x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.I+                                                               (Curry.DebugModule.Prelude.O+                                                                  Curry.DebugModule.Prelude.IHi)))))+                                           DM.funcCallHook "<"+                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.op_Lt x3 x4)+                                  DM.funcCallHook "_case_23"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (strict__case_23 x5 x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_24 x1)+                           x7)))+term_strict__case_24 x1+  = DI.Term "_case_24" (DI.SrcID "Integer" 0) x1+strict__case_23 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_23"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Zero)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Integer" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return+                                             (Curry.DebugModule.Prelude.Pos+                                                Curry.DebugModule.Prelude.IHi))+                                  x7 <- do x5 <- do x3 <- Prelude.return x1+                                                    x4 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Pos+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.O+                                                                           Curry.DebugModule.Prelude.IHi)))))+                                                    DM.funcCallHook "div"+                                                      (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x3, DI.genTerm x4]))+                                                      (Curry.DebugModule.Prelude.strict_div x3 x4)+                                           DM.funcCallHook "ilog"+                                             (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_ilog x5)+                                  DM.funcCallHook "+"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Curry.DebugModule.Prelude.op_Plus x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_23 x1)+                           x8)))+term_strict__case_23 x1+  = DI.Term "_case_23" (DI.SrcID "Integer" 0) x1+strict__case_26 x1 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_26"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x21 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- do x12 <- Prelude.return x1+                                            x13 <- do x9 <- Prelude.return x2+                                                      x10 <- Prelude.return x3+                                                      x11 <- do x7 <- do x5 <- Prelude.return x3+                                                                         x6 <- DM.litHook+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID+                                                                                       "Integer"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       []))+                                                                                 (Prelude.return+                                                                                    (Curry.DebugModule.Prelude.Pos+                                                                                       (Curry.DebugModule.Prelude.O+                                                                                          Curry.DebugModule.Prelude.IHi)))+                                                                         DM.funcCallHook "mod"+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "Integer" 0)+                                                                              (DI.DynamicInfo []+                                                                                 [DI.genTerm x5,+                                                                                  DI.genTerm x6]))+                                                                           (Curry.DebugModule.Prelude.strict_mod+                                                                              x5+                                                                              x6)+                                                                x8 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "Integer" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Pos+                                                                              Curry.DebugModule.Prelude.IHi))+                                                                DM.funcCallHook "=="+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Integer" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x7,+                                                                         DI.genTerm x8]))+                                                                  (Curry.DebugModule.Prelude.op_EqEq+                                                                     x7+                                                                     x8)+                                                      DM.funcCallHook "_case_25"+                                                        (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10,+                                                               DI.genTerm x11]))+                                                        (strict__case_25 x9 x10 x11)+                                            DM.funcCallHook "*"+                                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x12, DI.genTerm x13]))+                                              (Curry.DebugModule.Prelude.op_Asterisk x12 x13)+                                  x19 <- do x14 <- Prelude.return x2+                                            x15 <- Prelude.return x2+                                            DM.funcCallHook "*"+                                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x14, DI.genTerm x15]))+                                              (Curry.DebugModule.Prelude.op_Asterisk x14 x15)+                                  x20 <- do x16 <- Prelude.return x3+                                            x17 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Pos+                                                           (Curry.DebugModule.Prelude.O+                                                              Curry.DebugModule.Prelude.IHi)))+                                            DM.funcCallHook "div"+                                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x16, DI.genTerm x17]))+                                              (Curry.DebugModule.Prelude.strict_div x16 x17)+                                  DM.funcCallHook "pow.powaux.3"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20]))+                                    (x'xstrict_pow46powaux463 x18 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_26 x1 x2 x3)+                           x21)))+term_strict__case_26 x1+  = DI.Term "_case_26" (DI.SrcID "Integer" 0) x1+strict__case_25 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_25"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x5 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return+                                    (Curry.DebugModule.Prelude.Pos Curry.DebugModule.Prelude.IHi))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           (strict__case_25 x2 x3)+                           x5)))+term_strict__case_25 x1+  = DI.Term "_case_25" (DI.SrcID "Integer" 0) x1+strict__case_27 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_27"+         (DI.DebugInfo (DI.SrcID "Integer" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x7 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Integer" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Integer" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return+                                             (Curry.DebugModule.Prelude.Pos+                                                Curry.DebugModule.Prelude.IHi))+                                  x5 <- Prelude.return x1+                                  x6 <- Prelude.return x2+                                  DM.funcCallHook "pow.powaux.3"+                                    (DI.DebugInfo (DI.SrcID "Integer" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+                                    (x'xstrict_pow46powaux463 x4 x5 x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Integer" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Integer" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_27 x1 x2)+                           x7)))+term_strict__case_27 x1+  = DI.Term "_case_27" (DI.SrcID "Integer" 0) x1
+ dist/build/Curry/DebugModule/Interactive.hs view
@@ -0,0 +1,911 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Interactive where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Prelude+ +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")+ +strict_interactiveSols ::+                       (DM.DM dm, DI.GenTerm a) =>+                         Curry.DebugModule.Prelude.List a ->+                           dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_interactiveSols x1+  = DM.eval+      (DM.funcDeclHook "interactiveSols"+         (DI.DebugInfo (DI.SrcID "Interactive" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_3"+               (DI.DebugInfo (DI.SrcID "Interactive" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_3 x2)))+term_strict_interactiveSols x1+  = DI.Term "interactiveSols" (DI.SrcID "Interactive" 0) x1+ +x'xstrict_interactiveSols46_35lambda2 ::+                                      (DM.DM dm, DI.GenTerm f) =>+                                        Curry.DebugModule.Prelude.List f ->+                                          Curry.DebugModule.Prelude.List+                                            Curry.DebugModule.Prelude.Char+                                            ->+                                            dm+                                              (Curry.DebugModule.Prelude.IO dm+                                                 Curry.DebugModule.Prelude.Unit)+x'xstrict_interactiveSols46_35lambda2 x1 x2+  = DM.eval+      (DM.funcDeclHook "interactiveSols._#lambda2"+         (DI.DebugInfo (DI.SrcID "Interactive" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_2"+               (DI.DebugInfo (DI.SrcID "Interactive" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_2 x3 x4)))+x'xterm_strict_interactiveSols46_35lambda2 x1+  = DI.Term "interactiveSols._#lambda2" (DI.SrcID "Interactive" 0) x1+ +strict_printIO ::+               (DM.DM dm, DI.GenTerm a) =>+                 Curry.DebugModule.Prelude.IO dm a ->+                   dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_printIO x1+  = DM.eval+      (DM.funcDeclHook "printIO"+         (DI.DebugInfo (DI.SrcID "Interactive" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             x3 <- Prelude.return+                     (PC.partCall1 (x'xterm_strict_printIO46_35lambda4 [])+                        x'xstrict_printIO46_35lambda4)+             DM.funcCallHook ">>="+               (DI.DebugInfo (DI.SrcID "Interactive" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_GtGtEq x2 x3)))+term_strict_printIO x1+  = DI.Term "printIO" (DI.SrcID "Interactive" 0) x1+ +x'xstrict_printIO46_35lambda4 ::+                              (DM.DM dm, DI.GenTerm z) =>+                                z ->+                                  dm+                                    (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+x'xstrict_printIO46_35lambda4 x1+  = DM.eval+      (DM.funcDeclHook "printIO._#lambda4"+         (DI.DebugInfo (DI.SrcID "Interactive" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x13 <- do x10 <- do x8 <- DM.litHook+                                         (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                            (DI.DynamicInfo [] []))+                                         (Prelude.return (Curry.DebugModule.Prelude.Char 'I'))+                                 x9 <- do x6 <- DM.litHook+                                                  (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                     (DI.DynamicInfo [] []))+                                                  (Prelude.return+                                                     (Curry.DebugModule.Prelude.Char 'O'))+                                          x7 <- do x4 <- DM.litHook+                                                           (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                              (DI.DynamicInfo [] []))+                                                           (Prelude.return+                                                              (Curry.DebugModule.Prelude.Char ':'))+                                                   x5 <- do x2 <- DM.litHook+                                                                    (DI.DebugInfo+                                                                       (DI.SrcID "Interactive" 0)+                                                                       (DI.DynamicInfo [] []))+                                                                    (Prelude.return+                                                                       (Curry.DebugModule.Prelude.Char+                                                                          ' '))+                                                            x3 <- DM.constructorHook+                                                                    (DI.DebugInfo+                                                                       (DI.SrcID "Interactive" 0)+                                                                       (DI.DynamicInfo [] []))+                                                                    (Prelude.return+                                                                       Curry.DebugModule.Prelude.Nil)+                                                            DM.constructorHook+                                                              (DI.DebugInfo+                                                                 (DI.SrcID "Interactive" 0)+                                                                 (DI.DynamicInfo []+                                                                    [DI.genTerm x2, DI.genTerm x3]))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Cons x2+                                                                    x3))+                                                   DM.constructorHook+                                                     (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                        (DI.DynamicInfo []+                                                           [DI.genTerm x4, DI.genTerm x5]))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Cons x4 x5))+                                          DM.constructorHook+                                            (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                               (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                            (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))+                                 DM.constructorHook+                                   (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                   (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9))+                       DM.funcCallHook "putStr"+                         (DI.DebugInfo (DI.SrcID "Interactive" 0)+                            (DI.DynamicInfo [] [DI.genTerm x10]))+                         (Curry.DebugModule.Prelude.strict_putStr x10)+             x14 <- do x11 <- Prelude.return+                                (PC.partCall1 (term_strict_printTerm []) strict_printTerm)+                       x12 <- Prelude.return x1+                       DM.funcCallHook "$!!"+                         (DI.DebugInfo (DI.SrcID "Interactive" 0)+                            (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                         (Curry.DebugModule.Prelude.op_DollarEMarkEMark x11 x12)+             DM.funcCallHook ">>"+               (DI.DebugInfo (DI.SrcID "Interactive" 0)+                  (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14]))+               (Curry.DebugModule.Prelude.op_GtGt x13 x14)))+x'xterm_strict_printIO46_35lambda4 x1+  = DI.Term "printIO._#lambda4" (DI.SrcID "Interactive" 0) x1+strict__case_2 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "Interactive" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x11 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Interactive" 0)+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Interactive" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x3+                                  x9 <- do x5 <- Prelude.return x3+                                           x6 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char 'n'))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Curry.DebugModule.Prelude.op_EqEq x5 x6)+                                  DM.funcCallHook "_case_1"+                                    (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+                                    (strict__case_1 x7 x8 x9)))+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Interactive" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x1+                                  DM.funcCallHook "interactiveSols"+                                    (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10]))+                                    (strict_interactiveSols x10)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_2 x1)+                           x11)))+term_strict__case_2 x1+  = DI.Term "_case_2" (DI.SrcID "Interactive" 0) x1+strict__case_1 x1 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "Interactive" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4]))+         (do x11 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Interactive" 0)+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Interactive" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Unit)+                                  DM.funcCallHook "return"+                                    (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (Curry.DebugModule.Prelude.strict_return x5)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Interactive" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x1+                                  x9 <- Prelude.return x3+                                  x10 <- do x6 <- Prelude.return x3+                                            x7 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Char 'N'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Curry.DebugModule.Prelude.op_EqEq x6 x7)+                                  DM.funcCallHook "_case_0"+                                    (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_0 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_1 x1 x3)+                           x11)))+term_strict__case_1 x1+  = DI.Term "_case_1" (DI.SrcID "Interactive" 0) x1+strict__case_0 x1 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "Interactive" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4]))+         (do x7 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Interactive" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Interactive" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Unit)+                                  DM.funcCallHook "return"+                                    (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (Curry.DebugModule.Prelude.strict_return x5)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Interactive" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  DM.funcCallHook "interactiveSols"+                                    (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (strict_interactiveSols x6)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_0 x1 x3)+                           x7)))+term_strict__case_0 x1+  = DI.Term "_case_0" (DI.SrcID "Interactive" 0) x1+strict__case_3 x1+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "Interactive" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x58 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Interactive" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x58]))+               (case x58 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Interactive" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x38 <- do x36 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char 'N'))+                                            x37 <- do x34 <- DM.litHook+                                                               (DI.DebugInfo+                                                                  (DI.SrcID "Interactive" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'o'))+                                                      x35 <- do x32 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Interactive"+                                                                               0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               ' '))+                                                                x33 <- do x30 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Interactive"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'm'))+                                                                          x31 <- do x28 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "Interactive"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   'o'))+                                                                                    x29 <- do x26 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "Interactive"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             'r'))+                                                                                              x27 <- do x24 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Interactive"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       'e'))+                                                                                                        x25 <- do x22 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "Interactive"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                 ' '))+                                                                                                                  x23 <- do x20 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "Interactive"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                           'S'))+                                                                                                                            x21 <- do x18 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "Interactive"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                     'o'))+                                                                                                                                      x19 <- do x16 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "Interactive"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                               'l'))+                                                                                                                                                x17 <- do x14 <- DM.litHook+                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                         "Interactive"+                                                                                                                                                                         0)+                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                         []+                                                                                                                                                                         []))+                                                                                                                                                                   (Prelude.return+                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                         'u'))+                                                                                                                                                          x15 <- do x12 <- DM.litHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "Interactive"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                   't'))+                                                                                                                                                                    x13 <- do x10 <- DM.litHook+                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                             "Interactive"+                                                                                                                                                                                             0)+                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                             []+                                                                                                                                                                                             []))+                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                             'i'))+                                                                                                                                                                              x11 <- do x8 <- DM.litHook+                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                      "Interactive"+                                                                                                                                                                                                      0)+                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                      []+                                                                                                                                                                                                      []))+                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                      'o'))+                                                                                                                                                                                        x9 <- do x6 <- DM.litHook+                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                               "Interactive"+                                                                                                                                                                                                               0)+                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                               []+                                                                                                                                                                                                               []))+                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                               'n'))+                                                                                                                                                                                                 x7 <- do x4 <- DM.litHook+                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                        "Interactive"+                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                        []+                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                        's'))+                                                                                                                                                                                                          x5 <- DM.constructorHook+                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                        "Interactive"+                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                        []+                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                     Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                  "Interactive"+                                                                                                                                                                                                                  0)+                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                  []+                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                     x4,+                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                     x5]))+                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                  x4+                                                                                                                                                                                                                  x5))+                                                                                                                                                                                                 DM.constructorHook+                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                         "Interactive"+                                                                                                                                                                                                         0)+                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                         []+                                                                                                                                                                                                         [DI.genTerm+                                                                                                                                                                                                            x6,+                                                                                                                                                                                                          DI.genTerm+                                                                                                                                                                                                            x7]))+                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                         x6+                                                                                                                                                                                                         x7))+                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                "Interactive"+                                                                                                                                                                                                0)+                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                []+                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                   x8,+                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                   x9]))+                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                x8+                                                                                                                                                                                                x9))+                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                      "Interactive"+                                                                                                                                                                                      0)+                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                      []+                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                         x10,+                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                         x11]))+                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                      x10+                                                                                                                                                                                      x11))+                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "Interactive"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                               x12,+                                                                                                                                                                             DI.genTerm+                                                                                                                                                                               x13]))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                            x12+                                                                                                                                                                            x13))+                                                                                                                                                          DM.constructorHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "Interactive"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                     x14,+                                                                                                                                                                   DI.genTerm+                                                                                                                                                                     x15]))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                  x14+                                                                                                                                                                  x15))+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "Interactive"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x16,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x17]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                        x16+                                                                                                                                                        x17))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "Interactive"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x18,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x19]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x18+                                                                                                                                              x19))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "Interactive"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x20,+                                                                                                                                     DI.genTerm+                                                                                                                                       x21]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                    x20+                                                                                                                                    x21))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "Interactive"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x22,+                                                                                                                           DI.genTerm+                                                                                                                             x23]))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                          x22+                                                                                                                          x23))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "Interactive"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x24,+                                                                                                                 DI.genTerm+                                                                                                                   x25]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x24+                                                                                                                x25))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "Interactive"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x26,+                                                                                                       DI.genTerm+                                                                                                         x27]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x26+                                                                                                      x27))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Interactive"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x28,+                                                                                             DI.genTerm+                                                                                               x29]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x28+                                                                                            x29))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID+                                                                                  "Interactive"+                                                                                  0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x30,+                                                                                   DI.genTerm x31]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x30+                                                                                  x31))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Interactive" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x32,+                                                                         DI.genTerm x33]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x32+                                                                        x33))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x34, DI.genTerm x35]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x34 x35))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x36, DI.genTerm x37]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x36 x37))+                                  DM.funcCallHook "putStrLn"+                                    (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x38]))+                                    (Curry.DebugModule.Prelude.strict_putStrLn x38)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Interactive" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x56 <- do x39 <- Prelude.return x2+                                            DM.funcCallHook "printTerm"+                                              (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x39]))+                                              (strict_printTerm x39)+                                  x57 <- do x54 <- do x50 <- do x48 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Interactive"+                                                                               0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'M'))+                                                                x49 <- do x46 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Interactive"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'o'))+                                                                          x47 <- do x44 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "Interactive"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   'r'))+                                                                                    x45 <- do x42 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "Interactive"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             'e'))+                                                                                              x43 <- do x40 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Interactive"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       '?'))+                                                                                                        x41 <- DM.constructorHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Interactive"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    Curry.DebugModule.Prelude.Nil)+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "Interactive"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x40,+                                                                                                                 DI.genTerm+                                                                                                                   x41]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x40+                                                                                                                x41))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "Interactive"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x42,+                                                                                                       DI.genTerm+                                                                                                         x43]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x42+                                                                                                      x43))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Interactive"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x44,+                                                                                             DI.genTerm+                                                                                               x45]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x44+                                                                                            x45))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID+                                                                                  "Interactive"+                                                                                  0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x46,+                                                                                   DI.genTerm x47]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x46+                                                                                  x47))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Interactive" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x48,+                                                                         DI.genTerm x49]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x48+                                                                        x49))+                                                      DM.funcCallHook "putStrLn"+                                                        (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x50]))+                                                        (Curry.DebugModule.Prelude.strict_putStrLn+                                                           x50)+                                            x55 <- do x52 <- DM.funcCallHook "getLine"+                                                               (DI.DebugInfo+                                                                  (DI.SrcID "Interactive" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               Curry.DebugModule.Prelude.strict_getLine+                                                      x53 <- do x51 <- Prelude.return x3+                                                                Prelude.return+                                                                  (PC.partCall1+                                                                     (x'xterm_strict_interactiveSols46_35lambda2+                                                                        [DI.genTerm x51])+                                                                     (x'xstrict_interactiveSols46_35lambda2+                                                                        x51))+                                                      DM.funcCallHook ">>="+                                                        (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x52, DI.genTerm x53]))+                                                        (Curry.DebugModule.Prelude.op_GtGtEq x52+                                                           x53)+                                            DM.funcCallHook ">>"+                                              (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x54, DI.genTerm x55]))+                                              (Curry.DebugModule.Prelude.op_GtGt x54 x55)+                                  DM.funcCallHook ">>"+                                    (DI.DebugInfo (DI.SrcID "Interactive" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x56, DI.genTerm x57]))+                                    (Curry.DebugModule.Prelude.op_GtGt x56 x57)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Interactive" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x58])))+                           strict__case_3+                           x58)))+term_strict__case_3 x1+  = DI.Term "_case_3" (DI.SrcID "Interactive" 0) x1+hook_strict_printTerm x1 value+  = DM.eval+      (DM.funcDeclHook "printTerm"+         (DI.DebugInfo (DI.SrcID "Interactive" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_printTerm x1+  = DI.Term "printTerm" (DI.SrcID "Interactive" 0) x1
+ dist/build/Curry/DebugModule/List.hs view
@@ -0,0 +1,1839 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.List where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Maybe+import qualified Curry.DebugModule.Prelude+ +strict_elemIndex ::+                 (DM.DM dm, DI.GenTerm a) =>+                   a ->+                     dm+                       (DM.Func dm (Curry.DebugModule.Prelude.List a)+                          (Curry.DebugModule.Prelude.Maybe Curry.DebugModule.Prelude.Int))+strict_elemIndex x1+  = DM.eval+      (DM.funcDeclHook "elemIndex"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1+                           (Curry.DebugModule.Prelude.term_op_EqEq [DI.genTerm x2])+                           (Curry.DebugModule.Prelude.op_EqEq x2))+             DM.funcCallHook "findIndex"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (strict_findIndex x3)))+term_strict_elemIndex x1+  = DI.Term "elemIndex" (DI.SrcID "List" 0) x1+ +strict_elemIndices ::+                   (DM.DM dm, DI.GenTerm a) =>+                     a ->+                       dm+                         (DM.Func dm (Curry.DebugModule.Prelude.List a)+                            (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int))+strict_elemIndices x1+  = DM.eval+      (DM.funcDeclHook "elemIndices"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1+                           (Curry.DebugModule.Prelude.term_op_EqEq [DI.genTerm x2])+                           (Curry.DebugModule.Prelude.op_EqEq x2))+             Prelude.return+               (PC.partCall1 (term_strict_findIndices [DI.genTerm x3])+                  (strict_findIndices x3))))+term_strict_elemIndices x1+  = DI.Term "elemIndices" (DI.SrcID "List" 0) x1+ +strict_find ::+            (DM.DM dm, DI.GenTerm a) =>+              DM.Func dm a Curry.DebugModule.Prelude.Bool ->+                dm+                  (DM.Func dm (Curry.DebugModule.Prelude.List a)+                     (Curry.DebugModule.Prelude.Maybe a))+strict_find x1+  = DM.eval+      (DM.funcDeclHook "find"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return+                     (PC.partCall1 (Curry.DebugModule.Maybe.term_strict_listToMaybe [])+                        Curry.DebugModule.Maybe.strict_listToMaybe)+             x4 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1+                           (Curry.DebugModule.Prelude.term_strict_filter [DI.genTerm x2])+                           (Curry.DebugModule.Prelude.strict_filter x2))+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (Curry.DebugModule.Prelude.op_Point x3 x4)))+term_strict_find x1 = DI.Term "find" (DI.SrcID "List" 0) x1+ +strict_findIndex ::+                 (DM.DM dm, DI.GenTerm a) =>+                   DM.Func dm a Curry.DebugModule.Prelude.Bool ->+                     dm+                       (DM.Func dm (Curry.DebugModule.Prelude.List a)+                          (Curry.DebugModule.Prelude.Maybe Curry.DebugModule.Prelude.Int))+strict_findIndex x1+  = DM.eval+      (DM.funcDeclHook "findIndex"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return+                     (PC.partCall1 (Curry.DebugModule.Maybe.term_strict_listToMaybe [])+                        Curry.DebugModule.Maybe.strict_listToMaybe)+             x4 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1 (term_strict_findIndices [DI.genTerm x2])+                           (strict_findIndices x2))+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (Curry.DebugModule.Prelude.op_Point x3 x4)))+term_strict_findIndex x1+  = DI.Term "findIndex" (DI.SrcID "List" 0) x1+ +strict_findIndices ::+                   (DM.DM dm, DI.GenTerm a) =>+                     DM.Func dm a Curry.DebugModule.Prelude.Bool ->+                       Curry.DebugModule.Prelude.List a ->+                         dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int)+strict_findIndices x1 x2+  = DM.eval+      (DM.funcDeclHook "findIndices"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x7 <- do x3 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall2+                           (x'xterm_strict_findIndices46_35lambda4 [DI.genTerm x3])+                           (x'xstrict_findIndices46_35lambda4 x3))+             x8 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Nil)+             x9 <- do x5 <- Prelude.return x2+                      x6 <- do x4 <- DM.litHook+                                       (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                       (Prelude.return Curry.DebugModule.Prelude.Zero)+                               DM.funcCallHook "enumFrom"+                                 (DI.DebugInfo (DI.SrcID "List" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x4]))+                                 (Curry.DebugModule.Prelude.strict_enumFrom x4)+                      DM.funcCallHook "zip"+                        (DI.DebugInfo (DI.SrcID "List" 0)+                           (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                        (Curry.DebugModule.Prelude.strict_zip x5 x6)+             DM.funcCallHook "foldr"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+               (Curry.DebugModule.Prelude.strict_foldr x7 x8 x9)))+term_strict_findIndices x1+  = DI.Term "findIndices" (DI.SrcID "List" 0) x1+ +x'xstrict_findIndices46_35lambda4 ::+                                  (DM.DM dm, DI.GenTerm h) =>+                                    DM.Func dm h Curry.DebugModule.Prelude.Bool ->+                                      Curry.DebugModule.Prelude.Tuple2 h+                                        Curry.DebugModule.Prelude.Int+                                        ->+                                        Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int+                                          ->+                                          dm+                                            (Curry.DebugModule.Prelude.List+                                               Curry.DebugModule.Prelude.Int)+x'xstrict_findIndices46_35lambda4 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "findIndices._#lambda4"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x3+             x6 <- Prelude.return x2+             DM.funcCallHook "_case_26"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_26 x4 x5 x6)))+x'xterm_strict_findIndices46_35lambda4 x1+  = DI.Term "findIndices._#lambda4" (DI.SrcID "List" 0) x1+ +strict_nub ::+           (DM.DM dm, DI.GenTerm a) =>+             Curry.DebugModule.Prelude.List a ->+               dm (Curry.DebugModule.Prelude.List a)+strict_nub x1+  = DM.eval+      (DM.funcDeclHook "nub"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall2 (Curry.DebugModule.Prelude.term_op_EqEq [])+                        Curry.DebugModule.Prelude.op_EqEq)+             x3 <- Prelude.return x1+             DM.funcCallHook "nubBy"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (strict_nubBy x2 x3)))+term_strict_nub x1 = DI.Term "nub" (DI.SrcID "List" 0) x1+ +strict_nubBy ::+             (DM.DM dm, DI.GenTerm a) =>+               DM.Func dm a (DM.Func dm a Curry.DebugModule.Prelude.Bool) ->+                 Curry.DebugModule.Prelude.List a ->+                   dm (Curry.DebugModule.Prelude.List a)+strict_nubBy x1 x2+  = DM.eval+      (DM.funcDeclHook "nubBy"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_24"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_24 x3 x4)))+term_strict_nubBy x1 = DI.Term "nubBy" (DI.SrcID "List" 0) x1+ +x'xstrict_nubBy46_35lambda6 ::+                            (DM.DM dm, DI.GenTerm x45) =>+                              DM.Func dm x45 (DM.Func dm x45 Curry.DebugModule.Prelude.Bool) ->+                                x45 -> x45 -> dm Curry.DebugModule.Prelude.Bool+x'xstrict_nubBy46_35lambda6 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "nubBy._#lambda6"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x8 <- do x6 <- do x4 <- Prelude.return x1+                               x5 <- Prelude.return x2+                               DM.funcCallHook "apply"+                                 (DI.DebugInfo (DI.SrcID "List" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                 (Curry.DebugModule.Prelude.strict_apply x4 x5)+                      x7 <- Prelude.return x3+                      DM.funcCallHook "apply"+                        (DI.DebugInfo (DI.SrcID "List" 0)+                           (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                        (Curry.DebugModule.Prelude.strict_apply x6 x7)+             DM.funcCallHook "not"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (Curry.DebugModule.Prelude.strict_not x8)))+x'xterm_strict_nubBy46_35lambda6 x1+  = DI.Term "nubBy._#lambda6" (DI.SrcID "List" 0) x1+ +strict_delete ::+              (DM.DM dm, DI.GenTerm a) =>+                a ->+                  Curry.DebugModule.Prelude.List a ->+                    dm (Curry.DebugModule.Prelude.List a)+strict_delete x1 x2+  = DM.eval+      (DM.funcDeclHook "delete"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_23"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_23 x3 x4)))+term_strict_delete x1 = DI.Term "delete" (DI.SrcID "List" 0) x1+ +op_BSlashBSlash ::+                (DM.DM dm, DI.GenTerm a) =>+                  Curry.DebugModule.Prelude.List a ->+                    Curry.DebugModule.Prelude.List a ->+                      dm (Curry.DebugModule.Prelude.List a)+op_BSlashBSlash x1 x2+  = DM.eval+      (DM.funcDeclHook "\\\\"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x4 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_delete []) strict_delete)+                      Prelude.return+                        (PC.partCall2+                           (Curry.DebugModule.Prelude.term_strict_flip [DI.genTerm x3])+                           (Curry.DebugModule.Prelude.strict_flip x3))+             x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             DM.funcCallHook "foldl"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.strict_foldl x4 x5 x6)))+term_op_BSlashBSlash x1 = DI.Term "\\\\" (DI.SrcID "List" 0) x1+ +strict_union ::+             (DM.DM dm, DI.GenTerm a) =>+               Curry.DebugModule.Prelude.List a ->+                 Curry.DebugModule.Prelude.List a ->+                   dm (Curry.DebugModule.Prelude.List a)+strict_union x1 x2+  = DM.eval+      (DM.funcDeclHook "union"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_21"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_21 x3 x4)))+term_strict_union x1 = DI.Term "union" (DI.SrcID "List" 0) x1+ +strict_intersect ::+                 (DM.DM dm, DI.GenTerm a) =>+                   Curry.DebugModule.Prelude.List a ->+                     Curry.DebugModule.Prelude.List a ->+                       dm (Curry.DebugModule.Prelude.List a)+strict_intersect x1 x2+  = DM.eval+      (DM.funcDeclHook "intersect"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_19"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_19 x3 x4)))+term_strict_intersect x1+  = DI.Term "intersect" (DI.SrcID "List" 0) x1+ +strict_intersperse ::+                   (DM.DM dm, DI.GenTerm a) =>+                     a ->+                       Curry.DebugModule.Prelude.List a ->+                         dm (Curry.DebugModule.Prelude.List a)+strict_intersperse x1 x2+  = DM.eval+      (DM.funcDeclHook "intersperse"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_17"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_17 x3 x4)))+term_strict_intersperse x1+  = DI.Term "intersperse" (DI.SrcID "List" 0) x1+ +strict_transpose ::+                 (DM.DM dm, DI.GenTerm a) =>+                   Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.List a)+                     ->+                     dm+                       (Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.List a))+strict_transpose x1+  = DM.eval+      (DM.funcDeclHook "transpose"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_15"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_15 x2)))+term_strict_transpose x1+  = DI.Term "transpose" (DI.SrcID "List" 0) x1+ +strict_partition ::+                 (DM.DM dm, DI.GenTerm a) =>+                   DM.Func dm a Curry.DebugModule.Prelude.Bool ->+                     Curry.DebugModule.Prelude.List a ->+                       dm+                         (Curry.DebugModule.Prelude.Tuple2+                            (Curry.DebugModule.Prelude.List a)+                            (Curry.DebugModule.Prelude.List a))+strict_partition x1 x2+  = DM.eval+      (DM.funcDeclHook "partition"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x6 <- do x3 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall2+                           (x'xterm_strict_partition46select4653 [DI.genTerm x3])+                           (x'xstrict_partition46select4653 x3))+             x7 <- do x4 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      x5 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "List" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x4 x5))+             x8 <- Prelude.return x2+             DM.funcCallHook "foldr"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+               (Curry.DebugModule.Prelude.strict_foldr x6 x7 x8)))+term_strict_partition x1+  = DI.Term "partition" (DI.SrcID "List" 0) x1+ +x'xstrict_partition46select4653 ::+                                (DM.DM dm, DI.GenTerm x146) =>+                                  DM.Func dm x146 Curry.DebugModule.Prelude.Bool ->+                                    x146 ->+                                      Curry.DebugModule.Prelude.Tuple2+                                        (Curry.DebugModule.Prelude.List x146)+                                        (Curry.DebugModule.Prelude.List x146)+                                        ->+                                        dm+                                          (Curry.DebugModule.Prelude.Tuple2+                                             (Curry.DebugModule.Prelude.List x146)+                                             (Curry.DebugModule.Prelude.List x146))+x'xstrict_partition46select4653 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "partition.select.53"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_13"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_13 x4 x5 x6)))+x'xterm_strict_partition46select4653 x1+  = DI.Term "partition.select.53" (DI.SrcID "List" 0) x1+ +strict_group ::+             (DM.DM dm, DI.GenTerm a) =>+               dm+                 (DM.Func dm (Curry.DebugModule.Prelude.List a)+                    (Curry.DebugModule.Prelude.List+                       (Curry.DebugModule.Prelude.List a)))+strict_group+  = DM.eval+      (DM.funcDeclHook "group"+         (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return+                     (PC.partCall2 (Curry.DebugModule.Prelude.term_op_EqEq [])+                        Curry.DebugModule.Prelude.op_EqEq)+             Prelude.return+               (PC.partCall1 (term_strict_groupBy [DI.genTerm x0])+                  (strict_groupBy x0))))+ +strict_groupBy ::+               (DM.DM dm, DI.GenTerm a) =>+                 DM.Func dm a (DM.Func dm a Curry.DebugModule.Prelude.Bool) ->+                   Curry.DebugModule.Prelude.List a ->+                     dm+                       (Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.List a))+strict_groupBy x1 x2+  = DM.eval+      (DM.funcDeclHook "groupBy"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_11"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_11 x3 x4)))+term_strict_groupBy x1 = DI.Term "groupBy" (DI.SrcID "List" 0) x1+ +x'xstrict_groupBy46_35selFP335ys ::+                                 (DM.DM dm, DI.GenTerm x154) =>+                                   Curry.DebugModule.Prelude.Tuple2+                                     (Curry.DebugModule.Prelude.List x154)+                                     (Curry.DebugModule.Prelude.List x154)+                                     -> dm (Curry.DebugModule.Prelude.List x154)+x'xstrict_groupBy46_35selFP335ys x1+  = DM.eval+      (DM.funcDeclHook "groupBy._#selFP3#ys"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_10"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_10 x2)))+x'xterm_strict_groupBy46_35selFP335ys x1+  = DI.Term "groupBy._#selFP3#ys" (DI.SrcID "List" 0) x1+ +x'xstrict_groupBy46_35selFP435zs ::+                                 (DM.DM dm, DI.GenTerm x154) =>+                                   Curry.DebugModule.Prelude.Tuple2+                                     (Curry.DebugModule.Prelude.List x154)+                                     (Curry.DebugModule.Prelude.List x154)+                                     -> dm (Curry.DebugModule.Prelude.List x154)+x'xstrict_groupBy46_35selFP435zs x1+  = DM.eval+      (DM.funcDeclHook "groupBy._#selFP4#zs"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_9"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_9 x2)))+x'xterm_strict_groupBy46_35selFP435zs x1+  = DI.Term "groupBy._#selFP4#zs" (DI.SrcID "List" 0) x1+ +strict_replace ::+               (DM.DM dm, DI.GenTerm a) =>+                 a ->+                   Curry.DebugModule.Prelude.Int ->+                     Curry.DebugModule.Prelude.List a ->+                       dm (Curry.DebugModule.Prelude.List a)+strict_replace x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "replace"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_8"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_8 x4 x5 x6)))+term_strict_replace x1 = DI.Term "replace" (DI.SrcID "List" 0) x1+ +strict_isPrefixOf ::+                  (DM.DM dm, DI.GenTerm a) =>+                    Curry.DebugModule.Prelude.List a ->+                      Curry.DebugModule.Prelude.List a ->+                        dm Curry.DebugModule.Prelude.Bool+strict_isPrefixOf x1 x2+  = DM.eval+      (DM.funcDeclHook "isPrefixOf"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_5"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_5 x3 x4)))+term_strict_isPrefixOf x1+  = DI.Term "isPrefixOf" (DI.SrcID "List" 0) x1+ +strict_sortBy ::+              (DM.DM dm, DI.GenTerm a) =>+                DM.Func dm a (DM.Func dm a Curry.DebugModule.Prelude.Bool) ->+                  dm+                    (DM.Func dm (Curry.DebugModule.Prelude.List a)+                       (Curry.DebugModule.Prelude.List a))+strict_sortBy x1+  = DM.eval+      (DM.funcDeclHook "sortBy"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall2 (term_strict_insertBy [DI.genTerm x2])+                           (strict_insertBy x2))+             x4 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Nil)+             Prelude.return+               (PC.partCall1+                  (Curry.DebugModule.Prelude.term_strict_foldr+                     [DI.genTerm x3, DI.genTerm x4])+                  (Curry.DebugModule.Prelude.strict_foldr x3 x4))))+term_strict_sortBy x1 = DI.Term "sortBy" (DI.SrcID "List" 0) x1+ +strict_insertBy ::+                (DM.DM dm, DI.GenTerm a) =>+                  DM.Func dm a (DM.Func dm a Curry.DebugModule.Prelude.Bool) ->+                    a ->+                      Curry.DebugModule.Prelude.List a ->+                        dm (Curry.DebugModule.Prelude.List a)+strict_insertBy x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "insertBy"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_3"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_3 x4 x5 x6)))+term_strict_insertBy x1 = DI.Term "insertBy" (DI.SrcID "List" 0) x1+ +strict_last ::+            (DM.DM dm, DI.GenTerm a) =>+              Curry.DebugModule.Prelude.List a -> dm a+strict_last x1+  = DM.eval+      (DM.funcDeclHook "last"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_1"+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_1 x2)))+term_strict_last x1 = DI.Term "last" (DI.SrcID "List" 0) x1+strict__case_1 x1+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x2+                                  x5 <- Prelude.return x3+                                  DM.funcCallHook "_case_0"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (strict__case_0 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_1+                           x6)))+term_strict__case_1 x1 = DI.Term "_case_1" (DI.SrcID "List" 0) x1+strict__case_0 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+         (do x9 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x6 <- Prelude.return x4+                                           x7 <- Prelude.return x5+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "List" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))+                                  DM.funcCallHook "last"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (strict_last x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_0 x2)+                           x9)))+term_strict__case_0 x1 = DI.Term "_case_0" (DI.SrcID "List" 0) x1+strict__case_3 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x17 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x17]))+               (case x17 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x1+                                  x13 <- Prelude.return x2+                                  x14 <- Prelude.return x4+                                  x15 <- Prelude.return x5+                                  x16 <- do x10 <- do x8 <- Prelude.return x1+                                                      x9 <- Prelude.return x2+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "List" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x8, DI.genTerm x9]))+                                                        (Curry.DebugModule.Prelude.strict_apply x8+                                                           x9)+                                            x11 <- Prelude.return x4+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (Curry.DebugModule.Prelude.strict_apply x10 x11)+                                  DM.funcCallHook "_case_2"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x12, DI.genTerm x13, DI.genTerm x14,+                                           DI.genTerm x15, DI.genTerm x16]))+                                    (strict__case_2 x12 x13 x14 x15 x16)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x17])))+                           (strict__case_3 x1 x2)+                           x17)))+term_strict__case_3 x1 = DI.Term "_case_3" (DI.SrcID "List" 0) x1+strict__case_2 x1 x2 x4 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x4, DI.genTerm x5,+                DI.genTerm x6]))+         (do x16 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x2+                                  x10 <- do x7 <- Prelude.return x4+                                            x8 <- Prelude.return x5+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x7 x8))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x4+                                  x15 <- do x11 <- Prelude.return x1+                                            x12 <- Prelude.return x2+                                            x13 <- Prelude.return x5+                                            DM.funcCallHook "insertBy"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12,+                                                     DI.genTerm x13]))+                                              (strict_insertBy x11 x12 x13)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "List" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_2 x1 x2 x4 x5)+                           x16)))+term_strict__case_2 x1 = DI.Term "_case_2" (DI.SrcID "List" 0) x1+strict__case_5 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.True)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x3+                                  x6 <- Prelude.return x4+                                  x7 <- Prelude.return x2+                                  DM.funcCallHook "_case_4"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_4 x5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_5 x2)+                           x8)))+term_strict__case_5 x1 = DI.Term "_case_5" (DI.SrcID "List" 0) x1+strict__case_4 x3 x4 x2+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.False)))+                    Curry.DebugModule.Prelude.Cons x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x7 <- Prelude.return x3+                                            x8 <- Prelude.return x5+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (Curry.DebugModule.Prelude.op_EqEq x7 x8)+                                  x12 <- do x9 <- Prelude.return x4+                                            x10 <- Prelude.return x6+                                            DM.funcCallHook "isPrefixOf"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (strict_isPrefixOf x9 x10)+                                  DM.funcCallHook "&&"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (Curry.DebugModule.Prelude.op_AndAnd x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_4 x3 x4)+                           x13)))+term_strict__case_4 x1 = DI.Term "_case_4" (DI.SrcID "List" 0) x1+strict__case_8 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x13 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x1+                                  x9 <- Prelude.return x2+                                  x10 <- Prelude.return x4+                                  x11 <- Prelude.return x5+                                  x12 <- do x6 <- Prelude.return x2+                                            x7 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return Curry.DebugModule.Prelude.Zero)+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Curry.DebugModule.Prelude.op_EqEq x6 x7)+                                  DM.funcCallHook "_case_7"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                                           DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_7 x8 x9 x10 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_8 x1 x2)+                           x13)))+term_strict__case_8 x1 = DI.Term "_case_8" (DI.SrcID "List" 0) x1+strict__case_7 x1 x2 x4 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x4, DI.genTerm x5,+                DI.genTerm x6]))+         (do x14 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x5+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- Prelude.return x2+                                  x11 <- Prelude.return x4+                                  x12 <- Prelude.return x5+                                  x13 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_6"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11,+                                           DI.genTerm x12, DI.genTerm x13]))+                                    (strict__case_6 x9 x10 x11 x12 x13)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "List" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_7 x1 x2 x4 x5)+                           x14)))+term_strict__case_7 x1 = DI.Term "_case_7" (DI.SrcID "List" 0) x1+strict__case_6 x1 x2 x4 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x4, DI.genTerm x5,+                DI.genTerm x6]))+         (do x14 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x4+                                  x13 <- do x9 <- Prelude.return x1+                                            x10 <- do x7 <- Prelude.return x2+                                                      x8 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Pos+                                                                    Curry.DebugModule.Prelude.IHi))+                                                      DM.funcCallHook "-"+                                                        (DI.DebugInfo (DI.SrcID "List" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x7, DI.genTerm x8]))+                                                        (Curry.DebugModule.Prelude.op_Minus x7 x8)+                                            x11 <- Prelude.return x5+                                            DM.funcCallHook "replace"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10,+                                                     DI.genTerm x11]))+                                              (strict_replace x9 x10 x11)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "List" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_6 x1 x2 x4 x5)+                           x14)))+term_strict__case_6 x1 = DI.Term "_case_6" (DI.SrcID "List" 0) x1+strict__case_9 x1+  = DM.eval+      (DM.funcDeclHook "_case_9"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_9+                           x4)))+term_strict__case_9 x1 = DI.Term "_case_9" (DI.SrcID "List" 0) x1+strict__case_10 x1+  = DM.eval+      (DM.funcDeclHook "_case_10"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_10+                           x4)))+term_strict__case_10 x1 = DI.Term "_case_10" (DI.SrcID "List" 0) x1+strict__case_11 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_11"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x20 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x5 <- do x10 <- do x8 <- Prelude.return x1+                                                        x9 <- Prelude.return x3+                                                        DM.funcCallHook "apply"+                                                          (DI.DebugInfo (DI.SrcID "List" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x8, DI.genTerm x9]))+                                                          (Curry.DebugModule.Prelude.strict_apply x8+                                                             x9)+                                              x11 <- Prelude.return x4+                                              DM.funcCallHook "span"+                                                (DI.DebugInfo (DI.SrcID "List" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x10, DI.genTerm x11]))+                                                (Curry.DebugModule.Prelude.strict_span x10 x11)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x6 <- do x12 <- Prelude.return x5+                                                       DM.funcCallHook "groupBy._#selFP3#ys"+                                                         (DI.DebugInfo (DI.SrcID "List" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x12]))+                                                         (x'xstrict_groupBy46_35selFP335ys x12)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x7 <- do x13 <- Prelude.return x5+                                                                DM.funcCallHook+                                                                  "groupBy._#selFP4#zs"+                                                                  (DI.DebugInfo (DI.SrcID "List" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x13]))+                                                                  (x'xstrict_groupBy46_35selFP435zs+                                                                     x13)+                                                       DM.eval+                                                         (do x18 <- do x14 <- Prelude.return x3+                                                                       x15 <- Prelude.return x6+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "List" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x14,+                                                                                DI.genTerm x15]))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Cons+                                                                               x14+                                                                               x15))+                                                             x19 <- do x16 <- Prelude.return x1+                                                                       x17 <- Prelude.return x7+                                                                       DM.funcCallHook "groupBy"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "List" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x16,+                                                                                DI.genTerm x17]))+                                                                         (strict_groupBy x16 x17)+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "List" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x18,+                                                                      DI.genTerm x19]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Cons+                                                                     x18+                                                                     x19))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_11 x1)+                           x20)))+term_strict__case_11 x1 = DI.Term "_case_11" (DI.SrcID "List" 0) x1+strict__case_13 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_13"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x13 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.Tuple2 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x1+                                  x9 <- Prelude.return x2+                                  x10 <- Prelude.return x4+                                  x11 <- Prelude.return x5+                                  x12 <- do x6 <- Prelude.return x1+                                            x7 <- Prelude.return x2+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Curry.DebugModule.Prelude.strict_apply x6 x7)+                                  DM.funcCallHook "_case_12"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                                           DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_12 x8 x9 x10 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_13 x1 x2)+                           x13)))+term_strict__case_13 x1 = DI.Term "_case_13" (DI.SrcID "List" 0) x1+strict__case_12 x1 x2 x4 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_12"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x4, DI.genTerm x5,+                DI.genTerm x6]))+         (do x15 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- do x7 <- Prelude.return x2+                                           x8 <- Prelude.return x4+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "List" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8))+                                  x10 <- Prelude.return x5+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x9 x10))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x4+                                  x14 <- do x11 <- Prelude.return x2+                                            x12 <- Prelude.return x5+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x11 x12))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x13 x14))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "List" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_12 x1 x2 x4 x5)+                           x15)))+term_strict__case_12 x1 = DI.Term "_case_12" (DI.SrcID "List" 0) x1+strict__case_15 x1+  = DM.eval+      (DM.funcDeclHook "_case_15"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x3+                                  x5 <- Prelude.return x2+                                  DM.funcCallHook "_case_14"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (strict__case_14 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_15+                           x6)))+term_strict__case_15 x1 = DI.Term "_case_15" (DI.SrcID "List" 0) x1+strict__case_14 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_14"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x18 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x3+                                  DM.funcCallHook "transpose"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (strict_transpose x6)))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- do x9 <- Prelude.return x4+                                            x10 <- do x7 <- Prelude.return+                                                              (PC.partCall1+                                                                 (Curry.DebugModule.Prelude.term_strict_head+                                                                    [])+                                                                 Curry.DebugModule.Prelude.strict_head)+                                                      x8 <- Prelude.return x3+                                                      DM.funcCallHook "map"+                                                        (DI.DebugInfo (DI.SrcID "List" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x7, DI.genTerm x8]))+                                                        (Curry.DebugModule.Prelude.strict_map x7 x8)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x9 x10))+                                  x17 <- do x15 <- do x13 <- Prelude.return x5+                                                      x14 <- do x11 <- Prelude.return+                                                                         (PC.partCall1+                                                                            (Curry.DebugModule.Prelude.term_strict_tail+                                                                               [])+                                                                            Curry.DebugModule.Prelude.strict_tail)+                                                                x12 <- Prelude.return x3+                                                                DM.funcCallHook "map"+                                                                  (DI.DebugInfo (DI.SrcID "List" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Curry.DebugModule.Prelude.strict_map+                                                                     x11+                                                                     x12)+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "List" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x13 x14))+                                            DM.funcCallHook "transpose"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x15]))+                                              (strict_transpose x15)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x16 x17))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_14 x3)+                           x18)))+term_strict__case_14 x1 = DI.Term "_case_14" (DI.SrcID "List" 0) x1+strict__case_17 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_17"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- Prelude.return x3+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "_case_16"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_16 x5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_17 x1)+                           x8)))+term_strict__case_17 x1 = DI.Term "_case_17" (DI.SrcID "List" 0) x1+strict__case_16 x1 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_16"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4]))+         (do x17 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x17]))+               (case x17 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  x8 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8))))+                    Curry.DebugModule.Prelude.Cons x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- Prelude.return x3+                                  x16 <- do x13 <- Prelude.return x1+                                            x14 <- do x11 <- Prelude.return x1+                                                      x12 <- do x9 <- Prelude.return x5+                                                                x10 <- Prelude.return x6+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "List" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x9,+                                                                         DI.genTerm x10]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x9+                                                                        x10))+                                                      DM.funcCallHook "intersperse"+                                                        (DI.DebugInfo (DI.SrcID "List" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x11, DI.genTerm x12]))+                                                        (strict_intersperse x11 x12)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x13, DI.genTerm x14]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x13 x14))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x17])))+                           (strict__case_16 x1 x3)+                           x17)))+term_strict__case_16 x1 = DI.Term "_case_16" (DI.SrcID "List" 0) x1+strict__case_19 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_19"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x12 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x2+                                  x9 <- Prelude.return x3+                                  x10 <- Prelude.return x4+                                  x11 <- do x6 <- do x5 <- Prelude.return x3+                                                     DM.funcCallHook "elem"+                                                       (DI.DebugInfo (DI.SrcID "List" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x5]))+                                                       (Curry.DebugModule.Prelude.strict_elem x5)+                                            x7 <- Prelude.return x2+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Curry.DebugModule.Prelude.strict_apply x6 x7)+                                  DM.funcCallHook "_case_18"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                                           DI.genTerm x11]))+                                    (strict__case_18 x8 x9 x10 x11)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_19 x2)+                           x12)))+term_strict__case_19 x1 = DI.Term "_case_19" (DI.SrcID "List" 0) x1+strict__case_18 x2 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_18"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x12 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  x9 <- do x6 <- Prelude.return x4+                                           x7 <- Prelude.return x2+                                           DM.funcCallHook "intersect"+                                             (DI.DebugInfo (DI.SrcID "List" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (strict_intersect x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x4+                                  x11 <- Prelude.return x2+                                  DM.funcCallHook "intersect"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (strict_intersect x10 x11)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "List" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_18 x2 x3 x4)+                           x12)))+term_strict__case_18 x1 = DI.Term "_case_18" (DI.SrcID "List" 0) x1+strict__case_21 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_21"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x12 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x2+                                  x9 <- Prelude.return x3+                                  x10 <- Prelude.return x4+                                  x11 <- do x6 <- do x5 <- Prelude.return x3+                                                     DM.funcCallHook "elem"+                                                       (DI.DebugInfo (DI.SrcID "List" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x5]))+                                                       (Curry.DebugModule.Prelude.strict_elem x5)+                                            x7 <- Prelude.return x2+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Curry.DebugModule.Prelude.strict_apply x6 x7)+                                  DM.funcCallHook "_case_20"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                                           DI.genTerm x11]))+                                    (strict__case_20 x8 x9 x10 x11)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_21 x2)+                           x12)))+term_strict__case_21 x1 = DI.Term "_case_21" (DI.SrcID "List" 0) x1+strict__case_20 x2 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_20"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x12 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x4+                                  x7 <- Prelude.return x2+                                  DM.funcCallHook "union"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict_union x6 x7)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x3+                                  x11 <- do x8 <- Prelude.return x4+                                            x9 <- Prelude.return x2+                                            DM.funcCallHook "union"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (strict_union x8 x9)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "List" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_20 x2 x3 x4)+                           x12)))+term_strict__case_20 x1 = DI.Term "_case_20" (DI.SrcID "List" 0) x1+strict__case_23 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_23"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x11 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x3+                                  x9 <- Prelude.return x4+                                  x10 <- do x5 <- Prelude.return x1+                                            x6 <- Prelude.return x3+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                              (Curry.DebugModule.Prelude.op_EqEq x5 x6)+                                  DM.funcCallHook "_case_22"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9,+                                           DI.genTerm x10]))+                                    (strict__case_22 x7 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_23 x1)+                           x11)))+term_strict__case_23 x1 = DI.Term "_case_23" (DI.SrcID "List" 0) x1+strict__case_22 x1 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_22"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x10 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x4))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  x9 <- do x6 <- Prelude.return x1+                                           x7 <- Prelude.return x4+                                           DM.funcCallHook "delete"+                                             (DI.DebugInfo (DI.SrcID "List" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (strict_delete x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "List" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_22 x1 x3 x4)+                           x10)))+term_strict__case_22 x1 = DI.Term "_case_22" (DI.SrcID "List" 0) x1+strict__case_24 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_24"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x3+                                  x12 <- do x9 <- Prelude.return x1+                                            x10 <- do x7 <- do x5 <- Prelude.return x1+                                                               x6 <- Prelude.return x3+                                                               Prelude.return+                                                                 (PC.partCall1+                                                                    (x'xterm_strict_nubBy46_35lambda6+                                                                       [DI.genTerm x5,+                                                                        DI.genTerm x6])+                                                                    (x'xstrict_nubBy46_35lambda6 x5+                                                                       x6))+                                                      x8 <- Prelude.return x4+                                                      DM.funcCallHook "filter"+                                                        (DI.DebugInfo (DI.SrcID "List" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x7, DI.genTerm x8]))+                                                        (Curry.DebugModule.Prelude.strict_filter x7+                                                           x8)+                                            DM.funcCallHook "nubBy"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (strict_nubBy x9 x10)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "List" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_24 x1)+                           x13)))+term_strict__case_24 x1 = DI.Term "_case_24" (DI.SrcID "List" 0) x1+strict__case_26 x1 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_26"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x2]))+         (do x14 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Curry.DebugModule.Prelude.Tuple2 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- do x8 <- Prelude.return x1+                                            x9 <- Prelude.return x4+                                            x10 <- Prelude.return x5+                                            x11 <- do x6 <- Prelude.return x1+                                                      x7 <- Prelude.return x4+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "List" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x6, DI.genTerm x7]))+                                                        (Curry.DebugModule.Prelude.strict_apply x6+                                                           x7)+                                            DM.funcCallHook "_case_25"+                                              (DI.DebugInfo (DI.SrcID "List" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                                                     DI.genTerm x11]))+                                              (strict__case_25 x8 x9 x10 x11)+                                  x13 <- Prelude.return x3+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x12 x13)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "List" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_26 x1 x3)+                           x14)))+term_strict__case_26 x1 = DI.Term "_case_26" (DI.SrcID "List" 0) x1+strict__case_25 x1 x4 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_25"+         (DI.DebugInfo (DI.SrcID "List" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+         (do x9 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "List" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x5+                                  x8 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "List" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "List" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "List" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_25 x1 x4 x5)+                           x9)))+term_strict__case_25 x1 = DI.Term "_case_25" (DI.SrcID "List" 0) x1
+ dist/build/Curry/DebugModule/Maybe.hs view
@@ -0,0 +1,1163 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Maybe where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Prelude+ +strict_isJust ::+              (DM.DM dm, DI.GenTerm a) =>+                Curry.DebugModule.Prelude.Maybe a ->+                  dm Curry.DebugModule.Prelude.Bool+strict_isJust x1+  = DM.eval+      (DM.funcDeclHook "isJust"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_8"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_8 x2)))+term_strict_isJust x1 = DI.Term "isJust" (DI.SrcID "Maybe" 0) x1+ +strict_isNothing ::+                 (DM.DM dm, DI.GenTerm a) =>+                   Curry.DebugModule.Prelude.Maybe a ->+                     dm Curry.DebugModule.Prelude.Bool+strict_isNothing x1+  = DM.eval+      (DM.funcDeclHook "isNothing"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_7"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_7 x2)))+term_strict_isNothing x1+  = DI.Term "isNothing" (DI.SrcID "Maybe" 0) x1+ +strict_fromJust ::+                (DM.DM dm, DI.GenTerm a) =>+                  Curry.DebugModule.Prelude.Maybe a -> dm a+strict_fromJust x1+  = DM.eval+      (DM.funcDeclHook "fromJust"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_6"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_6 x2)))+term_strict_fromJust x1+  = DI.Term "fromJust" (DI.SrcID "Maybe" 0) x1+ +strict_fromMaybe ::+                 (DM.DM dm, DI.GenTerm a) =>+                   a -> Curry.DebugModule.Prelude.Maybe a -> dm a+strict_fromMaybe x1 x2+  = DM.eval+      (DM.funcDeclHook "fromMaybe"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_5"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_5 x3 x4)))+term_strict_fromMaybe x1+  = DI.Term "fromMaybe" (DI.SrcID "Maybe" 0) x1+ +strict_maybeToList ::+                   (DM.DM dm, DI.GenTerm a) =>+                     Curry.DebugModule.Prelude.Maybe a ->+                       dm (Curry.DebugModule.Prelude.List a)+strict_maybeToList x1+  = DM.eval+      (DM.funcDeclHook "maybeToList"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_4"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_4 x2)))+term_strict_maybeToList x1+  = DI.Term "maybeToList" (DI.SrcID "Maybe" 0) x1+ +strict_listToMaybe ::+                   (DM.DM dm, DI.GenTerm a) =>+                     Curry.DebugModule.Prelude.List a ->+                       dm (Curry.DebugModule.Prelude.Maybe a)+strict_listToMaybe x1+  = DM.eval+      (DM.funcDeclHook "listToMaybe"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_3"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_3 x2)))+term_strict_listToMaybe x1+  = DI.Term "listToMaybe" (DI.SrcID "Maybe" 0) x1+ +strict_catMaybes ::+                 (DM.DM dm, DI.GenTerm a) =>+                   Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Maybe a)+                     -> dm (Curry.DebugModule.Prelude.List a)+strict_catMaybes x1+  = DM.eval+      (DM.funcDeclHook "catMaybes"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall2 (x'xterm_strict_catMaybes46_35lambda4 [])+                        x'xstrict_catMaybes46_35lambda4)+             x3 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Nil)+             x4 <- Prelude.return x1+             DM.funcCallHook "foldr"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+               (Curry.DebugModule.Prelude.strict_foldr x2 x3 x4)))+term_strict_catMaybes x1+  = DI.Term "catMaybes" (DI.SrcID "Maybe" 0) x1+ +x'xstrict_catMaybes46_35lambda4 ::+                                (DM.DM dm, DI.GenTerm x37) =>+                                  Curry.DebugModule.Prelude.Maybe x37 ->+                                    Curry.DebugModule.Prelude.List x37 ->+                                      dm (Curry.DebugModule.Prelude.List x37)+x'xstrict_catMaybes46_35lambda4 x1 x2+  = DM.eval+      (DM.funcDeclHook "catMaybes._#lambda4"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_2"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_2 x3 x4)))+x'xterm_strict_catMaybes46_35lambda4 x1+  = DI.Term "catMaybes._#lambda4" (DI.SrcID "Maybe" 0) x1+ +strict_mapMaybe ::+                (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                  DM.Func dm a (Curry.DebugModule.Prelude.Maybe b) ->+                    dm+                      (DM.Func dm (Curry.DebugModule.Prelude.List a)+                         (Curry.DebugModule.Prelude.List b))+strict_mapMaybe x1+  = DM.eval+      (DM.funcDeclHook "mapMaybe"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return+                     (PC.partCall1 (term_strict_catMaybes []) strict_catMaybes)+             x4 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1+                           (Curry.DebugModule.Prelude.term_strict_map [DI.genTerm x2])+                           (Curry.DebugModule.Prelude.strict_map x2))+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (Curry.DebugModule.Prelude.op_Point x3 x4)))+term_strict_mapMaybe x1+  = DI.Term "mapMaybe" (DI.SrcID "Maybe" 0) x1+ +op_GtGtMinus ::+             (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+               Curry.DebugModule.Prelude.Maybe a ->+                 DM.Func dm a (Curry.DebugModule.Prelude.Maybe b) ->+                   dm (Curry.DebugModule.Prelude.Maybe b)+op_GtGtMinus x1 x2+  = DM.eval+      (DM.funcDeclHook ">>-"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_1"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_1 x3 x4)))+term_op_GtGtMinus x1 = DI.Term ">>-" (DI.SrcID "Maybe" 0) x1+ +strict_sequenceMaybe ::+                     (DM.DM dm, DI.GenTerm a) =>+                       Curry.DebugModule.Prelude.List (Curry.DebugModule.Prelude.Maybe a)+                         ->+                         dm+                           (Curry.DebugModule.Prelude.Maybe+                              (Curry.DebugModule.Prelude.List a))+strict_sequenceMaybe x1+  = DM.eval+      (DM.funcDeclHook "sequenceMaybe"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_0"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_0 x2)))+term_strict_sequenceMaybe x1+  = DI.Term "sequenceMaybe" (DI.SrcID "Maybe" 0) x1+ +x'xstrict_sequenceMaybe46_35lambda6 ::+                                    (DM.DM dm, DI.GenTerm x66) =>+                                      Curry.DebugModule.Prelude.List+                                        (Curry.DebugModule.Prelude.Maybe x66)+                                        ->+                                        x66 ->+                                          dm+                                            (Curry.DebugModule.Prelude.Maybe+                                               (Curry.DebugModule.Prelude.List x66))+x'xstrict_sequenceMaybe46_35lambda6 x1 x2+  = DM.eval+      (DM.funcDeclHook "sequenceMaybe._#lambda6"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      DM.funcCallHook "sequenceMaybe"+                        (DI.DebugInfo (DI.SrcID "Maybe" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (strict_sequenceMaybe x3)+             x6 <- do x4 <- Prelude.return x2+                      Prelude.return+                        (PC.partCall1+                           (x'xterm_strict_sequenceMaybe46_35lambda646_35lambda7+                              [DI.genTerm x4])+                           (x'xstrict_sequenceMaybe46_35lambda646_35lambda7 x4))+             DM.funcCallHook ">>-"+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (op_GtGtMinus x5 x6)))+x'xterm_strict_sequenceMaybe46_35lambda6 x1+  = DI.Term "sequenceMaybe._#lambda6" (DI.SrcID "Maybe" 0) x1+ +x'xstrict_sequenceMaybe46_35lambda646_35lambda7 ::+                                                (DM.DM dm, DI.GenTerm x66) =>+                                                  x66 ->+                                                    Curry.DebugModule.Prelude.List x66 ->+                                                      dm+                                                        (Curry.DebugModule.Prelude.Maybe+                                                           (Curry.DebugModule.Prelude.List x66))+x'xstrict_sequenceMaybe46_35lambda646_35lambda7 x1 x2+  = DM.eval+      (DM.funcDeclHook "sequenceMaybe._#lambda6._#lambda7"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "Maybe" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x3 x4))+             DM.constructorHook+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (Prelude.return (Curry.DebugModule.Prelude.Just x5))))+x'xterm_strict_sequenceMaybe46_35lambda646_35lambda7 x1+  = DI.Term "sequenceMaybe._#lambda6._#lambda7" (DI.SrcID "Maybe" 0)+      x1+ +strict_mapMMaybe ::+                 (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                   DM.Func dm a (Curry.DebugModule.Prelude.Maybe b) ->+                     dm+                       (DM.Func dm (Curry.DebugModule.Prelude.List a)+                          (Curry.DebugModule.Prelude.Maybe+                             (Curry.DebugModule.Prelude.List b)))+strict_mapMMaybe x1+  = DM.eval+      (DM.funcDeclHook "mapMMaybe"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return+                     (PC.partCall1 (term_strict_sequenceMaybe []) strict_sequenceMaybe)+             x4 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1+                           (Curry.DebugModule.Prelude.term_strict_map [DI.genTerm x2])+                           (Curry.DebugModule.Prelude.strict_map x2))+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (Curry.DebugModule.Prelude.op_Point x3 x4)))+term_strict_mapMMaybe x1+  = DI.Term "mapMMaybe" (DI.SrcID "Maybe" 0) x1+strict__case_0 x1+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Just x4))))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- do x5 <- Prelude.return x3+                                           Prelude.return+                                             (PC.partCall1+                                                (x'xterm_strict_sequenceMaybe46_35lambda6+                                                   [DI.genTerm x5])+                                                (x'xstrict_sequenceMaybe46_35lambda6 x5))+                                  DM.funcCallHook ">>-"+                                    (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (op_GtGtMinus x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_0+                           x8)))+term_strict__case_0 x1 = DI.Term "_case_0" (DI.SrcID "Maybe" 0) x1+strict__case_1 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Nothing+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nothing)))+                    Curry.DebugModule.Prelude.Just x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x2+                                  x5 <- Prelude.return x3+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Curry.DebugModule.Prelude.strict_apply x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           (strict__case_1 x2)+                           x6)))+term_strict__case_1 x1 = DI.Term "_case_1" (DI.SrcID "Maybe" 0) x1+strict__case_2 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Just x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x3+                                  x5 <- Prelude.return x2+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x4 x5))))+                    Curry.DebugModule.Prelude.Nothing+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           (strict__case_2 x2)+                           x6)))+term_strict__case_2 x1 = DI.Term "_case_2" (DI.SrcID "Maybe" 0) x1+strict__case_3 x1+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nothing)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x2+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Just x4))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           strict__case_3+                           x5)))+term_strict__case_3 x1 = DI.Term "_case_3" (DI.SrcID "Maybe" 0) x1+strict__case_4 x1+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    Curry.DebugModule.Prelude.Nothing+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Just x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- Prelude.return x2+                                  x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x3 x4))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           strict__case_4+                           x5)))+term_strict__case_4 x1 = DI.Term "_case_4" (DI.SrcID "Maybe" 0) x1+strict__case_5 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x4 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Nothing+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    Curry.DebugModule.Prelude.Just x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_5 x1)+                           x4)))+term_strict__case_5 x1 = DI.Term "_case_5" (DI.SrcID "Maybe" 0) x1+strict__case_6 x1+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x50 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x50]))+               (case x50 of+                    Curry.DebugModule.Prelude.Just x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.Nothing+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x49 <- do x47 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char 'M'))+                                            x48 <- do x45 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'a'))+                                                      x46 <- do x43 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Maybe" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'y'))+                                                                x44 <- do x41 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Maybe"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'b'))+                                                                          x42 <- do x39 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "Maybe"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   'e'))+                                                                                    x40 <- do x37 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "Maybe"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             '.'))+                                                                                              x38 <- do x35 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Maybe"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       'f'))+                                                                                                        x36 <- do x33 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "Maybe"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                 'r'))+                                                                                                                  x34 <- do x31 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "Maybe"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                           'o'))+                                                                                                                            x32 <- do x29 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "Maybe"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                     'm'))+                                                                                                                                      x30 <- do x27 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "Maybe"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                               'J'))+                                                                                                                                                x28 <- do x25 <- DM.litHook+                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                         "Maybe"+                                                                                                                                                                         0)+                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                         []+                                                                                                                                                                         []))+                                                                                                                                                                   (Prelude.return+                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                         'u'))+                                                                                                                                                          x26 <- do x23 <- DM.litHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "Maybe"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                   's'))+                                                                                                                                                                    x24 <- do x21 <- DM.litHook+                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                             "Maybe"+                                                                                                                                                                                             0)+                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                             []+                                                                                                                                                                                             []))+                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                             't'))+                                                                                                                                                                              x22 <- do x19 <- DM.litHook+                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                       "Maybe"+                                                                                                                                                                                                       0)+                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                       []+                                                                                                                                                                                                       []))+                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                       ':'))+                                                                                                                                                                                        x20 <- do x17 <- DM.litHook+                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                 "Maybe"+                                                                                                                                                                                                                 0)+                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                 []+                                                                                                                                                                                                                 []))+                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                 ' '))+                                                                                                                                                                                                  x18 <- do x15 <- DM.litHook+                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                           "Maybe"+                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                           []+                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                           'N'))+                                                                                                                                                                                                            x16 <- do x13 <- DM.litHook+                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                     "Maybe"+                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                     'o'))+                                                                                                                                                                                                                      x14 <- do x11 <- DM.litHook+                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                               "Maybe"+                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                               't'))+                                                                                                                                                                                                                                x12 <- do x9 <- DM.litHook+                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                        "Maybe"+                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                        'h'))+                                                                                                                                                                                                                                          x10 <- do x7 <- DM.litHook+                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                  "Maybe"+                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                  []))+                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                  'i'))+                                                                                                                                                                                                                                                    x8 <- do x5 <- DM.litHook+                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                           "Maybe"+                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                           'n'))+                                                                                                                                                                                                                                                             x6 <- do x3 <- DM.litHook+                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                    "Maybe"+                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                    'g'))+                                                                                                                                                                                                                                                                      x4 <- DM.constructorHook+                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                    "Maybe"+                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                 Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                              "Maybe"+                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                 x3,+                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                 x4]))+                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                              x3+                                                                                                                                                                                                                                                                              x4))+                                                                                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                     "Maybe"+                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                                                                                        x5,+                                                                                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                                                                                        x6]))+                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                     x5+                                                                                                                                                                                                                                                                     x6))+                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                            "Maybe"+                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                               x7,+                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                               x8]))+                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                            x7+                                                                                                                                                                                                                                                            x8))+                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                  "Maybe"+                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                     x9,+                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                     x10]))+                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                  x9+                                                                                                                                                                                                                                                  x10))+                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                        "Maybe"+                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                           x11,+                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                           x12]))+                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                        x11+                                                                                                                                                                                                                                        x12))+                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                              "Maybe"+                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                              []+                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                 x13,+                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                 x14]))+                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                              x13+                                                                                                                                                                                                                              x14))+                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                    "Maybe"+                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                    []+                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                       x15,+                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                       x16]))+                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                    x15+                                                                                                                                                                                                                    x16))+                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                          "Maybe"+                                                                                                                                                                                                          0)+                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                          []+                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                             x17,+                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                             x18]))+                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                          x17+                                                                                                                                                                                                          x18))+                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                "Maybe"+                                                                                                                                                                                                0)+                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                []+                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                   x19,+                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                   x20]))+                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                x19+                                                                                                                                                                                                x20))+                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                      "Maybe"+                                                                                                                                                                                      0)+                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                      []+                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                         x21,+                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                         x22]))+                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                      x21+                                                                                                                                                                                      x22))+                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "Maybe"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                               x23,+                                                                                                                                                                             DI.genTerm+                                                                                                                                                                               x24]))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                            x23+                                                                                                                                                                            x24))+                                                                                                                                                          DM.constructorHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "Maybe"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                     x25,+                                                                                                                                                                   DI.genTerm+                                                                                                                                                                     x26]))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                  x25+                                                                                                                                                                  x26))+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "Maybe"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x27,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x28]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                        x27+                                                                                                                                                        x28))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "Maybe"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x29,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x30]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x29+                                                                                                                                              x30))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "Maybe"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x31,+                                                                                                                                     DI.genTerm+                                                                                                                                       x32]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                    x31+                                                                                                                                    x32))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "Maybe"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x33,+                                                                                                                           DI.genTerm+                                                                                                                             x34]))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                          x33+                                                                                                                          x34))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "Maybe"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x35,+                                                                                                                 DI.genTerm+                                                                                                                   x36]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x35+                                                                                                                x36))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "Maybe"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x37,+                                                                                                       DI.genTerm+                                                                                                         x38]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x37+                                                                                                      x38))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Maybe"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x39,+                                                                                             DI.genTerm+                                                                                               x40]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x39+                                                                                            x40))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Maybe" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x41,+                                                                                   DI.genTerm x42]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x41+                                                                                  x42))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x43,+                                                                         DI.genTerm x44]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x43+                                                                        x44))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x45, DI.genTerm x46]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x45 x46))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x47, DI.genTerm x48]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x47 x48))+                                  DM.funcCallHook "error"+                                    (DI.DebugInfo (DI.SrcID "Maybe" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x49]))+                                    (Curry.DebugModule.Prelude.strict_error x49)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x50])))+                           strict__case_6+                           x50)))+term_strict__case_6 x1 = DI.Term "_case_6" (DI.SrcID "Maybe" 0) x1+strict__case_7 x1+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (case x3 of+                    Curry.DebugModule.Prelude.Nothing+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.True)))+                    Curry.DebugModule.Prelude.Just x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.False)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x3])))+                           strict__case_7+                           x3)))+term_strict__case_7 x1 = DI.Term "_case_7" (DI.SrcID "Maybe" 0) x1+strict__case_8 x1+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "Maybe" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (case x3 of+                    Curry.DebugModule.Prelude.Just x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.True)))+                    Curry.DebugModule.Prelude.Nothing+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Maybe" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.False)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Maybe" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x3])))+                           strict__case_8+                           x3)))+term_strict__case_8 x1 = DI.Term "_case_8" (DI.SrcID "Maybe" 0) x1
+ dist/build/Curry/DebugModule/Prelude.hs view
@@ -0,0 +1,12023 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Prelude where+import qualified Char+import qualified Curry.Debugger.ShowTerm as ST+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+ +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 World = World+ +data (DM.DM dm) => IO dm a = IO (World -> dm (a, World))+                           | IOUnderscore+ +instance Data.Generics.Typeable (IO dm a)+ +instance Data.Generics.Data (IO dm a)+ +return :: (DM.DM dm) => a -> dm a+return = Prelude.return+(.) = (Prelude..)+($) = (Prelude.$)+ +curryReturn :: (DM.DM dm) => a -> dm (IO dm a)+curryReturn x = return (IO (\ w -> return (x, w)))+ +(?) :: (DM.DM dm, DI.GenTerm a) => a -> a -> dm a+x ? y = x DM.? y+ +strict_prim_putChar :: (DM.DM dm) => Char -> dm (IO dm Unit)+strict_prim_putChar x0+  = hook_strict_prim_putChar x0 (curryReturn Unit)+ +strict_getChar :: (DM.DM dm) => dm (IO dm Char)+strict_getChar+  = hook_strict_getChar+      (do c <- DM.getNextExtVal+          curryReturn (Char c))+ +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)+ +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)+ +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)+ +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)+ +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)))+ +strict_failed :: (DM.DM dm, DI.GenTerm a) => dm a+strict_failed = hook_strict_failed (return DM.failed)+ +op_EqEq :: (DM.DM dm, DI.GenTerm a) => a -> a -> dm Bool+op_EqEq x0 x1 = hook_op_EqEq x0 x1 (x0 `eqeq` x1)+ +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+ +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)))+ +strict_prim_chr :: (DM.DM dm) => Int -> dm Char+strict_prim_chr x0+  = hook_strict_prim_chr x0 (return (Char (Char.chr (intToHInt x0))))+ +op_EqEqEq :: (DM.DM dm, DI.GenTerm a) => a -> a -> dm Bool+op_EqEqEq x0 x1 = hook_op_EqEqEq x0 x1 (x0 `eqeq` x1)+ +op_And :: (DM.DM dm) => Success -> Success -> dm Success+op_And x0 x1 = hook_op_And x0 x1 (Prelude.error "not implemented")+ +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')))+ +strict_return :: (DM.DM dm, DI.GenTerm a) => a -> dm (IO dm a)+strict_return x = hook_strict_return x (curryReturn x)+ +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))+ +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)+ +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)+ +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")+ +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+ +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")+ +curryApply :: (DM.DM dm) => DM.Func dm a b -> a -> dm b+curryApply (DM.FuncRep _ f) x = f x+ +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)+ +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")+ +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")+ +instance (Data.Generics.Typeable a, Data.Generics.Typeable b,+          Data.Generics.Typeable c, Data.Generics.Typeable d,+          Data.Generics.Typeable e, Data.Generics.Typeable f,+          Data.Generics.Typeable g, Data.Generics.Typeable h) =>+         Data.Generics.Typeable (Tuple8 a b c d e f g h) where+        typeOf _+          = Data.Generics.mkTyConApp+              (Data.Generics.mkTyCon "Curry.DebugModule.Prelude.Tuple8")+              [Data.Generics.typeOf ta, Data.Generics.typeOf tb,+               Data.Generics.typeOf tc, Data.Generics.typeOf td,+               Data.Generics.typeOf te, Data.Generics.typeOf tf,+               Data.Generics.typeOf tg, Data.Generics.typeOf th]+          where  +                ta :: a+                ta = Prelude.undefined+                 +                tb :: b+                tb = Prelude.undefined+                 +                tc :: c+                tc = Prelude.undefined+                 +                td :: d+                td = Prelude.undefined+                 +                te :: e+                te = Prelude.undefined+                 +                tf :: f+                tf = Prelude.undefined+                 +                tg :: g+                tg = Prelude.undefined+                 +                th :: h+                th = Prelude.undefined+ +instance (Data.Generics.Data a, Data.Generics.Data b,+          Data.Generics.Data c, Data.Generics.Data d, Data.Generics.Data e,+          Data.Generics.Data f, Data.Generics.Data g,+          Data.Generics.Data h) =>+         Data.Generics.Data (Tuple8 a b c d e f g h) where+        gfoldl k z (Tuple8 x1 x2 x3 x4 x5 x6 x7 x8)+          = k (k (k (k (k (k (k (k (z Tuple8) x1) x2) x3) x4) x5) x6) x7) x8+        gunfold k z c+          = case Data.Generics.constrIndex c of+                1 -> k (k (k (k (k (k (k (k (z Tuple8))))))))+        toConstr (Tuple8 _ _ _ _ _ _ _ _) = con_Tuple8+        dataTypeOf _ = ty_Tuple8+ +instance (Data.Generics.Typeable a, Data.Generics.Typeable b,+          Data.Generics.Typeable c, Data.Generics.Typeable d,+          Data.Generics.Typeable e, Data.Generics.Typeable f,+          Data.Generics.Typeable g, Data.Generics.Typeable h,+          Data.Generics.Typeable i) =>+         Data.Generics.Typeable (Tuple9 a b c d e f g h i) where+        typeOf _+          = Data.Generics.mkTyConApp+              (Data.Generics.mkTyCon "Curry.DebugModule.Prelude.Tuple9")+              [Data.Generics.typeOf ta, Data.Generics.typeOf tb,+               Data.Generics.typeOf tc, Data.Generics.typeOf td,+               Data.Generics.typeOf te, Data.Generics.typeOf tf,+               Data.Generics.typeOf tg, Data.Generics.typeOf th,+               Data.Generics.typeOf ti]+          where  +                ta :: a+                ta = Prelude.undefined+                 +                tb :: b+                tb = Prelude.undefined+                 +                tc :: c+                tc = Prelude.undefined+                 +                td :: d+                td = Prelude.undefined+                 +                te :: e+                te = Prelude.undefined+                 +                tf :: f+                tf = Prelude.undefined+                 +                tg :: g+                tg = Prelude.undefined+                 +                th :: h+                th = Prelude.undefined+                 +                ti :: i+                ti = Prelude.undefined+ +instance (Data.Generics.Data a, Data.Generics.Data b,+          Data.Generics.Data c, Data.Generics.Data d, Data.Generics.Data e,+          Data.Generics.Data f, Data.Generics.Data g, Data.Generics.Data h,+          Data.Generics.Data i) =>+         Data.Generics.Data (Tuple9 a b c d e f g h i) where+        gfoldl k z (Tuple9 x1 x2 x3 x4 x5 x6 x7 x8 x9)+          = k+              (k (k (k (k (k (k (k (k (z Tuple9) x1) x2) x3) x4) x5) x6) x7) x8)+              x9+        gunfold k z c+          = case Data.Generics.constrIndex c of+                1 -> k (k (k (k (k (k (k (k (k (z Tuple9)))))))))+        toConstr (Tuple9 _ _ _ _ _ _ _ _ _) = con_Tuple9+        dataTypeOf _ = ty_Tuple9+ +instance (Data.Generics.Typeable a, Data.Generics.Typeable b,+          Data.Generics.Typeable c, Data.Generics.Typeable d,+          Data.Generics.Typeable e, Data.Generics.Typeable f,+          Data.Generics.Typeable g, Data.Generics.Typeable h,+          Data.Generics.Typeable i, Data.Generics.Typeable j) =>+         Data.Generics.Typeable (Tuple10 a b c d e f g h i j) where+        typeOf _+          = Data.Generics.mkTyConApp+              (Data.Generics.mkTyCon "Curry.DebugModule.Prelude.Tuple10")+              [Data.Generics.typeOf ta, Data.Generics.typeOf tb,+               Data.Generics.typeOf tc, Data.Generics.typeOf td,+               Data.Generics.typeOf te, Data.Generics.typeOf tf,+               Data.Generics.typeOf tg, Data.Generics.typeOf th,+               Data.Generics.typeOf ti, Data.Generics.typeOf tj]+          where  +                ta :: a+                ta = Prelude.undefined+                 +                tb :: b+                tb = Prelude.undefined+                 +                tc :: c+                tc = Prelude.undefined+                 +                td :: d+                td = Prelude.undefined+                 +                te :: e+                te = Prelude.undefined+                 +                tf :: f+                tf = Prelude.undefined+                 +                tg :: g+                tg = Prelude.undefined+                 +                th :: h+                th = Prelude.undefined+                 +                ti :: i+                ti = Prelude.undefined+                 +                tj :: j+                tj = Prelude.undefined+ +instance (Data.Generics.Data a, Data.Generics.Data b,+          Data.Generics.Data c, Data.Generics.Data d, Data.Generics.Data e,+          Data.Generics.Data f, Data.Generics.Data g, Data.Generics.Data h,+          Data.Generics.Data i, Data.Generics.Data j) =>+         Data.Generics.Data (Tuple10 a b c d e f g h i j) where+        gfoldl k z (Tuple10 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10)+          = k+              (k+                 (k (k (k (k (k (k (k (k (z Tuple10) x1) x2) x3) x4) x5) x6) x7) x8)+                 x9)+              x10+        gunfold k z c+          = case Data.Generics.constrIndex c of+                1 -> k (k (k (k (k (k (k (k (k (k (z Tuple10))))))))))+        toConstr (Tuple10 _ _ _ _ _ _ _ _ _ _) = con_Tuple10+        dataTypeOf _ = ty_Tuple10+ +instance (Data.Generics.Typeable a, Data.Generics.Typeable b,+          Data.Generics.Typeable c, Data.Generics.Typeable d,+          Data.Generics.Typeable e, Data.Generics.Typeable f,+          Data.Generics.Typeable g, Data.Generics.Typeable h,+          Data.Generics.Typeable i, Data.Generics.Typeable j,+          Data.Generics.Typeable k) =>+         Data.Generics.Typeable (Tuple11 a b c d e f g h i j k) where+        typeOf _+          = Data.Generics.mkTyConApp+              (Data.Generics.mkTyCon "Curry.DebugModule.Prelude.Tuple11")+              [Data.Generics.typeOf ta, Data.Generics.typeOf tb,+               Data.Generics.typeOf tc, Data.Generics.typeOf td,+               Data.Generics.typeOf te, Data.Generics.typeOf tf,+               Data.Generics.typeOf tg, Data.Generics.typeOf th,+               Data.Generics.typeOf ti, Data.Generics.typeOf tj,+               Data.Generics.typeOf tk]+          where  +                ta :: a+                ta = Prelude.undefined+                 +                tb :: b+                tb = Prelude.undefined+                 +                tc :: c+                tc = Prelude.undefined+                 +                td :: d+                td = Prelude.undefined+                 +                te :: e+                te = Prelude.undefined+                 +                tf :: f+                tf = Prelude.undefined+                 +                tg :: g+                tg = Prelude.undefined+                 +                th :: h+                th = Prelude.undefined+                 +                ti :: i+                ti = Prelude.undefined+                 +                tj :: j+                tj = Prelude.undefined+                 +                tk :: k+                tk = Prelude.undefined+ +instance (Data.Generics.Data a, Data.Generics.Data b,+          Data.Generics.Data c, Data.Generics.Data d, Data.Generics.Data e,+          Data.Generics.Data f, Data.Generics.Data g, Data.Generics.Data h,+          Data.Generics.Data i, Data.Generics.Data j,+          Data.Generics.Data k) =>+         Data.Generics.Data (Tuple11 a b c d e f g h i j k) where+        gfoldl k z (Tuple11 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11)+          = k+              (k+                 (k+                    (k (k (k (k (k (k (k (k (z Tuple11) x1) x2) x3) x4) x5) x6) x7) x8)+                    x9)+                 x10)+              x11+        gunfold k z c+          = case Data.Generics.constrIndex c of+                1 -> k (k (k (k (k (k (k (k (k (k (k (z Tuple11)))))))))))+        toConstr (Tuple11 _ _ _ _ _ _ _ _ _ _ _) = con_Tuple11+        dataTypeOf _ = ty_Tuple11+ +instance (Data.Generics.Typeable a, Data.Generics.Typeable b,+          Data.Generics.Typeable c, Data.Generics.Typeable d,+          Data.Generics.Typeable e, Data.Generics.Typeable f,+          Data.Generics.Typeable g, Data.Generics.Typeable h,+          Data.Generics.Typeable i, Data.Generics.Typeable j,+          Data.Generics.Typeable k, Data.Generics.Typeable l) =>+         Data.Generics.Typeable (Tuple12 a b c d e f g h i j k l) where+        typeOf _+          = Data.Generics.mkTyConApp+              (Data.Generics.mkTyCon "Curry.DebugModule.Prelude.Tuple12")+              [Data.Generics.typeOf ta, Data.Generics.typeOf tb,+               Data.Generics.typeOf tc, Data.Generics.typeOf td,+               Data.Generics.typeOf te, Data.Generics.typeOf tf,+               Data.Generics.typeOf tg, Data.Generics.typeOf th,+               Data.Generics.typeOf ti, Data.Generics.typeOf tj,+               Data.Generics.typeOf tk, Data.Generics.typeOf tl]+          where  +                ta :: a+                ta = Prelude.undefined+                 +                tb :: b+                tb = Prelude.undefined+                 +                tc :: c+                tc = Prelude.undefined+                 +                td :: d+                td = Prelude.undefined+                 +                te :: e+                te = Prelude.undefined+                 +                tf :: f+                tf = Prelude.undefined+                 +                tg :: g+                tg = Prelude.undefined+                 +                th :: h+                th = Prelude.undefined+                 +                ti :: i+                ti = Prelude.undefined+                 +                tj :: j+                tj = Prelude.undefined+                 +                tk :: k+                tk = Prelude.undefined+                 +                tl :: l+                tl = Prelude.undefined+ +instance (Data.Generics.Data a, Data.Generics.Data b,+          Data.Generics.Data c, Data.Generics.Data d, Data.Generics.Data e,+          Data.Generics.Data f, Data.Generics.Data g, Data.Generics.Data h,+          Data.Generics.Data i, Data.Generics.Data j, Data.Generics.Data k,+          Data.Generics.Data l) =>+         Data.Generics.Data (Tuple12 a b c d e f g h i j k l) where+        gfoldl k z (Tuple12 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12)+          = k+              (k+                 (k+                    (k+                       (k (k (k (k (k (k (k (k (z Tuple12) x1) x2) x3) x4) x5) x6) x7) x8)+                       x9)+                    x10)+                 x11)+              x12+        gunfold k z c+          = case Data.Generics.constrIndex c of+                1 -> k (k (k (k (k (k (k (k (k (k (k (k (z Tuple12))))))))))))+        toConstr (Tuple12 _ _ _ _ _ _ _ _ _ _ _ _) = con_Tuple12+        dataTypeOf _ = ty_Tuple12+ +instance (Data.Generics.Typeable a, Data.Generics.Typeable b,+          Data.Generics.Typeable c, Data.Generics.Typeable d,+          Data.Generics.Typeable e, Data.Generics.Typeable f,+          Data.Generics.Typeable g, Data.Generics.Typeable h,+          Data.Generics.Typeable i, Data.Generics.Typeable j,+          Data.Generics.Typeable k, Data.Generics.Typeable l,+          Data.Generics.Typeable m) =>+         Data.Generics.Typeable (Tuple13 a b c d e f g h i j k l m) where+        typeOf _+          = Data.Generics.mkTyConApp+              (Data.Generics.mkTyCon "Curry.DebugModule.Prelude.Tuple13")+              [Data.Generics.typeOf ta, Data.Generics.typeOf tb,+               Data.Generics.typeOf tc, Data.Generics.typeOf td,+               Data.Generics.typeOf te, Data.Generics.typeOf tf,+               Data.Generics.typeOf tg, Data.Generics.typeOf th,+               Data.Generics.typeOf ti, Data.Generics.typeOf tj,+               Data.Generics.typeOf tk, Data.Generics.typeOf tl,+               Data.Generics.typeOf tm]+          where  +                ta :: a+                ta = Prelude.undefined+                 +                tb :: b+                tb = Prelude.undefined+                 +                tc :: c+                tc = Prelude.undefined+                 +                td :: d+                td = Prelude.undefined+                 +                te :: e+                te = Prelude.undefined+                 +                tf :: f+                tf = Prelude.undefined+                 +                tg :: g+                tg = Prelude.undefined+                 +                th :: h+                th = Prelude.undefined+                 +                ti :: i+                ti = Prelude.undefined+                 +                tj :: j+                tj = Prelude.undefined+                 +                tk :: k+                tk = Prelude.undefined+                 +                tl :: l+                tl = Prelude.undefined+                 +                tm :: m+                tm = Prelude.undefined+ +instance (Data.Generics.Data a, Data.Generics.Data b,+          Data.Generics.Data c, Data.Generics.Data d, Data.Generics.Data e,+          Data.Generics.Data f, Data.Generics.Data g, Data.Generics.Data h,+          Data.Generics.Data i, Data.Generics.Data j, Data.Generics.Data k,+          Data.Generics.Data l, Data.Generics.Data m) =>+         Data.Generics.Data (Tuple13 a b c d e f g h i j k l m) where+        gfoldl k z (Tuple13 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13)+          = k+              (k+                 (k+                    (k+                       (k+                          (k (k (k (k (k (k (k (k (z Tuple13) x1) x2) x3) x4) x5) x6) x7) x8)+                          x9)+                       x10)+                    x11)+                 x12)+              x13+        gunfold k z c+          = case Data.Generics.constrIndex c of+                1 -> k (k (k (k (k (k (k (k (k (k (k (k (k (z Tuple13)))))))))))))+        toConstr (Tuple13 _ _ _ _ _ _ _ _ _ _ _ _ _) = con_Tuple13+        dataTypeOf _ = ty_Tuple13+ +instance (Data.Generics.Typeable a, Data.Generics.Typeable b,+          Data.Generics.Typeable c, Data.Generics.Typeable d,+          Data.Generics.Typeable e, Data.Generics.Typeable f,+          Data.Generics.Typeable g, Data.Generics.Typeable h,+          Data.Generics.Typeable i, Data.Generics.Typeable j,+          Data.Generics.Typeable k, Data.Generics.Typeable l,+          Data.Generics.Typeable m, Data.Generics.Typeable n) =>+         Data.Generics.Typeable (Tuple14 a b c d e f g h i j k l m n) where+        typeOf _+          = Data.Generics.mkTyConApp+              (Data.Generics.mkTyCon "Curry.DebugModule.Prelude.Tuple14")+              [Data.Generics.typeOf ta, Data.Generics.typeOf tb,+               Data.Generics.typeOf tc, Data.Generics.typeOf td,+               Data.Generics.typeOf te, Data.Generics.typeOf tf,+               Data.Generics.typeOf tg, Data.Generics.typeOf th,+               Data.Generics.typeOf ti, Data.Generics.typeOf tj,+               Data.Generics.typeOf tk, Data.Generics.typeOf tl,+               Data.Generics.typeOf tm, Data.Generics.typeOf tn]+          where  +                ta :: a+                ta = Prelude.undefined+                 +                tb :: b+                tb = Prelude.undefined+                 +                tc :: c+                tc = Prelude.undefined+                 +                td :: d+                td = Prelude.undefined+                 +                te :: e+                te = Prelude.undefined+                 +                tf :: f+                tf = Prelude.undefined+                 +                tg :: g+                tg = Prelude.undefined+                 +                th :: h+                th = Prelude.undefined+                 +                ti :: i+                ti = Prelude.undefined+                 +                tj :: j+                tj = Prelude.undefined+                 +                tk :: k+                tk = Prelude.undefined+                 +                tl :: l+                tl = Prelude.undefined+                 +                tm :: m+                tm = Prelude.undefined+                 +                tn :: n+                tn = Prelude.undefined+ +instance (Data.Generics.Data a, Data.Generics.Data b,+          Data.Generics.Data c, Data.Generics.Data d, Data.Generics.Data e,+          Data.Generics.Data f, Data.Generics.Data g, Data.Generics.Data h,+          Data.Generics.Data i, Data.Generics.Data j, Data.Generics.Data k,+          Data.Generics.Data l, Data.Generics.Data m,+          Data.Generics.Data n) =>+         Data.Generics.Data (Tuple14 a b c d e f g h i j k l m n) where+        gfoldl k z (Tuple14 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14)+          = k+              (k+                 (k+                    (k+                       (k+                          (k+                             (k (k (k (k (k (k (k (k (z Tuple14) x1) x2) x3) x4) x5) x6) x7) x8)+                             x9)+                          x10)+                       x11)+                    x12)+                 x13)+              x14+        gunfold k z c+          = case Data.Generics.constrIndex c of+                1+                  -> k+                       (k (k (k (k (k (k (k (k (k (k (k (k (k (z Tuple14))))))))))))))+        toConstr (Tuple14 _ _ _ _ _ _ _ _ _ _ _ _ _ _) = con_Tuple14+        dataTypeOf _ = ty_Tuple14+ +instance (Data.Generics.Typeable a, Data.Generics.Typeable b,+          Data.Generics.Typeable c, Data.Generics.Typeable d,+          Data.Generics.Typeable e, Data.Generics.Typeable f,+          Data.Generics.Typeable g, Data.Generics.Typeable h,+          Data.Generics.Typeable i, Data.Generics.Typeable j,+          Data.Generics.Typeable k, Data.Generics.Typeable l,+          Data.Generics.Typeable m, Data.Generics.Typeable n,+          Data.Generics.Typeable o) =>+         Data.Generics.Typeable (Tuple15 a b c d e f g h i j k l m n o)+         where+        typeOf _+          = Data.Generics.mkTyConApp+              (Data.Generics.mkTyCon "Curry.DebugModule.Prelude.Tuple15")+              [Data.Generics.typeOf ta, Data.Generics.typeOf tb,+               Data.Generics.typeOf tc, Data.Generics.typeOf td,+               Data.Generics.typeOf te, Data.Generics.typeOf tf,+               Data.Generics.typeOf tg, Data.Generics.typeOf th,+               Data.Generics.typeOf ti, Data.Generics.typeOf tj,+               Data.Generics.typeOf tk, Data.Generics.typeOf tl,+               Data.Generics.typeOf tm, Data.Generics.typeOf tn,+               Data.Generics.typeOf to]+          where  +                ta :: a+                ta = Prelude.undefined+                 +                tb :: b+                tb = Prelude.undefined+                 +                tc :: c+                tc = Prelude.undefined+                 +                td :: d+                td = Prelude.undefined+                 +                te :: e+                te = Prelude.undefined+                 +                tf :: f+                tf = Prelude.undefined+                 +                tg :: g+                tg = Prelude.undefined+                 +                th :: h+                th = Prelude.undefined+                 +                ti :: i+                ti = Prelude.undefined+                 +                tj :: j+                tj = Prelude.undefined+                 +                tk :: k+                tk = Prelude.undefined+                 +                tl :: l+                tl = Prelude.undefined+                 +                tm :: m+                tm = Prelude.undefined+                 +                tn :: n+                tn = Prelude.undefined+                 +                to :: o+                to = Prelude.undefined+ +instance (Data.Generics.Data a, Data.Generics.Data b,+          Data.Generics.Data c, Data.Generics.Data d, Data.Generics.Data e,+          Data.Generics.Data f, Data.Generics.Data g, Data.Generics.Data h,+          Data.Generics.Data i, Data.Generics.Data j, Data.Generics.Data k,+          Data.Generics.Data l, Data.Generics.Data m, Data.Generics.Data n,+          Data.Generics.Data o) =>+         Data.Generics.Data (Tuple15 a b c d e f g h i j k l m n o) where+        gfoldl k z+          (Tuple15 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15)+          = k+              (k+                 (k+                    (k+                       (k+                          (k+                             (k+                                (k (k (k (k (k (k (k (k (z Tuple15) x1) x2) x3) x4) x5) x6) x7) x8)+                                x9)+                             x10)+                          x11)+                       x12)+                    x13)+                 x14)+              x15+        gunfold k z c+          = case Data.Generics.constrIndex c of+                1+                  -> k+                       (k (k (k (k (k (k (k (k (k (k (k (k (k (k (z Tuple15)))))))))))))))+        toConstr (Tuple15 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _) = con_Tuple15+        dataTypeOf _ = ty_Tuple15+ +instance DI.GenTerm Unit where+        genTerm (Unit) = DI.Term "()" (DI.SrcID "Prelude" 0) []+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (DI.GenTerm a) => DI.GenTerm (List a) where+        genTerm (Nil) = DI.Term "[]" (DI.SrcID "Prelude" 0) []+        genTerm (Cons x1 x2)+          = DI.Term ":" (DI.SrcID "Prelude" 0) [DI.genTerm x1, DI.genTerm x2]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (DI.GenTerm a, DI.GenTerm b) => DI.GenTerm (Tuple2 a b)+         where+        genTerm (Tuple2 x1 x2)+          = DI.Term "(,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (DI.GenTerm a, DI.GenTerm b, DI.GenTerm c) => DI.GenTerm+         (Tuple3 a b c) where+        genTerm (Tuple3 x1 x2 x3)+          = DI.Term "(,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (DI.GenTerm a, DI.GenTerm b, DI.GenTerm c,+          DI.GenTerm d) =>+         DI.GenTerm (Tuple4 a b c d) where+        genTerm (Tuple4 x1 x2 x3 x4)+          = DI.Term "(,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (DI.GenTerm a, DI.GenTerm b, DI.GenTerm c, DI.GenTerm d,+          DI.GenTerm e) =>+         DI.GenTerm (Tuple5 a b c d e) where+        genTerm (Tuple5 x1 x2 x3 x4 x5)+          = DI.Term "(,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (DI.GenTerm a, DI.GenTerm b, DI.GenTerm c, DI.GenTerm d,+          DI.GenTerm e, DI.GenTerm f) =>+         DI.GenTerm (Tuple6 a b c d e f) where+        genTerm (Tuple6 x1 x2 x3 x4 x5 x6)+          = DI.Term "(,,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (DI.GenTerm a, DI.GenTerm b, DI.GenTerm c, DI.GenTerm d,+          DI.GenTerm e, DI.GenTerm f, DI.GenTerm g) =>+         DI.GenTerm (Tuple7 a b c d e f g) where+        genTerm (Tuple7 x1 x2 x3 x4 x5 x6 x7)+          = DI.Term "(,,,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (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 (Tuple8 a b c d e f g h) where+        genTerm (Tuple8 x1 x2 x3 x4 x5 x6 x7 x8)+          = DI.Term "(,,,,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (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 (Tuple9 a b c d e f g h i) where+        genTerm (Tuple9 x1 x2 x3 x4 x5 x6 x7 x8 x9)+          = DI.Term "(,,,,,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+               DI.genTerm x9]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (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 (Tuple10 a b c d e f g h i j) where+        genTerm (Tuple10 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10)+          = DI.Term "(,,,,,,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+               DI.genTerm x9, DI.genTerm x10]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (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.GenTerm (Tuple11 a b c d e f g h i j k) where+        genTerm (Tuple11 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11)+          = DI.Term "(,,,,,,,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+               DI.genTerm x9, DI.genTerm x10, DI.genTerm x11]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (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.GenTerm l) =>+         DI.GenTerm (Tuple12 a b c d e f g h i j k l) where+        genTerm (Tuple12 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12)+          = DI.Term "(,,,,,,,,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+               DI.genTerm x9, DI.genTerm x10, DI.genTerm x11, DI.genTerm x12]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (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.GenTerm l,+          DI.GenTerm m) =>+         DI.GenTerm (Tuple13 a b c d e f g h i j k l m) where+        genTerm (Tuple13 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13)+          = DI.Term "(,,,,,,,,,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+               DI.genTerm x9, DI.genTerm x10, DI.genTerm x11, DI.genTerm x12,+               DI.genTerm x13]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (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.GenTerm l,+          DI.GenTerm m, DI.GenTerm n) =>+         DI.GenTerm (Tuple14 a b c d e f g h i j k l m n) where+        genTerm (Tuple14 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14)+          = DI.Term "(,,,,,,,,,,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+               DI.genTerm x9, DI.genTerm x10, DI.genTerm x11, DI.genTerm x12,+               DI.genTerm x13, DI.genTerm x14]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (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.GenTerm l,+          DI.GenTerm m, DI.GenTerm n, DI.GenTerm o) =>+         DI.GenTerm (Tuple15 a b c d e f g h i j k l m n o) where+        genTerm+          (Tuple15 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15)+          = DI.Term "(,,,,,,,,,,,,,,)" (DI.SrcID "Prelude" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+               DI.genTerm x9, DI.genTerm x10, DI.genTerm x11, DI.genTerm x12,+               DI.genTerm x13, DI.genTerm x14, DI.genTerm x15]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance DI.GenTerm Bool where+        genTerm (False) = DI.Term "False" (DI.SrcID "Prelude" 0) []+        genTerm (True) = DI.Term "True" (DI.SrcID "Prelude" 0) []+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance DI.GenTerm Ordering where+        genTerm (LT) = DI.Term "LT" (DI.SrcID "Prelude" 0) []+        genTerm (EQ) = DI.Term "EQ" (DI.SrcID "Prelude" 0) []+        genTerm (GT) = DI.Term "GT" (DI.SrcID "Prelude" 0) []+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance DI.GenTerm Nat where+        genTerm (IHi) = DI.Term "IHi" (DI.SrcID "Prelude" 0) []+        genTerm (O x1) = DI.Term "O" (DI.SrcID "Prelude" 0) [DI.genTerm x1]+        genTerm (I x1) = DI.Term "I" (DI.SrcID "Prelude" 0) [DI.genTerm x1]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance DI.GenTerm Int where+        genTerm (Neg x1)+          = DI.Term "Neg" (DI.SrcID "Prelude" 0) [DI.genTerm x1]+        genTerm (Zero) = DI.Term "Zero" (DI.SrcID "Prelude" 0) []+        genTerm (Pos x1)+          = DI.Term "Pos" (DI.SrcID "Prelude" 0) [DI.genTerm x1]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance DI.GenTerm Success where+        genTerm (Success) = DI.Term "Success" (DI.SrcID "Prelude" 0) []+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (DI.GenTerm a) => DI.GenTerm (Maybe a) where+        genTerm (Nothing) = DI.Term "Nothing" (DI.SrcID "Prelude" 0) []+        genTerm (Just x1)+          = DI.Term "Just" (DI.SrcID "Prelude" 0) [DI.genTerm x1]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (DI.GenTerm a, DI.GenTerm b) => DI.GenTerm (Either a b)+         where+        genTerm (Left x1)+          = DI.Term "Left" (DI.SrcID "Prelude" 0) [DI.genTerm x1]+        genTerm (Right x1)+          = DI.Term "Right" (DI.SrcID "Prelude" 0) [DI.genTerm x1]+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +instance (DI.GenTerm a) => DI.GenTerm (SearchTree a) where+        genTerm (Fail) = DI.Term "Fail" (DI.SrcID "Prelude" 0) []+        genTerm (Value x1)+          = DI.Term "Value" (DI.SrcID "Prelude" 0) [DI.genTerm x1]+        genTerm (Choice x1)+          = DI.Term "Choice" (DI.SrcID "Prelude" 0) [DI.genTerm x1]+        genTerm (Suspend) = DI.Term "Suspend" (DI.SrcID "Prelude" 0) []+        genTerm x1 = DM.genericTerm (DI.SrcID "Prelude" 0) x1+ +data Unit = UnitFail+          | UnitOr DM.OrRef [Unit]+          | UnitUnderscore+          | Unit+          deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data List a = ListFail+            | ListOr DM.OrRef [List a]+            | ListUnderscore+            | Nil+            | Cons a (List a)+            deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Tuple2 a b = Tuple2Fail+                | Tuple2Or DM.OrRef [Tuple2 a b]+                | Tuple2Underscore+                | Tuple2 a b+                deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Tuple3 a b c = Tuple3Fail+                  | Tuple3Or DM.OrRef [Tuple3 a b c]+                  | Tuple3Underscore+                  | Tuple3 a b c+                  deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Tuple4 a b c d = Tuple4Fail+                    | Tuple4Or DM.OrRef [Tuple4 a b c d]+                    | Tuple4Underscore+                    | Tuple4 a b c d+                    deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Tuple5 a b c d e = Tuple5Fail+                      | Tuple5Or DM.OrRef [Tuple5 a b c d e]+                      | Tuple5Underscore+                      | Tuple5 a b c d e+                      deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Tuple6 a b c d e f = Tuple6Fail+                        | Tuple6Or DM.OrRef [Tuple6 a b c d e f]+                        | Tuple6Underscore+                        | Tuple6 a b c d e f+                        deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Tuple7 a b c d e f g = Tuple7Fail+                          | Tuple7Or DM.OrRef [Tuple7 a b c d e f g]+                          | Tuple7Underscore+                          | Tuple7 a b c d e f g+                          deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Tuple8 a b c d e f g h = Tuple8Fail+                            | Tuple8Or DM.OrRef [Tuple8 a b c d e f g h]+                            | Tuple8Underscore+                            | Tuple8 a b c d e f g h+ +data Tuple9 a b c d e f g h i = Tuple9Fail+                              | Tuple9Or DM.OrRef [Tuple9 a b c d e f g h i]+                              | Tuple9Underscore+                              | Tuple9 a b c d e f g h i+ +data Tuple10 a b c d e f g h i j = Tuple10Fail+                                 | Tuple10Or DM.OrRef [Tuple10 a b c d e f g h i j]+                                 | Tuple10Underscore+                                 | Tuple10 a b c d e f g h i j+ +data Tuple11 a b c d e f g h i j k = Tuple11Fail+                                   | Tuple11Or DM.OrRef [Tuple11 a b c d e f g h i j k]+                                   | Tuple11Underscore+                                   | Tuple11 a b c d e f g h i j k+ +data Tuple12 a b c d e f g h i j k l = Tuple12Fail+                                     | Tuple12Or DM.OrRef [Tuple12 a b c d e f g h i j k l]+                                     | Tuple12Underscore+                                     | Tuple12 a b c d e f g h i j k l+ +data Tuple13 a b c d e f g h i j k l m = Tuple13Fail+                                       | Tuple13Or DM.OrRef [Tuple13 a b c d e f g h i j k l m]+                                       | Tuple13Underscore+                                       | Tuple13 a b c d e f g h i j k l m+ +data Tuple14 a b c d e f g h i j k l m n = Tuple14Fail+                                         | Tuple14Or DM.OrRef [Tuple14 a b c d e f g h i j k l m n]+                                         | Tuple14Underscore+                                         | Tuple14 a b c d e f g h i j k l m n+ +data Tuple15 a b c d e f g h i j k l m n o = Tuple15Fail+                                           | Tuple15Or DM.OrRef+                                                       [Tuple15 a b c d e f g h i j k l m n o]+                                           | Tuple15Underscore+                                           | Tuple15 a b c d e f g h i j k l m n o+ +data Bool = BoolFail+          | BoolOr DM.OrRef [Bool]+          | BoolUnderscore+          | False+          | True+          deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Ordering = OrderingFail+              | OrderingOr DM.OrRef [Ordering]+              | OrderingUnderscore+              | LT+              | EQ+              | GT+              deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Nat = NatFail+         | NatOr DM.OrRef [Nat]+         | NatUnderscore+         | IHi+         | O Nat+         | I Nat+         deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Int = IntFail+         | IntOr DM.OrRef [Int]+         | IntUnderscore+         | Neg Nat+         | Zero+         | Pos Nat+         deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Success = SuccessFail+             | SuccessOr DM.OrRef [Success]+             | SuccessUnderscore+             | Success+             deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Maybe a = MaybeFail+             | MaybeOr DM.OrRef [Maybe a]+             | MaybeUnderscore+             | Nothing+             | Just a+             deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Either a b = EitherFail+                | EitherOr DM.OrRef [Either a b]+                | EitherUnderscore+                | Left a+                | Right b+                deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data SearchTree a = SearchTreeFail+                  | SearchTreeOr DM.OrRef [SearchTree a]+                  | SearchTreeUnderscore+                  | Fail+                  | Value a+                  | Choice (List (SearchTree a))+                  | Suspend+                  deriving (Data.Generics.Typeable, Data.Generics.Data)+ty_Tuple8+  = Data.Generics.mkDataType "Curry.DebugModule.Prelude.Tuple8"+      [con_Tuple8]+con_Tuple8+  = Data.Generics.mkConstr ty_Tuple8 "Tuple8" [] Data.Generics.Prefix+ty_Tuple9+  = Data.Generics.mkDataType "Curry.DebugModule.Prelude.Tuple9"+      [con_Tuple9]+con_Tuple9+  = Data.Generics.mkConstr ty_Tuple9 "Tuple9" [] Data.Generics.Prefix+ty_Tuple10+  = Data.Generics.mkDataType "Curry.DebugModule.Prelude.Tuple10"+      [con_Tuple10]+con_Tuple10+  = Data.Generics.mkConstr ty_Tuple10 "Tuple10" []+      Data.Generics.Prefix+ty_Tuple11+  = Data.Generics.mkDataType "Curry.DebugModule.Prelude.Tuple11"+      [con_Tuple11]+con_Tuple11+  = Data.Generics.mkConstr ty_Tuple11 "Tuple11" []+      Data.Generics.Prefix+ty_Tuple12+  = Data.Generics.mkDataType "Curry.DebugModule.Prelude.Tuple12"+      [con_Tuple12]+con_Tuple12+  = Data.Generics.mkConstr ty_Tuple12 "Tuple12" []+      Data.Generics.Prefix+ty_Tuple13+  = Data.Generics.mkDataType "Curry.DebugModule.Prelude.Tuple13"+      [con_Tuple13]+con_Tuple13+  = Data.Generics.mkConstr ty_Tuple13 "Tuple13" []+      Data.Generics.Prefix+ty_Tuple14+  = Data.Generics.mkDataType "Curry.DebugModule.Prelude.Tuple14"+      [con_Tuple14]+con_Tuple14+  = Data.Generics.mkConstr ty_Tuple14 "Tuple14" []+      Data.Generics.Prefix+ty_Tuple15+  = Data.Generics.mkDataType "Curry.DebugModule.Prelude.Tuple15"+      [con_Tuple15]+con_Tuple15+  = Data.Generics.mkConstr ty_Tuple15 "Tuple15" []+      Data.Generics.Prefix+ +op_Point ::+         (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c) =>+           DM.Func dm a b -> DM.Func dm c a -> dm (DM.Func dm c b)+op_Point x1 x2+  = DM.eval+      (DM.funcDeclHook "."+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             Prelude.return+               (PC.partCall1+                  (x'xterm_strict_4646_35lambda2 [DI.genTerm x3, DI.genTerm x4])+                  (x'xstrict_4646_35lambda2 x3 x4))))+term_op_Point x1 = DI.Term "." (DI.SrcID "Prelude" 0) x1+ +x'xstrict_4646_35lambda2 ::+                         (DM.DM dm, DI.GenTerm j, DI.GenTerm l, DI.GenTerm h) =>+                           DM.Func dm j l -> DM.Func dm h j -> h -> dm l+x'xstrict_4646_35lambda2 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook ".._#lambda2"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- Prelude.return x1+             x7 <- do x4 <- Prelude.return x2+                      x5 <- Prelude.return x3+                      DM.funcCallHook "apply"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (strict_apply x4 x5)+             DM.funcCallHook "apply"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+               (strict_apply x6 x7)))+x'xterm_strict_4646_35lambda2 x1+  = DI.Term ".._#lambda2" (DI.SrcID "Prelude" 0) x1+ +strict_id :: (DM.DM dm, DI.GenTerm a) => a -> dm a+strict_id x1+  = DM.eval+      (DM.funcDeclHook "id"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (Prelude.return x1))+term_strict_id x1 = DI.Term "id" (DI.SrcID "Prelude" 0) x1+ +strict_const ::+             (DM.DM dm, DI.GenTerm a, DI.GenTerm b) => a -> b -> dm a+strict_const x1 x2+  = DM.eval+      (DM.funcDeclHook "const"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (Prelude.return x1))+term_strict_const x1 = DI.Term "const" (DI.SrcID "Prelude" 0) x1+ +strict_curry ::+             (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c) =>+               DM.Func dm (Tuple2 a b) c -> a -> b -> dm c+strict_curry x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "curry"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- Prelude.return x1+             x7 <- do x4 <- Prelude.return x2+                      x5 <- Prelude.return x3+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (Prelude.return (Tuple2 x4 x5))+             DM.funcCallHook "apply"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+               (strict_apply x6 x7)))+term_strict_curry x1 = DI.Term "curry" (DI.SrcID "Prelude" 0) x1+ +strict_uncurry ::+               (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c) =>+                 DM.Func dm a (DM.Func dm b c) -> Tuple2 a b -> dm c+strict_uncurry x1 x2+  = DM.eval+      (DM.funcDeclHook "uncurry"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_155"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_155 x3 x4)))+term_strict_uncurry x1+  = DI.Term "uncurry" (DI.SrcID "Prelude" 0) x1+ +strict_flip ::+            (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c) =>+              DM.Func dm a (DM.Func dm b c) -> b -> a -> dm c+strict_flip x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "flip"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- do x4 <- Prelude.return x1+                      x5 <- Prelude.return x3+                      DM.funcCallHook "apply"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (strict_apply x4 x5)+             x7 <- Prelude.return x2+             DM.funcCallHook "apply"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+               (strict_apply x6 x7)))+term_strict_flip x1 = DI.Term "flip" (DI.SrcID "Prelude" 0) x1+ +strict_until ::+             (DM.DM dm, DI.GenTerm a) =>+               DM.Func dm a Bool -> DM.Func dm a a -> a -> dm a+strict_until x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "until"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- Prelude.return x1+             x7 <- Prelude.return x2+             x8 <- Prelude.return x3+             x9 <- do x4 <- Prelude.return x1+                      x5 <- Prelude.return x3+                      DM.funcCallHook "apply"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (strict_apply x4 x5)+             DM.funcCallHook "_case_154"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+               (strict__case_154 x6 x7 x8 x9)))+term_strict_until x1 = DI.Term "until" (DI.SrcID "Prelude" 0) x1+ +op_Dollar ::+          (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+            DM.Func dm a b -> a -> dm b+op_Dollar x1 x2+  = DM.eval+      (DM.funcDeclHook "$"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "apply"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict_apply x3 x4)))+term_op_Dollar x1 = DI.Term "$" (DI.SrcID "Prelude" 0) x1+ +strict_ensureSpine ::+                   (DM.DM dm, DI.GenTerm a) => dm (DM.Func dm (List a) (List a))+strict_ensureSpine+  = DM.eval+      (DM.funcDeclHook "ensureSpine"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return+                     (PC.partCall1 (x'xterm_strict_ensureSpine46ensureList4621 [])+                        x'xstrict_ensureSpine46ensureList4621)+             Prelude.return+               (PC.partCall1 (term_op_DollarRhomb [DI.genTerm x0])+                  (op_DollarRhomb x0))))+ +x'xstrict_ensureSpine46ensureList4621 ::+                                      (DM.DM dm, DI.GenTerm a) => List a -> dm (List a)+x'xstrict_ensureSpine46ensureList4621 x1+  = DM.eval+      (DM.funcDeclHook "ensureSpine.ensureList.21"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_153"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_153 x2)))+x'xterm_strict_ensureSpine46ensureList4621 x1+  = DI.Term "ensureSpine.ensureList.21" (DI.SrcID "Prelude" 0) x1+ +strict_seq ::+           (DM.DM dm, DI.GenTerm a, DI.GenTerm b) => a -> b -> dm b+strict_seq x1 x2+  = DM.eval+      (DM.funcDeclHook "seq"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x4 <- do x3 <- Prelude.return x2+                      Prelude.return+                        (PC.partCall1 (term_strict_const [DI.genTerm x3])+                           (strict_const x3))+             x5 <- Prelude.return x1+             DM.funcCallHook "$!"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (op_DollarEMark x4 x5)))+term_strict_seq x1 = DI.Term "seq" (DI.SrcID "Prelude" 0) x1+ +strict_error :: (DM.DM dm, DI.GenTerm a) => List Char -> dm a+strict_error x1+  = DM.eval+      (DM.funcDeclHook "error"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_error []) strict_prim_error)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (op_DollarRhombRhomb x2 x3)))+term_strict_error x1 = DI.Term "error" (DI.SrcID "Prelude" 0) x1+ +op_AndAnd :: (DM.DM dm) => Bool -> Bool -> dm Bool+op_AndAnd x1 x2+  = DM.eval+      (DM.funcDeclHook "&&"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_152"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_152 x3 x4)))+term_op_AndAnd x1 = DI.Term "&&" (DI.SrcID "Prelude" 0) x1+ +op_OrOr :: (DM.DM dm) => Bool -> Bool -> dm Bool+op_OrOr x1 x2+  = DM.eval+      (DM.funcDeclHook "||"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_151"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_151 x3 x4)))+term_op_OrOr x1 = DI.Term "||" (DI.SrcID "Prelude" 0) x1+ +strict_not :: (DM.DM dm) => Bool -> dm Bool+strict_not x1+  = DM.eval+      (DM.funcDeclHook "not"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_150"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_150 x2)))+term_strict_not x1 = DI.Term "not" (DI.SrcID "Prelude" 0) x1+ +strict_otherwise :: (DM.DM dm) => dm Bool+strict_otherwise+  = DM.eval+      (DM.funcDeclHook "otherwise"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         (DM.constructorHook+            (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+            (Prelude.return True)))+ +strict_if_then_else ::+                    (DM.DM dm, DI.GenTerm a) => Bool -> a -> a -> dm a+strict_if_then_else x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "if_then_else"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x2+             x5 <- Prelude.return x3+             x6 <- Prelude.return x1+             DM.funcCallHook "_case_149"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_149 x4 x5 x6)))+term_strict_if_then_else x1+  = DI.Term "if_then_else" (DI.SrcID "Prelude" 0) x1+ +strict_isLT :: (DM.DM dm) => Ordering -> dm Bool+strict_isLT x1+  = DM.eval+      (DM.funcDeclHook "isLT"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_148"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_148 x2)))+term_strict_isLT x1 = DI.Term "isLT" (DI.SrcID "Prelude" 0) x1+ +strict_isGT :: (DM.DM dm) => Ordering -> dm Bool+strict_isGT x1+  = DM.eval+      (DM.funcDeclHook "isGT"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_147"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_147 x2)))+term_strict_isGT x1 = DI.Term "isGT" (DI.SrcID "Prelude" 0) x1+ +strict_isEQ :: (DM.DM dm) => Ordering -> dm Bool+strict_isEQ x1+  = DM.eval+      (DM.funcDeclHook "isEQ"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_146"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_146 x2)))+term_strict_isEQ x1 = DI.Term "isEQ" (DI.SrcID "Prelude" 0) x1+ +strict_compare :: (DM.DM dm) => Int -> Int -> dm Ordering+strict_compare x1 x2+  = DM.eval+      (DM.funcDeclHook "compare"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_145"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_145 x3 x4)))+term_strict_compare x1+  = DI.Term "compare" (DI.SrcID "Prelude" 0) x1+ +op_Lt :: (DM.DM dm) => Int -> Int -> dm Bool+op_Lt x1 x2+  = DM.eval+      (DM.funcDeclHook "<"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "compare"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_compare x3 x4)+             x6 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     (Prelude.return LT)+             DM.funcCallHook "=="+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (op_EqEq x5 x6)))+term_op_Lt x1 = DI.Term "<" (DI.SrcID "Prelude" 0) x1+ +op_Gt :: (DM.DM dm) => Int -> Int -> dm Bool+op_Gt x1 x2+  = DM.eval+      (DM.funcDeclHook ">"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "compare"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_compare x3 x4)+             x6 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     (Prelude.return GT)+             DM.funcCallHook "=="+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (op_EqEq x5 x6)))+term_op_Gt x1 = DI.Term ">" (DI.SrcID "Prelude" 0) x1+ +op_LtEq :: (DM.DM dm) => Int -> Int -> dm Bool+op_LtEq x1 x2+  = DM.eval+      (DM.funcDeclHook "<="+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "compare"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_compare x3 x4)+             x6 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     (Prelude.return GT)+             DM.funcCallHook "/="+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (op_SlashEq x5 x6)))+term_op_LtEq x1 = DI.Term "<=" (DI.SrcID "Prelude" 0) x1+ +op_GtEq :: (DM.DM dm) => Int -> Int -> dm Bool+op_GtEq x1 x2+  = DM.eval+      (DM.funcDeclHook ">="+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "compare"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_compare x3 x4)+             x6 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     (Prelude.return LT)+             DM.funcCallHook "/="+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (op_SlashEq x5 x6)))+term_op_GtEq x1 = DI.Term ">=" (DI.SrcID "Prelude" 0) x1+ +strict_max :: (DM.DM dm) => Int -> Int -> dm Int+strict_max x1 x2+  = DM.eval+      (DM.funcDeclHook "max"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "compare"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_compare x3 x4)+             DM.funcCallHook "_case_141"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_141 x5 x6 x7)))+term_strict_max x1 = DI.Term "max" (DI.SrcID "Prelude" 0) x1+ +strict_min :: (DM.DM dm) => Int -> Int -> dm Int+strict_min x1 x2+  = DM.eval+      (DM.funcDeclHook "min"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "compare"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_compare x3 x4)+             DM.funcCallHook "_case_140"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_140 x5 x6 x7)))+term_strict_min x1 = DI.Term "min" (DI.SrcID "Prelude" 0) x1+ +op_SlashEq :: (DM.DM dm, DI.GenTerm a) => a -> a -> dm Bool+op_SlashEq x1 x2+  = DM.eval+      (DM.funcDeclHook "/="+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (op_EqEq x3 x4)+             DM.funcCallHook "not"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (strict_not x5)))+term_op_SlashEq x1 = DI.Term "/=" (DI.SrcID "Prelude" 0) x1+ +strict_fst ::+           (DM.DM dm, DI.GenTerm a, DI.GenTerm b) => Tuple2 a b -> dm a+strict_fst x1+  = DM.eval+      (DM.funcDeclHook "fst"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_139"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_139 x2)))+term_strict_fst x1 = DI.Term "fst" (DI.SrcID "Prelude" 0) x1+ +strict_snd ::+           (DM.DM dm, DI.GenTerm a, DI.GenTerm b) => Tuple2 a b -> dm b+strict_snd x1+  = DM.eval+      (DM.funcDeclHook "snd"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_138"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_138 x2)))+term_strict_snd x1 = DI.Term "snd" (DI.SrcID "Prelude" 0) x1+ +strict_head :: (DM.DM dm, DI.GenTerm a) => List a -> dm a+strict_head x1+  = DM.eval+      (DM.funcDeclHook "head"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_137"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_137 x2)))+term_strict_head x1 = DI.Term "head" (DI.SrcID "Prelude" 0) x1+ +strict_tail :: (DM.DM dm, DI.GenTerm a) => List a -> dm (List a)+strict_tail x1+  = DM.eval+      (DM.funcDeclHook "tail"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_136"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_136 x2)))+term_strict_tail x1 = DI.Term "tail" (DI.SrcID "Prelude" 0) x1+ +strict_null :: (DM.DM dm, DI.GenTerm a) => List a -> dm Bool+strict_null x1+  = DM.eval+      (DM.funcDeclHook "null"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_135"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_135 x2)))+term_strict_null x1 = DI.Term "null" (DI.SrcID "Prelude" 0) x1+ +op_PlusPlus ::+            (DM.DM dm, DI.GenTerm a) => List a -> List a -> dm (List a)+op_PlusPlus x1 x2+  = DM.eval+      (DM.funcDeclHook "++"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_134"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_134 x3 x4)))+term_op_PlusPlus x1 = DI.Term "++" (DI.SrcID "Prelude" 0) x1+ +strict_length :: (DM.DM dm, DI.GenTerm a) => List a -> dm Int+strict_length x1+  = DM.eval+      (DM.funcDeclHook "length"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_133"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_133 x2)))+term_strict_length x1 = DI.Term "length" (DI.SrcID "Prelude" 0) x1+ +op_EMarkEMark :: (DM.DM dm, DI.GenTerm a) => List a -> Int -> dm a+op_EMarkEMark x1 x2+  = DM.eval+      (DM.funcDeclHook "!!"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_132"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_132 x3 x4)))+term_op_EMarkEMark x1 = DI.Term "!!" (DI.SrcID "Prelude" 0) x1+ +strict_map ::+           (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+             DM.Func dm a b -> List a -> dm (List b)+strict_map x1 x2+  = DM.eval+      (DM.funcDeclHook "map"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_129"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_129 x3 x4)))+term_strict_map x1 = DI.Term "map" (DI.SrcID "Prelude" 0) x1+ +strict_foldl ::+             (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+               DM.Func dm a (DM.Func dm b a) -> a -> List b -> dm a+strict_foldl x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "foldl"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_128"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_128 x4 x5 x6)))+term_strict_foldl x1 = DI.Term "foldl" (DI.SrcID "Prelude" 0) x1+ +strict_foldl1 ::+              (DM.DM dm, DI.GenTerm a) =>+                DM.Func dm a (DM.Func dm a a) -> List a -> dm a+strict_foldl1 x1 x2+  = DM.eval+      (DM.funcDeclHook "foldl1"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_127"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_127 x3 x4)))+term_strict_foldl1 x1 = DI.Term "foldl1" (DI.SrcID "Prelude" 0) x1+ +strict_foldr ::+             (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+               DM.Func dm a (DM.Func dm b b) -> b -> List a -> dm b+strict_foldr x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "foldr"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_126"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_126 x4 x5 x6)))+term_strict_foldr x1 = DI.Term "foldr" (DI.SrcID "Prelude" 0) x1+ +strict_foldr1 ::+              (DM.DM dm, DI.GenTerm a) =>+                DM.Func dm a (DM.Func dm a a) -> List a -> dm a+strict_foldr1 x1 x2+  = DM.eval+      (DM.funcDeclHook "foldr1"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_125"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_125 x3 x4)))+term_strict_foldr1 x1 = DI.Term "foldr1" (DI.SrcID "Prelude" 0) x1+ +strict_filter ::+              (DM.DM dm, DI.GenTerm a) =>+                DM.Func dm a Bool -> List a -> dm (List a)+strict_filter x1 x2+  = DM.eval+      (DM.funcDeclHook "filter"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_123"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_123 x3 x4)))+term_strict_filter x1 = DI.Term "filter" (DI.SrcID "Prelude" 0) x1+ +strict_zip ::+           (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+             List a -> List b -> dm (List (Tuple2 a b))+strict_zip x1 x2+  = DM.eval+      (DM.funcDeclHook "zip"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_121"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_121 x3 x4)))+term_strict_zip x1 = DI.Term "zip" (DI.SrcID "Prelude" 0) x1+ +strict_zip3 ::+            (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c) =>+              List a -> List b -> List c -> dm (List (Tuple3 a b c))+strict_zip3 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "zip3"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x2+             x5 <- Prelude.return x3+             x6 <- Prelude.return x1+             DM.funcCallHook "_case_119"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_119 x4 x5 x6)))+term_strict_zip3 x1 = DI.Term "zip3" (DI.SrcID "Prelude" 0) x1+ +strict_zipWith ::+               (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c) =>+                 DM.Func dm a (DM.Func dm b c) -> List a -> List b -> dm (List c)+strict_zipWith x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "zipWith"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x3+             x6 <- Prelude.return x2+             DM.funcCallHook "_case_116"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_116 x4 x5 x6)))+term_strict_zipWith x1+  = DI.Term "zipWith" (DI.SrcID "Prelude" 0) x1+ +strict_zipWith3 ::+                (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c,+                 DI.GenTerm d) =>+                  DM.Func dm a (DM.Func dm b (DM.Func dm c d)) ->+                    List a -> List b -> List c -> dm (List d)+strict_zipWith3 x1 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "zipWith3"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x3+             x7 <- Prelude.return x4+             x8 <- Prelude.return x2+             DM.funcCallHook "_case_114"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+               (strict__case_114 x5 x6 x7 x8)))+term_strict_zipWith3 x1+  = DI.Term "zipWith3" (DI.SrcID "Prelude" 0) x1+ +strict_unzip ::+             (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+               List (Tuple2 a b) -> dm (Tuple2 (List a) (List b))+strict_unzip x1+  = DM.eval+      (DM.funcDeclHook "unzip"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_111"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_111 x2)))+term_strict_unzip x1 = DI.Term "unzip" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_unzip46_35selFP335xs ::+                               (DM.DM dm, DI.GenTerm x476, DI.GenTerm x477) =>+                                 Tuple2 (List x476) (List x477) -> dm (List x476)+x'xstrict_unzip46_35selFP335xs x1+  = DM.eval+      (DM.funcDeclHook "unzip._#selFP3#xs"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_109"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_109 x2)))+x'xterm_strict_unzip46_35selFP335xs x1+  = DI.Term "unzip._#selFP3#xs" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_unzip46_35selFP435ys ::+                               (DM.DM dm, DI.GenTerm x476, DI.GenTerm x477) =>+                                 Tuple2 (List x476) (List x477) -> dm (List x477)+x'xstrict_unzip46_35selFP435ys x1+  = DM.eval+      (DM.funcDeclHook "unzip._#selFP4#ys"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_108"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_108 x2)))+x'xterm_strict_unzip46_35selFP435ys x1+  = DI.Term "unzip._#selFP4#ys" (DI.SrcID "Prelude" 0) x1+ +strict_unzip3 ::+              (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c) =>+                List (Tuple3 a b c) -> dm (Tuple3 (List a) (List b) (List c))+strict_unzip3 x1+  = DM.eval+      (DM.funcDeclHook "unzip3"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_107"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_107 x2)))+term_strict_unzip3 x1 = DI.Term "unzip3" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_unzip346_35selFP635xs ::+                                (DM.DM dm, DI.GenTerm x493, DI.GenTerm x494, DI.GenTerm x495) =>+                                  Tuple3 (List x493) (List x494) (List x495) -> dm (List x493)+x'xstrict_unzip346_35selFP635xs x1+  = DM.eval+      (DM.funcDeclHook "unzip3._#selFP6#xs"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_105"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_105 x2)))+x'xterm_strict_unzip346_35selFP635xs x1+  = DI.Term "unzip3._#selFP6#xs" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_unzip346_35selFP735ys ::+                                (DM.DM dm, DI.GenTerm x493, DI.GenTerm x494, DI.GenTerm x495) =>+                                  Tuple3 (List x493) (List x494) (List x495) -> dm (List x494)+x'xstrict_unzip346_35selFP735ys x1+  = DM.eval+      (DM.funcDeclHook "unzip3._#selFP7#ys"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_104"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_104 x2)))+x'xterm_strict_unzip346_35selFP735ys x1+  = DI.Term "unzip3._#selFP7#ys" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_unzip346_35selFP835zs ::+                                (DM.DM dm, DI.GenTerm x493, DI.GenTerm x494, DI.GenTerm x495) =>+                                  Tuple3 (List x493) (List x494) (List x495) -> dm (List x495)+x'xstrict_unzip346_35selFP835zs x1+  = DM.eval+      (DM.funcDeclHook "unzip3._#selFP8#zs"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_103"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_103 x2)))+x'xterm_strict_unzip346_35selFP835zs x1+  = DI.Term "unzip3._#selFP8#zs" (DI.SrcID "Prelude" 0) x1+ +strict_concat ::+              (DM.DM dm, DI.GenTerm a) => List (List a) -> dm (List a)+strict_concat x1+  = DM.eval+      (DM.funcDeclHook "concat"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall2 (term_op_PlusPlus []) op_PlusPlus)+             x3 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Nil)+             x4 <- Prelude.return x1+             DM.funcCallHook "foldr"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+               (strict_foldr x2 x3 x4)))+term_strict_concat x1 = DI.Term "concat" (DI.SrcID "Prelude" 0) x1+ +strict_concatMap ::+                 (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                   DM.Func dm a (List b) -> dm (DM.Func dm (List a) (List b))+strict_concatMap x1+  = DM.eval+      (DM.funcDeclHook "concatMap"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return+                     (PC.partCall1 (term_strict_concat []) strict_concat)+             x4 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1 (term_strict_map [DI.genTerm x2]) (strict_map x2))+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (op_Point x3 x4)))+term_strict_concatMap x1+  = DI.Term "concatMap" (DI.SrcID "Prelude" 0) x1+ +strict_iterate ::+               (DM.DM dm, DI.GenTerm a) => DM.Func dm a a -> a -> dm (List a)+strict_iterate x1 x2+  = DM.eval+      (DM.funcDeclHook "iterate"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             x8 <- do x5 <- Prelude.return x1+                      x6 <- do x3 <- Prelude.return x1+                               x4 <- Prelude.return x2+                               DM.funcCallHook "apply"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                 (strict_apply x3 x4)+                      DM.funcCallHook "iterate"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                        (strict_iterate x5 x6)+             DM.constructorHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+               (Prelude.return (Cons x7 x8))))+term_strict_iterate x1+  = DI.Term "iterate" (DI.SrcID "Prelude" 0) x1+ +strict_repeat :: (DM.DM dm, DI.GenTerm a) => a -> dm (List a)+strict_repeat x1+  = DM.eval+      (DM.funcDeclHook "repeat"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "repeat"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_repeat x2)+             DM.constructorHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (Prelude.return (Cons x3 x4))))+term_strict_repeat x1 = DI.Term "repeat" (DI.SrcID "Prelude" 0) x1+ +strict_replicate ::+                 (DM.DM dm, DI.GenTerm a) => Int -> a -> dm (List a)+strict_replicate x1 x2+  = DM.eval+      (DM.funcDeclHook "replicate"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x4 <- Prelude.return x1+             x5 <- do x3 <- Prelude.return x2+                      DM.funcCallHook "repeat"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (strict_repeat x3)+             DM.funcCallHook "take"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (strict_take x4 x5)))+term_strict_replicate x1+  = DI.Term "replicate" (DI.SrcID "Prelude" 0) x1+ +strict_take ::+            (DM.DM dm, DI.GenTerm a) => Int -> List a -> dm (List a)+strict_take x1 x2+  = DM.eval+      (DM.funcDeclHook "take"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_102"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_102 x3 x4)))+term_strict_take x1 = DI.Term "take" (DI.SrcID "Prelude" 0) x1+ +strict_drop ::+            (DM.DM dm, DI.GenTerm a) => Int -> List a -> dm (List a)+strict_drop x1 x2+  = DM.eval+      (DM.funcDeclHook "drop"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Zero)+                      DM.funcCallHook "<="+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (op_LtEq x3 x4)+             DM.funcCallHook "_case_100"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_100 x5 x6 x7)))+term_strict_drop x1 = DI.Term "drop" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_drop46dropp46272 ::+                           (DM.DM dm, DI.GenTerm a) => Int -> List a -> dm (List a)+x'xstrict_drop46dropp46272 x1 x2+  = DM.eval+      (DM.funcDeclHook "drop.dropp.272"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_99"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_99 x3 x4)))+x'xterm_strict_drop46dropp46272 x1+  = DI.Term "drop.dropp.272" (DI.SrcID "Prelude" 0) x1+ +strict_splitAt ::+               (DM.DM dm, DI.GenTerm a) =>+                 Int -> List a -> dm (Tuple2 (List a) (List a))+strict_splitAt x1 x2+  = DM.eval+      (DM.funcDeclHook "splitAt"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Zero)+                      DM.funcCallHook "<="+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (op_LtEq x3 x4)+             DM.funcCallHook "_case_98"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_98 x5 x6 x7)))+term_strict_splitAt x1+  = DI.Term "splitAt" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_splitAt46splitAtp46282 ::+                                 (DM.DM dm, DI.GenTerm a) =>+                                   Int -> List a -> dm (Tuple2 (List a) (List a))+x'xstrict_splitAt46splitAtp46282 x1 x2+  = DM.eval+      (DM.funcDeclHook "splitAt.splitAtp.282"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_97"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_97 x3 x4)))+x'xterm_strict_splitAt46splitAtp46282 x1+  = DI.Term "splitAt.splitAtp.282" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_splitAt46splitAtp4628246_35selFP1035ys ::+                                                 (DM.DM dm, DI.GenTerm x576) =>+                                                   Tuple2 (List x576) (List x576) -> dm (List x576)+x'xstrict_splitAt46splitAtp4628246_35selFP1035ys x1+  = DM.eval+      (DM.funcDeclHook "splitAt.splitAtp.282._#selFP10#ys"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_96"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_96 x2)))+x'xterm_strict_splitAt46splitAtp4628246_35selFP1035ys x1+  = DI.Term "splitAt.splitAtp.282._#selFP10#ys"+      (DI.SrcID "Prelude" 0)+      x1+ +x'xstrict_splitAt46splitAtp4628246_35selFP1135zs ::+                                                 (DM.DM dm, DI.GenTerm x576) =>+                                                   Tuple2 (List x576) (List x576) -> dm (List x576)+x'xstrict_splitAt46splitAtp4628246_35selFP1135zs x1+  = DM.eval+      (DM.funcDeclHook "splitAt.splitAtp.282._#selFP11#zs"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_95"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_95 x2)))+x'xterm_strict_splitAt46splitAtp4628246_35selFP1135zs x1+  = DI.Term "splitAt.splitAtp.282._#selFP11#zs"+      (DI.SrcID "Prelude" 0)+      x1+ +strict_takeWhile ::+                 (DM.DM dm, DI.GenTerm a) =>+                   DM.Func dm a Bool -> List a -> dm (List a)+strict_takeWhile x1 x2+  = DM.eval+      (DM.funcDeclHook "takeWhile"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_94"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_94 x3 x4)))+term_strict_takeWhile x1+  = DI.Term "takeWhile" (DI.SrcID "Prelude" 0) x1+ +strict_dropWhile ::+                 (DM.DM dm, DI.GenTerm a) =>+                   DM.Func dm a Bool -> List a -> dm (List a)+strict_dropWhile x1 x2+  = DM.eval+      (DM.funcDeclHook "dropWhile"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_92"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_92 x3 x4)))+term_strict_dropWhile x1+  = DI.Term "dropWhile" (DI.SrcID "Prelude" 0) x1+ +strict_span ::+            (DM.DM dm, DI.GenTerm a) =>+              DM.Func dm a Bool -> List a -> dm (Tuple2 (List a) (List a))+strict_span x1 x2+  = DM.eval+      (DM.funcDeclHook "span"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_90"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_90 x3 x4)))+term_strict_span x1 = DI.Term "span" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_span46_35selFP1335ys ::+                               (DM.DM dm, DI.GenTerm x627) =>+                                 Tuple2 (List x627) (List x627) -> dm (List x627)+x'xstrict_span46_35selFP1335ys x1+  = DM.eval+      (DM.funcDeclHook "span._#selFP13#ys"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_87"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_87 x2)))+x'xterm_strict_span46_35selFP1335ys x1+  = DI.Term "span._#selFP13#ys" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_span46_35selFP1435zs ::+                               (DM.DM dm, DI.GenTerm x627) =>+                                 Tuple2 (List x627) (List x627) -> dm (List x627)+x'xstrict_span46_35selFP1435zs x1+  = DM.eval+      (DM.funcDeclHook "span._#selFP14#zs"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_86"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_86 x2)))+x'xterm_strict_span46_35selFP1435zs x1+  = DI.Term "span._#selFP14#zs" (DI.SrcID "Prelude" 0) x1+ +strict_break ::+             (DM.DM dm, DI.GenTerm a) =>+               DM.Func dm a Bool ->+                 dm (DM.Func dm (List a) (Tuple2 (List a) (List a)))+strict_break x1+  = DM.eval+      (DM.funcDeclHook "break"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return+                              (PC.partCall1 (term_strict_not []) strict_not)+                      x3 <- Prelude.return x1+                      DM.funcCallHook "."+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (op_Point x2 x3)+             Prelude.return+               (PC.partCall1 (term_strict_span [DI.genTerm x4])+                  (strict_span x4))))+term_strict_break x1 = DI.Term "break" (DI.SrcID "Prelude" 0) x1+ +strict_lines :: (DM.DM dm) => List Char -> dm (List (List Char))+strict_lines x1+  = DM.eval+      (DM.funcDeclHook "lines"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_85"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_85 x2)))+term_strict_lines x1 = DI.Term "lines" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_lines46splitline46314 ::+                                (DM.DM dm) => List Char -> dm (Tuple2 (List Char) (List Char))+x'xstrict_lines46splitline46314 x1+  = DM.eval+      (DM.funcDeclHook "lines.splitline.314"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_84"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_84 x2)))+x'xterm_strict_lines46splitline46314 x1+  = DI.Term "lines.splitline.314" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_lines46splitline4631446_35selFP1635ds ::+                                                (DM.DM dm) =>+                                                  Tuple2 (List Char) (List Char) -> dm (List Char)+x'xstrict_lines46splitline4631446_35selFP1635ds x1+  = DM.eval+      (DM.funcDeclHook "lines.splitline.314._#selFP16#ds"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_82"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_82 x2)))+x'xterm_strict_lines46splitline4631446_35selFP1635ds x1+  = DI.Term "lines.splitline.314._#selFP16#ds" (DI.SrcID "Prelude" 0)+      x1+ +x'xstrict_lines46splitline4631446_35selFP1735es ::+                                                (DM.DM dm) =>+                                                  Tuple2 (List Char) (List Char) -> dm (List Char)+x'xstrict_lines46splitline4631446_35selFP1735es x1+  = DM.eval+      (DM.funcDeclHook "lines.splitline.314._#selFP17#es"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_81"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_81 x2)))+x'xterm_strict_lines46splitline4631446_35selFP1735es x1+  = DI.Term "lines.splitline.314._#selFP17#es" (DI.SrcID "Prelude" 0)+      x1+ +x'xstrict_lines46_35selFP1935l ::+                               (DM.DM dm) => Tuple2 (List Char) (List Char) -> dm (List Char)+x'xstrict_lines46_35selFP1935l x1+  = DM.eval+      (DM.funcDeclHook "lines._#selFP19#l"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_80"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_80 x2)))+x'xterm_strict_lines46_35selFP1935l x1+  = DI.Term "lines._#selFP19#l" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_lines46_35selFP2035xs_l ::+                                  (DM.DM dm) => Tuple2 (List Char) (List Char) -> dm (List Char)+x'xstrict_lines46_35selFP2035xs_l x1+  = DM.eval+      (DM.funcDeclHook "lines._#selFP20#xs_l"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_79"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_79 x2)))+x'xterm_strict_lines46_35selFP2035xs_l x1+  = DI.Term "lines._#selFP20#xs_l" (DI.SrcID "Prelude" 0) x1+ +strict_unlines :: (DM.DM dm) => List (List Char) -> dm (List Char)+strict_unlines x1+  = DM.eval+      (DM.funcDeclHook "unlines"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x7 <- do x6 <- do x4 <- Prelude.return+                                       (PC.partCall2 (term_op_PlusPlus []) op_PlusPlus)+                               x5 <- do x2 <- DM.litHook+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo [] []))+                                                (Prelude.return (Char '\n'))+                                        x3 <- DM.constructorHook+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo [] []))+                                                (Prelude.return Nil)+                                        DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                                          (Prelude.return (Cons x2 x3))+                               Prelude.return+                                 (PC.partCall1 (term_strict_flip [DI.genTerm x4, DI.genTerm x5])+                                    (strict_flip x4 x5))+                      DM.funcCallHook "concatMap"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x6]))+                        (strict_concatMap x6)+             x8 <- Prelude.return x1+             DM.funcCallHook "apply"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+               (strict_apply x7 x8)))+term_strict_unlines x1+  = DI.Term "unlines" (DI.SrcID "Prelude" 0) x1+ +strict_words :: (DM.DM dm) => List Char -> dm (List (List Char))+strict_words x1+  = DM.eval+      (DM.funcDeclHook "words"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (DM.letHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x2 <- do x3 <- Prelude.return+                                 (PC.partCall1 (x'xterm_strict_words46isSpace46326 [])+                                    x'xstrict_words46isSpace46326)+                         x4 <- Prelude.return x1+                         DM.funcCallHook "dropWhile"+                           (DI.DebugInfo (DI.SrcID "Prelude" 0)+                              (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                           (strict_dropWhile x3 x4)+                DM.eval+                  (do x7 <- Prelude.return x2+                      x8 <- do x5 <- Prelude.return x2+                               x6 <- DM.constructorHook+                                       (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                       (Prelude.return Nil)+                               DM.funcCallHook "=="+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                 (op_EqEq x5 x6)+                      DM.funcCallHook "_case_78"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                        (strict__case_78 x7 x8)))))+term_strict_words x1 = DI.Term "words" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_words46isSpace46326 :: (DM.DM dm) => Char -> dm Bool+x'xstrict_words46isSpace46326 x1+  = DM.eval+      (DM.funcDeclHook "words.isSpace.326"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x14 <- do x2 <- Prelude.return x1+                       x3 <- DM.litHook+                               (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                               (Prelude.return (Char ' '))+                       DM.funcCallHook "=="+                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                         (op_EqEq x2 x3)+             x15 <- do x12 <- do x4 <- Prelude.return x1+                                 x5 <- DM.litHook+                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                            (DI.DynamicInfo [] []))+                                         (Prelude.return (Char '\t'))+                                 DM.funcCallHook "=="+                                   (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                   (op_EqEq x4 x5)+                       x13 <- do x10 <- do x6 <- Prelude.return x1+                                           x7 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return (Char '\n'))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (op_EqEq x6 x7)+                                 x11 <- do x8 <- Prelude.return x1+                                           x9 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return (Char '\r'))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                             (op_EqEq x8 x9)+                                 DM.funcCallHook "||"+                                   (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                   (op_OrOr x10 x11)+                       DM.funcCallHook "||"+                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                            (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                         (op_OrOr x12 x13)+             DM.funcCallHook "||"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+               (op_OrOr x14 x15)))+x'xterm_strict_words46isSpace46326 x1+  = DI.Term "words.isSpace.326" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_words46_35selFP2235w ::+                               (DM.DM dm) => Tuple2 (List Char) (List Char) -> dm (List Char)+x'xstrict_words46_35selFP2235w x1+  = DM.eval+      (DM.funcDeclHook "words._#selFP22#w"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_77"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_77 x2)))+x'xterm_strict_words46_35selFP2235w x1+  = DI.Term "words._#selFP22#w" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_words46_35selFP2335s2 ::+                                (DM.DM dm) => Tuple2 (List Char) (List Char) -> dm (List Char)+x'xstrict_words46_35selFP2335s2 x1+  = DM.eval+      (DM.funcDeclHook "words._#selFP23#s2"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_76"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_76 x2)))+x'xterm_strict_words46_35selFP2335s2 x1+  = DI.Term "words._#selFP23#s2" (DI.SrcID "Prelude" 0) x1+ +strict_unwords :: (DM.DM dm) => List (List Char) -> dm (List Char)+strict_unwords x1+  = DM.eval+      (DM.funcDeclHook "unwords"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             x5 <- do x2 <- Prelude.return x1+                      x3 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Nil)+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (op_EqEq x2 x3)+             DM.funcCallHook "_case_75"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (strict__case_75 x4 x5)))+term_strict_unwords x1+  = DI.Term "unwords" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_unwords46_35lambda6 ::+                              (DM.DM dm) => List Char -> List Char -> dm (List Char)+x'xstrict_unwords46_35lambda6 x1 x2+  = DM.eval+      (DM.funcDeclHook "unwords._#lambda6"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- do x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Char ' '))+                      x4 <- Prelude.return x2+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Prelude.return (Cons x3 x4))+             DM.funcCallHook "++"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (op_PlusPlus x5 x6)))+x'xterm_strict_unwords46_35lambda6 x1+  = DI.Term "unwords._#lambda6" (DI.SrcID "Prelude" 0) x1+ +strict_reverse ::+               (DM.DM dm, DI.GenTerm a) => dm (DM.Func dm (List a) (List a))+strict_reverse+  = DM.eval+      (DM.funcDeclHook "reverse"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         (do x1 <- do x0 <- Prelude.return+                              (PC.partCall2 (term_Cons [])+                                 (\ x0 x1 -> Prelude.return (Cons x0 x1)))+                      Prelude.return+                        (PC.partCall2 (term_strict_flip [DI.genTerm x0]) (strict_flip x0))+             x2 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Nil)+             Prelude.return+               (PC.partCall1 (term_strict_foldl [DI.genTerm x1, DI.genTerm x2])+                  (strict_foldl x1 x2))))+ +strict_and :: (DM.DM dm) => dm (DM.Func dm (List Bool) Bool)+strict_and+  = DM.eval+      (DM.funcDeclHook "and"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return+                     (PC.partCall2 (term_op_AndAnd []) op_AndAnd)+             x1 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     (Prelude.return True)+             Prelude.return+               (PC.partCall1 (term_strict_foldr [DI.genTerm x0, DI.genTerm x1])+                  (strict_foldr x0 x1))))+ +strict_or :: (DM.DM dm) => dm (DM.Func dm (List Bool) Bool)+strict_or+  = DM.eval+      (DM.funcDeclHook "or"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return (PC.partCall2 (term_op_OrOr []) op_OrOr)+             x1 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     (Prelude.return False)+             Prelude.return+               (PC.partCall1 (term_strict_foldr [DI.genTerm x0, DI.genTerm x1])+                  (strict_foldr x0 x1))))+ +strict_any ::+           (DM.DM dm, DI.GenTerm a) =>+             DM.Func dm a Bool -> dm (DM.Func dm (List a) Bool)+strict_any x1+  = DM.eval+      (DM.funcDeclHook "any"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- DM.funcCallHook "or"+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     strict_or+             x4 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1 (term_strict_map [DI.genTerm x2]) (strict_map x2))+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (op_Point x3 x4)))+term_strict_any x1 = DI.Term "any" (DI.SrcID "Prelude" 0) x1+ +strict_all ::+           (DM.DM dm, DI.GenTerm a) =>+             DM.Func dm a Bool -> dm (DM.Func dm (List a) Bool)+strict_all x1+  = DM.eval+      (DM.funcDeclHook "all"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- DM.funcCallHook "and"+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     strict_and+             x4 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1 (term_strict_map [DI.genTerm x2]) (strict_map x2))+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (op_Point x3 x4)))+term_strict_all x1 = DI.Term "all" (DI.SrcID "Prelude" 0) x1+ +strict_elem ::+            (DM.DM dm, DI.GenTerm a) => a -> dm (DM.Func dm (List a) Bool)+strict_elem x1+  = DM.eval+      (DM.funcDeclHook "elem"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1 (term_op_EqEq [DI.genTerm x2]) (op_EqEq x2))+             DM.funcCallHook "any"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (strict_any x3)))+term_strict_elem x1 = DI.Term "elem" (DI.SrcID "Prelude" 0) x1+ +strict_notElem ::+               (DM.DM dm, DI.GenTerm a) => a -> dm (DM.Func dm (List a) Bool)+strict_notElem x1+  = DM.eval+      (DM.funcDeclHook "notElem"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1 (term_op_SlashEq [DI.genTerm x2]) (op_SlashEq x2))+             DM.funcCallHook "all"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (strict_all x3)))+term_strict_notElem x1+  = DI.Term "notElem" (DI.SrcID "Prelude" 0) x1+ +strict_lookup ::+              (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                a -> List (Tuple2 a b) -> dm (Maybe b)+strict_lookup x1 x2+  = DM.eval+      (DM.funcDeclHook "lookup"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_74"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_74 x3 x4)))+term_strict_lookup x1 = DI.Term "lookup" (DI.SrcID "Prelude" 0) x1+ +strict_enumFrom :: (DM.DM dm) => Int -> dm (List Int)+strict_enumFrom x1+  = DM.eval+      (DM.funcDeclHook "enumFrom"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- Prelude.return x1+             x6 <- do x4 <- do x2 <- Prelude.return x1+                               x3 <- DM.litHook+                                       (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                       (Prelude.return (Pos IHi))+                               DM.funcCallHook "+"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                                 (op_Plus x2 x3)+                      DM.funcCallHook "enumFrom"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4]))+                        (strict_enumFrom x4)+             DM.constructorHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Prelude.return (Cons x5 x6))))+term_strict_enumFrom x1+  = DI.Term "enumFrom" (DI.SrcID "Prelude" 0) x1+ +strict_enumFromThen :: (DM.DM dm) => Int -> Int -> dm (List Int)+strict_enumFromThen x1 x2+  = DM.eval+      (DM.funcDeclHook "enumFromThen"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x6 <- do x5 <- do x3 <- Prelude.return x2+                               x4 <- Prelude.return x1+                               DM.funcCallHook "-"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                 (op_Minus x3 x4)+                      Prelude.return+                        (PC.partCall1 (term_op_Plus [DI.genTerm x5]) (op_Plus x5))+             x7 <- Prelude.return x1+             DM.funcCallHook "iterate"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+               (strict_iterate x6 x7)))+term_strict_enumFromThen x1+  = DI.Term "enumFromThen" (DI.SrcID "Prelude" 0) x1+ +strict_enumFromTo :: (DM.DM dm) => Int -> Int -> dm (List Int)+strict_enumFromTo x1 x2+  = DM.eval+      (DM.funcDeclHook "enumFromTo"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook ">"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (op_Gt x3 x4)+             DM.funcCallHook "_case_70"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_70 x5 x6 x7)))+term_strict_enumFromTo x1+  = DI.Term "enumFromTo" (DI.SrcID "Prelude" 0) x1+ +strict_enumFromThenTo ::+                      (DM.DM dm) => Int -> Int -> Int -> dm (List Int)+strict_enumFromThenTo x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "enumFromThenTo"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x9 <- do x4 <- Prelude.return x3+                      x5 <- Prelude.return x1+                      x6 <- Prelude.return x2+                      Prelude.return+                        (PC.partCall1+                           (x'xterm_strict_enumFromThenTo46p46364+                              [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6])+                           (x'xstrict_enumFromThenTo46p46364 x4 x5 x6))+             x10 <- do x7 <- Prelude.return x1+                       x8 <- Prelude.return x2+                       DM.funcCallHook "enumFromThen"+                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                            (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                         (strict_enumFromThen x7 x8)+             DM.funcCallHook "takeWhile"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+               (strict_takeWhile x9 x10)))+term_strict_enumFromThenTo x1+  = DI.Term "enumFromThenTo" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_enumFromThenTo46p46364 ::+                                 (DM.DM dm) => Int -> Int -> Int -> Int -> dm Bool+x'xstrict_enumFromThenTo46p46364 x1 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "enumFromThenTo.p.364"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x7 <- Prelude.return x1+             x8 <- Prelude.return x2+             x9 <- Prelude.return x3+             x10 <- Prelude.return x4+             x11 <- do x5 <- Prelude.return x3+                       x6 <- Prelude.return x2+                       DM.funcCallHook ">="+                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                            (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                         (op_GtEq x5 x6)+             DM.funcCallHook "_case_69"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                      DI.genTerm x11]))+               (strict__case_69 x7 x8 x9 x10 x11)))+x'xterm_strict_enumFromThenTo46p46364 x1+  = DI.Term "enumFromThenTo.p.364" (DI.SrcID "Prelude" 0) x1+ +strict_ord :: (DM.DM dm) => Char -> dm Int+strict_ord x1+  = DM.eval+      (DM.funcDeclHook "ord"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_ord []) strict_prim_ord)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (op_DollarRhombRhomb x2 x3)))+term_strict_ord x1 = DI.Term "ord" (DI.SrcID "Prelude" 0) x1+ +strict_chr :: (DM.DM dm) => Int -> dm Char+strict_chr x1+  = DM.eval+      (DM.funcDeclHook "chr"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_chr []) strict_prim_chr)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (op_DollarRhombRhomb x2 x3)))+term_strict_chr x1 = DI.Term "chr" (DI.SrcID "Prelude" 0) x1+ +strict_succ :: (DM.DM dm) => Nat -> dm Nat+strict_succ x1+  = DM.eval+      (DM.funcDeclHook "succ"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_67"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_67 x2)))+term_strict_succ x1 = DI.Term "succ" (DI.SrcID "Prelude" 0) x1+ +op_PlusAccent :: (DM.DM dm) => Nat -> Nat -> dm Nat+op_PlusAccent x1 x2+  = DM.eval+      (DM.funcDeclHook "+^"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_66"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_66 x3 x4)))+term_op_PlusAccent x1 = DI.Term "+^" (DI.SrcID "Prelude" 0) x1+ +strict_cmpNat :: (DM.DM dm) => Nat -> Nat -> dm Ordering+strict_cmpNat x1 x2+  = DM.eval+      (DM.funcDeclHook "cmpNat"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_63"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_63 x3 x4)))+term_strict_cmpNat x1 = DI.Term "cmpNat" (DI.SrcID "Prelude" 0) x1+ +strict_cmpNatLT :: (DM.DM dm) => Nat -> Nat -> dm Ordering+strict_cmpNatLT x1 x2+  = DM.eval+      (DM.funcDeclHook "cmpNatLT"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_59"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_59 x3 x4)))+term_strict_cmpNatLT x1+  = DI.Term "cmpNatLT" (DI.SrcID "Prelude" 0) x1+ +strict_cmpNatGT :: (DM.DM dm) => Nat -> Nat -> dm Ordering+strict_cmpNatGT x1 x2+  = DM.eval+      (DM.funcDeclHook "cmpNatGT"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_56"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_56 x3 x4)))+term_strict_cmpNatGT x1+  = DI.Term "cmpNatGT" (DI.SrcID "Prelude" 0) x1+ +op_LtAccent :: (DM.DM dm) => Nat -> Nat -> dm Bool+op_LtAccent x1 x2+  = DM.eval+      (DM.funcDeclHook "<^"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "cmpNat"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_cmpNat x3 x4)+             DM.funcCallHook "isLT"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (strict_isLT x5)))+term_op_LtAccent x1 = DI.Term "<^" (DI.SrcID "Prelude" 0) x1+ +op_GtAccent :: (DM.DM dm) => Nat -> Nat -> dm Bool+op_GtAccent x1 x2+  = DM.eval+      (DM.funcDeclHook ">^"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "cmpNat"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_cmpNat x3 x4)+             DM.funcCallHook "isGT"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (strict_isGT x5)))+term_op_GtAccent x1 = DI.Term ">^" (DI.SrcID "Prelude" 0) x1+ +op_LtEqAccent :: (DM.DM dm) => Nat -> Nat -> dm Bool+op_LtEqAccent x1 x2+  = DM.eval+      (DM.funcDeclHook "<=^"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x6 <- do x5 <- do x3 <- Prelude.return x1+                               x4 <- Prelude.return x2+                               DM.funcCallHook "cmpNat"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                 (strict_cmpNat x3 x4)+                      DM.funcCallHook "isGT"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x5]))+                        (strict_isGT x5)+             DM.funcCallHook "not"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (strict_not x6)))+term_op_LtEqAccent x1 = DI.Term "<=^" (DI.SrcID "Prelude" 0) x1+ +op_GtEqAccent :: (DM.DM dm) => Nat -> Nat -> dm Bool+op_GtEqAccent x1 x2+  = DM.eval+      (DM.funcDeclHook ">=^"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x6 <- do x5 <- do x3 <- Prelude.return x1+                               x4 <- Prelude.return x2+                               DM.funcCallHook "cmpNat"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                 (strict_cmpNat x3 x4)+                      DM.funcCallHook "isLT"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x5]))+                        (strict_isLT x5)+             DM.funcCallHook "not"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (strict_not x6)))+term_op_GtEqAccent x1 = DI.Term ">=^" (DI.SrcID "Prelude" 0) x1+ +op_AsteriskAccent :: (DM.DM dm) => Nat -> Nat -> dm Nat+op_AsteriskAccent x1 x2+  = DM.eval+      (DM.funcDeclHook "*^"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_53"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_53 x3 x4)))+term_op_AsteriskAccent x1 = DI.Term "*^" (DI.SrcID "Prelude" 0) x1+ +strict_pred :: (DM.DM dm) => Nat -> dm Nat+strict_pred x1+  = DM.eval+      (DM.funcDeclHook "pred"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_52"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_52 x2)))+term_strict_pred x1 = DI.Term "pred" (DI.SrcID "Prelude" 0) x1+ +strict_inc :: (DM.DM dm) => Int -> dm Int+strict_inc x1+  = DM.eval+      (DM.funcDeclHook "inc"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_50"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_50 x2)))+term_strict_inc x1 = DI.Term "inc" (DI.SrcID "Prelude" 0) x1+ +strict_dec :: (DM.DM dm) => Int -> dm Int+strict_dec x1+  = DM.eval+      (DM.funcDeclHook "dec"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_48"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_48 x2)))+term_strict_dec x1 = DI.Term "dec" (DI.SrcID "Prelude" 0) x1+ +strict_mult2 :: (DM.DM dm) => Int -> dm Int+strict_mult2 x1+  = DM.eval+      (DM.funcDeclHook "mult2"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_46"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_46 x2)))+term_strict_mult2 x1 = DI.Term "mult2" (DI.SrcID "Prelude" 0) x1+ +op_MinusAccent :: (DM.DM dm) => Nat -> Nat -> dm Int+op_MinusAccent x1 x2+  = DM.eval+      (DM.funcDeclHook "-^"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_45"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_45 x3 x4)))+term_op_MinusAccent x1 = DI.Term "-^" (DI.SrcID "Prelude" 0) x1+ +strict_div2 :: (DM.DM dm) => Nat -> dm Nat+strict_div2 x1+  = DM.eval+      (DM.funcDeclHook "div2"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_42"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_42 x2)))+term_strict_div2 x1 = DI.Term "div2" (DI.SrcID "Prelude" 0) x1+ +strict_mod2 :: (DM.DM dm) => Nat -> dm Int+strict_mod2 x1+  = DM.eval+      (DM.funcDeclHook "mod2"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_41"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_41 x2)))+term_strict_mod2 x1 = DI.Term "mod2" (DI.SrcID "Prelude" 0) x1+ +strict_divmodNat :: (DM.DM dm) => Nat -> Nat -> dm (Tuple2 Int Int)+strict_divmodNat x1 x2+  = DM.eval+      (DM.funcDeclHook "divmodNat"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x2+                      x4 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                              (Prelude.return IHi)+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (op_EqEq x3 x4)+             DM.funcCallHook "_case_40"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_40 x5 x6 x7)))+term_strict_divmodNat x1+  = DI.Term "divmodNat" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_divmodNat46shift46523 ::+                                (DM.DM dm) => Nat -> Nat -> dm Nat+x'xstrict_divmodNat46shift46523 x1 x2+  = DM.eval+      (DM.funcDeclHook "divmodNat.shift.523"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_32"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_32 x3 x4)))+x'xterm_strict_divmodNat46shift46523 x1+  = DI.Term "divmodNat.shift.523" (DI.SrcID "Prelude" 0) x1+ +op_Plus :: (DM.DM dm) => Int -> Int -> dm Int+op_Plus x1 x2+  = DM.eval+      (DM.funcDeclHook "+"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_31"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_31 x3 x4)))+term_op_Plus x1 = DI.Term "+" (DI.SrcID "Prelude" 0) x1+ +op_Minus :: (DM.DM dm) => Int -> Int -> dm Int+op_Minus x1 x2+  = DM.eval+      (DM.funcDeclHook "-"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_28"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_28 x3 x4)))+term_op_Minus x1 = DI.Term "-" (DI.SrcID "Prelude" 0) x1+ +op_Asterisk :: (DM.DM dm) => Int -> Int -> dm Int+op_Asterisk x1 x2+  = DM.eval+      (DM.funcDeclHook "*"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_27"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_27 x3 x4)))+term_op_Asterisk x1 = DI.Term "*" (DI.SrcID "Prelude" 0) x1+ +strict_divmod :: (DM.DM dm) => Int -> Int -> dm (Tuple2 Int Int)+strict_divmod x1 x2+  = DM.eval+      (DM.funcDeclHook "divmod"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_24"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_24 x3 x4)))+term_strict_divmod x1 = DI.Term "divmod" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_divmod46_35selFP2535d ::+                                (DM.DM dm) => Tuple2 Int Int -> dm Int+x'xstrict_divmod46_35selFP2535d x1+  = DM.eval+      (DM.funcDeclHook "divmod._#selFP25#d"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_21"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_21 x2)))+x'xterm_strict_divmod46_35selFP2535d x1+  = DI.Term "divmod._#selFP25#d" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_divmod46_35selFP2635m ::+                                (DM.DM dm) => Tuple2 Int Int -> dm Int+x'xstrict_divmod46_35selFP2635m x1+  = DM.eval+      (DM.funcDeclHook "divmod._#selFP26#m"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_20"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_20 x2)))+x'xterm_strict_divmod46_35selFP2635m x1+  = DI.Term "divmod._#selFP26#m" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_divmod46_35selFP2835d ::+                                (DM.DM dm) => Tuple2 Int Int -> dm Int+x'xstrict_divmod46_35selFP2835d x1+  = DM.eval+      (DM.funcDeclHook "divmod._#selFP28#d"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_19"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_19 x2)))+x'xterm_strict_divmod46_35selFP2835d x1+  = DI.Term "divmod._#selFP28#d" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_divmod46_35selFP2935m ::+                                (DM.DM dm) => Tuple2 Int Int -> dm Int+x'xstrict_divmod46_35selFP2935m x1+  = DM.eval+      (DM.funcDeclHook "divmod._#selFP29#m"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_18"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_18 x2)))+x'xterm_strict_divmod46_35selFP2935m x1+  = DI.Term "divmod._#selFP29#m" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_divmod46_35selFP3135d ::+                                (DM.DM dm) => Tuple2 Int Int -> dm Int+x'xstrict_divmod46_35selFP3135d x1+  = DM.eval+      (DM.funcDeclHook "divmod._#selFP31#d"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_17"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_17 x2)))+x'xterm_strict_divmod46_35selFP3135d x1+  = DI.Term "divmod._#selFP31#d" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_divmod46_35selFP3235m ::+                                (DM.DM dm) => Tuple2 Int Int -> dm Int+x'xstrict_divmod46_35selFP3235m x1+  = DM.eval+      (DM.funcDeclHook "divmod._#selFP32#m"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_16"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_16 x2)))+x'xterm_strict_divmod46_35selFP3235m x1+  = DI.Term "divmod._#selFP32#m" (DI.SrcID "Prelude" 0) x1+ +strict_div :: (DM.DM dm) => Int -> Int -> dm Int+strict_div x1 x2+  = DM.eval+      (DM.funcDeclHook "div"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "divmod"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_divmod x3 x4)+             DM.funcCallHook "fst"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (strict_fst x5)))+term_strict_div x1 = DI.Term "div" (DI.SrcID "Prelude" 0) x1+ +strict_mod :: (DM.DM dm) => Int -> Int -> dm Int+strict_mod x1 x2+  = DM.eval+      (DM.funcDeclHook "mod"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "divmod"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_divmod x3 x4)+             DM.funcCallHook "snd"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (strict_snd x5)))+term_strict_mod x1 = DI.Term "mod" (DI.SrcID "Prelude" 0) x1+ +strict_negate :: (DM.DM dm) => Int -> dm Int+strict_negate x1+  = DM.eval+      (DM.funcDeclHook "negate"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_15"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_15 x2)))+term_strict_negate x1 = DI.Term "negate" (DI.SrcID "Prelude" 0) x1+ +strict_success :: (DM.DM dm) => dm Success+strict_success+  = DM.eval+      (DM.funcDeclHook "success"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         (DM.constructorHook+            (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+            (Prelude.return Success)))+ +op_EqColonEq :: (DM.DM dm, DI.GenTerm a) => a -> a -> dm Success+op_EqColonEq x1 x2+  = DM.eval+      (DM.funcDeclHook "=:="+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "==="+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (op_EqEqEq x3 x4)+             DM.funcCallHook "_case_14"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_14 x5 x6 x7)))+term_op_EqColonEq x1 = DI.Term "=:=" (DI.SrcID "Prelude" 0) x1+ +op_AndGt :: (DM.DM dm, DI.GenTerm a) => Success -> a -> dm a+op_AndGt x1 x2+  = DM.eval+      (DM.funcDeclHook "&>"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "cond"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict_cond x3 x4)))+term_op_AndGt x1 = DI.Term "&>" (DI.SrcID "Prelude" 0) x1+ +strict_maybe ::+             (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+               a -> DM.Func dm b a -> Maybe b -> dm a+strict_maybe x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "maybe"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_13"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_13 x4 x5 x6)))+term_strict_maybe x1 = DI.Term "maybe" (DI.SrcID "Prelude" 0) x1+ +strict_either ::+              (DM.DM dm, DI.GenTerm a, DI.GenTerm b, DI.GenTerm c) =>+                DM.Func dm a b -> DM.Func dm c b -> Either a c -> dm b+strict_either x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "either"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_12"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_12 x4 x5 x6)))+term_strict_either x1 = DI.Term "either" (DI.SrcID "Prelude" 0) x1+ +op_GtGt ::+        (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+          IO dm a -> IO dm b -> dm (IO dm b)+op_GtGt x1 x2+  = DM.eval+      (DM.funcDeclHook ">>"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x4 <- Prelude.return x1+             x5 <- do x3 <- Prelude.return x2+                      Prelude.return+                        (PC.partCall1 (term_strict_const [DI.genTerm x3])+                           (strict_const x3))+             DM.funcCallHook ">>="+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (op_GtGtEq x4 x5)))+term_op_GtGt x1 = DI.Term ">>" (DI.SrcID "Prelude" 0) x1+ +strict_done :: (DM.DM dm) => dm (IO dm Unit)+strict_done+  = DM.eval+      (DM.funcDeclHook "done"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Unit)+             DM.funcCallHook "return"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x0]))+               (strict_return x0)))+ +strict_putChar :: (DM.DM dm) => Char -> dm (IO dm Unit)+strict_putChar x1+  = DM.eval+      (DM.funcDeclHook "putChar"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_putChar []) strict_prim_putChar)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (op_DollarRhombRhomb x2 x3)))+term_strict_putChar x1+  = DI.Term "putChar" (DI.SrcID "Prelude" 0) x1+ +strict_readFile ::+                (DM.DM dm) => List Char -> dm (IO dm (List Char))+strict_readFile x1+  = DM.eval+      (DM.funcDeclHook "readFile"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_readFile []) strict_prim_readFile)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (op_DollarRhombRhomb x2 x3)))+term_strict_readFile x1+  = DI.Term "readFile" (DI.SrcID "Prelude" 0) x1+ +strict_writeFile ::+                 (DM.DM dm) => List Char -> List Char -> dm (IO dm Unit)+strict_writeFile x1 x2+  = DM.eval+      (DM.funcDeclHook "writeFile"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_writeFile [])+                                 strict_prim_writeFile)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$##"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (op_DollarRhombRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (op_DollarRhombRhomb x5 x6)))+term_strict_writeFile x1+  = DI.Term "writeFile" (DI.SrcID "Prelude" 0) x1+ +strict_appendFile ::+                  (DM.DM dm) => List Char -> List Char -> dm (IO dm Unit)+strict_appendFile x1 x2+  = DM.eval+      (DM.funcDeclHook "appendFile"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_appendFile [])+                                 strict_prim_appendFile)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$##"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (op_DollarRhombRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (op_DollarRhombRhomb x5 x6)))+term_strict_appendFile x1+  = DI.Term "appendFile" (DI.SrcID "Prelude" 0) x1+ +strict_putStr :: (DM.DM dm) => List Char -> dm (IO dm Unit)+strict_putStr x1+  = DM.eval+      (DM.funcDeclHook "putStr"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_11"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_11 x2)))+term_strict_putStr x1 = DI.Term "putStr" (DI.SrcID "Prelude" 0) x1+ +strict_putStrLn :: (DM.DM dm) => List Char -> dm (IO dm Unit)+strict_putStrLn x1+  = DM.eval+      (DM.funcDeclHook "putStrLn"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "putStr"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_putStr x2)+             x5 <- do x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Char '\n'))+                      DM.funcCallHook "putChar"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (strict_putChar x3)+             DM.funcCallHook ">>"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (op_GtGt x4 x5)))+term_strict_putStrLn x1+  = DI.Term "putStrLn" (DI.SrcID "Prelude" 0) x1+ +strict_getLine :: (DM.DM dm) => dm (IO dm (List Char))+strict_getLine+  = DM.eval+      (DM.funcDeclHook "getLine"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.funcCallHook "getChar"+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     strict_getChar+             x1 <- Prelude.return+                     (PC.partCall1 (x'xterm_strict_getLine46_35lambda10 [])+                        x'xstrict_getLine46_35lambda10)+             DM.funcCallHook ">>="+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+               (op_GtGtEq x0 x1)))+ +x'xstrict_getLine46_35lambda10 ::+                               (DM.DM dm) => Char -> dm (IO dm (List Char))+x'xstrict_getLine46_35lambda10 x1+  = DM.eval+      (DM.funcDeclHook "getLine._#lambda10"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             x5 <- do x2 <- Prelude.return x1+                      x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Char '\n'))+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (op_EqEq x2 x3)+             DM.funcCallHook "_case_10"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (strict__case_10 x4 x5)))+x'xterm_strict_getLine46_35lambda10 x1+  = DI.Term "getLine._#lambda10" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_getLine46_35lambda1046_35lambda11 ::+                                            (DM.DM dm) =>+                                              Char -> List Char -> dm (IO dm (List Char))+x'xstrict_getLine46_35lambda1046_35lambda11 x1 x2+  = DM.eval+      (DM.funcDeclHook "getLine._#lambda10._#lambda11"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Prelude.return (Cons x3 x4))+             DM.funcCallHook "return"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (strict_return x5)))+x'xterm_strict_getLine46_35lambda1046_35lambda11 x1+  = DI.Term "getLine._#lambda10._#lambda11" (DI.SrcID "Prelude" 0) x1+ +strict_show :: (DM.DM dm, DI.GenTerm a) => a -> dm (List Char)+strict_show x1+  = DM.eval+      (DM.funcDeclHook "show"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_show []) strict_prim_show)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (op_DollarRhombRhomb x2 x3)))+term_strict_show x1 = DI.Term "show" (DI.SrcID "Prelude" 0) x1+ +strict_print :: (DM.DM dm, DI.GenTerm a) => a -> dm (IO dm Unit)+strict_print x1+  = DM.eval+      (DM.funcDeclHook "print"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "show"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_show x2)+             DM.funcCallHook "putStrLn"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (strict_putStrLn x3)))+term_strict_print x1 = DI.Term "print" (DI.SrcID "Prelude" 0) x1+ +strict_doSolve :: (DM.DM dm) => Success -> dm (IO dm Unit)+strict_doSolve x1+  = DM.eval+      (DM.funcDeclHook "doSolve"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             x3 <- DM.funcCallHook "done"+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     strict_done+             DM.funcCallHook "cond"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (strict_cond x2 x3)))+term_strict_doSolve x1+  = DI.Term "doSolve" (DI.SrcID "Prelude" 0) x1+ +strict_sequenceIO ::+                  (DM.DM dm, DI.GenTerm a) => List (IO dm a) -> dm (IO dm (List a))+strict_sequenceIO x1+  = DM.eval+      (DM.funcDeclHook "sequenceIO"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_9"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_9 x2)))+term_strict_sequenceIO x1+  = DI.Term "sequenceIO" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_sequenceIO46_35lambda12 ::+                                  (DM.DM dm, DI.GenTerm x937) =>+                                    List (IO dm x937) -> x937 -> dm (IO dm (List x937))+x'xstrict_sequenceIO46_35lambda12 x1 x2+  = DM.eval+      (DM.funcDeclHook "sequenceIO._#lambda12"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      DM.funcCallHook "sequenceIO"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (strict_sequenceIO x3)+             x6 <- do x4 <- Prelude.return x2+                      Prelude.return+                        (PC.partCall1+                           (x'xterm_strict_sequenceIO46_35lambda1246_35lambda13+                              [DI.genTerm x4])+                           (x'xstrict_sequenceIO46_35lambda1246_35lambda13 x4))+             DM.funcCallHook ">>="+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (op_GtGtEq x5 x6)))+x'xterm_strict_sequenceIO46_35lambda12 x1+  = DI.Term "sequenceIO._#lambda12" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_sequenceIO46_35lambda1246_35lambda13 ::+                                               (DM.DM dm, DI.GenTerm x937) =>+                                                 x937 -> List x937 -> dm (IO dm (List x937))+x'xstrict_sequenceIO46_35lambda1246_35lambda13 x1 x2+  = DM.eval+      (DM.funcDeclHook "sequenceIO._#lambda12._#lambda13"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Prelude.return (Cons x3 x4))+             DM.funcCallHook "return"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (strict_return x5)))+x'xterm_strict_sequenceIO46_35lambda1246_35lambda13 x1+  = DI.Term "sequenceIO._#lambda12._#lambda13" (DI.SrcID "Prelude" 0)+      x1+ +strict_sequenceIO_ ::+                   (DM.DM dm, DI.GenTerm a) =>+                     dm (DM.Func dm (List (IO dm a)) (IO dm Unit))+strict_sequenceIO_+  = DM.eval+      (DM.funcDeclHook "sequenceIO_"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return (PC.partCall2 (term_op_GtGt []) op_GtGt)+             x1 <- DM.funcCallHook "done"+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     strict_done+             Prelude.return+               (PC.partCall1 (term_strict_foldr [DI.genTerm x0, DI.genTerm x1])+                  (strict_foldr x0 x1))))+ +strict_mapIO ::+             (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+               DM.Func dm a (IO dm b) -> dm (DM.Func dm (List a) (IO dm (List b)))+strict_mapIO x1+  = DM.eval+      (DM.funcDeclHook "mapIO"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return+                     (PC.partCall1 (term_strict_sequenceIO []) strict_sequenceIO)+             x4 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1 (term_strict_map [DI.genTerm x2]) (strict_map x2))+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (op_Point x3 x4)))+term_strict_mapIO x1 = DI.Term "mapIO" (DI.SrcID "Prelude" 0) x1+ +strict_mapIO_ ::+              (DM.DM dm, DI.GenTerm a, DI.GenTerm b) =>+                DM.Func dm a (IO dm b) -> dm (DM.Func dm (List a) (IO dm Unit))+strict_mapIO_ x1+  = DM.eval+      (DM.funcDeclHook "mapIO_"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- DM.funcCallHook "sequenceIO_"+                     (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                     strict_sequenceIO_+             x4 <- do x2 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1 (term_strict_map [DI.genTerm x2]) (strict_map x2))+             DM.funcCallHook "."+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (op_Point x3 x4)))+term_strict_mapIO_ x1 = DI.Term "mapIO_" (DI.SrcID "Prelude" 0) x1+ +op_QMark :: (DM.DM dm, DI.GenTerm a) => a -> a -> dm a+op_QMark x1 x2+  = DM.eval+      (DM.funcDeclHook "?"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (DM.orHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x3 <- Prelude.return x1+                x4 <- Prelude.return x2+                x3 ? x4)))+term_op_QMark x1 = DI.Term "?" (DI.SrcID "Prelude" 0) x1+ +strict_allValuesD ::+                  (DM.DM dm, DI.GenTerm a) => SearchTree a -> dm (List a)+strict_allValuesD x1+  = DM.eval+      (DM.funcDeclHook "allValuesD"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_8"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_8 x2)))+term_strict_allValuesD x1+  = DI.Term "allValuesD" (DI.SrcID "Prelude" 0) x1+ +strict_allValuesB ::+                  (DM.DM dm, DI.GenTerm a) => SearchTree a -> dm (List a)+strict_allValuesB x1+  = DM.eval+      (DM.funcDeclHook "allValuesB"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return x1+                      x3 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Prelude.return (Cons x2 x3))+             DM.funcCallHook "allValuesB.unfoldOrs.692"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (x'xstrict_allValuesB46unfoldOrs46692 x4)))+term_strict_allValuesB x1+  = DI.Term "allValuesB" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_allValuesB46partition46692 ::+                                     (DM.DM dm, DI.GenTerm a) =>+                                       SearchTree a ->+                                         Tuple2 (List a) (List (SearchTree a)) ->+                                           dm (Tuple2 (List a) (List (SearchTree a)))+x'xstrict_allValuesB46partition46692 x1 x2+  = DM.eval+      (DM.funcDeclHook "allValuesB.partition.692"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_7"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_7 x3 x4)))+x'xterm_strict_allValuesB46partition46692 x1+  = DI.Term "allValuesB.partition.692" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_allValuesB46partition4669246_35selFP3435vs ::+                                                     (DM.DM dm, DI.GenTerm x1001) =>+                                                       Tuple2 (List x1001) (List (SearchTree x1001))+                                                         -> dm (List x1001)+x'xstrict_allValuesB46partition4669246_35selFP3435vs x1+  = DM.eval+      (DM.funcDeclHook "allValuesB.partition.692._#selFP34#vs"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_6"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_6 x2)))+x'xterm_strict_allValuesB46partition4669246_35selFP3435vs x1+  = DI.Term "allValuesB.partition.692._#selFP34#vs"+      (DI.SrcID "Prelude" 0)+      x1+ +x'xstrict_allValuesB46partition4669246_35selFP3535ors ::+                                                      (DM.DM dm, DI.GenTerm x1001) =>+                                                        Tuple2 (List x1001)+                                                          (List (SearchTree x1001))+                                                          -> dm (List (SearchTree x1001))+x'xstrict_allValuesB46partition4669246_35selFP3535ors x1+  = DM.eval+      (DM.funcDeclHook "allValuesB.partition.692._#selFP35#ors"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_5"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_5 x2)))+x'xterm_strict_allValuesB46partition4669246_35selFP3535ors x1+  = DI.Term "allValuesB.partition.692._#selFP35#ors"+      (DI.SrcID "Prelude" 0)+      x1+ +x'xstrict_allValuesB46partition4669246_35selFP3735vs ::+                                                     (DM.DM dm, DI.GenTerm x1001) =>+                                                       Tuple2 (List x1001) (List (SearchTree x1001))+                                                         -> dm (List x1001)+x'xstrict_allValuesB46partition4669246_35selFP3735vs x1+  = DM.eval+      (DM.funcDeclHook "allValuesB.partition.692._#selFP37#vs"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_4"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_4 x2)))+x'xterm_strict_allValuesB46partition4669246_35selFP3735vs x1+  = DI.Term "allValuesB.partition.692._#selFP37#vs"+      (DI.SrcID "Prelude" 0)+      x1+ +x'xstrict_allValuesB46partition4669246_35selFP3835ors ::+                                                      (DM.DM dm, DI.GenTerm x1001) =>+                                                        Tuple2 (List x1001)+                                                          (List (SearchTree x1001))+                                                          -> dm (List (SearchTree x1001))+x'xstrict_allValuesB46partition4669246_35selFP3835ors x1+  = DM.eval+      (DM.funcDeclHook "allValuesB.partition.692._#selFP38#ors"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_3"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_3 x2)))+x'xterm_strict_allValuesB46partition4669246_35selFP3835ors x1+  = DI.Term "allValuesB.partition.692._#selFP38#ors"+      (DI.SrcID "Prelude" 0)+      x1+ +x'xstrict_allValuesB46unfoldOrs46692 ::+                                     (DM.DM dm, DI.GenTerm a) => List (SearchTree a) -> dm (List a)+x'xstrict_allValuesB46unfoldOrs46692 x1+  = DM.eval+      (DM.funcDeclHook "allValuesB.unfoldOrs.692"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_2"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_2 x2)))+x'xterm_strict_allValuesB46unfoldOrs46692 x1+  = DI.Term "allValuesB.unfoldOrs.692" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_allValuesB46unfoldOrs4669246_35selFP4035vals ::+                                                       (DM.DM dm, DI.GenTerm x1014) =>+                                                         Tuple2 (List x1014)+                                                           (List (SearchTree x1014))+                                                           -> dm (List x1014)+x'xstrict_allValuesB46unfoldOrs4669246_35selFP4035vals x1+  = DM.eval+      (DM.funcDeclHook "allValuesB.unfoldOrs.692._#selFP40#vals"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_1"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_1 x2)))+x'xterm_strict_allValuesB46unfoldOrs4669246_35selFP4035vals x1+  = DI.Term "allValuesB.unfoldOrs.692._#selFP40#vals"+      (DI.SrcID "Prelude" 0)+      x1+ +x'xstrict_allValuesB46unfoldOrs4669246_35selFP4135ors ::+                                                      (DM.DM dm, DI.GenTerm x1014) =>+                                                        Tuple2 (List x1014)+                                                          (List (SearchTree x1014))+                                                          -> dm (List (SearchTree x1014))+x'xstrict_allValuesB46unfoldOrs4669246_35selFP4135ors x1+  = DM.eval+      (DM.funcDeclHook "allValuesB.unfoldOrs.692._#selFP41#ors"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_0"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_0 x2)))+x'xterm_strict_allValuesB46unfoldOrs4669246_35selFP4135ors x1+  = DI.Term "allValuesB.unfoldOrs.692._#selFP41#ors"+      (DI.SrcID "Prelude" 0)+      x1+ +strict_inject ::+              (DM.DM dm, DI.GenTerm a) =>+                DM.Func dm a Success ->+                  DM.Func dm a Success -> dm (DM.Func dm a Success)+strict_inject x1 x2+  = DM.eval+      (DM.funcDeclHook "inject"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             Prelude.return+               (PC.partCall1+                  (x'xterm_strict_inject46_35lambda14 [DI.genTerm x3, DI.genTerm x4])+                  (x'xstrict_inject46_35lambda14 x3 x4))))+term_strict_inject x1 = DI.Term "inject" (DI.SrcID "Prelude" 0) x1+ +x'xstrict_inject46_35lambda14 ::+                              (DM.DM dm, DI.GenTerm x1025) =>+                                DM.Func dm x1025 Success ->+                                  DM.Func dm x1025 Success -> x1025 -> dm Success+x'xstrict_inject46_35lambda14 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "inject._#lambda14"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x8 <- do x4 <- Prelude.return x2+                      x5 <- Prelude.return x3+                      DM.funcCallHook "apply"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (strict_apply x4 x5)+             x9 <- do x6 <- Prelude.return x1+                      x7 <- Prelude.return x3+                      DM.funcCallHook "apply"+                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                           (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                        (strict_apply x6 x7)+             DM.funcCallHook "&"+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+               (op_And x8 x9)))+x'xterm_strict_inject46_35lambda14 x1+  = DI.Term "inject._#lambda14" (DI.SrcID "Prelude" 0) x1+ +strict_PEVAL :: (DM.DM dm, DI.GenTerm a) => a -> dm a+strict_PEVAL x1+  = DM.eval+      (DM.funcDeclHook "PEVAL"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (Prelude.return x1))+term_strict_PEVAL x1 = DI.Term "PEVAL" (DI.SrcID "Prelude" 0) x1+ +strict_unknown :: (DM.DM dm, DI.GenTerm a) => dm a+strict_unknown+  = DM.eval+      (DM.funcDeclHook "unknown"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         (DM.freeHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (Prelude.error "free not implemented yet")))+strict__case_0 x1+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_0+                           x4)))+term_strict__case_0 x1+  = DI.Term "_case_0" (DI.SrcID "Prelude" 0) x1+strict__case_1 x1+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_1+                           x4)))+term_strict__case_1 x1+  = DI.Term "_case_1" (DI.SrcID "Prelude" 0) x1+strict__case_2 x1+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x19 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x4 <- do x11 <- Prelude.return+                                                       (PC.partCall2+                                                          (x'xterm_strict_allValuesB46partition46692+                                                             [])+                                                          x'xstrict_allValuesB46partition46692)+                                              x12 <- do x7 <- DM.constructorHook+                                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                   (DI.DynamicInfo [] []))+                                                                (Prelude.return Nil)+                                                        x8 <- DM.constructorHook+                                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                   (DI.DynamicInfo [] []))+                                                                (Prelude.return Nil)+                                                        DM.constructorHook+                                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x7, DI.genTerm x8]))+                                                          (Prelude.return (Tuple2 x7 x8))+                                              x13 <- do x9 <- Prelude.return x2+                                                        x10 <- Prelude.return x3+                                                        DM.constructorHook+                                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x9, DI.genTerm x10]))+                                                          (Prelude.return (Cons x9 x10))+                                              DM.funcCallHook "foldr"+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x11, DI.genTerm x12,+                                                       DI.genTerm x13]))+                                                (strict_foldr x11 x12 x13)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x5 <- do x14 <- Prelude.return x4+                                                       DM.funcCallHook+                                                         "allValuesB.unfoldOrs.692._#selFP40#vals"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x14]))+                                                         (x'xstrict_allValuesB46unfoldOrs4669246_35selFP4035vals+                                                            x14)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x6 <- do x15 <- Prelude.return x4+                                                                DM.funcCallHook+                                                                  "allValuesB.unfoldOrs.692._#selFP41#ors"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x15]))+                                                                  (x'xstrict_allValuesB46unfoldOrs4669246_35selFP4135ors+                                                                     x15)+                                                       DM.eval+                                                         (do x17 <- Prelude.return x5+                                                             x18 <- do x16 <- Prelude.return x6+                                                                       DM.funcCallHook+                                                                         "allValuesB.unfoldOrs.692"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x16]))+                                                                         (x'xstrict_allValuesB46unfoldOrs46692+                                                                            x16)+                                                             DM.funcCallHook "++"+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x17,+                                                                      DI.genTerm x18]))+                                                               (op_PlusPlus x17 x18)))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           strict__case_2+                           x19)))+term_strict__case_2 x1+  = DI.Term "_case_2" (DI.SrcID "Prelude" 0) x1+strict__case_3 x1+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_3+                           x4)))+term_strict__case_3 x1+  = DI.Term "_case_3" (DI.SrcID "Prelude" 0) x1+strict__case_4 x1+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_4+                           x4)))+term_strict__case_4 x1+  = DI.Term "_case_4" (DI.SrcID "Prelude" 0) x1+strict__case_5 x1+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_5+                           x4)))+term_strict__case_5 x1+  = DI.Term "_case_5" (DI.SrcID "Prelude" 0) x1+strict__case_6 x1+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_6+                           x4)))+term_strict__case_6 x1+  = DI.Term "_case_6" (DI.SrcID "Prelude" 0) x1+strict__case_7 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x23 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x23]))+               (case x23 of+                    Value x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x4 <- Prelude.return x2+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x5 <- do x11 <- Prelude.return x4+                                                       DM.funcCallHook+                                                         "allValuesB.partition.692._#selFP34#vs"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x11]))+                                                         (x'xstrict_allValuesB46partition4669246_35selFP3435vs+                                                            x11)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x6 <- do x12 <- Prelude.return x4+                                                                DM.funcCallHook+                                                                  "allValuesB.partition.692._#selFP35#ors"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12]))+                                                                  (x'xstrict_allValuesB46partition4669246_35selFP3535ors+                                                                     x12)+                                                       DM.eval+                                                         (do x15 <- do x13 <- Prelude.return x3+                                                                       x14 <- Prelude.return x5+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x13,+                                                                                DI.genTerm x14]))+                                                                         (Prelude.return+                                                                            (Cons x13 x14))+                                                             x16 <- Prelude.return x6+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x15,+                                                                      DI.genTerm x16]))+                                                               (Prelude.return+                                                                  (Tuple2 x15 x16))))))))))+                    Choice x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x8 <- Prelude.return x2+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x9 <- do x17 <- Prelude.return x8+                                                       DM.funcCallHook+                                                         "allValuesB.partition.692._#selFP37#vs"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x17]))+                                                         (x'xstrict_allValuesB46partition4669246_35selFP3735vs+                                                            x17)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x10 <- do x18 <- Prelude.return x8+                                                                 DM.funcCallHook+                                                                   "allValuesB.partition.692._#selFP38#ors"+                                                                   (DI.DebugInfo+                                                                      (DI.SrcID "Prelude" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x18]))+                                                                   (x'xstrict_allValuesB46partition4669246_35selFP3835ors+                                                                      x18)+                                                       DM.eval+                                                         (do x21 <- Prelude.return x9+                                                             x22 <- do x19 <- Prelude.return x7+                                                                       x20 <- Prelude.return x10+                                                                       DM.funcCallHook "++"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x19,+                                                                                DI.genTerm x20]))+                                                                         (op_PlusPlus x19 x20)+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x21,+                                                                      DI.genTerm x22]))+                                                               (Prelude.return+                                                                  (Tuple2 x21 x22))))))))))+                    Fail+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Suspend+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x23])))+                           (strict__case_7 x2)+                           x23)))+term_strict__case_7 x1+  = DI.Term "_case_7" (DI.SrcID "Prelude" 0) x1+strict__case_8 x1+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Value x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x2+                                  x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Prelude.return (Cons x4 x5))))+                    Fail+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Suspend+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Choice x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x6 <- Prelude.return+                                                   (PC.partCall1 (term_strict_allValuesD [])+                                                      strict_allValuesD)+                                           DM.funcCallHook "concatMap"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6]))+                                             (strict_concatMap x6)+                                  x8 <- Prelude.return x3+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (strict_apply x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_8+                           x9)))+term_strict__case_8 x1+  = DI.Term "_case_8" (DI.SrcID "Prelude" 0) x1+strict__case_9 x1+  = DM.eval+      (DM.funcDeclHook "_case_9"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  DM.funcCallHook "return"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4]))+                                    (strict_return x4)))+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- do x5 <- Prelude.return x3+                                           Prelude.return+                                             (PC.partCall1+                                                (x'xterm_strict_sequenceIO46_35lambda12+                                                   [DI.genTerm x5])+                                                (x'xstrict_sequenceIO46_35lambda12 x5))+                                  DM.funcCallHook ">>="+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (op_GtGtEq x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_9+                           x8)))+term_strict__case_9 x1+  = DI.Term "_case_9" (DI.SrcID "Prelude" 0) x1+strict__case_10 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_10"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  DM.funcCallHook "return"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3]))+                                    (strict_return x3)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.funcCallHook "getLine"+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          strict_getLine+                                  x6 <- do x4 <- Prelude.return x1+                                           Prelude.return+                                             (PC.partCall1+                                                (x'xterm_strict_getLine46_35lambda1046_35lambda11+                                                   [DI.genTerm x4])+                                                (x'xstrict_getLine46_35lambda1046_35lambda11 x4))+                                  DM.funcCallHook ">>="+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (op_GtGtEq x5 x6)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_10 x1)+                           x7)))+term_strict__case_10 x1+  = DI.Term "_case_10" (DI.SrcID "Prelude" 0) x1+strict__case_11 x1+  = DM.eval+      (DM.funcDeclHook "_case_11"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "done"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_done))+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- Prelude.return x2+                                           DM.funcCallHook "putChar"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (strict_putChar x4)+                                  x7 <- do x5 <- Prelude.return x3+                                           DM.funcCallHook "putStr"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_putStr x5)+                                  DM.funcCallHook ">>"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (op_GtGt x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_11+                           x8)))+term_strict__case_11 x1+  = DI.Term "_case_11" (DI.SrcID "Prelude" 0) x1+strict__case_12 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_12"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x10 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Left x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict_apply x6 x7)))+                    Right x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x2+                                  x9 <- Prelude.return x5+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (strict_apply x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_12 x1 x2)+                           x10)))+term_strict__case_12 x1+  = DI.Term "_case_12" (DI.SrcID "Prelude" 0) x1+strict__case_13 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_13"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x7 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Nothing+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    Just x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x2+                                  x6 <- Prelude.return x4+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (strict_apply x5 x6)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_13 x1 x2)+                           x7)))+term_strict__case_13 x1+  = DI.Term "_case_13" (DI.SrcID "Prelude" 0) x1+strict__case_14 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_14"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "success"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_success))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_14 x1 x2)+                           x4)))+term_strict__case_14 x1+  = DI.Term "_case_14" (DI.SrcID "Prelude" 0) x1+strict__case_15 x1+  = DM.eval+      (DM.funcDeclHook "_case_15"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Zero)))+                    Pos x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x2+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4]))+                                    (Prelude.return (Neg x4))))+                    Neg x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x3+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (Prelude.return (Pos x5))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_15+                           x6)))+term_strict__case_15 x1+  = DI.Term "_case_15" (DI.SrcID "Prelude" 0) x1+strict__case_16 x1+  = DM.eval+      (DM.funcDeclHook "_case_16"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_16+                           x4)))+term_strict__case_16 x1+  = DI.Term "_case_16" (DI.SrcID "Prelude" 0) x1+strict__case_17 x1+  = DM.eval+      (DM.funcDeclHook "_case_17"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_17+                           x4)))+term_strict__case_17 x1+  = DI.Term "_case_17" (DI.SrcID "Prelude" 0) x1+strict__case_18 x1+  = DM.eval+      (DM.funcDeclHook "_case_18"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_18+                           x4)))+term_strict__case_18 x1+  = DI.Term "_case_18" (DI.SrcID "Prelude" 0) x1+strict__case_19 x1+  = DM.eval+      (DM.funcDeclHook "_case_19"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_19+                           x4)))+term_strict__case_19 x1+  = DI.Term "_case_19" (DI.SrcID "Prelude" 0) x1+strict__case_20 x1+  = DM.eval+      (DM.funcDeclHook "_case_20"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_20+                           x4)))+term_strict__case_20 x1+  = DI.Term "_case_20" (DI.SrcID "Prelude" 0) x1+strict__case_21 x1+  = DM.eval+      (DM.funcDeclHook "_case_21"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_21+                           x4)))+term_strict__case_21 x1+  = DI.Term "_case_21" (DI.SrcID "Prelude" 0) x1+strict__case_24 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_24"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x16 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                              (DI.DynamicInfo [] []))+                                           (Prelude.return Zero)+                                  x11 <- DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                              (DI.DynamicInfo [] []))+                                           (Prelude.return Zero)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (Prelude.return (Tuple2 x10 x11))))+                    Pos x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x3+                                  x13 <- Prelude.return x2+                                  DM.funcCallHook "_case_23"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (strict__case_23 x12 x13)))+                    Neg x9+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x9+                                  x15 <- Prelude.return x2+                                  DM.funcCallHook "_case_22"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (strict__case_22 x14 x15)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_24 x2)+                           x16)))+term_strict__case_24 x1+  = DI.Term "_case_24" (DI.SrcID "Prelude" 0) x1+strict__case_22 x9 x2+  = DM.eval+      (DM.funcDeclHook "_case_22"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x2]))+         (do x60 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x60]))+               (case x60 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x44 <- do x42 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return (Char 'd'))+                                            x43 <- do x40 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return (Char 'i'))+                                                      x41 <- do x38 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return (Char 'v'))+                                                                x39 <- do x36 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Prelude"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Char 'i'))+                                                                          x37 <- do x34 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "Prelude"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Char+                                                                                                   's'))+                                                                                    x35 <- do x32 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "Prelude"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Char+                                                                                                             'i'))+                                                                                              x33 <- do x30 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Prelude"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Char+                                                                                                                       'o'))+                                                                                                        x31 <- do x28 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "Prelude"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Char+                                                                                                                                 'n'))+                                                                                                                  x29 <- do x26 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "Prelude"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Char+                                                                                                                                           ' '))+                                                                                                                            x27 <- do x24 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "Prelude"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Char+                                                                                                                                                     'b'))+                                                                                                                                      x25 <- do x22 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "Prelude"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Char+                                                                                                                                                               'y'))+                                                                                                                                                x23 <- do x20 <- DM.litHook+                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                         "Prelude"+                                                                                                                                                                         0)+                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                         []+                                                                                                                                                                         []))+                                                                                                                                                                   (Prelude.return+                                                                                                                                                                      (Char+                                                                                                                                                                         ' '))+                                                                                                                                                          x21 <- do x18 <- DM.litHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "Prelude"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                (Char+                                                                                                                                                                                   '0'))+                                                                                                                                                                    x19 <- DM.constructorHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "Prelude"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                Nil)+                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "Prelude"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                               x18,+                                                                                                                                                                             DI.genTerm+                                                                                                                                                                               x19]))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Cons+                                                                                                                                                                            x18+                                                                                                                                                                            x19))+                                                                                                                                                          DM.constructorHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "Prelude"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                     x20,+                                                                                                                                                                   DI.genTerm+                                                                                                                                                                     x21]))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Cons+                                                                                                                                                                  x20+                                                                                                                                                                  x21))+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "Prelude"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x22,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x23]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Cons+                                                                                                                                                        x22+                                                                                                                                                        x23))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "Prelude"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x24,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x25]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Cons+                                                                                                                                              x24+                                                                                                                                              x25))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "Prelude"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x26,+                                                                                                                                     DI.genTerm+                                                                                                                                       x27]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Cons+                                                                                                                                    x26+                                                                                                                                    x27))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "Prelude"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x28,+                                                                                                                           DI.genTerm+                                                                                                                             x29]))+                                                                                                                    (Prelude.return+                                                                                                                       (Cons+                                                                                                                          x28+                                                                                                                          x29))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "Prelude"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x30,+                                                                                                                 DI.genTerm+                                                                                                                   x31]))+                                                                                                          (Prelude.return+                                                                                                             (Cons+                                                                                                                x30+                                                                                                                x31))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "Prelude"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x32,+                                                                                                       DI.genTerm+                                                                                                         x33]))+                                                                                                (Prelude.return+                                                                                                   (Cons+                                                                                                      x32+                                                                                                      x33))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Prelude"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x34,+                                                                                             DI.genTerm+                                                                                               x35]))+                                                                                      (Prelude.return+                                                                                         (Cons x34+                                                                                            x35))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Prelude"+                                                                                  0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x36,+                                                                                   DI.genTerm x37]))+                                                                            (Prelude.return+                                                                               (Cons x36 x37))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x38,+                                                                         DI.genTerm x39]))+                                                                  (Prelude.return (Cons x38 x39))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x40, DI.genTerm x41]))+                                                        (Prelude.return (Cons x40 x41))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x42, DI.genTerm x43]))+                                              (Prelude.return (Cons x42 x43))+                                  DM.funcCallHook "error"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x44]))+                                    (strict_error x44)))+                    Pos x10+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x11 <- do x45 <- Prelude.return x9+                                               x46 <- Prelude.return x10+                                               DM.funcCallHook "divmodNat"+                                                 (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                    (DI.DynamicInfo []+                                                       [DI.genTerm x45, DI.genTerm x46]))+                                                 (strict_divmodNat x45 x46)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x12 <- do x47 <- Prelude.return x11+                                                        DM.funcCallHook "divmod._#selFP28#d"+                                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                             (DI.DynamicInfo [] [DI.genTerm x47]))+                                                          (x'xstrict_divmod46_35selFP2835d x47)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x13 <- do x48 <- Prelude.return x11+                                                                 DM.funcCallHook+                                                                   "divmod._#selFP29#m"+                                                                   (DI.DebugInfo+                                                                      (DI.SrcID "Prelude" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x48]))+                                                                   (x'xstrict_divmod46_35selFP2935m+                                                                      x48)+                                                       DM.eval+                                                         (do x51 <- do x49 <- Prelude.return x12+                                                                       DM.funcCallHook "negate"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x49]))+                                                                         (strict_negate x49)+                                                             x52 <- do x50 <- Prelude.return x13+                                                                       DM.funcCallHook "negate"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x50]))+                                                                         (strict_negate x50)+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x51,+                                                                      DI.genTerm x52]))+                                                               (Prelude.return+                                                                  (Tuple2 x51 x52))))))))))+                    Neg x14+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x15 <- do x53 <- Prelude.return x9+                                               x54 <- Prelude.return x14+                                               DM.funcCallHook "divmodNat"+                                                 (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                    (DI.DynamicInfo []+                                                       [DI.genTerm x53, DI.genTerm x54]))+                                                 (strict_divmodNat x53 x54)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x16 <- do x55 <- Prelude.return x15+                                                        DM.funcCallHook "divmod._#selFP31#d"+                                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                             (DI.DynamicInfo [] [DI.genTerm x55]))+                                                          (x'xstrict_divmod46_35selFP3135d x55)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x17 <- do x56 <- Prelude.return x15+                                                                 DM.funcCallHook+                                                                   "divmod._#selFP32#m"+                                                                   (DI.DebugInfo+                                                                      (DI.SrcID "Prelude" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x56]))+                                                                   (x'xstrict_divmod46_35selFP3235m+                                                                      x56)+                                                       DM.eval+                                                         (do x58 <- Prelude.return x16+                                                             x59 <- do x57 <- Prelude.return x17+                                                                       DM.funcCallHook "negate"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x57]))+                                                                         (strict_negate x57)+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x58,+                                                                      DI.genTerm x59]))+                                                               (Prelude.return+                                                                  (Tuple2 x58 x59))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x60])))+                           (strict__case_22 x9)+                           x60)))+term_strict__case_22 x1+  = DI.Term "_case_22" (DI.SrcID "Prelude" 0) x1+strict__case_23 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_23"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x45 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x45]))+               (case x45 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x35 <- do x33 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return (Char 'd'))+                                            x34 <- do x31 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return (Char 'i'))+                                                      x32 <- do x29 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return (Char 'v'))+                                                                x30 <- do x27 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Prelude"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Char 'i'))+                                                                          x28 <- do x25 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "Prelude"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Char+                                                                                                   's'))+                                                                                    x26 <- do x23 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "Prelude"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Char+                                                                                                             'i'))+                                                                                              x24 <- do x21 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Prelude"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Char+                                                                                                                       'o'))+                                                                                                        x22 <- do x19 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "Prelude"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Char+                                                                                                                                 'n'))+                                                                                                                  x20 <- do x17 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "Prelude"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Char+                                                                                                                                           ' '))+                                                                                                                            x18 <- do x15 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "Prelude"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Char+                                                                                                                                                     'b'))+                                                                                                                                      x16 <- do x13 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "Prelude"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Char+                                                                                                                                                               'y'))+                                                                                                                                                x14 <- do x11 <- DM.litHook+                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                         "Prelude"+                                                                                                                                                                         0)+                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                         []+                                                                                                                                                                         []))+                                                                                                                                                                   (Prelude.return+                                                                                                                                                                      (Char+                                                                                                                                                                         ' '))+                                                                                                                                                          x12 <- do x9 <- DM.litHook+                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                  "Prelude"+                                                                                                                                                                                  0)+                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                  []+                                                                                                                                                                                  []))+                                                                                                                                                                            (Prelude.return+                                                                                                                                                                               (Char+                                                                                                                                                                                  '0'))+                                                                                                                                                                    x10 <- DM.constructorHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "Prelude"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                Nil)+                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "Prelude"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                               x9,+                                                                                                                                                                             DI.genTerm+                                                                                                                                                                               x10]))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Cons+                                                                                                                                                                            x9+                                                                                                                                                                            x10))+                                                                                                                                                          DM.constructorHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "Prelude"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                     x11,+                                                                                                                                                                   DI.genTerm+                                                                                                                                                                     x12]))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Cons+                                                                                                                                                                  x11+                                                                                                                                                                  x12))+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "Prelude"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x13,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x14]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Cons+                                                                                                                                                        x13+                                                                                                                                                        x14))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "Prelude"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x15,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x16]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Cons+                                                                                                                                              x15+                                                                                                                                              x16))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "Prelude"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x17,+                                                                                                                                     DI.genTerm+                                                                                                                                       x18]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Cons+                                                                                                                                    x17+                                                                                                                                    x18))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "Prelude"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x19,+                                                                                                                           DI.genTerm+                                                                                                                             x20]))+                                                                                                                    (Prelude.return+                                                                                                                       (Cons+                                                                                                                          x19+                                                                                                                          x20))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "Prelude"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x21,+                                                                                                                 DI.genTerm+                                                                                                                   x22]))+                                                                                                          (Prelude.return+                                                                                                             (Cons+                                                                                                                x21+                                                                                                                x22))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "Prelude"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x23,+                                                                                                       DI.genTerm+                                                                                                         x24]))+                                                                                                (Prelude.return+                                                                                                   (Cons+                                                                                                      x23+                                                                                                      x24))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Prelude"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x25,+                                                                                             DI.genTerm+                                                                                               x26]))+                                                                                      (Prelude.return+                                                                                         (Cons x25+                                                                                            x26))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Prelude"+                                                                                  0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x27,+                                                                                   DI.genTerm x28]))+                                                                            (Prelude.return+                                                                               (Cons x27 x28))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x29,+                                                                         DI.genTerm x30]))+                                                                  (Prelude.return (Cons x29 x30))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x31, DI.genTerm x32]))+                                                        (Prelude.return (Cons x31 x32))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x33, DI.genTerm x34]))+                                              (Prelude.return (Cons x33 x34))+                                  DM.funcCallHook "error"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x35]))+                                    (strict_error x35)))+                    Pos x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x36 <- Prelude.return x3+                                  x37 <- Prelude.return x4+                                  DM.funcCallHook "divmodNat"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x36, DI.genTerm x37]))+                                    (strict_divmodNat x36 x37)))+                    Neg x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x6 <- do x38 <- Prelude.return x3+                                              x39 <- Prelude.return x5+                                              DM.funcCallHook "divmodNat"+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x38, DI.genTerm x39]))+                                                (strict_divmodNat x38 x39)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x7 <- do x40 <- Prelude.return x6+                                                       DM.funcCallHook "divmod._#selFP25#d"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x40]))+                                                         (x'xstrict_divmod46_35selFP2535d x40)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x8 <- do x41 <- Prelude.return x6+                                                                DM.funcCallHook "divmod._#selFP26#m"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x41]))+                                                                  (x'xstrict_divmod46_35selFP2635m+                                                                     x41)+                                                       DM.eval+                                                         (do x43 <- do x42 <- Prelude.return x7+                                                                       DM.funcCallHook "negate"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x42]))+                                                                         (strict_negate x42)+                                                             x44 <- Prelude.return x8+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x43,+                                                                      DI.genTerm x44]))+                                                               (Prelude.return+                                                                  (Tuple2 x43 x44))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x45])))+                           (strict__case_23 x3)+                           x45)))+term_strict__case_23 x1+  = DI.Term "_case_23" (DI.SrcID "Prelude" 0) x1+strict__case_27 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_27"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x11 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Pos x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  x8 <- Prelude.return x2+                                  DM.funcCallHook "_case_26"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_26 x7 x8)))+                    Neg x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x6+                                  x10 <- Prelude.return x2+                                  DM.funcCallHook "_case_25"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_25 x9 x10)))+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Zero)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_27 x2)+                           x11)))+term_strict__case_27 x1+  = DI.Term "_case_27" (DI.SrcID "Prelude" 0) x1+strict__case_25 x6 x2+  = DM.eval+      (DM.funcDeclHook "_case_25"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x2]))+         (do x15 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Neg x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x9 <- Prelude.return x6+                                            x10 <- Prelude.return x7+                                            DM.funcCallHook "*^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (op_AsteriskAccent x9 x10)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11]))+                                    (Prelude.return (Pos x11))))+                    Pos x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- do x12 <- Prelude.return x6+                                            x13 <- Prelude.return x8+                                            DM.funcCallHook "*^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x12, DI.genTerm x13]))+                                              (op_AsteriskAccent x12 x13)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14]))+                                    (Prelude.return (Neg x14))))+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Zero)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_25 x6)+                           x15)))+term_strict__case_25 x1+  = DI.Term "_case_25" (DI.SrcID "Prelude" 0) x1+strict__case_26 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_26"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x12 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Pos x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x6 <- Prelude.return x3+                                           x7 <- Prelude.return x4+                                           DM.funcCallHook "*^"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (op_AsteriskAccent x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (Pos x8))))+                    Neg x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x9 <- Prelude.return x3+                                            x10 <- Prelude.return x5+                                            DM.funcCallHook "*^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (op_AsteriskAccent x9 x10)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11]))+                                    (Prelude.return (Neg x11))))+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Zero)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_26 x3)+                           x12)))+term_strict__case_26 x1+  = DI.Term "_case_26" (DI.SrcID "Prelude" 0) x1+strict__case_28 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_28"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x11 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Neg x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- do x5 <- Prelude.return x3+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (Prelude.return (Pos x5))+                                  DM.funcCallHook "+"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (op_Plus x6 x7)))+                    Pos x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- do x8 <- Prelude.return x4+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8]))+                                              (Prelude.return (Neg x8))+                                  DM.funcCallHook "+"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (op_Plus x9 x10)))+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_28 x1)+                           x11)))+term_strict__case_28 x1+  = DI.Term "_case_28" (DI.SrcID "Prelude" 0) x1+strict__case_31 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_31"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x13 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Pos x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x3+                                  x9 <- Prelude.return x2+                                  DM.funcCallHook "_case_30"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+                                    (strict__case_30 x7 x8 x9)))+                    Neg x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x1+                                  x11 <- Prelude.return x6+                                  x12 <- Prelude.return x2+                                  DM.funcCallHook "_case_29"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_29 x10 x11 x12)))+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_31 x2)+                           x13)))+term_strict__case_31 x1+  = DI.Term "_case_31" (DI.SrcID "Prelude" 0) x1+strict__case_29 x1 x6 x2+  = DM.eval+      (DM.funcDeclHook "_case_29"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x6, DI.genTerm x2]))+         (do x14 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Neg x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x9 <- Prelude.return x6+                                            x10 <- Prelude.return x7+                                            DM.funcCallHook "+^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (op_PlusAccent x9 x10)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11]))+                                    (Prelude.return (Neg x11))))+                    Pos x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x8+                                  x13 <- Prelude.return x6+                                  DM.funcCallHook "-^"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (op_MinusAccent x12 x13)))+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_29 x1 x6)+                           x14)))+term_strict__case_29 x1+  = DI.Term "_case_29" (DI.SrcID "Prelude" 0) x1+strict__case_30 x1 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_30"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x2]))+         (do x11 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Pos x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x6 <- Prelude.return x3+                                           x7 <- Prelude.return x4+                                           DM.funcCallHook "+^"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (op_PlusAccent x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (Pos x8))))+                    Neg x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x3+                                  x10 <- Prelude.return x5+                                  DM.funcCallHook "-^"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (op_MinusAccent x9 x10)))+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_30 x1 x3)+                           x11)))+term_strict__case_30 x1+  = DI.Term "_case_30" (DI.SrcID "Prelude" 0) x1+strict__case_32 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_32"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x7 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    O x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x2+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (Prelude.return (O x5))))+                    I x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Prelude.return (I x6))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_32 x2)+                           x7)))+term_strict__case_32 x1+  = DI.Term "_case_32" (DI.SrcID "Prelude" 0) x1+strict__case_40 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_40"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x10 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- do x4 <- Prelude.return x1+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Prelude.return (Pos x4))+                                  x6 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Zero)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Tuple2 x5 x6))))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x2+                                  x9 <- DM.funcCallHook "otherwise"+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          strict_otherwise+                                  DM.funcCallHook "_case_39"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+                                    (strict__case_39 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_40 x1 x2)+                           x10)))+term_strict__case_40 x1+  = DI.Term "_case_40" (DI.SrcID "Prelude" 0) x1+strict__case_39 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_39"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x9 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x2+                                  x8 <- do x4 <- Prelude.return x1+                                           x5 <- Prelude.return x2+                                           DM.funcCallHook "cmpNat"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (strict_cmpNat x4 x5)+                                  DM.funcCallHook "_case_38"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_38 x6 x7 x8)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_39 x1 x2)+                           x9)))+term_strict__case_39 x1+  = DI.Term "_case_39" (DI.SrcID "Prelude" 0) x1+strict__case_38 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_38"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x16 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    EQ+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- do x4 <- DM.constructorHook+                                                   (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return IHi)+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Prelude.return (Pos x4))+                                  x6 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Zero)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Tuple2 x5 x6))))+                    LT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Zero)+                                  x9 <- do x7 <- Prelude.return x1+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7]))+                                             (Prelude.return (Pos x7))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Tuple2 x8 x9))))+                    GT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x1+                                  x14 <- Prelude.return x2+                                  x15 <- do x11 <- do x10 <- Prelude.return x1+                                                      DM.funcCallHook "div2"+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x10]))+                                                        (strict_div2 x10)+                                            x12 <- Prelude.return x2+                                            DM.funcCallHook "divmodNat"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12]))+                                              (strict_divmodNat x11 x12)+                                  DM.funcCallHook "_case_37"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x13, DI.genTerm x14, DI.genTerm x15]))+                                    (strict__case_37 x13 x14 x15)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_38 x1 x2)+                           x16)))+term_strict__case_38 x1+  = DI.Term "_case_38" (DI.SrcID "Prelude" 0) x1+strict__case_37 x1 x2 x5+  = DM.eval+      (DM.funcDeclHook "_case_37"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5]))+         (do x10 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Tuple2 x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x2+                                  x8 <- Prelude.return x4+                                  x9 <- Prelude.return x3+                                  DM.funcCallHook "_case_36"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (strict__case_36 x6 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_37 x1 x2)+                           x10)))+term_strict__case_37 x1+  = DI.Term "_case_37" (DI.SrcID "Prelude" 0) x1+strict__case_36 x1 x2 x4 x3+  = DM.eval+      (DM.funcDeclHook "_case_36"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x4, DI.genTerm x3]))+         (do x22 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x22]))+               (case x22 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- do x13 <- DM.constructorHook+                                                     (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return IHi)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x13]))+                                              (Prelude.return (Pos x13))+                                  x17 <- do x14 <- Prelude.return x1+                                            x15 <- Prelude.return x2+                                            DM.funcCallHook "-^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x14, DI.genTerm x15]))+                                              (op_MinusAccent x14 x15)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17]))+                                    (Prelude.return (Tuple2 x16 x17))))+                    Pos x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- Prelude.return x1+                                  x19 <- Prelude.return x2+                                  x20 <- Prelude.return x5+                                  x21 <- Prelude.return x4+                                  DM.funcCallHook "_case_35"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20,+                                           DI.genTerm x21]))+                                    (strict__case_35 x18 x19 x20 x21)))+                    Neg x12+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x22])))+                           (strict__case_36 x1 x2 x4)+                           x22)))+term_strict__case_36 x1+  = DI.Term "_case_36" (DI.SrcID "Prelude" 0) x1+strict__case_35 x1 x2 x5 x4+  = DM.eval+      (DM.funcDeclHook "_case_35"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5, DI.genTerm x4]))+         (do x26 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x26]))+               (case x26 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- do x13 <- do x12 <- Prelude.return x5+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x12]))+                                                        (Prelude.return (O x12))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x13]))+                                              (Prelude.return (Pos x13))+                                  x16 <- do x14 <- Prelude.return x1+                                            DM.funcCallHook "mod2"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x14]))+                                              (strict_mod2 x14)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16]))+                                    (Prelude.return (Tuple2 x15 x16))))+                    Pos x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x21 <- Prelude.return x1+                                  x22 <- Prelude.return x2+                                  x23 <- Prelude.return x5+                                  x24 <- Prelude.return x6+                                  x25 <- do x19 <- do x17 <- Prelude.return x1+                                                      x18 <- Prelude.return x6+                                                      DM.funcCallHook "divmodNat.shift.523"+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x17, DI.genTerm x18]))+                                                        (x'xstrict_divmodNat46shift46523 x17 x18)+                                            x20 <- Prelude.return x2+                                            DM.funcCallHook "divmodNat"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x19, DI.genTerm x20]))+                                              (strict_divmodNat x19 x20)+                                  DM.funcCallHook "_case_34"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x21, DI.genTerm x22, DI.genTerm x23,+                                           DI.genTerm x24, DI.genTerm x25]))+                                    (strict__case_34 x21 x22 x23 x24 x25)))+                    Neg x11+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x26])))+                           (strict__case_35 x1 x2 x5)+                           x26)))+term_strict__case_35 x1+  = DI.Term "_case_35" (DI.SrcID "Prelude" 0) x1+strict__case_34 x1 x2 x5 x6 x9+  = DM.eval+      (DM.funcDeclHook "_case_34"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5, DI.genTerm x6,+                DI.genTerm x9]))+         (do x13 <- Prelude.return x9+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Tuple2 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x5+                                  x11 <- Prelude.return x8+                                  x12 <- Prelude.return x7+                                  DM.funcCallHook "_case_33"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_33 x10 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_34 x1 x2 x5 x6)+                           x13)))+term_strict__case_34 x1+  = DI.Term "_case_34" (DI.SrcID "Prelude" 0) x1+strict__case_33 x5 x8 x7+  = DM.eval+      (DM.funcDeclHook "_case_33"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x8, DI.genTerm x7]))+         (do x21 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- do x12 <- do x11 <- Prelude.return x5+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x11]))+                                                        (Prelude.return (O x11))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x12]))+                                              (Prelude.return (Pos x12))+                                  x14 <- Prelude.return x8+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14]))+                                    (Prelude.return (Tuple2 x13 x14))))+                    Pos x9+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x19 <- do x18 <- do x16 <- do x15 <- Prelude.return x5+                                                                DM.constructorHook+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x15]))+                                                                  (Prelude.return (O x15))+                                                      x17 <- Prelude.return x9+                                                      DM.funcCallHook "+^"+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x16, DI.genTerm x17]))+                                                        (op_PlusAccent x16 x17)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x18]))+                                              (Prelude.return (Pos x18))+                                  x20 <- Prelude.return x8+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x19, DI.genTerm x20]))+                                    (Prelude.return (Tuple2 x19 x20))))+                    Neg x10+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_33 x5 x8)+                           x21)))+term_strict__case_33 x1+  = DI.Term "_case_33" (DI.SrcID "Prelude" 0) x1+strict__case_41 x1+  = DM.eval+      (DM.funcDeclHook "_case_41"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return IHi)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4]))+                                    (Prelude.return (Pos x4))))+                    O x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Zero)))+                    I x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return IHi)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (Prelude.return (Pos x5))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_41+                           x6)))+term_strict__case_41 x1+  = DI.Term "_case_41" (DI.SrcID "Prelude" 0) x1+strict__case_42 x1+  = DM.eval+      (DM.funcDeclHook "_case_42"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    O x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    I x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_42+                           x4)))+term_strict__case_42 x1+  = DI.Term "_case_42" (DI.SrcID "Prelude" 0) x1+strict__case_45 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_45"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x13 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x7 <- Prelude.return x2+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7]))+                                             (Prelude.return (Neg x7))+                                  DM.funcCallHook "inc"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (strict_inc x8)))+                    O x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x3+                                  x10 <- Prelude.return x2+                                  DM.funcCallHook "_case_44"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_44 x9 x10)))+                    I x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x6+                                  x12 <- Prelude.return x2+                                  DM.funcCallHook "_case_43"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_43 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_45 x2)+                           x13)))+term_strict__case_45 x1+  = DI.Term "_case_45" (DI.SrcID "Prelude" 0) x1+strict__case_43 x6 x2+  = DM.eval+      (DM.funcDeclHook "_case_43"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x2]))+         (do x18 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x9 <- Prelude.return x6+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x9]))+                                              (Prelude.return (O x9))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10]))+                                    (Prelude.return (Pos x10))))+                    O x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- do x13 <- do x11 <- Prelude.return x6+                                                      x12 <- Prelude.return x7+                                                      DM.funcCallHook "-^"+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x11, DI.genTerm x12]))+                                                        (op_MinusAccent x11 x12)+                                            DM.funcCallHook "mult2"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x13]))+                                              (strict_mult2 x13)+                                  DM.funcCallHook "inc"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14]))+                                    (strict_inc x14)))+                    I x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- do x15 <- Prelude.return x6+                                            x16 <- Prelude.return x8+                                            DM.funcCallHook "-^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (op_MinusAccent x15 x16)+                                  DM.funcCallHook "mult2"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x17]))+                                    (strict_mult2 x17)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_43 x6)+                           x18)))+term_strict__case_43 x1+  = DI.Term "_case_43" (DI.SrcID "Prelude" 0) x1+strict__case_44 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_44"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x16 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x7 <- do x6 <- Prelude.return x3+                                                    DM.constructorHook+                                                      (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x6]))+                                                      (Prelude.return (O x6))+                                           DM.funcCallHook "pred"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7]))+                                             (strict_pred x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (Pos x8))))+                    O x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x9 <- Prelude.return x3+                                            x10 <- Prelude.return x4+                                            DM.funcCallHook "-^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (op_MinusAccent x9 x10)+                                  DM.funcCallHook "mult2"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11]))+                                    (strict_mult2 x11)))+                    I x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- do x14 <- do x12 <- Prelude.return x3+                                                      x13 <- Prelude.return x5+                                                      DM.funcCallHook "-^"+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x12, DI.genTerm x13]))+                                                        (op_MinusAccent x12 x13)+                                            DM.funcCallHook "mult2"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x14]))+                                              (strict_mult2 x14)+                                  DM.funcCallHook "dec"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x15]))+                                    (strict_dec x15)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_44 x3)+                           x16)))+term_strict__case_44 x1+  = DI.Term "_case_44" (DI.SrcID "Prelude" 0) x1+strict__case_46 x1+  = DM.eval+      (DM.funcDeclHook "_case_46"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Pos x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- do x4 <- Prelude.return x2+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Prelude.return (O x4))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (Prelude.return (Pos x5))))+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Zero)))+                    Neg x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x6 <- Prelude.return x3+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6]))+                                             (Prelude.return (O x6))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7]))+                                    (Prelude.return (Neg x7))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_46+                           x8)))+term_strict__case_46 x1+  = DI.Term "_case_46" (DI.SrcID "Prelude" 0) x1+strict__case_48 x1+  = DM.eval+      (DM.funcDeclHook "_case_48"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return IHi)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4]))+                                    (Prelude.return (Neg x4))))+                    Neg x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "succ"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_succ x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Prelude.return (Neg x6))))+                    Pos x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  DM.funcCallHook "_case_47"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7]))+                                    (strict__case_47 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_48+                           x8)))+term_strict__case_48 x1+  = DI.Term "_case_48" (DI.SrcID "Prelude" 0) x1+strict__case_47 x3+  = DM.eval+      (DM.funcDeclHook "_case_47"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3]))+         (do x11 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Zero)))+                    O x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x7 <- do x6 <- Prelude.return x4+                                                    DM.constructorHook+                                                      (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x6]))+                                                      (Prelude.return (O x6))+                                           DM.funcCallHook "pred"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7]))+                                             (strict_pred x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (Pos x8))))+                    I x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x9 <- Prelude.return x5+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x9]))+                                              (Prelude.return (O x9))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10]))+                                    (Prelude.return (Pos x10))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           strict__case_47+                           x11)))+term_strict__case_47 x1+  = DI.Term "_case_47" (DI.SrcID "Prelude" 0) x1+strict__case_50 x1+  = DM.eval+      (DM.funcDeclHook "_case_50"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return IHi)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4]))+                                    (Prelude.return (Pos x4))))+                    Pos x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "succ"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_succ x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Prelude.return (Pos x6))))+                    Neg x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  DM.funcCallHook "_case_49"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7]))+                                    (strict__case_49 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_50+                           x8)))+term_strict__case_50 x1+  = DI.Term "_case_50" (DI.SrcID "Prelude" 0) x1+strict__case_49 x3+  = DM.eval+      (DM.funcDeclHook "_case_49"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3]))+         (do x11 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Zero)))+                    O x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x7 <- do x6 <- Prelude.return x4+                                                    DM.constructorHook+                                                      (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x6]))+                                                      (Prelude.return (O x6))+                                           DM.funcCallHook "pred"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7]))+                                             (strict_pred x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (Neg x8))))+                    I x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x9 <- Prelude.return x5+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x9]))+                                              (Prelude.return (O x9))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10]))+                                    (Prelude.return (Neg x10))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           strict__case_49+                           x11)))+term_strict__case_49 x1+  = DI.Term "_case_49" (DI.SrcID "Prelude" 0) x1+strict__case_52 x1+  = DM.eval+      (DM.funcDeclHook "_case_52"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    O x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  DM.funcCallHook "_case_51"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (strict__case_51 x6)))+                    I x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x5+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7]))+                                    (Prelude.return (O x7))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_52+                           x8)))+term_strict__case_52 x1+  = DI.Term "_case_52" (DI.SrcID "Prelude" 0) x1+strict__case_51 x2+  = DM.eval+      (DM.funcDeclHook "_case_51"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2]))+         (do x9 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return IHi)))+                    O x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "pred"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_pred x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Prelude.return (I x6))))+                    I x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x7 <- Prelude.return x4+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7]))+                                             (Prelude.return (O x7))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (I x8))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_51+                           x9)))+term_strict__case_51 x1+  = DI.Term "_case_51" (DI.SrcID "Prelude" 0) x1+strict__case_53 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_53"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x13 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    I x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x7 <- do x5 <- Prelude.return x2+                                                    x6 <- Prelude.return x3+                                                    DM.funcCallHook "*^"+                                                      (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x5, DI.genTerm x6]))+                                                      (op_AsteriskAccent x5 x6)+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7]))+                                             (Prelude.return (O x7))+                                  x9 <- Prelude.return x2+                                  DM.funcCallHook "+^"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (op_PlusAccent x8 x9)))+                    O x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- do x10 <- Prelude.return x4+                                            x11 <- Prelude.return x2+                                            DM.funcCallHook "*^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (op_AsteriskAccent x10 x11)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12]))+                                    (Prelude.return (O x12))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_53 x2)+                           x13)))+term_strict__case_53 x1+  = DI.Term "_case_53" (DI.SrcID "Prelude" 0) x1+strict__case_56 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_56"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x11 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return GT)))+                    O x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  x8 <- Prelude.return x1+                                  DM.funcCallHook "_case_55"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_55 x7 x8)))+                    I x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x6+                                  x10 <- Prelude.return x1+                                  DM.funcCallHook "_case_54"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_54 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_56 x1)+                           x11)))+term_strict__case_56 x1+  = DI.Term "_case_56" (DI.SrcID "Prelude" 0) x1+strict__case_54 x6 x1+  = DM.eval+      (DM.funcDeclHook "_case_54"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x1]))+         (do x13 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return LT)))+                    I x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x7+                                  x10 <- Prelude.return x6+                                  DM.funcCallHook "cmpNatGT"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (strict_cmpNatGT x9 x10)))+                    O x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x8+                                  x12 <- Prelude.return x6+                                  DM.funcCallHook "cmpNatLT"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (strict_cmpNatLT x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_54 x6)+                           x13)))+term_strict__case_54 x1+  = DI.Term "_case_54" (DI.SrcID "Prelude" 0) x1+strict__case_55 x3 x1+  = DM.eval+      (DM.funcDeclHook "_case_55"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return LT)))+                    O x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x4+                                  x7 <- Prelude.return x3+                                  DM.funcCallHook "cmpNatGT"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict_cmpNatGT x6 x7)))+                    I x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x5+                                  x9 <- Prelude.return x3+                                  DM.funcCallHook "cmpNatGT"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (strict_cmpNatGT x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_55 x3)+                           x10)))+term_strict__case_55 x1+  = DI.Term "_case_55" (DI.SrcID "Prelude" 0) x1+strict__case_59 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_59"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x11 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return LT)))+                    O x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  x8 <- Prelude.return x2+                                  DM.funcCallHook "_case_58"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_58 x7 x8)))+                    I x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x6+                                  x10 <- Prelude.return x2+                                  DM.funcCallHook "_case_57"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_57 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_59 x2)+                           x11)))+term_strict__case_59 x1+  = DI.Term "_case_59" (DI.SrcID "Prelude" 0) x1+strict__case_57 x6 x2+  = DM.eval+      (DM.funcDeclHook "_case_57"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return GT)))+                    I x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x6+                                  x10 <- Prelude.return x7+                                  DM.funcCallHook "cmpNatLT"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (strict_cmpNatLT x9 x10)))+                    O x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x6+                                  x12 <- Prelude.return x8+                                  DM.funcCallHook "cmpNatGT"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (strict_cmpNatGT x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_57 x6)+                           x13)))+term_strict__case_57 x1+  = DI.Term "_case_57" (DI.SrcID "Prelude" 0) x1+strict__case_58 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_58"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x10 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return GT)))+                    O x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x3+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "cmpNatLT"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict_cmpNatLT x6 x7)))+                    I x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  x9 <- Prelude.return x5+                                  DM.funcCallHook "cmpNatLT"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (strict_cmpNatLT x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_58 x3)+                           x10)))+term_strict__case_58 x1+  = DI.Term "_case_58" (DI.SrcID "Prelude" 0) x1+strict__case_63 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_63"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x14 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x2+                                  DM.funcCallHook "_case_62"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9]))+                                    (strict__case_62 x9)))+                    O x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x5+                                  x11 <- Prelude.return x2+                                  DM.funcCallHook "_case_61"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (strict__case_61 x10 x11)))+                    I x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x8+                                  x13 <- Prelude.return x2+                                  DM.funcCallHook "_case_60"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (strict__case_60 x12 x13)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_63 x2)+                           x14)))+term_strict__case_63 x1+  = DI.Term "_case_63" (DI.SrcID "Prelude" 0) x1+strict__case_60 x8 x2+  = DM.eval+      (DM.funcDeclHook "_case_60"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x2]))+         (do x15 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return GT)))+                    I x9+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x8+                                  x12 <- Prelude.return x9+                                  DM.funcCallHook "cmpNat"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (strict_cmpNat x11 x12)))+                    O x10+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x8+                                  x14 <- Prelude.return x10+                                  DM.funcCallHook "cmpNatGT"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14]))+                                    (strict_cmpNatGT x13 x14)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_60 x8)+                           x15)))+term_strict__case_60 x1+  = DI.Term "_case_60" (DI.SrcID "Prelude" 0) x1+strict__case_61 x5 x2+  = DM.eval+      (DM.funcDeclHook "_case_61"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x2]))+         (do x12 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return GT)))+                    O x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x5+                                  x9 <- Prelude.return x6+                                  DM.funcCallHook "cmpNat"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (strict_cmpNat x8 x9)))+                    I x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x5+                                  x11 <- Prelude.return x7+                                  DM.funcCallHook "cmpNatLT"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (strict_cmpNatLT x10 x11)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_61 x5)+                           x12)))+term_strict__case_61 x1+  = DI.Term "_case_61" (DI.SrcID "Prelude" 0) x1+strict__case_62 x2+  = DM.eval+      (DM.funcDeclHook "_case_62"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2]))+         (do x5 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return EQ)))+                    O x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return LT)))+                    I x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return LT)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           strict__case_62+                           x5)))+term_strict__case_62 x1+  = DI.Term "_case_62" (DI.SrcID "Prelude" 0) x1+strict__case_66 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_66"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x12 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    O x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  x8 <- Prelude.return x2+                                  DM.funcCallHook "_case_65"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_65 x7 x8)))+                    I x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x6+                                  x10 <- Prelude.return x2+                                  DM.funcCallHook "_case_64"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_64 x9 x10)))+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x2+                                  DM.funcCallHook "succ"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11]))+                                    (strict_succ x11)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_66 x2)+                           x12)))+term_strict__case_66 x1+  = DI.Term "_case_66" (DI.SrcID "Prelude" 0) x1+strict__case_64 x6 x2+  = DM.eval+      (DM.funcDeclHook "_case_64"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x2]))+         (do x18 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    O x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x9 <- Prelude.return x6+                                            x10 <- Prelude.return x7+                                            DM.funcCallHook "+^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (op_PlusAccent x9 x10)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11]))+                                    (Prelude.return (I x11))))+                    I x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- do x13 <- do x12 <- Prelude.return x6+                                                      DM.funcCallHook "succ"+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x12]))+                                                        (strict_succ x12)+                                            x14 <- Prelude.return x8+                                            DM.funcCallHook "+^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x13, DI.genTerm x14]))+                                              (op_PlusAccent x13 x14)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x15]))+                                    (Prelude.return (O x15))))+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- do x16 <- Prelude.return x6+                                            DM.funcCallHook "succ"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x16]))+                                              (strict_succ x16)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x17]))+                                    (Prelude.return (O x17))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_64 x6)+                           x18)))+term_strict__case_64 x1+  = DI.Term "_case_64" (DI.SrcID "Prelude" 0) x1+strict__case_65 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_65"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    O x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x6 <- Prelude.return x3+                                           x7 <- Prelude.return x4+                                           DM.funcCallHook "+^"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (op_PlusAccent x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (O x8))))+                    I x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x9 <- Prelude.return x3+                                            x10 <- Prelude.return x5+                                            DM.funcCallHook "+^"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (op_PlusAccent x9 x10)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11]))+                                    (Prelude.return (I x11))))+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x3+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12]))+                                    (Prelude.return (I x12))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_65 x3)+                           x13)))+term_strict__case_65 x1+  = DI.Term "_case_65" (DI.SrcID "Prelude" 0) x1+strict__case_67 x1+  = DM.eval+      (DM.funcDeclHook "_case_67"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    O x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x2+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4]))+                                    (Prelude.return (I x4))))+                    I x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x5 <- Prelude.return x3+                                           DM.funcCallHook "succ"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_succ x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Prelude.return (O x6))))+                    IHi+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return IHi)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7]))+                                    (Prelude.return (O x7))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_67+                           x8)))+term_strict__case_67 x1+  = DI.Term "_case_67" (DI.SrcID "Prelude" 0) x1+strict__case_69 x1 x2 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_69"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+                DI.genTerm x5]))+         (do x11 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x4+                                  x7 <- Prelude.return x1+                                  DM.funcCallHook "<="+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (op_LtEq x6 x7)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x1+                                  x9 <- Prelude.return x4+                                  x10 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                              (DI.DynamicInfo [] []))+                                           strict_otherwise+                                  DM.funcCallHook "_case_68"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_68 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_69 x1 x2 x3 x4)+                           x11)))+term_strict__case_69 x1+  = DI.Term "_case_69" (DI.SrcID "Prelude" 0) x1+strict__case_68 x1 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_68"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5]))+         (do x8 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x4+                                  x7 <- Prelude.return x1+                                  DM.funcCallHook ">="+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (op_GtEq x6 x7)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_68 x1 x4)+                           x8)))+term_strict__case_68 x1+  = DI.Term "_case_68" (DI.SrcID "Prelude" 0) x1+strict__case_70 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_70"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x10 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x1+                                  x9 <- do x6 <- do x4 <- Prelude.return x1+                                                    x5 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return (Pos IHi))+                                                    DM.funcCallHook "+"+                                                      (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x4, DI.genTerm x5]))+                                                      (op_Plus x4 x5)+                                           x7 <- Prelude.return x2+                                           DM.funcCallHook "enumFromTo"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (strict_enumFromTo x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Cons x8 x9))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_70 x1 x2)+                           x10)))+term_strict__case_70 x1+  = DI.Term "_case_70" (DI.SrcID "Prelude" 0) x1+strict__case_74 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_74"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nothing)))+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- Prelude.return x4+                                  x7 <- Prelude.return x3+                                  DM.funcCallHook "_case_73"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_73 x5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_74 x1)+                           x8)))+term_strict__case_74 x1+  = DI.Term "_case_74" (DI.SrcID "Prelude" 0) x1+strict__case_73 x1 x4 x3+  = DM.eval+      (DM.funcDeclHook "_case_73"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x4, DI.genTerm x3]))+         (do x14 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Tuple2 x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- Prelude.return x4+                                  x11 <- Prelude.return x5+                                  x12 <- Prelude.return x6+                                  x13 <- do x7 <- Prelude.return x1+                                            x8 <- Prelude.return x5+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (op_EqEq x7 x8)+                                  DM.funcCallHook "_case_72"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11,+                                           DI.genTerm x12, DI.genTerm x13]))+                                    (strict__case_72 x9 x10 x11 x12 x13)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_73 x1 x4)+                           x14)))+term_strict__case_73 x1+  = DI.Term "_case_73" (DI.SrcID "Prelude" 0) x1+strict__case_72 x1 x4 x5 x6 x7+  = DM.eval+      (DM.funcDeclHook "_case_72"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6,+                DI.genTerm x7]))+         (do x12 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x6+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (Just x8))))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- Prelude.return x4+                                  x11 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                              (DI.DynamicInfo [] []))+                                           strict_otherwise+                                  DM.funcCallHook "_case_71"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11]))+                                    (strict__case_71 x9 x10 x11)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_72 x1 x4 x5 x6)+                           x12)))+term_strict__case_72 x1+  = DI.Term "_case_72" (DI.SrcID "Prelude" 0) x1+strict__case_71 x1 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_71"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5]))+         (do x8 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "lookup"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict_lookup x6 x7)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_71 x1 x4)+                           x8)))+term_strict__case_71 x1+  = DI.Term "_case_71" (DI.SrcID "Prelude" 0) x1+strict__case_75 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_75"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- Prelude.return+                                          (PC.partCall2 (x'xterm_strict_unwords46_35lambda6 [])+                                             x'xstrict_unwords46_35lambda6)+                                  x4 <- Prelude.return x1+                                  DM.funcCallHook "foldr1"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                    (strict_foldr1 x3 x4)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           (strict__case_75 x1)+                           x5)))+term_strict__case_75 x1+  = DI.Term "_case_75" (DI.SrcID "Prelude" 0) x1+strict__case_76 x1+  = DM.eval+      (DM.funcDeclHook "_case_76"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_76+                           x4)))+term_strict__case_76 x1+  = DI.Term "_case_76" (DI.SrcID "Prelude" 0) x1+strict__case_77 x1+  = DM.eval+      (DM.funcDeclHook "_case_77"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_77+                           x4)))+term_strict__case_77 x1+  = DI.Term "_case_77" (DI.SrcID "Prelude" 0) x1+strict__case_78 x2 x6+  = DM.eval+      (DM.funcDeclHook "_case_78"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x6]))+         (do x15 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x3 <- do x8 <- do x7 <- Prelude.return+                                                               (PC.partCall1+                                                                  (x'xterm_strict_words46isSpace46326+                                                                     [])+                                                                  x'xstrict_words46isSpace46326)+                                                       DM.funcCallHook "break"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x7]))+                                                         (strict_break x7)+                                              x9 <- Prelude.return x2+                                              DM.funcCallHook "apply"+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x8, DI.genTerm x9]))+                                                (strict_apply x8 x9)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x4 <- do x10 <- Prelude.return x3+                                                       DM.funcCallHook "words._#selFP22#w"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x10]))+                                                         (x'xstrict_words46_35selFP2235w x10)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x5 <- do x11 <- Prelude.return x3+                                                                DM.funcCallHook "words._#selFP23#s2"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11]))+                                                                  (x'xstrict_words46_35selFP2335s2+                                                                     x11)+                                                       DM.eval+                                                         (do x13 <- Prelude.return x4+                                                             x14 <- do x12 <- Prelude.return x5+                                                                       DM.funcCallHook "words"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x12]))+                                                                         (strict_words x12)+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x13,+                                                                      DI.genTerm x14]))+                                                               (Prelude.return+                                                                  (Cons x13 x14))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_78 x2)+                           x15)))+term_strict__case_78 x1+  = DI.Term "_case_78" (DI.SrcID "Prelude" 0) x1+strict__case_79 x1+  = DM.eval+      (DM.funcDeclHook "_case_79"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_79+                           x4)))+term_strict__case_79 x1+  = DI.Term "_case_79" (DI.SrcID "Prelude" 0) x1+strict__case_80 x1+  = DM.eval+      (DM.funcDeclHook "_case_80"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_80+                           x4)))+term_strict__case_80 x1+  = DI.Term "_case_80" (DI.SrcID "Prelude" 0) x1+strict__case_81 x1+  = DM.eval+      (DM.funcDeclHook "_case_81"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_81+                           x4)))+term_strict__case_81 x1+  = DI.Term "_case_81" (DI.SrcID "Prelude" 0) x1+strict__case_82 x1+  = DM.eval+      (DM.funcDeclHook "_case_82"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_82+                           x4)))+term_strict__case_82 x1+  = DI.Term "_case_82" (DI.SrcID "Prelude" 0) x1+strict__case_84 x1+  = DM.eval+      (DM.funcDeclHook "_case_84"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x11 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Prelude.return (Tuple2 x4 x5))))+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x2+                                  x9 <- Prelude.return x3+                                  x10 <- do x6 <- Prelude.return x2+                                            x7 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return (Char '\n'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (op_EqEq x6 x7)+                                  DM.funcCallHook "_case_83"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_83 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           strict__case_84+                           x11)))+term_strict__case_84 x1+  = DI.Term "_case_84" (DI.SrcID "Prelude" 0) x1+strict__case_83 x2 x3 x7+  = DM.eval+      (DM.funcDeclHook "_case_83"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x7]))+         (do x17 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x17]))+               (case x17 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  x9 <- Prelude.return x3+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Tuple2 x8 x9))))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x4 <- do x10 <- Prelude.return x3+                                              DM.funcCallHook "lines.splitline.314"+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x10]))+                                                (x'xstrict_lines46splitline46314 x10)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x5 <- do x11 <- Prelude.return x4+                                                       DM.funcCallHook+                                                         "lines.splitline.314._#selFP16#ds"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x11]))+                                                         (x'xstrict_lines46splitline4631446_35selFP1635ds+                                                            x11)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x6 <- do x12 <- Prelude.return x4+                                                                DM.funcCallHook+                                                                  "lines.splitline.314._#selFP17#es"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12]))+                                                                  (x'xstrict_lines46splitline4631446_35selFP1735es+                                                                     x12)+                                                       DM.eval+                                                         (do x15 <- do x13 <- Prelude.return x2+                                                                       x14 <- Prelude.return x5+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x13,+                                                                                DI.genTerm x14]))+                                                                         (Prelude.return+                                                                            (Cons x13 x14))+                                                             x16 <- Prelude.return x6+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x15,+                                                                      DI.genTerm x16]))+                                                               (Prelude.return+                                                                  (Tuple2 x15 x16))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x17])))+                           (strict__case_83 x2 x3)+                           x17)))+term_strict__case_83 x1+  = DI.Term "_case_83" (DI.SrcID "Prelude" 0) x1+strict__case_85 x1+  = DM.eval+      (DM.funcDeclHook "_case_85"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x15 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x4 <- do x9 <- do x7 <- Prelude.return x2+                                                       x8 <- Prelude.return x3+                                                       DM.constructorHook+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo []+                                                               [DI.genTerm x7, DI.genTerm x8]))+                                                         (Prelude.return (Cons x7 x8))+                                              DM.funcCallHook "lines.splitline.314"+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x9]))+                                                (x'xstrict_lines46splitline46314 x9)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x5 <- do x10 <- Prelude.return x4+                                                       DM.funcCallHook "lines._#selFP19#l"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x10]))+                                                         (x'xstrict_lines46_35selFP1935l x10)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x6 <- do x11 <- Prelude.return x4+                                                                DM.funcCallHook+                                                                  "lines._#selFP20#xs_l"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11]))+                                                                  (x'xstrict_lines46_35selFP2035xs_l+                                                                     x11)+                                                       DM.eval+                                                         (do x13 <- Prelude.return x5+                                                             x14 <- do x12 <- Prelude.return x6+                                                                       DM.funcCallHook "lines"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x12]))+                                                                         (strict_lines x12)+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x13,+                                                                      DI.genTerm x14]))+                                                               (Prelude.return+                                                                  (Cons x13 x14))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           strict__case_85+                           x15)))+term_strict__case_85 x1+  = DI.Term "_case_85" (DI.SrcID "Prelude" 0) x1+strict__case_86 x1+  = DM.eval+      (DM.funcDeclHook "_case_86"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_86+                           x4)))+term_strict__case_86 x1+  = DI.Term "_case_86" (DI.SrcID "Prelude" 0) x1+strict__case_87 x1+  = DM.eval+      (DM.funcDeclHook "_case_87"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_87+                           x4)))+term_strict__case_87 x1+  = DI.Term "_case_87" (DI.SrcID "Prelude" 0) x1+strict__case_90 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_90"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  x6 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Tuple2 x5 x6))))+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- Prelude.return x3+                                  x11 <- Prelude.return x4+                                  x12 <- do x7 <- Prelude.return x1+                                            x8 <- Prelude.return x3+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (strict_apply x7 x8)+                                  DM.funcCallHook "_case_89"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11,+                                           DI.genTerm x12]))+                                    (strict__case_89 x9 x10 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_90 x1)+                           x13)))+term_strict__case_90 x1+  = DI.Term "_case_90" (DI.SrcID "Prelude" 0) x1+strict__case_89 x1 x3 x4 x8+  = DM.eval+      (DM.funcDeclHook "_case_89"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x8]))+         (do x20 <- Prelude.return x8+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x5 <- do x9 <- Prelude.return x1+                                              x10 <- Prelude.return x4+                                              DM.funcCallHook "span"+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x9, DI.genTerm x10]))+                                                (strict_span x9 x10)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x6 <- do x11 <- Prelude.return x5+                                                       DM.funcCallHook "span._#selFP13#ys"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x11]))+                                                         (x'xstrict_span46_35selFP1335ys x11)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x7 <- do x12 <- Prelude.return x5+                                                                DM.funcCallHook "span._#selFP14#zs"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12]))+                                                                  (x'xstrict_span46_35selFP1435zs+                                                                     x12)+                                                       DM.eval+                                                         (do x15 <- do x13 <- Prelude.return x3+                                                                       x14 <- Prelude.return x6+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x13,+                                                                                DI.genTerm x14]))+                                                                         (Prelude.return+                                                                            (Cons x13 x14))+                                                             x16 <- Prelude.return x7+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x15,+                                                                      DI.genTerm x16]))+                                                               (Prelude.return+                                                                  (Tuple2 x15 x16))))))))))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- Prelude.return x3+                                  x18 <- Prelude.return x4+                                  x19 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                              (DI.DynamicInfo [] []))+                                           strict_otherwise+                                  DM.funcCallHook "_case_88"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19]))+                                    (strict__case_88 x17 x18 x19)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_89 x1 x3 x4)+                           x20)))+term_strict__case_89 x1+  = DI.Term "_case_89" (DI.SrcID "Prelude" 0) x1+strict__case_88 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_88"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x10 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  x9 <- do x6 <- Prelude.return x3+                                           x7 <- Prelude.return x4+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (Prelude.return (Cons x6 x7))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Tuple2 x8 x9))))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_88 x3 x4)+                           x10)))+term_strict__case_88 x1+  = DI.Term "_case_88" (DI.SrcID "Prelude" 0) x1+strict__case_92 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_92"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x11 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x3+                                  x9 <- Prelude.return x4+                                  x10 <- do x5 <- Prelude.return x1+                                            x6 <- Prelude.return x3+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                              (strict_apply x5 x6)+                                  DM.funcCallHook "_case_91"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9,+                                           DI.genTerm x10]))+                                    (strict__case_91 x7 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_92 x1)+                           x11)))+term_strict__case_92 x1+  = DI.Term "_case_92" (DI.SrcID "Prelude" 0) x1+strict__case_91 x1 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_91"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x10 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "dropWhile"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict_dropWhile x6 x7)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  x9 <- Prelude.return x4+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Cons x8 x9))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_91 x1 x3 x4)+                           x10)))+term_strict__case_91 x1+  = DI.Term "_case_91" (DI.SrcID "Prelude" 0) x1+strict__case_94 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_94"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x11 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x3+                                  x9 <- Prelude.return x4+                                  x10 <- do x5 <- Prelude.return x1+                                            x6 <- Prelude.return x3+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                              (strict_apply x5 x6)+                                  DM.funcCallHook "_case_93"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9,+                                           DI.genTerm x10]))+                                    (strict__case_93 x7 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_94 x1)+                           x11)))+term_strict__case_94 x1+  = DI.Term "_case_94" (DI.SrcID "Prelude" 0) x1+strict__case_93 x1 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_93"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x10 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  x9 <- do x6 <- Prelude.return x1+                                           x7 <- Prelude.return x4+                                           DM.funcCallHook "takeWhile"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (strict_takeWhile x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Cons x8 x9))))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_93 x1 x3 x4)+                           x10)))+term_strict__case_93 x1+  = DI.Term "_case_93" (DI.SrcID "Prelude" 0) x1+strict__case_95 x1+  = DM.eval+      (DM.funcDeclHook "_case_95"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_95+                           x4)))+term_strict__case_95 x1+  = DI.Term "_case_95" (DI.SrcID "Prelude" 0) x1+strict__case_96 x1+  = DM.eval+      (DM.funcDeclHook "_case_96"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_96+                           x4)))+term_strict__case_96 x1+  = DI.Term "_case_96" (DI.SrcID "Prelude" 0) x1+strict__case_97 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_97"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x20 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  x9 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Tuple2 x8 x9))))+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x5 <- do x12 <- do x10 <- Prelude.return x1+                                                        x11 <- DM.litHook+                                                                 (DI.DebugInfo+                                                                    (DI.SrcID "Prelude" 0)+                                                                    (DI.DynamicInfo [] []))+                                                                 (Prelude.return (Pos IHi))+                                                        DM.funcCallHook "-"+                                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x10, DI.genTerm x11]))+                                                          (op_Minus x10 x11)+                                              x13 <- Prelude.return x4+                                              DM.funcCallHook "splitAt"+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x12, DI.genTerm x13]))+                                                (strict_splitAt x12 x13)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x6 <- do x14 <- Prelude.return x5+                                                       DM.funcCallHook+                                                         "splitAt.splitAtp.282._#selFP10#ys"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x14]))+                                                         (x'xstrict_splitAt46splitAtp4628246_35selFP1035ys+                                                            x14)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x7 <- do x15 <- Prelude.return x5+                                                                DM.funcCallHook+                                                                  "splitAt.splitAtp.282._#selFP11#zs"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x15]))+                                                                  (x'xstrict_splitAt46splitAtp4628246_35selFP1135zs+                                                                     x15)+                                                       DM.eval+                                                         (do x18 <- do x16 <- Prelude.return x3+                                                                       x17 <- Prelude.return x6+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x16,+                                                                                DI.genTerm x17]))+                                                                         (Prelude.return+                                                                            (Cons x16 x17))+                                                             x19 <- Prelude.return x7+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x18,+                                                                      DI.genTerm x19]))+                                                               (Prelude.return+                                                                  (Tuple2 x18 x19))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_97 x1)+                           x20)))+term_strict__case_97 x1+  = DI.Term "_case_97" (DI.SrcID "Prelude" 0) x1+strict__case_98 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_98"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x8 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  x5 <- Prelude.return x2+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Prelude.return (Tuple2 x4 x5))))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x2+                                  DM.funcCallHook "splitAt.splitAtp.282"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (x'xstrict_splitAt46splitAtp46282 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_98 x1 x2)+                           x8)))+term_strict__case_98 x1+  = DI.Term "_case_98" (DI.SrcID "Prelude" 0) x1+strict__case_99 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_99"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x9 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x5 <- Prelude.return x1+                                           x6 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return (Pos IHi))+                                           DM.funcCallHook "-"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (op_Minus x5 x6)+                                  x8 <- Prelude.return x4+                                  DM.funcCallHook "drop"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (strict_drop x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_99 x1)+                           x9)))+term_strict__case_99 x1+  = DI.Term "_case_99" (DI.SrcID "Prelude" 0) x1+strict__case_100 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_100"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x1+                                  x5 <- Prelude.return x2+                                  DM.funcCallHook "drop.dropp.272"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (x'xstrict_drop46dropp46272 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           (strict__case_100 x1 x2)+                           x6)))+term_strict__case_100 x1+  = DI.Term "_case_100" (DI.SrcID "Prelude" 0) x1+strict__case_102 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_102"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x7 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Neg x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Pos x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x4+                                  x6 <- Prelude.return x2+                                  DM.funcCallHook "_case_101"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (strict__case_101 x5 x6)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_102 x2)+                           x7)))+term_strict__case_102 x1+  = DI.Term "_case_102" (DI.SrcID "Prelude" 0) x1+strict__case_101 x4 x2+  = DM.eval+      (DM.funcDeclHook "_case_101"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x2]))+         (do x14 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x5+                                  x13 <- do x10 <- do x8 <- do x7 <- Prelude.return x4+                                                               DM.constructorHook+                                                                 (DI.DebugInfo+                                                                    (DI.SrcID "Prelude" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x7]))+                                                                 (Prelude.return (Pos x7))+                                                      x9 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return (Pos IHi))+                                                      DM.funcCallHook "-"+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x8, DI.genTerm x9]))+                                                        (op_Minus x8 x9)+                                            x11 <- Prelude.return x6+                                            DM.funcCallHook "take"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (strict_take x10 x11)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (Prelude.return (Cons x12 x13))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_101 x4)+                           x14)))+term_strict__case_101 x1+  = DI.Term "_case_101" (DI.SrcID "Prelude" 0) x1+strict__case_103 x1+  = DM.eval+      (DM.funcDeclHook "_case_103"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    Tuple3 x2 x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x4))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           strict__case_103+                           x5)))+term_strict__case_103 x1+  = DI.Term "_case_103" (DI.SrcID "Prelude" 0) x1+strict__case_104 x1+  = DM.eval+      (DM.funcDeclHook "_case_104"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    Tuple3 x2 x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           strict__case_104+                           x5)))+term_strict__case_104 x1+  = DI.Term "_case_104" (DI.SrcID "Prelude" 0) x1+strict__case_105 x1+  = DM.eval+      (DM.funcDeclHook "_case_105"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    Tuple3 x2 x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           strict__case_105+                           x5)))+term_strict__case_105 x1+  = DI.Term "_case_105" (DI.SrcID "Prelude" 0) x1+strict__case_107 x1+  = DM.eval+      (DM.funcDeclHook "_case_107"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  x6 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Tuple3 x4 x5 x6))))+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  x8 <- Prelude.return x2+                                  DM.funcCallHook "_case_106"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_106 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_107+                           x9)))+term_strict__case_107 x1+  = DI.Term "_case_107" (DI.SrcID "Prelude" 0) x1+strict__case_106 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_106"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x24 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x24]))+               (case x24 of+                    Tuple3 x4 x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x7 <- do x11 <- Prelude.return x3+                                              DM.funcCallHook "unzip3"+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x11]))+                                                (strict_unzip3 x11)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x8 <- do x12 <- Prelude.return x7+                                                       DM.funcCallHook "unzip3._#selFP6#xs"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x12]))+                                                         (x'xstrict_unzip346_35selFP635xs x12)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x9 <- do x13 <- Prelude.return x7+                                                                DM.funcCallHook "unzip3._#selFP7#ys"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x13]))+                                                                  (x'xstrict_unzip346_35selFP735ys+                                                                     x13)+                                                       DM.eval+                                                         (DM.letHook+                                                            (DI.DebugInfo+                                                               (DI.SrcID "DummyModule" 42)+                                                               (DI.DynamicInfo [] []))+                                                            (do x10 <- do x14 <- Prelude.return x7+                                                                          DM.funcCallHook+                                                                            "unzip3._#selFP8#zs"+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Prelude"+                                                                                  0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x14]))+                                                                            (x'xstrict_unzip346_35selFP835zs+                                                                               x14)+                                                                DM.eval+                                                                  (do x21 <- do x15 <- Prelude.return+                                                                                         x4+                                                                                x16 <- Prelude.return+                                                                                         x8+                                                                                DM.constructorHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID+                                                                                        "Prelude"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        [DI.genTerm+                                                                                           x15,+                                                                                         DI.genTerm+                                                                                           x16]))+                                                                                  (Prelude.return+                                                                                     (Cons x15 x16))+                                                                      x22 <- do x17 <- Prelude.return+                                                                                         x5+                                                                                x18 <- Prelude.return+                                                                                         x9+                                                                                DM.constructorHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID+                                                                                        "Prelude"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        [DI.genTerm+                                                                                           x17,+                                                                                         DI.genTerm+                                                                                           x18]))+                                                                                  (Prelude.return+                                                                                     (Cons x17 x18))+                                                                      x23 <- do x19 <- Prelude.return+                                                                                         x6+                                                                                x20 <- Prelude.return+                                                                                         x10+                                                                                DM.constructorHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID+                                                                                        "Prelude"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        [DI.genTerm+                                                                                           x19,+                                                                                         DI.genTerm+                                                                                           x20]))+                                                                                  (Prelude.return+                                                                                     (Cons x19 x20))+                                                                      DM.constructorHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "Prelude" 0)+                                                                           (DI.DynamicInfo []+                                                                              [DI.genTerm x21,+                                                                               DI.genTerm x22,+                                                                               DI.genTerm x23]))+                                                                        (Prelude.return+                                                                           (Tuple3 x21 x22+                                                                              x23))))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x24])))+                           (strict__case_106 x3)+                           x24)))+term_strict__case_106 x1+  = DI.Term "_case_106" (DI.SrcID "Prelude" 0) x1+strict__case_108 x1+  = DM.eval+      (DM.funcDeclHook "_case_108"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_108+                           x4)))+term_strict__case_108 x1+  = DI.Term "_case_108" (DI.SrcID "Prelude" 0) x1+strict__case_109 x1+  = DM.eval+      (DM.funcDeclHook "_case_109"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_109+                           x4)))+term_strict__case_109 x1+  = DI.Term "_case_109" (DI.SrcID "Prelude" 0) x1+strict__case_111 x1+  = DM.eval+      (DM.funcDeclHook "_case_111"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Prelude.return (Tuple2 x4 x5))))+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x3+                                  x7 <- Prelude.return x2+                                  DM.funcCallHook "_case_110"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_110 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_111+                           x8)))+term_strict__case_111 x1+  = DI.Term "_case_111" (DI.SrcID "Prelude" 0) x1+strict__case_110 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_110"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x18 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Tuple2 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x6 <- do x9 <- Prelude.return x3+                                              DM.funcCallHook "unzip"+                                                (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x9]))+                                                (strict_unzip x9)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x7 <- do x10 <- Prelude.return x6+                                                       DM.funcCallHook "unzip._#selFP3#xs"+                                                         (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x10]))+                                                         (x'xstrict_unzip46_35selFP335xs x10)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x8 <- do x11 <- Prelude.return x6+                                                                DM.funcCallHook "unzip._#selFP4#ys"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11]))+                                                                  (x'xstrict_unzip46_35selFP435ys+                                                                     x11)+                                                       DM.eval+                                                         (do x16 <- do x12 <- Prelude.return x4+                                                                       x13 <- Prelude.return x7+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x12,+                                                                                DI.genTerm x13]))+                                                                         (Prelude.return+                                                                            (Cons x12 x13))+                                                             x17 <- do x14 <- Prelude.return x5+                                                                       x15 <- Prelude.return x8+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Prelude" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x14,+                                                                                DI.genTerm x15]))+                                                                         (Prelude.return+                                                                            (Cons x14 x15))+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x16,+                                                                      DI.genTerm x17]))+                                                               (Prelude.return+                                                                  (Tuple2 x16 x17))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_110 x3)+                           x18)))+term_strict__case_110 x1+  = DI.Term "_case_110" (DI.SrcID "Prelude" 0) x1+strict__case_114 x1 x3 x4 x2+  = DM.eval+      (DM.funcDeclHook "_case_114"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x2]))+         (do x12 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x4+                                  x9 <- Prelude.return x5+                                  x10 <- Prelude.return x6+                                  x11 <- Prelude.return x3+                                  DM.funcCallHook "_case_113"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9,+                                           DI.genTerm x10, DI.genTerm x11]))+                                    (strict__case_113 x7 x8 x9 x10 x11)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_114 x1 x3 x4)+                           x12)))+term_strict__case_114 x1+  = DI.Term "_case_114" (DI.SrcID "Prelude" 0) x1+strict__case_113 x1 x4 x5 x6 x3+  = DM.eval+      (DM.funcDeclHook "_case_113"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6,+                DI.genTerm x3]))+         (do x15 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- Prelude.return x5+                                  x11 <- Prelude.return x6+                                  x12 <- Prelude.return x7+                                  x13 <- Prelude.return x8+                                  x14 <- Prelude.return x4+                                  DM.funcCallHook "_case_112"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11,+                                           DI.genTerm x12, DI.genTerm x13, DI.genTerm x14]))+                                    (strict__case_112 x9 x10 x11 x12 x13 x14)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_113 x1 x4 x5 x6)+                           x15)))+term_strict__case_113 x1+  = DI.Term "_case_113" (DI.SrcID "Prelude" 0) x1+strict__case_112 x1 x5 x6 x7 x8 x4+  = DM.eval+      (DM.funcDeclHook "_case_112"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x5, DI.genTerm x6, DI.genTerm x7,+                DI.genTerm x8, DI.genTerm x4]))+         (do x23 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x23]))+               (case x23 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x9 x10+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x21 <- do x15 <- do x13 <- do x11 <- Prelude.return x1+                                                                x12 <- Prelude.return x5+                                                                DM.funcCallHook "apply"+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "Prelude" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (strict_apply x11 x12)+                                                      x14 <- Prelude.return x7+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (strict_apply x13 x14)+                                            x16 <- Prelude.return x9+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (strict_apply x15 x16)+                                  x22 <- do x17 <- Prelude.return x1+                                            x18 <- Prelude.return x6+                                            x19 <- Prelude.return x8+                                            x20 <- Prelude.return x10+                                            DM.funcCallHook "zipWith3"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19,+                                                     DI.genTerm x20]))+                                              (strict_zipWith3 x17 x18 x19 x20)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x21, DI.genTerm x22]))+                                    (Prelude.return (Cons x21 x22))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x23])))+                           (strict__case_112 x1 x5 x6 x7 x8)+                           x23)))+term_strict__case_112 x1+  = DI.Term "_case_112" (DI.SrcID "Prelude" 0) x1+strict__case_116 x1 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_116"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x2]))+         (do x10 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x4+                                  x8 <- Prelude.return x5+                                  x9 <- Prelude.return x3+                                  DM.funcCallHook "_case_115"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (strict__case_115 x6 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_116 x1 x3)+                           x10)))+term_strict__case_116 x1+  = DI.Term "_case_116" (DI.SrcID "Prelude" 0) x1+strict__case_115 x1 x4 x5 x3+  = DM.eval+      (DM.funcDeclHook "_case_115"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x3]))+         (do x17 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x17]))+               (case x17 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- do x10 <- do x8 <- Prelude.return x1+                                                      x9 <- Prelude.return x4+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x8, DI.genTerm x9]))+                                                        (strict_apply x8 x9)+                                            x11 <- Prelude.return x6+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (strict_apply x10 x11)+                                  x16 <- do x12 <- Prelude.return x1+                                            x13 <- Prelude.return x5+                                            x14 <- Prelude.return x7+                                            DM.funcCallHook "zipWith"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x12, DI.genTerm x13,+                                                     DI.genTerm x14]))+                                              (strict_zipWith x12 x13 x14)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16]))+                                    (Prelude.return (Cons x15 x16))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x17])))+                           (strict__case_115 x1 x4 x5)+                           x17)))+term_strict__case_115 x1+  = DI.Term "_case_115" (DI.SrcID "Prelude" 0) x1+strict__case_119 x2 x3 x1+  = DM.eval+      (DM.funcDeclHook "_case_119"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x3+                                  x7 <- Prelude.return x4+                                  x8 <- Prelude.return x5+                                  x9 <- Prelude.return x2+                                  DM.funcCallHook "_case_118"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (strict__case_118 x6 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_119 x2 x3)+                           x10)))+term_strict__case_119 x1+  = DI.Term "_case_119" (DI.SrcID "Prelude" 0) x1+strict__case_118 x3 x4 x5 x2+  = DM.eval+      (DM.funcDeclHook "_case_118"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x4+                                  x9 <- Prelude.return x5+                                  x10 <- Prelude.return x6+                                  x11 <- Prelude.return x7+                                  x12 <- Prelude.return x3+                                  DM.funcCallHook "_case_117"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                                           DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_117 x8 x9 x10 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_118 x3 x4 x5)+                           x13)))+term_strict__case_118 x1+  = DI.Term "_case_118" (DI.SrcID "Prelude" 0) x1+strict__case_117 x4 x5 x6 x7 x3+  = DM.eval+      (DM.funcDeclHook "_case_117"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6, DI.genTerm x7,+                DI.genTerm x3]))+         (do x18 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x8 x9+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- do x10 <- Prelude.return x4+                                            x11 <- Prelude.return x6+                                            x12 <- Prelude.return x8+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11,+                                                     DI.genTerm x12]))+                                              (Prelude.return (Tuple3 x10 x11 x12))+                                  x17 <- do x13 <- Prelude.return x5+                                            x14 <- Prelude.return x7+                                            x15 <- Prelude.return x9+                                            DM.funcCallHook "zip3"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x13, DI.genTerm x14,+                                                     DI.genTerm x15]))+                                              (strict_zip3 x13 x14 x15)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17]))+                                    (Prelude.return (Cons x16 x17))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_117 x4 x5 x6 x7)+                           x18)))+term_strict__case_117 x1+  = DI.Term "_case_117" (DI.SrcID "Prelude" 0) x1+strict__case_121 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_121"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x3+                                  x6 <- Prelude.return x4+                                  x7 <- Prelude.return x2+                                  DM.funcCallHook "_case_120"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_120 x5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_121 x2)+                           x8)))+term_strict__case_121 x1+  = DI.Term "_case_121" (DI.SrcID "Prelude" 0) x1+strict__case_120 x3 x4 x2+  = DM.eval+      (DM.funcDeclHook "_case_120"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x7 <- Prelude.return x3+                                            x8 <- Prelude.return x5+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (Prelude.return (Tuple2 x7 x8))+                                  x12 <- do x9 <- Prelude.return x4+                                            x10 <- Prelude.return x6+                                            DM.funcCallHook "zip"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (strict_zip x9 x10)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (Prelude.return (Cons x11 x12))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_120 x3 x4)+                           x13)))+term_strict__case_120 x1+  = DI.Term "_case_120" (DI.SrcID "Prelude" 0) x1+strict__case_123 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_123"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x11 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x3+                                  x9 <- Prelude.return x4+                                  x10 <- do x5 <- Prelude.return x1+                                            x6 <- Prelude.return x3+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                              (strict_apply x5 x6)+                                  DM.funcCallHook "_case_122"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9,+                                           DI.genTerm x10]))+                                    (strict__case_122 x7 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_123 x1)+                           x11)))+term_strict__case_123 x1+  = DI.Term "_case_123" (DI.SrcID "Prelude" 0) x1+strict__case_122 x1 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_122"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x12 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  x9 <- do x6 <- Prelude.return x1+                                           x7 <- Prelude.return x4+                                           DM.funcCallHook "filter"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (strict_filter x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Cons x8 x9))))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x1+                                  x11 <- Prelude.return x4+                                  DM.funcCallHook "filter"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (strict_filter x10 x11)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_122 x1 x3 x4)+                           x12)))+term_strict__case_122 x1+  = DI.Term "_case_122" (DI.SrcID "Prelude" 0) x1+strict__case_125 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_125"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- Prelude.return x3+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "_case_124"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_124 x5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_125 x1)+                           x8)))+term_strict__case_125 x1+  = DI.Term "_case_125" (DI.SrcID "Prelude" 0) x1+strict__case_124 x1 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_124"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4]))+         (do x15 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    Cons x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- do x7 <- Prelude.return x1+                                            x8 <- Prelude.return x3+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (strict_apply x7 x8)+                                  x14 <- do x11 <- Prelude.return x1+                                            x12 <- do x9 <- Prelude.return x5+                                                      x10 <- Prelude.return x6+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Prelude.return (Cons x9 x10))+                                            DM.funcCallHook "foldr1"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12]))+                                              (strict_foldr1 x11 x12)+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14]))+                                    (strict_apply x13 x14)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_124 x1 x3)+                           x15)))+term_strict__case_124 x1+  = DI.Term "_case_124" (DI.SrcID "Prelude" 0) x1+strict__case_126 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_126"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x13 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x6 <- Prelude.return x1+                                            x7 <- Prelude.return x4+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (strict_apply x6 x7)+                                  x12 <- do x8 <- Prelude.return x1+                                            x9 <- Prelude.return x2+                                            x10 <- Prelude.return x5+                                            DM.funcCallHook "foldr"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                              (strict_foldr x8 x9 x10)+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (strict_apply x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_126 x1 x2)+                           x13)))+term_strict__case_126 x1+  = DI.Term "_case_126" (DI.SrcID "Prelude" 0) x1+strict__case_127 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_127"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- Prelude.return x3+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "foldl"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                                    (strict_foldl x5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_127 x1)+                           x8)))+term_strict__case_127 x1+  = DI.Term "_case_127" (DI.SrcID "Prelude" 0) x1+strict__case_128 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_128"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x13 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x1+                                  x11 <- do x8 <- do x6 <- Prelude.return x1+                                                     x7 <- Prelude.return x2+                                                     DM.funcCallHook "apply"+                                                       (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x6, DI.genTerm x7]))+                                                       (strict_apply x6 x7)+                                            x9 <- Prelude.return x4+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (strict_apply x8 x9)+                                  x12 <- Prelude.return x5+                                  DM.funcCallHook "foldl"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12]))+                                    (strict_foldl x10 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_128 x1 x2)+                           x13)))+term_strict__case_128 x1+  = DI.Term "_case_128" (DI.SrcID "Prelude" 0) x1+strict__case_129 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_129"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x11 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- do x5 <- Prelude.return x1+                                           x6 <- Prelude.return x3+                                           DM.funcCallHook "apply"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (strict_apply x5 x6)+                                  x10 <- do x7 <- Prelude.return x1+                                            x8 <- Prelude.return x4+                                            DM.funcCallHook "map"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (strict_map x7 x8)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (Prelude.return (Cons x9 x10))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_129 x1)+                           x11)))+term_strict__case_129 x1+  = DI.Term "_case_129" (DI.SrcID "Prelude" 0) x1+strict__case_132 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_132"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x11 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x2+                                  x8 <- Prelude.return x3+                                  x9 <- Prelude.return x4+                                  x10 <- do x5 <- Prelude.return x2+                                            x6 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return Zero)+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                              (op_EqEq x5 x6)+                                  DM.funcCallHook "_case_131"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9,+                                           DI.genTerm x10]))+                                    (strict__case_131 x7 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_132 x2)+                           x11)))+term_strict__case_132 x1+  = DI.Term "_case_132" (DI.SrcID "Prelude" 0) x1+strict__case_131 x2 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_131"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x11 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x2+                                  x9 <- Prelude.return x4+                                  x10 <- do x6 <- Prelude.return x2+                                            x7 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return Zero)+                                            DM.funcCallHook ">"+                                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (op_Gt x6 x7)+                                  DM.funcCallHook "_case_130"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_130 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_131 x2 x3 x4)+                           x11)))+term_strict__case_131 x1+  = DI.Term "_case_131" (DI.SrcID "Prelude" 0) x1+strict__case_130 x2 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_130"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x4, DI.genTerm x5]))+         (do x10 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x4+                                  x9 <- do x6 <- Prelude.return x2+                                           x7 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return (Pos IHi))+                                           DM.funcCallHook "-"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (op_Minus x6 x7)+                                  DM.funcCallHook "!!"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (op_EMarkEMark x8 x9)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_130 x2 x4)+                           x10)))+term_strict__case_130 x1+  = DI.Term "_case_130" (DI.SrcID "Prelude" 0) x1+strict__case_133 x1+  = DM.eval+      (DM.funcDeclHook "_case_133"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x7 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Zero)))+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                             (DI.DynamicInfo [] []))+                                          (Prelude.return (Pos IHi))+                                  x6 <- do x4 <- Prelude.return x3+                                           DM.funcCallHook "length"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (strict_length x4)+                                  DM.funcCallHook "+"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (op_Plus x5 x6)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           strict__case_133+                           x7)))+term_strict__case_133 x1+  = DI.Term "_case_133" (DI.SrcID "Prelude" 0) x1+strict__case_134 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_134"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  x8 <- do x5 <- Prelude.return x4+                                           x6 <- Prelude.return x2+                                           DM.funcCallHook "++"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (op_PlusPlus x5 x6)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Prelude.return (Cons x7 x8))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_134 x2)+                           x9)))+term_strict__case_134 x1+  = DI.Term "_case_134" (DI.SrcID "Prelude" 0) x1+strict__case_135 x1+  = DM.eval+      (DM.funcDeclHook "_case_135"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return True)))+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return False)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_135+                           x4)))+term_strict__case_135 x1+  = DI.Term "_case_135" (DI.SrcID "Prelude" 0) x1+strict__case_136 x1+  = DM.eval+      (DM.funcDeclHook "_case_136"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_136+                           x4)))+term_strict__case_136 x1+  = DI.Term "_case_136" (DI.SrcID "Prelude" 0) x1+strict__case_137 x1+  = DM.eval+      (DM.funcDeclHook "_case_137"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_137+                           x4)))+term_strict__case_137 x1+  = DI.Term "_case_137" (DI.SrcID "Prelude" 0) x1+strict__case_138 x1+  = DM.eval+      (DM.funcDeclHook "_case_138"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_138+                           x4)))+term_strict__case_138 x1+  = DI.Term "_case_138" (DI.SrcID "Prelude" 0) x1+strict__case_139 x1+  = DM.eval+      (DM.funcDeclHook "_case_139"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_139+                           x4)))+term_strict__case_139 x1+  = DI.Term "_case_139" (DI.SrcID "Prelude" 0) x1+strict__case_140 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_140"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    GT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    LT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    EQ+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_140 x1 x2)+                           x4)))+term_strict__case_140 x1+  = DI.Term "_case_140" (DI.SrcID "Prelude" 0) x1+strict__case_141 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_141"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    LT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    EQ+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    GT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_141 x1 x2)+                           x4)))+term_strict__case_141 x1+  = DI.Term "_case_141" (DI.SrcID "Prelude" 0) x1+strict__case_145 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_145"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x14 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x2+                                  DM.funcCallHook "_case_144"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9]))+                                    (strict__case_144 x9)))+                    Pos x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x5+                                  x11 <- Prelude.return x2+                                  DM.funcCallHook "_case_143"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (strict__case_143 x10 x11)))+                    Neg x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x8+                                  x13 <- Prelude.return x2+                                  DM.funcCallHook "_case_142"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (strict__case_142 x12 x13)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_145 x2)+                           x14)))+term_strict__case_145 x1+  = DI.Term "_case_145" (DI.SrcID "Prelude" 0) x1+strict__case_142 x8 x2+  = DM.eval+      (DM.funcDeclHook "_case_142"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return LT)))+                    Pos x9+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return LT)))+                    Neg x10+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x10+                                  x12 <- Prelude.return x8+                                  DM.funcCallHook "cmpNat"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (strict_cmpNat x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_142 x8)+                           x13)))+term_strict__case_142 x1+  = DI.Term "_case_142" (DI.SrcID "Prelude" 0) x1+strict__case_143 x5 x2+  = DM.eval+      (DM.funcDeclHook "_case_143"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x2]))+         (do x10 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return GT)))+                    Pos x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x5+                                  x9 <- Prelude.return x6+                                  DM.funcCallHook "cmpNat"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (strict_cmpNat x8 x9)))+                    Neg x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return GT)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_143 x5)+                           x10)))+term_strict__case_143 x1+  = DI.Term "_case_143" (DI.SrcID "Prelude" 0) x1+strict__case_144 x2+  = DM.eval+      (DM.funcDeclHook "_case_144"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2]))+         (do x5 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    Zero+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return EQ)))+                    Pos x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return LT)))+                    Neg x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return GT)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           strict__case_144+                           x5)))+term_strict__case_144 x1+  = DI.Term "_case_144" (DI.SrcID "Prelude" 0) x1+strict__case_146 x1+  = DM.eval+      (DM.funcDeclHook "_case_146"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (case x2 of+                    LT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return False)))+                    GT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return False)))+                    EQ+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return True)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x2])))+                           strict__case_146+                           x2)))+term_strict__case_146 x1+  = DI.Term "_case_146" (DI.SrcID "Prelude" 0) x1+strict__case_147 x1+  = DM.eval+      (DM.funcDeclHook "_case_147"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (case x2 of+                    LT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return False)))+                    GT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return True)))+                    EQ+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return False)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x2])))+                           strict__case_147+                           x2)))+term_strict__case_147 x1+  = DI.Term "_case_147" (DI.SrcID "Prelude" 0) x1+strict__case_148 x1+  = DM.eval+      (DM.funcDeclHook "_case_148"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (case x2 of+                    LT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return True)))+                    GT+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return False)))+                    EQ+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return False)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x2])))+                           strict__case_148+                           x2)))+term_strict__case_148 x1+  = DI.Term "_case_148" (DI.SrcID "Prelude" 0) x1+strict__case_149 x2 x3 x1+  = DM.eval+      (DM.funcDeclHook "_case_149"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_149 x2 x3)+                           x4)))+term_strict__case_149 x1+  = DI.Term "_case_149" (DI.SrcID "Prelude" 0) x1+strict__case_150 x1+  = DM.eval+      (DM.funcDeclHook "_case_150"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (case x2 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return False)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return True)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x2])))+                           strict__case_150+                           x2)))+term_strict__case_150 x1+  = DI.Term "_case_150" (DI.SrcID "Prelude" 0) x1+strict__case_151 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_151"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (case x3 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return True)))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x3])))+                           (strict__case_151 x2)+                           x3)))+term_strict__case_151 x1+  = DI.Term "_case_151" (DI.SrcID "Prelude" 0) x1+strict__case_152 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_152"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (case x3 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return False)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x3])))+                           (strict__case_152 x2)+                           x3)))+term_strict__case_152 x1+  = DI.Term "_case_152" (DI.SrcID "Prelude" 0) x1+strict__case_153 x1+  = DM.eval+      (DM.funcDeclHook "_case_153"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Nil)))+                    Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- do x4 <- DM.funcCallHook "ensureSpine"+                                                   (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                      (DI.DynamicInfo [] []))+                                                   strict_ensureSpine+                                           x5 <- Prelude.return x3+                                           DM.funcCallHook "apply"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (strict_apply x4 x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Cons x6 x7))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           strict__case_153+                           x8)))+term_strict__case_153 x1+  = DI.Term "_case_153" (DI.SrcID "Prelude" 0) x1+strict__case_154 x1 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_154"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x10 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- Prelude.return x2+                                  x9 <- do x5 <- Prelude.return x2+                                           x6 <- Prelude.return x3+                                           DM.funcCallHook "apply"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (strict_apply x5 x6)+                                  DM.funcCallHook "until"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+                                    (strict_until x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_154 x1 x2 x3)+                           x10)))+term_strict__case_154 x1+  = DI.Term "_case_154" (DI.SrcID "Prelude" 0) x1+strict__case_155 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_155"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x9 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Tuple2 x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x5 <- Prelude.return x1+                                           x6 <- Prelude.return x3+                                           DM.funcCallHook "apply"+                                             (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (strict_apply x5 x6)+                                  x8 <- Prelude.return x4+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "Prelude" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (strict_apply x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Prelude" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_155 x1)+                           x9)))+term_strict__case_155 x1+  = DI.Term "_case_155" (DI.SrcID "Prelude" 0) x1+hook_op_DollarEMark x1 x2 value+  = DM.eval+      (DM.funcDeclHook "$!"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_op_DollarEMark x1 = DI.Term "$!" (DI.SrcID "Prelude" 0) x1+hook_op_DollarEMarkEMark x1 x2 value+  = DM.eval+      (DM.funcDeclHook "$!!"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_op_DollarEMarkEMark x1+  = DI.Term "$!!" (DI.SrcID "Prelude" 0) x1+hook_op_DollarRhomb x1 x2 value+  = DM.eval+      (DM.funcDeclHook "$#"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_op_DollarRhomb x1 = DI.Term "$#" (DI.SrcID "Prelude" 0) x1+hook_op_DollarRhombRhomb x1 x2 value+  = DM.eval+      (DM.funcDeclHook "$##"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_op_DollarRhombRhomb x1+  = DI.Term "$##" (DI.SrcID "Prelude" 0) x1+hook_strict_prim_error x1 value+  = DM.eval+      (DM.funcDeclHook "prim_error"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_error x1+  = DI.Term "prim_error" (DI.SrcID "Prelude" 0) x1+hook_strict_failed value+  = DM.eval+      (DM.funcDeclHook "failed"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         value)+term_strict_failed x1 = DI.Term "failed" (DI.SrcID "Prelude" 0) x1+hook_op_EqEq x1 x2 value+  = DM.eval+      (DM.funcDeclHook "=="+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_op_EqEq x1 = DI.Term "==" (DI.SrcID "Prelude" 0) x1+hook_strict_prim_ord x1 value+  = DM.eval+      (DM.funcDeclHook "prim_ord"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_ord x1+  = DI.Term "prim_ord" (DI.SrcID "Prelude" 0) x1+hook_strict_prim_chr x1 value+  = DM.eval+      (DM.funcDeclHook "prim_chr"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_chr x1+  = DI.Term "prim_chr" (DI.SrcID "Prelude" 0) x1+hook_op_EqEqEq x1 x2 value+  = DM.eval+      (DM.funcDeclHook "==="+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_op_EqEqEq x1 = DI.Term "===" (DI.SrcID "Prelude" 0) x1+hook_op_And x1 x2 value+  = DM.eval+      (DM.funcDeclHook "&"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_op_And x1 = DI.Term "&" (DI.SrcID "Prelude" 0) x1+hook_op_GtGtEq x1 x2 value+  = DM.eval+      (DM.funcDeclHook ">>="+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_op_GtGtEq x1 = DI.Term ">>=" (DI.SrcID "Prelude" 0) x1+hook_strict_return x1 value+  = DM.eval+      (DM.funcDeclHook "return"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_return x1 = DI.Term "return" (DI.SrcID "Prelude" 0) x1+hook_strict_prim_putChar x1 value+  = DM.eval+      (DM.funcDeclHook "prim_putChar"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_putChar x1+  = DI.Term "prim_putChar" (DI.SrcID "Prelude" 0) x1+hook_strict_getChar value+  = DM.eval+      (DM.funcDeclHook "getChar"+         (DI.DebugInfo (DI.SrcID "Prelude" 0) (DI.DynamicInfo [] []))+         value)+term_strict_getChar x1+  = DI.Term "getChar" (DI.SrcID "Prelude" 0) x1+hook_strict_prim_readFile x1 value+  = DM.eval+      (DM.funcDeclHook "prim_readFile"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_readFile x1+  = DI.Term "prim_readFile" (DI.SrcID "Prelude" 0) x1+hook_strict_prim_writeFile x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_writeFile"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_writeFile x1+  = DI.Term "prim_writeFile" (DI.SrcID "Prelude" 0) x1+hook_strict_prim_appendFile x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_appendFile"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_appendFile x1+  = DI.Term "prim_appendFile" (DI.SrcID "Prelude" 0) x1+hook_strict_catchFail x1 x2 value+  = DM.eval+      (DM.funcDeclHook "catchFail"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_catchFail x1+  = DI.Term "catchFail" (DI.SrcID "Prelude" 0) x1+hook_strict_prim_show x1 value+  = DM.eval+      (DM.funcDeclHook "prim_show"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_show x1+  = DI.Term "prim_show" (DI.SrcID "Prelude" 0) x1+hook_strict_getSearchTree x1 value+  = DM.eval+      (DM.funcDeclHook "getSearchTree"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_getSearchTree x1+  = DI.Term "getSearchTree" (DI.SrcID "Prelude" 0) x1+hook_strict_apply x1 x2 value+  = DM.eval+      (DM.funcDeclHook "apply"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_apply x1 = DI.Term "apply" (DI.SrcID "Prelude" 0) x1+hook_strict_cond x1 x2 value+  = DM.eval+      (DM.funcDeclHook "cond"+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_cond x1 = DI.Term "cond" (DI.SrcID "Prelude" 0) x1+hook_op_EqColonLtEq x1 x2 value+  = DM.eval+      (DM.funcDeclHook "=:<="+         (DI.DebugInfo (DI.SrcID "Prelude" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_op_EqColonLtEq x1 = DI.Term "=:<=" (DI.SrcID "Prelude" 0) x1+term_Cons x1 = DI.Term ":" (DI.SrcID "Prelude" 0) x1+term_Tuple2 x1 = DI.Term "(,)" (DI.SrcID "Prelude" 0) x1+term_Tuple3 x1 = DI.Term "(,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple4 x1 = DI.Term "(,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple5 x1 = DI.Term "(,,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple6 x1 = DI.Term "(,,,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple7 x1 = DI.Term "(,,,,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple8 x1 = DI.Term "(,,,,,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple9 x1 = DI.Term "(,,,,,,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple10 x1 = DI.Term "(,,,,,,,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple11 x1 = DI.Term "(,,,,,,,,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple12 x1 = DI.Term "(,,,,,,,,,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple13 x1+  = DI.Term "(,,,,,,,,,,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple14 x1+  = DI.Term "(,,,,,,,,,,,,,)" (DI.SrcID "Prelude" 0) x1+term_Tuple15 x1+  = DI.Term "(,,,,,,,,,,,,,,)" (DI.SrcID "Prelude" 0) x1+term_O x1 = DI.Term "O" (DI.SrcID "Prelude" 0) x1+term_I x1 = DI.Term "I" (DI.SrcID "Prelude" 0) x1+term_Neg x1 = DI.Term "Neg" (DI.SrcID "Prelude" 0) x1+term_Pos x1 = DI.Term "Pos" (DI.SrcID "Prelude" 0) x1+term_Just x1 = DI.Term "Just" (DI.SrcID "Prelude" 0) x1+term_Left x1 = DI.Term "Left" (DI.SrcID "Prelude" 0) x1+term_Right x1 = DI.Term "Right" (DI.SrcID "Prelude" 0) x1+term_Value x1 = DI.Term "Value" (DI.SrcID "Prelude" 0) x1+term_Choice x1 = DI.Term "Choice" (DI.SrcID "Prelude" 0) x1
+ dist/build/Curry/DebugModule/RandomExternal.hs view
@@ -0,0 +1,278 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.RandomExternal where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Prelude+ +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")+ +strict_split ::+             (DM.DM dm) =>+               Curry.DebugModule.Prelude.Int ->+                 dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int)+strict_split x1+  = DM.eval+      (DM.funcDeclHook "split"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (DM.letHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x2 <- do x5 <- Prelude.return+                                 (PC.partCall1 (term_strict_prim_split []) strict_prim_split)+                         x6 <- Prelude.return x1+                         DM.funcCallHook "$##"+                           (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                              (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                           (Curry.DebugModule.Prelude.op_DollarRhombRhomb x5 x6)+                DM.eval+                  (DM.letHook+                     (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                     (do x3 <- do x7 <- Prelude.return x2+                                  DM.funcCallHook "split._#selFP3#s1"+                                    (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7]))+                                    (x'xstrict_split46_35selFP335s1 x7)+                         DM.eval+                           (DM.letHook+                              (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                              (do x4 <- do x8 <- Prelude.return x2+                                           DM.funcCallHook "split._#selFP4#s2"+                                             (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x8]))+                                             (x'xstrict_split46_35selFP435s2 x8)+                                  DM.eval+                                    (do x10 <- Prelude.return x3+                                        x11 <- do x9 <- Prelude.return x4+                                                  DM.funcCallHook "split"+                                                    (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                                                       (DI.DynamicInfo [] [DI.genTerm x9]))+                                                    (strict_split x9)+                                        DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                                             (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                          (Prelude.return+                                             (Curry.DebugModule.Prelude.Cons x10 x11))))))))))+term_strict_split x1+  = DI.Term "split" (DI.SrcID "RandomExternal" 0) x1+ +x'xstrict_split46_35selFP335s1 ::+                               (DM.DM dm) =>+                                 Curry.DebugModule.Prelude.Tuple2 Curry.DebugModule.Prelude.Int+                                   Curry.DebugModule.Prelude.Int+                                   -> dm Curry.DebugModule.Prelude.Int+x'xstrict_split46_35selFP335s1 x1+  = DM.eval+      (DM.funcDeclHook "split._#selFP3#s1"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_1"+               (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_1 x2)))+x'xterm_strict_split46_35selFP335s1 x1+  = DI.Term "split._#selFP3#s1" (DI.SrcID "RandomExternal" 0) x1+ +x'xstrict_split46_35selFP435s2 ::+                               (DM.DM dm) =>+                                 Curry.DebugModule.Prelude.Tuple2 Curry.DebugModule.Prelude.Int+                                   Curry.DebugModule.Prelude.Int+                                   -> dm Curry.DebugModule.Prelude.Int+x'xstrict_split46_35selFP435s2 x1+  = DM.eval+      (DM.funcDeclHook "split._#selFP4#s2"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_0"+               (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_0 x2)))+x'xterm_strict_split46_35selFP435s2 x1+  = DI.Term "split._#selFP4#s2" (DI.SrcID "RandomExternal" 0) x1+ +strict_nextInt ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Int ->+                   dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int)+strict_nextInt x1+  = DM.eval+      (DM.funcDeclHook "nextInt"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_nextInt []) strict_prim_nextInt)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_nextInt x1+  = DI.Term "nextInt" (DI.SrcID "RandomExternal" 0) x1+ +strict_nextIntRange ::+                    (DM.DM dm) =>+                      Curry.DebugModule.Prelude.Int ->+                        Curry.DebugModule.Prelude.Int ->+                          dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int)+strict_nextIntRange x1 x2+  = DM.eval+      (DM.funcDeclHook "nextIntRange"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return+                              (PC.partCall2 (term_strict_prim_nextIntRange [])+                                 strict_prim_nextIntRange)+                      x4 <- Prelude.return x1+                      DM.funcCallHook "$##"+                        (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_DollarRhombRhomb x3 x4)+             x6 <- Prelude.return x2+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x5 x6)))+term_strict_nextIntRange x1+  = DI.Term "nextIntRange" (DI.SrcID "RandomExternal" 0) x1+ +strict_nextBoolean ::+                   (DM.DM dm) =>+                     Curry.DebugModule.Prelude.Int ->+                       dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Bool)+strict_nextBoolean x1+  = DM.eval+      (DM.funcDeclHook "nextBoolean"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- do x2 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "RandomExternal" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      Prelude.return+                        (PC.partCall1+                           (Curry.DebugModule.Prelude.term_op_EqEq [DI.genTerm x2])+                           (Curry.DebugModule.Prelude.op_EqEq x2))+             x6 <- do x3 <- Prelude.return x1+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "RandomExternal" 0) (DI.DynamicInfo [] []))+                              (Prelude.return+                                 (Curry.DebugModule.Prelude.Pos Curry.DebugModule.Prelude.IHi))+                      DM.funcCallHook "nextIntRange"+                        (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_nextIntRange x3 x4)+             DM.funcCallHook "map"+               (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.strict_map x5 x6)))+term_strict_nextBoolean x1+  = DI.Term "nextBoolean" (DI.SrcID "RandomExternal" 0) x1+strict__case_0 x1+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "RandomExternal" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "RandomExternal" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "RandomExternal" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_0+                           x4)))+term_strict__case_0 x1+  = DI.Term "_case_0" (DI.SrcID "RandomExternal" 0) x1+strict__case_1 x1+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "RandomExternal" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "RandomExternal" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "RandomExternal" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_1+                           x4)))+term_strict__case_1 x1+  = DI.Term "_case_1" (DI.SrcID "RandomExternal" 0) x1+hook_strict_prim_split x1 value+  = DM.eval+      (DM.funcDeclHook "prim_split"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_split x1+  = DI.Term "prim_split" (DI.SrcID "RandomExternal" 0) x1+hook_strict_prim_nextInt x1 value+  = DM.eval+      (DM.funcDeclHook "prim_nextInt"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_nextInt x1+  = DI.Term "prim_nextInt" (DI.SrcID "RandomExternal" 0) x1+hook_strict_prim_nextIntRange x1 x2 value+  = DM.eval+      (DM.funcDeclHook "prim_nextIntRange"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         value)+term_strict_prim_nextIntRange x1+  = DI.Term "prim_nextIntRange" (DI.SrcID "RandomExternal" 0) x1+hook_strict_getRandomSeed value+  = DM.eval+      (DM.funcDeclHook "getRandomSeed"+         (DI.DebugInfo (DI.SrcID "RandomExternal" 0) (DI.DynamicInfo [] []))+         value)+term_strict_getRandomSeed x1+  = DI.Term "getRandomSeed" (DI.SrcID "RandomExternal" 0) x1
+ dist/build/Curry/DebugModule/Read.hs view
@@ -0,0 +1,760 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Read where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Char+import qualified Curry.DebugModule.Prelude+ +strict_readNat ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                   dm Curry.DebugModule.Prelude.Int+strict_readNat x1+  = DM.eval+      (DM.funcDeclHook "readNat"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return+                              (PC.partCall1 (x'xterm_strict_readNat46_35lambda2 [])+                                 x'xstrict_readNat46_35lambda2)+                      x3 <- Prelude.return x1+                      DM.funcCallHook "dropWhile"+                        (DI.DebugInfo (DI.SrcID "Read" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.strict_dropWhile x2 x3)+             x5 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Zero)+             DM.funcCallHook "readNat.readNatPrefix.3"+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (x'xstrict_readNat46readNatPrefix463 x4 x5)))+term_strict_readNat x1 = DI.Term "readNat" (DI.SrcID "Read" 0) x1+ +x'xstrict_readNat46readNatPrefix463 ::+                                    (DM.DM dm) =>+                                      Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char+                                        ->+                                        Curry.DebugModule.Prelude.Int ->+                                          dm Curry.DebugModule.Prelude.Int+x'xstrict_readNat46readNatPrefix463 x1 x2+  = DM.eval+      (DM.funcDeclHook "readNat.readNatPrefix.3"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_7"+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_7 x3 x4)))+x'xterm_strict_readNat46readNatPrefix463 x1+  = DI.Term "readNat.readNatPrefix.3" (DI.SrcID "Read" 0) x1+ +x'xstrict_readNat46_35lambda2 ::+                              (DM.DM dm) =>+                                Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+x'xstrict_readNat46_35lambda2 x1+  = DM.eval+      (DM.funcDeclHook "readNat._#lambda2"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             x3 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                     (Prelude.return (Curry.DebugModule.Prelude.Char ' '))+             DM.funcCallHook "=="+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_EqEq x2 x3)))+x'xterm_strict_readNat46_35lambda2 x1+  = DI.Term "readNat._#lambda2" (DI.SrcID "Read" 0) x1+ +strict_readInt ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                   dm Curry.DebugModule.Prelude.Int+strict_readInt x1+  = DM.eval+      (DM.funcDeclHook "readInt"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return+                              (PC.partCall1 (x'xterm_strict_readInt46_35lambda3 [])+                                 x'xstrict_readInt46_35lambda3)+                      x3 <- Prelude.return x1+                      DM.funcCallHook "dropWhile"+                        (DI.DebugInfo (DI.SrcID "Read" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.strict_dropWhile x2 x3)+             DM.funcCallHook "readInt.readIntPrefix.14"+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (x'xstrict_readInt46readIntPrefix4614 x4)))+term_strict_readInt x1 = DI.Term "readInt" (DI.SrcID "Read" 0) x1+ +x'xstrict_readInt46readIntPrefix4614 ::+                                     (DM.DM dm) =>+                                       Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char+                                         -> dm Curry.DebugModule.Prelude.Int+x'xstrict_readInt46readIntPrefix4614 x1+  = DM.eval+      (DM.funcDeclHook "readInt.readIntPrefix.14"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_5"+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_5 x2)))+x'xterm_strict_readInt46readIntPrefix4614 x1+  = DI.Term "readInt.readIntPrefix.14" (DI.SrcID "Read" 0) x1+ +x'xstrict_readInt46_35lambda3 ::+                              (DM.DM dm) =>+                                Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+x'xstrict_readInt46_35lambda3 x1+  = DM.eval+      (DM.funcDeclHook "readInt._#lambda3"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             x3 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                     (Prelude.return (Curry.DebugModule.Prelude.Char ' '))+             DM.funcCallHook "=="+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_EqEq x2 x3)))+x'xterm_strict_readInt46_35lambda3 x1+  = DI.Term "readInt._#lambda3" (DI.SrcID "Read" 0) x1+ +strict_readHex ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                   dm Curry.DebugModule.Prelude.Int+strict_readHex x1+  = DM.eval+      (DM.funcDeclHook "readHex"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return+                              (PC.partCall1 (x'xterm_strict_readHex46_35lambda4 [])+                                 x'xstrict_readHex46_35lambda4)+                      x3 <- Prelude.return x1+                      DM.funcCallHook "dropWhile"+                        (DI.DebugInfo (DI.SrcID "Read" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.strict_dropWhile x2 x3)+             x5 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Zero)+             DM.funcCallHook "readHex.readHexPrefix.22"+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (x'xstrict_readHex46readHexPrefix4622 x4 x5)))+term_strict_readHex x1 = DI.Term "readHex" (DI.SrcID "Read" 0) x1+ +x'xstrict_readHex46hex2int4622 ::+                               (DM.DM dm) =>+                                 Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Int+x'xstrict_readHex46hex2int4622 x1+  = DM.eval+      (DM.funcDeclHook "readHex.hex2int.22"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "isDigit"+                        (DI.DebugInfo (DI.SrcID "Read" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (Curry.DebugModule.Char.strict_isDigit x2)+             DM.funcCallHook "_case_3"+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_3 x3 x4)))+x'xterm_strict_readHex46hex2int4622 x1+  = DI.Term "readHex.hex2int.22" (DI.SrcID "Read" 0) x1+ +x'xstrict_readHex46readHexPrefix4622 ::+                                     (DM.DM dm) =>+                                       Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char+                                         ->+                                         Curry.DebugModule.Prelude.Int ->+                                           dm Curry.DebugModule.Prelude.Int+x'xstrict_readHex46readHexPrefix4622 x1 x2+  = DM.eval+      (DM.funcDeclHook "readHex.readHexPrefix.22"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_1"+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_1 x3 x4)))+x'xterm_strict_readHex46readHexPrefix4622 x1+  = DI.Term "readHex.readHexPrefix.22" (DI.SrcID "Read" 0) x1+ +x'xstrict_readHex46_35lambda4 ::+                              (DM.DM dm) =>+                                Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+x'xstrict_readHex46_35lambda4 x1+  = DM.eval+      (DM.funcDeclHook "readHex._#lambda4"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             x3 <- DM.litHook+                     (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                     (Prelude.return (Curry.DebugModule.Prelude.Char ' '))+             DM.funcCallHook "=="+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_EqEq x2 x3)))+x'xterm_strict_readHex46_35lambda4 x1+  = DI.Term "readHex._#lambda4" (DI.SrcID "Read" 0) x1+strict__case_1 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x13 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Read" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x5 <- do x6 <- Prelude.return x3+                                              DM.funcCallHook "readHex.hex2int.22"+                                                (DI.DebugInfo (DI.SrcID "Read" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x6]))+                                                (x'xstrict_readHex46hex2int4622 x6)+                                     DM.eval+                                       (do x9 <- Prelude.return x2+                                           x10 <- Prelude.return x4+                                           x11 <- Prelude.return x5+                                           x12 <- do x7 <- Prelude.return x5+                                                     x8 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "Read" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                Curry.DebugModule.Prelude.Zero)+                                                     DM.funcCallHook ">="+                                                       (DI.DebugInfo (DI.SrcID "Read" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x7, DI.genTerm x8]))+                                                       (Curry.DebugModule.Prelude.op_GtEq x7 x8)+                                           DM.funcCallHook "_case_0"+                                             (DI.DebugInfo (DI.SrcID "Read" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11,+                                                    DI.genTerm x12]))+                                             (strict__case_0 x9 x10 x11 x12)))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Read" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_1 x2)+                           x13)))+term_strict__case_1 x1 = DI.Term "_case_1" (DI.SrcID "Read" 0) x1+strict__case_0 x2 x4 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+         (do x13 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x4+                                  x12 <- do x9 <- do x7 <- Prelude.return x2+                                                     x8 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "Read" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Pos+                                                                   (Curry.DebugModule.Prelude.O+                                                                      (Curry.DebugModule.Prelude.O+                                                                         (Curry.DebugModule.Prelude.O+                                                                            (Curry.DebugModule.Prelude.O+                                                                               Curry.DebugModule.Prelude.IHi))))))+                                                     DM.funcCallHook "*"+                                                       (DI.DebugInfo (DI.SrcID "Read" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x7, DI.genTerm x8]))+                                                       (Curry.DebugModule.Prelude.op_Asterisk x7 x8)+                                            x10 <- Prelude.return x5+                                            DM.funcCallHook "+"+                                              (DI.DebugInfo (DI.SrcID "Read" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (Curry.DebugModule.Prelude.op_Plus x9 x10)+                                  DM.funcCallHook "readHex.readHexPrefix.22"+                                    (DI.DebugInfo (DI.SrcID "Read" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (x'xstrict_readHex46readHexPrefix4622 x11 x12)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Read" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_0 x2 x4 x5)+                           x13)))+term_strict__case_0 x1 = DI.Term "_case_0" (DI.SrcID "Read" 0) x1+strict__case_3 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x19 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- do x3 <- Prelude.return x1+                                           DM.funcCallHook "ord"+                                             (DI.DebugInfo (DI.SrcID "Read" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x3]))+                                             (Curry.DebugModule.Prelude.strict_ord x3)+                                  x6 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Read" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char '0'))+                                           DM.funcCallHook "ord"+                                             (DI.DebugInfo (DI.SrcID "Read" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.strict_ord x4)+                                  DM.funcCallHook "-"+                                    (DI.DebugInfo (DI.SrcID "Read" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Curry.DebugModule.Prelude.op_Minus x5 x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- Prelude.return x1+                                  x18 <- do x15 <- do x9 <- do x7 <- Prelude.return x1+                                                               DM.funcCallHook "ord"+                                                                 (DI.DebugInfo (DI.SrcID "Read" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x7]))+                                                                 (Curry.DebugModule.Prelude.strict_ord+                                                                    x7)+                                                      x10 <- do x8 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "Read" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Char+                                                                              'A'))+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "Read" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x8]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x8)+                                                      DM.funcCallHook ">="+                                                        (DI.DebugInfo (DI.SrcID "Read" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Curry.DebugModule.Prelude.op_GtEq x9 x10)+                                            x16 <- do x13 <- do x11 <- Prelude.return x1+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "Read" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x11)+                                                      x14 <- do x12 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Read" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'F'))+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "Read" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x12)+                                                      DM.funcCallHook "<="+                                                        (DI.DebugInfo (DI.SrcID "Read" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Curry.DebugModule.Prelude.op_LtEq x13 x14)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "Read" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x15 x16)+                                  DM.funcCallHook "_case_2"+                                    (DI.DebugInfo (DI.SrcID "Read" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18]))+                                    (strict__case_2 x17 x18)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Read" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           (strict__case_3 x1)+                           x19)))+term_strict__case_3 x1 = DI.Term "_case_3" (DI.SrcID "Read" 0) x1+strict__case_2 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x10 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x5 <- do x3 <- Prelude.return x1+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Read" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x3]))+                                                      (Curry.DebugModule.Prelude.strict_ord x3)+                                           x6 <- do x4 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Read" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Char 'A'))+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Read" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x4]))+                                                      (Curry.DebugModule.Prelude.strict_ord x4)+                                           DM.funcCallHook "-"+                                             (DI.DebugInfo (DI.SrcID "Read" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Curry.DebugModule.Prelude.op_Minus x5 x6)+                                  x8 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return+                                             (Curry.DebugModule.Prelude.Pos+                                                (Curry.DebugModule.Prelude.O+                                                   (Curry.DebugModule.Prelude.I+                                                      (Curry.DebugModule.Prelude.O+                                                         Curry.DebugModule.Prelude.IHi)))))+                                  DM.funcCallHook "+"+                                    (DI.DebugInfo (DI.SrcID "Read" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Curry.DebugModule.Prelude.op_Plus x7 x8)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return+                                             (Curry.DebugModule.Prelude.Pos+                                                Curry.DebugModule.Prelude.IHi))+                                  DM.funcCallHook "negate"+                                    (DI.DebugInfo (DI.SrcID "Read" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9]))+                                    (Curry.DebugModule.Prelude.strict_negate x9)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Read" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_2 x1)+                           x10)))+term_strict__case_2 x1 = DI.Term "_case_2" (DI.SrcID "Read" 0) x1+strict__case_5 x1+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Read" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Zero)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- do x4 <- Prelude.return x2+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Read" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char '-'))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Read" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_4"+                                    (DI.DebugInfo (DI.SrcID "Read" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_4 x6 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Read" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_5+                           x9)))+term_strict__case_5 x1 = DI.Term "_case_5" (DI.SrcID "Read" 0) x1+strict__case_4 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x10 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x5 <- Prelude.return x3+                                           DM.funcCallHook "readNat"+                                             (DI.DebugInfo (DI.SrcID "Read" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_readNat x5)+                                  DM.funcCallHook "negate"+                                    (DI.DebugInfo (DI.SrcID "Read" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Curry.DebugModule.Prelude.strict_negate x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- do x7 <- Prelude.return x2+                                           x8 <- Prelude.return x3+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Read" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8))+                                  DM.funcCallHook "readNat"+                                    (DI.DebugInfo (DI.SrcID "Read" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9]))+                                    (strict_readNat x9)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Read" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_4 x2 x3)+                           x10)))+term_strict__case_4 x1 = DI.Term "_case_4" (DI.SrcID "Read" 0) x1+strict__case_7 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x19 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Read" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x5 <- do x6 <- Prelude.return x3+                                              DM.funcCallHook "ord"+                                                (DI.DebugInfo (DI.SrcID "Read" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x6]))+                                                (Curry.DebugModule.Prelude.strict_ord x6)+                                     DM.eval+                                       (do x15 <- Prelude.return x2+                                           x16 <- Prelude.return x4+                                           x17 <- Prelude.return x5+                                           x18 <- do x13 <- do x8 <- Prelude.return x5+                                                               x9 <- do x7 <- DM.litHook+                                                                                (DI.DebugInfo+                                                                                   (DI.SrcID "Read"+                                                                                      0)+                                                                                   (DI.DynamicInfo+                                                                                      []+                                                                                      []))+                                                                                (Prelude.return+                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                      '0'))+                                                                        DM.funcCallHook "ord"+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "Read" 0)+                                                                             (DI.DynamicInfo []+                                                                                [DI.genTerm x7]))+                                                                          (Curry.DebugModule.Prelude.strict_ord+                                                                             x7)+                                                               DM.funcCallHook ">="+                                                                 (DI.DebugInfo (DI.SrcID "Read" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x8,+                                                                        DI.genTerm x9]))+                                                                 (Curry.DebugModule.Prelude.op_GtEq+                                                                    x8+                                                                    x9)+                                                     x14 <- do x11 <- Prelude.return x5+                                                               x12 <- do x10 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID+                                                                                        "Read"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        '9'))+                                                                         DM.funcCallHook "ord"+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "Read" 0)+                                                                              (DI.DynamicInfo []+                                                                                 [DI.genTerm x10]))+                                                                           (Curry.DebugModule.Prelude.strict_ord+                                                                              x10)+                                                               DM.funcCallHook "<="+                                                                 (DI.DebugInfo (DI.SrcID "Read" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x11,+                                                                        DI.genTerm x12]))+                                                                 (Curry.DebugModule.Prelude.op_LtEq+                                                                    x11+                                                                    x12)+                                                     DM.funcCallHook "&&"+                                                       (DI.DebugInfo (DI.SrcID "Read" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x13, DI.genTerm x14]))+                                                       (Curry.DebugModule.Prelude.op_AndAnd x13 x14)+                                           DM.funcCallHook "_case_6"+                                             (DI.DebugInfo (DI.SrcID "Read" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x15, DI.genTerm x16, DI.genTerm x17,+                                                    DI.genTerm x18]))+                                             (strict__case_6 x15 x16 x17 x18)))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Read" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           (strict__case_7 x2)+                           x19)))+term_strict__case_7 x1 = DI.Term "_case_7" (DI.SrcID "Read" 0) x1+strict__case_6 x2 x4 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "Read" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+         (do x16 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Read" 0)+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x4+                                  x15 <- do x12 <- do x9 <- do x7 <- Prelude.return x2+                                                               x8 <- DM.litHook+                                                                       (DI.DebugInfo+                                                                          (DI.SrcID "Read" 0)+                                                                          (DI.DynamicInfo [] []))+                                                                       (Prelude.return+                                                                          (Curry.DebugModule.Prelude.Pos+                                                                             (Curry.DebugModule.Prelude.O+                                                                                (Curry.DebugModule.Prelude.I+                                                                                   (Curry.DebugModule.Prelude.O+                                                                                      Curry.DebugModule.Prelude.IHi)))))+                                                               DM.funcCallHook "*"+                                                                 (DI.DebugInfo (DI.SrcID "Read" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x7,+                                                                        DI.genTerm x8]))+                                                                 (Curry.DebugModule.Prelude.op_Asterisk+                                                                    x7+                                                                    x8)+                                                      x10 <- Prelude.return x5+                                                      DM.funcCallHook "+"+                                                        (DI.DebugInfo (DI.SrcID "Read" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Curry.DebugModule.Prelude.op_Plus x9 x10)+                                            x13 <- do x11 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Read" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '0'))+                                                      DM.funcCallHook "ord"+                                                        (DI.DebugInfo (DI.SrcID "Read" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x11]))+                                                        (Curry.DebugModule.Prelude.strict_ord x11)+                                            DM.funcCallHook "-"+                                              (DI.DebugInfo (DI.SrcID "Read" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x12, DI.genTerm x13]))+                                              (Curry.DebugModule.Prelude.op_Minus x12 x13)+                                  DM.funcCallHook "readNat.readNatPrefix.3"+                                    (DI.DebugInfo (DI.SrcID "Read" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (x'xstrict_readNat46readNatPrefix463 x14 x15)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Read" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Read" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_6 x2 x4 x5)+                           x16)))+term_strict__case_6 x1 = DI.Term "_case_6" (DI.SrcID "Read" 0) x1
+ dist/build/Curry/DebugModule/ReadShowTerm.hs view

file too large to diff

+ dist/build/Curry/DebugModule/Sort.hs view
@@ -0,0 +1,2681 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Sort where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Char+import qualified Curry.DebugModule.Prelude+ +strict_quickSort ::+                 (DM.DM dm, DI.GenTerm a) =>+                   DM.Func dm a (DM.Func dm a Curry.DebugModule.Prelude.Bool) ->+                     Curry.DebugModule.Prelude.List a ->+                       dm (Curry.DebugModule.Prelude.List a)+strict_quickSort x1 x2+  = DM.eval+      (DM.funcDeclHook "quickSort"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_43"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_43 x3 x4)))+term_strict_quickSort x1+  = DI.Term "quickSort" (DI.SrcID "Sort" 0) x1+ +x'xstrict_quickSort46split466 ::+                              (DM.DM dm, DI.GenTerm i) =>+                                DM.Func dm i (DM.Func dm i Curry.DebugModule.Prelude.Bool) ->+                                  i ->+                                    Curry.DebugModule.Prelude.List i ->+                                      dm+                                        (Curry.DebugModule.Prelude.Tuple2+                                           (Curry.DebugModule.Prelude.List i)+                                           (Curry.DebugModule.Prelude.List i))+x'xstrict_quickSort46split466 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "quickSort.split.6"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_42"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_42 x4 x5 x6)))+x'xterm_strict_quickSort46split466 x1+  = DI.Term "quickSort.split.6" (DI.SrcID "Sort" 0) x1+ +x'xstrict_quickSort46split46646_35selFP335l ::+                                            (DM.DM dm, DI.GenTerm i) =>+                                              Curry.DebugModule.Prelude.Tuple2+                                                (Curry.DebugModule.Prelude.List i)+                                                (Curry.DebugModule.Prelude.List i)+                                                -> dm (Curry.DebugModule.Prelude.List i)+x'xstrict_quickSort46split46646_35selFP335l x1+  = DM.eval+      (DM.funcDeclHook "quickSort.split.6._#selFP3#l"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_39"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_39 x2)))+x'xterm_strict_quickSort46split46646_35selFP335l x1+  = DI.Term "quickSort.split.6._#selFP3#l" (DI.SrcID "Sort" 0) x1+ +x'xstrict_quickSort46split46646_35selFP435r ::+                                            (DM.DM dm, DI.GenTerm i) =>+                                              Curry.DebugModule.Prelude.Tuple2+                                                (Curry.DebugModule.Prelude.List i)+                                                (Curry.DebugModule.Prelude.List i)+                                                -> dm (Curry.DebugModule.Prelude.List i)+x'xstrict_quickSort46split46646_35selFP435r x1+  = DM.eval+      (DM.funcDeclHook "quickSort.split.6._#selFP4#r"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_38"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_38 x2)))+x'xterm_strict_quickSort46split46646_35selFP435r x1+  = DI.Term "quickSort.split.6._#selFP4#r" (DI.SrcID "Sort" 0) x1+ +x'xstrict_quickSort46_35selFP635l ::+                                  (DM.DM dm, DI.GenTerm i) =>+                                    Curry.DebugModule.Prelude.Tuple2+                                      (Curry.DebugModule.Prelude.List i)+                                      (Curry.DebugModule.Prelude.List i)+                                      -> dm (Curry.DebugModule.Prelude.List i)+x'xstrict_quickSort46_35selFP635l x1+  = DM.eval+      (DM.funcDeclHook "quickSort._#selFP6#l"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_37"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_37 x2)))+x'xterm_strict_quickSort46_35selFP635l x1+  = DI.Term "quickSort._#selFP6#l" (DI.SrcID "Sort" 0) x1+ +x'xstrict_quickSort46_35selFP735r ::+                                  (DM.DM dm, DI.GenTerm i) =>+                                    Curry.DebugModule.Prelude.Tuple2+                                      (Curry.DebugModule.Prelude.List i)+                                      (Curry.DebugModule.Prelude.List i)+                                      -> dm (Curry.DebugModule.Prelude.List i)+x'xstrict_quickSort46_35selFP735r x1+  = DM.eval+      (DM.funcDeclHook "quickSort._#selFP7#r"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_36"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_36 x2)))+x'xterm_strict_quickSort46_35selFP735r x1+  = DI.Term "quickSort._#selFP7#r" (DI.SrcID "Sort" 0) x1+ +strict_mergeSort ::+                 (DM.DM dm, DI.GenTerm a) =>+                   DM.Func dm a (DM.Func dm a Curry.DebugModule.Prelude.Bool) ->+                     Curry.DebugModule.Prelude.List a ->+                       dm (Curry.DebugModule.Prelude.List a)+strict_mergeSort x1 x2+  = DM.eval+      (DM.funcDeclHook "mergeSort"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "mergeSort.genRuns.16"+                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (x'xstrict_mergeSort46genRuns4616 x3 x4)+             DM.funcCallHook "mergeSort.mergeLists.16"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (x'xstrict_mergeSort46mergeLists4616 x5 x6)))+term_strict_mergeSort x1+  = DI.Term "mergeSort" (DI.SrcID "Sort" 0) x1+ +x'xstrict_mergeSort46genRuns4616 ::+                                 (DM.DM dm, DI.GenTerm x79) =>+                                   DM.Func dm x79 (DM.Func dm x79 Curry.DebugModule.Prelude.Bool) ->+                                     Curry.DebugModule.Prelude.List x79 ->+                                       dm+                                         (Curry.DebugModule.Prelude.List+                                            (Curry.DebugModule.Prelude.List x79))+x'xstrict_mergeSort46genRuns4616 x1 x2+  = DM.eval+      (DM.funcDeclHook "mergeSort.genRuns.16"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_35"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_35 x3 x4)))+x'xterm_strict_mergeSort46genRuns4616 x1+  = DI.Term "mergeSort.genRuns.16" (DI.SrcID "Sort" 0) x1+ +x'xstrict_mergeSort46mergePairs4616 ::+                                    (DM.DM dm, DI.GenTerm x79) =>+                                      DM.Func dm x79 (DM.Func dm x79 Curry.DebugModule.Prelude.Bool)+                                        ->+                                        Curry.DebugModule.Prelude.List+                                          (Curry.DebugModule.Prelude.List x79)+                                          ->+                                          dm+                                            (Curry.DebugModule.Prelude.List+                                               (Curry.DebugModule.Prelude.List x79))+x'xstrict_mergeSort46mergePairs4616 x1 x2+  = DM.eval+      (DM.funcDeclHook "mergeSort.mergePairs.16"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_31"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_31 x3 x4)))+x'xterm_strict_mergeSort46mergePairs4616 x1+  = DI.Term "mergeSort.mergePairs.16" (DI.SrcID "Sort" 0) x1+ +x'xstrict_mergeSort46mergeLists4616 ::+                                    (DM.DM dm, DI.GenTerm x79) =>+                                      DM.Func dm x79 (DM.Func dm x79 Curry.DebugModule.Prelude.Bool)+                                        ->+                                        Curry.DebugModule.Prelude.List+                                          (Curry.DebugModule.Prelude.List x79)+                                          -> dm (Curry.DebugModule.Prelude.List x79)+x'xstrict_mergeSort46mergeLists4616 x1 x2+  = DM.eval+      (DM.funcDeclHook "mergeSort.mergeLists.16"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_29"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_29 x3 x4)))+x'xterm_strict_mergeSort46mergeLists4616 x1+  = DI.Term "mergeSort.mergeLists.16" (DI.SrcID "Sort" 0) x1+ +strict_merge ::+             (DM.DM dm, DI.GenTerm a) =>+               DM.Func dm a (DM.Func dm a Curry.DebugModule.Prelude.Bool) ->+                 Curry.DebugModule.Prelude.List a ->+                   Curry.DebugModule.Prelude.List a ->+                     dm (Curry.DebugModule.Prelude.List a)+strict_merge x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "merge"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x3+             x6 <- Prelude.return x2+             DM.funcCallHook "_case_27"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_27 x4 x5 x6)))+term_strict_merge x1 = DI.Term "merge" (DI.SrcID "Sort" 0) x1+ +strict_leqList ::+               (DM.DM dm, DI.GenTerm a) =>+                 DM.Func dm a (DM.Func dm a Curry.DebugModule.Prelude.Bool) ->+                   Curry.DebugModule.Prelude.List a ->+                     Curry.DebugModule.Prelude.List a ->+                       dm Curry.DebugModule.Prelude.Bool+strict_leqList x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "leqList"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x3+             x6 <- Prelude.return x2+             DM.funcCallHook "_case_23"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_23 x4 x5 x6)))+term_strict_leqList x1 = DI.Term "leqList" (DI.SrcID "Sort" 0) x1+ +strict_cmpList ::+               (DM.DM dm, DI.GenTerm a) =>+                 DM.Func dm a (DM.Func dm a Curry.DebugModule.Prelude.Ordering) ->+                   Curry.DebugModule.Prelude.List a ->+                     Curry.DebugModule.Prelude.List a ->+                       dm Curry.DebugModule.Prelude.Ordering+strict_cmpList x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "cmpList"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x3+             x6 <- Prelude.return x2+             DM.funcCallHook "_case_19"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_19 x4 x5 x6)))+term_strict_cmpList x1 = DI.Term "cmpList" (DI.SrcID "Sort" 0) x1+ +strict_leqChar ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Char ->+                   Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+strict_leqChar x1 x2+  = DM.eval+      (DM.funcDeclHook "leqChar"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      DM.funcCallHook "ord"+                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.strict_ord x3)+             x6 <- do x4 <- Prelude.return x2+                      DM.funcCallHook "ord"+                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.strict_ord x4)+             DM.funcCallHook "<="+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_LtEq x5 x6)))+term_strict_leqChar x1 = DI.Term "leqChar" (DI.SrcID "Sort" 0) x1+ +strict_cmpChar ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Char ->+                   Curry.DebugModule.Prelude.Char ->+                     dm Curry.DebugModule.Prelude.Ordering+strict_cmpChar x1 x2+  = DM.eval+      (DM.funcDeclHook "cmpChar"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- Prelude.return x2+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_EqEq x3 x4)+             DM.funcCallHook "_case_14"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_14 x5 x6 x7)))+term_strict_cmpChar x1 = DI.Term "cmpChar" (DI.SrcID "Sort" 0) x1+ +strict_leqCharIgnoreCase ::+                         (DM.DM dm) =>+                           Curry.DebugModule.Prelude.Char ->+                             Curry.DebugModule.Prelude.Char -> dm Curry.DebugModule.Prelude.Bool+strict_leqCharIgnoreCase x1 x2+  = DM.eval+      (DM.funcDeclHook "leqCharIgnoreCase"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x7 <- do x4 <- do x3 <- Prelude.return x1+                               DM.funcCallHook "toUpper"+                                 (DI.DebugInfo (DI.SrcID "Sort" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x3]))+                                 (Curry.DebugModule.Char.strict_toUpper x3)+                      DM.funcCallHook "ord"+                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.strict_ord x4)+             x8 <- do x6 <- do x5 <- Prelude.return x2+                               DM.funcCallHook "toUpper"+                                 (DI.DebugInfo (DI.SrcID "Sort" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x5]))+                                 (Curry.DebugModule.Char.strict_toUpper x5)+                      DM.funcCallHook "ord"+                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                           (DI.DynamicInfo [] [DI.genTerm x6]))+                        (Curry.DebugModule.Prelude.strict_ord x6)+             DM.funcCallHook "<="+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+               (Curry.DebugModule.Prelude.op_LtEq x7 x8)))+term_strict_leqCharIgnoreCase x1+  = DI.Term "leqCharIgnoreCase" (DI.SrcID "Sort" 0) x1+ +strict_leqString ::+                 (DM.DM dm) =>+                   dm+                     (DM.Func dm+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                        (DM.Func dm+                           (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                           Curry.DebugModule.Prelude.Bool))+strict_leqString+  = DM.eval+      (DM.funcDeclHook "leqString"+         (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return+                     (PC.partCall2 (term_strict_leqChar []) strict_leqChar)+             Prelude.return+               (PC.partCall2 (term_strict_leqList [DI.genTerm x0])+                  (strict_leqList x0))))+ +strict_cmpString ::+                 (DM.DM dm) =>+                   dm+                     (DM.Func dm+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                        (DM.Func dm+                           (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                           Curry.DebugModule.Prelude.Ordering))+strict_cmpString+  = DM.eval+      (DM.funcDeclHook "cmpString"+         (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return+                     (PC.partCall2 (term_strict_cmpChar []) strict_cmpChar)+             Prelude.return+               (PC.partCall2 (term_strict_cmpList [DI.genTerm x0])+                  (strict_cmpList x0))))+ +strict_leqStringIgnoreCase ::+                           (DM.DM dm) =>+                             dm+                               (DM.Func dm+                                  (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                                  (DM.Func dm+                                     (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                                     Curry.DebugModule.Prelude.Bool))+strict_leqStringIgnoreCase+  = DM.eval+      (DM.funcDeclHook "leqStringIgnoreCase"+         (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return+                     (PC.partCall2 (term_strict_leqCharIgnoreCase [])+                        strict_leqCharIgnoreCase)+             Prelude.return+               (PC.partCall2 (term_strict_leqList [DI.genTerm x0])+                  (strict_leqList x0))))+ +strict_leqLexGerman ::+                    (DM.DM dm) =>+                      Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                        Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                          dm Curry.DebugModule.Prelude.Bool+strict_leqLexGerman x1 x2+  = DM.eval+      (DM.funcDeclHook "leqLexGerman"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_12"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_12 x3 x4)))+term_strict_leqLexGerman x1+  = DI.Term "leqLexGerman" (DI.SrcID "Sort" 0) x1+ +x'xstrict_leqLexGerman46glex4689 ::+                                 (DM.DM dm) =>+                                   Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+x'xstrict_leqLexGerman46glex4689 x1+  = DM.eval+      (DM.funcDeclHook "leqLexGerman.glex.89"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             x11 <- do x8 <- do x3 <- Prelude.return x1+                                x4 <- do x2 <- DM.litHook+                                                 (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                    (DI.DynamicInfo [] []))+                                                 (Prelude.return+                                                    (Curry.DebugModule.Prelude.Char 'A'))+                                         DM.funcCallHook "ord"+                                           (DI.DebugInfo (DI.SrcID "Sort" 0)+                                              (DI.DynamicInfo [] [DI.genTerm x2]))+                                           (Curry.DebugModule.Prelude.strict_ord x2)+                                DM.funcCallHook ">="+                                  (DI.DebugInfo (DI.SrcID "Sort" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                  (Curry.DebugModule.Prelude.op_GtEq x3 x4)+                       x9 <- do x6 <- Prelude.return x1+                                x7 <- do x5 <- DM.litHook+                                                 (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                    (DI.DynamicInfo [] []))+                                                 (Prelude.return+                                                    (Curry.DebugModule.Prelude.Char 'Z'))+                                         DM.funcCallHook "ord"+                                           (DI.DebugInfo (DI.SrcID "Sort" 0)+                                              (DI.DynamicInfo [] [DI.genTerm x5]))+                                           (Curry.DebugModule.Prelude.strict_ord x5)+                                DM.funcCallHook "<="+                                  (DI.DebugInfo (DI.SrcID "Sort" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                  (Curry.DebugModule.Prelude.op_LtEq x6 x7)+                       DM.funcCallHook "&&"+                         (DI.DebugInfo (DI.SrcID "Sort" 0)+                            (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                         (Curry.DebugModule.Prelude.op_AndAnd x8 x9)+             DM.funcCallHook "_case_8"+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+               (strict__case_8 x10 x11)))+x'xterm_strict_leqLexGerman46glex4689 x1+  = DI.Term "leqLexGerman.glex.89" (DI.SrcID "Sort" 0) x1+strict__case_8 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x1+                                  x8 <- do x5 <- do x3 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Char 'a'))+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x3]))+                                                      (Curry.DebugModule.Prelude.strict_ord x3)+                                           x6 <- do x4 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Char 'A'))+                                                    DM.funcCallHook "ord"+                                                      (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x4]))+                                                      (Curry.DebugModule.Prelude.strict_ord x4)+                                           DM.funcCallHook "-"+                                             (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Curry.DebugModule.Prelude.op_Minus x5 x6)+                                  DM.funcCallHook "+"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Curry.DebugModule.Prelude.op_Plus x7 x8)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x1+                                  x12 <- do x9 <- Prelude.return x1+                                            x10 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Pos+                                                           (Curry.DebugModule.Prelude.O+                                                              (Curry.DebugModule.Prelude.O+                                                                 (Curry.DebugModule.Prelude.I+                                                                    (Curry.DebugModule.Prelude.O+                                                                       (Curry.DebugModule.Prelude.O+                                                                          (Curry.DebugModule.Prelude.I+                                                                             (Curry.DebugModule.Prelude.I+                                                                                Curry.DebugModule.Prelude.IHi)))))))))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (Curry.DebugModule.Prelude.op_EqEq x9 x10)+                                  DM.funcCallHook "_case_7"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_7 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_8 x1)+                           x13)))+term_strict__case_8 x1 = DI.Term "_case_8" (DI.SrcID "Sort" 0) x1+strict__case_7 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char 'a'))+                                  DM.funcCallHook "ord"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3]))+                                    (Curry.DebugModule.Prelude.strict_ord x3)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- do x4 <- Prelude.return x1+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.I+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.I+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_6"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_6 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_7 x1)+                           x8)))+term_strict__case_7 x1 = DI.Term "_case_7" (DI.SrcID "Sort" 0) x1+strict__case_6 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char 'o'))+                                  DM.funcCallHook "ord"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3]))+                                    (Curry.DebugModule.Prelude.strict_ord x3)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- do x4 <- Prelude.return x1+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.O+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.I+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.I+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_5"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_6 x1)+                           x8)))+term_strict__case_6 x1 = DI.Term "_case_6" (DI.SrcID "Sort" 0) x1+strict__case_5 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char 'u'))+                                  DM.funcCallHook "ord"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3]))+                                    (Curry.DebugModule.Prelude.strict_ord x3)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- do x4 <- Prelude.return x1+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.O+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.O+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_4"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_4 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_5 x1)+                           x8)))+term_strict__case_5 x1 = DI.Term "_case_5" (DI.SrcID "Sort" 0) x1+strict__case_4 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char 'a'))+                                  DM.funcCallHook "ord"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3]))+                                    (Curry.DebugModule.Prelude.strict_ord x3)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- do x4 <- Prelude.return x1+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.I+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_3"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_3 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_4 x1)+                           x8)))+term_strict__case_4 x1 = DI.Term "_case_4" (DI.SrcID "Sort" 0) x1+strict__case_3 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char 'o'))+                                  DM.funcCallHook "ord"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3]))+                                    (Curry.DebugModule.Prelude.strict_ord x3)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- do x4 <- Prelude.return x1+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.O+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.I+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_2"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_2 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_3 x1)+                           x8)))+term_strict__case_3 x1 = DI.Term "_case_3" (DI.SrcID "Sort" 0) x1+strict__case_2 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char 'u'))+                                  DM.funcCallHook "ord"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3]))+                                    (Curry.DebugModule.Prelude.strict_ord x3)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- do x4 <- Prelude.return x1+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.I+                                                            (Curry.DebugModule.Prelude.I+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.I+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_1"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_1 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_2 x1)+                           x8)))+term_strict__case_2 x1 = DI.Term "_case_2" (DI.SrcID "Sort" 0) x1+strict__case_1 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x6 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char 's'))+                                  DM.funcCallHook "ord"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3]))+                                    (Curry.DebugModule.Prelude.strict_ord x3)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x1+                                  x5 <- DM.funcCallHook "otherwise"+                                          (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                          Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_0"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (strict__case_0 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           (strict__case_1 x1)+                           x6)))+term_strict__case_1 x1 = DI.Term "_case_1" (DI.SrcID "Sort" 0) x1+strict__case_0 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (case x3 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x1))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x3])))+                           (strict__case_0 x1)+                           x3)))+term_strict__case_0 x1 = DI.Term "_case_0" (DI.SrcID "Sort" 0) x1+strict__case_12 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_12"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x8 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.True)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x3+                                  x6 <- Prelude.return x4+                                  x7 <- Prelude.return x2+                                  DM.funcCallHook "_case_11"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_11 x5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_12 x2)+                           x8)))+term_strict__case_12 x1 = DI.Term "_case_12" (DI.SrcID "Sort" 0) x1+strict__case_11 x3 x4 x2+  = DM.eval+      (DM.funcDeclHook "_case_11"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4, DI.genTerm x2]))+         (do x20 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.False)))+                    Curry.DebugModule.Prelude.Cons x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x7 <- do x10 <- do x9 <- Prelude.return x3+                                                        DM.funcCallHook "ord"+                                                          (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                             (DI.DynamicInfo [] [DI.genTerm x9]))+                                                          (Curry.DebugModule.Prelude.strict_ord x9)+                                              DM.funcCallHook "leqLexGerman.glex.89"+                                                (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x10]))+                                                (x'xstrict_leqLexGerman46glex4689 x10)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x8 <- do x12 <- do x11 <- Prelude.return x5+                                                                 DM.funcCallHook "ord"+                                                                   (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x11]))+                                                                   (Curry.DebugModule.Prelude.strict_ord+                                                                      x11)+                                                       DM.funcCallHook "leqLexGerman.glex.89"+                                                         (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x12]))+                                                         (x'xstrict_leqLexGerman46glex4689 x12)+                                              DM.eval+                                                (do x15 <- Prelude.return x4+                                                    x16 <- Prelude.return x6+                                                    x17 <- Prelude.return x7+                                                    x18 <- Prelude.return x8+                                                    x19 <- do x13 <- Prelude.return x7+                                                              x14 <- Prelude.return x8+                                                              DM.funcCallHook "=="+                                                                (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x13,+                                                                       DI.genTerm x14]))+                                                                (Curry.DebugModule.Prelude.op_EqEq+                                                                   x13+                                                                   x14)+                                                    DM.funcCallHook "_case_10"+                                                      (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x15, DI.genTerm x16,+                                                             DI.genTerm x17, DI.genTerm x18,+                                                             DI.genTerm x19]))+                                                      (strict__case_10 x15 x16 x17 x18 x19)))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_11 x3 x4)+                           x20)))+term_strict__case_11 x1 = DI.Term "_case_11" (DI.SrcID "Sort" 0) x1+strict__case_10 x4 x6 x7 x8 x9+  = DM.eval+      (DM.funcDeclHook "_case_10"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x4, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                DI.genTerm x9]))+         (do x15 <- Prelude.return x9+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x4+                                  x11 <- Prelude.return x6+                                  DM.funcCallHook "leqLexGerman"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (strict_leqLexGerman x10 x11)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x7+                                  x13 <- Prelude.return x8+                                  x14 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_9"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x12, DI.genTerm x13, DI.genTerm x14]))+                                    (strict__case_9 x12 x13 x14)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_10 x4 x6 x7 x8)+                           x15)))+term_strict__case_10 x1 = DI.Term "_case_10" (DI.SrcID "Sort" 0) x1+strict__case_9 x7 x8 x9+  = DM.eval+      (DM.funcDeclHook "_case_9"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+         (do x12 <- Prelude.return x9+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x7+                                  x11 <- Prelude.return x8+                                  DM.funcCallHook "<"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (Curry.DebugModule.Prelude.op_Lt x10 x11)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_9 x7 x8)+                           x12)))+term_strict__case_9 x1 = DI.Term "_case_9" (DI.SrcID "Sort" 0) x1+strict__case_14 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_14"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x11 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.EQ)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x1+                                  x9 <- Prelude.return x2+                                  x10 <- do x6 <- do x4 <- Prelude.return x1+                                                     DM.funcCallHook "ord"+                                                       (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x4]))+                                                       (Curry.DebugModule.Prelude.strict_ord x4)+                                            x7 <- do x5 <- Prelude.return x2+                                                     DM.funcCallHook "ord"+                                                       (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x5]))+                                                       (Curry.DebugModule.Prelude.strict_ord x5)+                                            DM.funcCallHook "<"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Curry.DebugModule.Prelude.op_Lt x6 x7)+                                  DM.funcCallHook "_case_13"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_13 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_14 x1 x2)+                           x11)))+term_strict__case_14 x1 = DI.Term "_case_14" (DI.SrcID "Sort" 0) x1+strict__case_13 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_13"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.LT)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.GT)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_13 x1 x2)+                           x4)))+term_strict__case_13 x1 = DI.Term "_case_13" (DI.SrcID "Sort" 0) x1+strict__case_19 x1 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_19"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  DM.funcCallHook "_case_18"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (strict__case_18 x8)))+                    Curry.DebugModule.Prelude.Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- Prelude.return x6+                                  x11 <- Prelude.return x7+                                  x12 <- Prelude.return x3+                                  DM.funcCallHook "_case_17"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11,+                                           DI.genTerm x12]))+                                    (strict__case_17 x9 x10 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_19 x1 x3)+                           x13)))+term_strict__case_19 x1 = DI.Term "_case_19" (DI.SrcID "Sort" 0) x1+strict__case_17 x1 x6 x7 x3+  = DM.eval+      (DM.funcDeclHook "_case_17"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x6, DI.genTerm x7, DI.genTerm x3]))+         (do x22 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x22]))+               (case x22 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.GT)))+                    Curry.DebugModule.Prelude.Cons x8 x9+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- Prelude.return x1+                                  x17 <- Prelude.return x6+                                  x18 <- Prelude.return x7+                                  x19 <- Prelude.return x8+                                  x20 <- Prelude.return x9+                                  x21 <- do x14 <- do x12 <- do x10 <- Prelude.return x1+                                                                x11 <- Prelude.return x6+                                                                DM.funcCallHook "apply"+                                                                  (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x10,+                                                                         DI.genTerm x11]))+                                                                  (Curry.DebugModule.Prelude.strict_apply+                                                                     x10+                                                                     x11)+                                                      x13 <- Prelude.return x8+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x12, DI.genTerm x13]))+                                                        (Curry.DebugModule.Prelude.strict_apply x12+                                                           x13)+                                            x15 <- DM.constructorHook+                                                     (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return Curry.DebugModule.Prelude.EQ)+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x14, DI.genTerm x15]))+                                              (Curry.DebugModule.Prelude.op_EqEq x14 x15)+                                  DM.funcCallHook "_case_16"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x16, DI.genTerm x17, DI.genTerm x18,+                                           DI.genTerm x19, DI.genTerm x20, DI.genTerm x21]))+                                    (strict__case_16 x16 x17 x18 x19 x20 x21)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x22])))+                           (strict__case_17 x1 x6 x7)+                           x22)))+term_strict__case_17 x1 = DI.Term "_case_17" (DI.SrcID "Sort" 0) x1+strict__case_16 x1 x6 x7 x8 x9 x10+  = DM.eval+      (DM.funcDeclHook "_case_16"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                DI.genTerm x9, DI.genTerm x10]))+         (do x18 <- Prelude.return x10+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x1+                                  x12 <- Prelude.return x7+                                  x13 <- Prelude.return x9+                                  DM.funcCallHook "cmpList"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x11, DI.genTerm x12, DI.genTerm x13]))+                                    (strict_cmpList x11 x12 x13)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x1+                                  x15 <- Prelude.return x6+                                  x16 <- Prelude.return x8+                                  x17 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_15"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x14, DI.genTerm x15, DI.genTerm x16,+                                           DI.genTerm x17]))+                                    (strict__case_15 x14 x15 x16 x17)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_16 x1 x6 x7 x8 x9)+                           x18)))+term_strict__case_16 x1 = DI.Term "_case_16" (DI.SrcID "Sort" 0) x1+strict__case_15 x1 x6 x8 x9+  = DM.eval+      (DM.funcDeclHook "_case_15"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x6, DI.genTerm x8, DI.genTerm x9]))+         (do x14 <- Prelude.return x9+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- do x10 <- Prelude.return x1+                                            x11 <- Prelude.return x6+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (Curry.DebugModule.Prelude.strict_apply x10 x11)+                                  x13 <- Prelude.return x8+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (Curry.DebugModule.Prelude.strict_apply x12 x13)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_15 x1 x6 x8)+                           x14)))+term_strict__case_15 x1 = DI.Term "_case_15" (DI.SrcID "Sort" 0) x1+strict__case_18 x3+  = DM.eval+      (DM.funcDeclHook "_case_18"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x3]))+         (do x6 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.EQ)))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.LT)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_18+                           x6)))+term_strict__case_18 x1 = DI.Term "_case_18" (DI.SrcID "Sort" 0) x1+strict__case_23 x1 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_23"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x2]))+         (do x10 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.True)))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x4+                                  x8 <- Prelude.return x5+                                  x9 <- Prelude.return x3+                                  DM.funcCallHook "_case_22"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (strict__case_22 x6 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_23 x1 x3)+                           x10)))+term_strict__case_23 x1 = DI.Term "_case_23" (DI.SrcID "Sort" 0) x1+strict__case_22 x1 x4 x5 x3+  = DM.eval+      (DM.funcDeclHook "_case_22"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x3]))+         (do x16 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.False)))+                    Curry.DebugModule.Prelude.Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x1+                                  x11 <- Prelude.return x4+                                  x12 <- Prelude.return x5+                                  x13 <- Prelude.return x6+                                  x14 <- Prelude.return x7+                                  x15 <- do x8 <- Prelude.return x4+                                            x9 <- Prelude.return x6+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.op_EqEq x8 x9)+                                  DM.funcCallHook "_case_21"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12,+                                           DI.genTerm x13, DI.genTerm x14, DI.genTerm x15]))+                                    (strict__case_21 x10 x11 x12 x13 x14 x15)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_22 x1 x4 x5)+                           x16)))+term_strict__case_22 x1 = DI.Term "_case_22" (DI.SrcID "Sort" 0) x1+strict__case_21 x1 x4 x5 x6 x7 x8+  = DM.eval+      (DM.funcDeclHook "_case_21"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6,+                DI.genTerm x7, DI.genTerm x8]))+         (do x16 <- Prelude.return x8+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- Prelude.return x5+                                  x11 <- Prelude.return x7+                                  DM.funcCallHook "leqList"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11]))+                                    (strict_leqList x9 x10 x11)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x1+                                  x13 <- Prelude.return x4+                                  x14 <- Prelude.return x6+                                  x15 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_20"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x12, DI.genTerm x13, DI.genTerm x14,+                                           DI.genTerm x15]))+                                    (strict__case_20 x12 x13 x14 x15)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_21 x1 x4 x5 x6 x7)+                           x16)))+term_strict__case_21 x1 = DI.Term "_case_21" (DI.SrcID "Sort" 0) x1+strict__case_20 x1 x4 x6 x7+  = DM.eval+      (DM.funcDeclHook "_case_20"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x6, DI.genTerm x7]))+         (do x12 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x8 <- Prelude.return x1+                                            x9 <- Prelude.return x4+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.strict_apply x8 x9)+                                  x11 <- Prelude.return x6+                                  DM.funcCallHook "apply"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (Curry.DebugModule.Prelude.strict_apply x10 x11)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_20 x1 x4 x6)+                           x12)))+term_strict__case_20 x1 = DI.Term "_case_20" (DI.SrcID "Sort" 0) x1+strict__case_27 x1 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_27"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x2]))+         (do x10 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x1+                                  x7 <- Prelude.return x4+                                  x8 <- Prelude.return x5+                                  x9 <- Prelude.return x3+                                  DM.funcCallHook "_case_26"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8,+                                           DI.genTerm x9]))+                                    (strict__case_26 x6 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_27 x1 x3)+                           x10)))+term_strict__case_27 x1 = DI.Term "_case_27" (DI.SrcID "Sort" 0) x1+strict__case_26 x1 x4 x5 x3+  = DM.eval+      (DM.funcDeclHook "_case_26"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x3]))+         (do x20 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x4+                                  x9 <- Prelude.return x5+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x8 x9))))+                    Curry.DebugModule.Prelude.Cons x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x1+                                  x15 <- Prelude.return x4+                                  x16 <- Prelude.return x5+                                  x17 <- Prelude.return x6+                                  x18 <- Prelude.return x7+                                  x19 <- do x12 <- do x10 <- Prelude.return x1+                                                      x11 <- Prelude.return x4+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x10, DI.genTerm x11]))+                                                        (Curry.DebugModule.Prelude.strict_apply x10+                                                           x11)+                                            x13 <- Prelude.return x6+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x12, DI.genTerm x13]))+                                              (Curry.DebugModule.Prelude.strict_apply x12 x13)+                                  DM.funcCallHook "_case_25"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x14, DI.genTerm x15, DI.genTerm x16,+                                           DI.genTerm x17, DI.genTerm x18, DI.genTerm x19]))+                                    (strict__case_25 x14 x15 x16 x17 x18 x19)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_26 x1 x4 x5)+                           x20)))+term_strict__case_26 x1 = DI.Term "_case_26" (DI.SrcID "Sort" 0) x1+strict__case_25 x1 x4 x5 x6 x7 x8+  = DM.eval+      (DM.funcDeclHook "_case_25"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6,+                DI.genTerm x7, DI.genTerm x8]))+         (do x22 <- Prelude.return x8+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x22]))+               (case x22 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x4+                                  x15 <- do x11 <- Prelude.return x1+                                            x12 <- Prelude.return x5+                                            x13 <- do x9 <- Prelude.return x6+                                                      x10 <- Prelude.return x7+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x9 x10))+                                            DM.funcCallHook "merge"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12,+                                                     DI.genTerm x13]))+                                              (strict_merge x11 x12 x13)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- Prelude.return x1+                                  x17 <- Prelude.return x4+                                  x18 <- Prelude.return x5+                                  x19 <- Prelude.return x6+                                  x20 <- Prelude.return x7+                                  x21 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_24"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x16, DI.genTerm x17, DI.genTerm x18,+                                           DI.genTerm x19, DI.genTerm x20, DI.genTerm x21]))+                                    (strict__case_24 x16 x17 x18 x19 x20 x21)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x22])))+                           (strict__case_25 x1 x4 x5 x6 x7)+                           x22)))+term_strict__case_25 x1 = DI.Term "_case_25" (DI.SrcID "Sort" 0) x1+strict__case_24 x1 x4 x5 x6 x7 x8+  = DM.eval+      (DM.funcDeclHook "_case_24"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6,+                DI.genTerm x7, DI.genTerm x8]))+         (do x16 <- Prelude.return x8+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x6+                                  x15 <- do x11 <- Prelude.return x1+                                            x12 <- do x9 <- Prelude.return x4+                                                      x10 <- Prelude.return x5+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x9 x10))+                                            x13 <- Prelude.return x7+                                            DM.funcCallHook "merge"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12,+                                                     DI.genTerm x13]))+                                              (strict_merge x11 x12 x13)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_24 x1 x4 x5 x6 x7)+                           x16)))+term_strict__case_24 x1 = DI.Term "_case_24" (DI.SrcID "Sort" 0) x1+strict__case_29 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_29"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- Prelude.return x3+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "_case_28"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_28 x5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_29 x1)+                           x8)))+term_strict__case_29 x1 = DI.Term "_case_29" (DI.SrcID "Sort" 0) x1+strict__case_28 x1 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_28"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4]))+         (do x16 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    Curry.DebugModule.Prelude.Cons x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x1+                                  x15 <- do x12 <- do x7 <- Prelude.return x1+                                                      x8 <- Prelude.return x3+                                                      x9 <- Prelude.return x5+                                                      DM.funcCallHook "merge"+                                                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x7, DI.genTerm x8,+                                                               DI.genTerm x9]))+                                                        (strict_merge x7 x8 x9)+                                            x13 <- do x10 <- Prelude.return x1+                                                      x11 <- Prelude.return x6+                                                      DM.funcCallHook "mergeSort.mergePairs.16"+                                                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x10, DI.genTerm x11]))+                                                        (x'xstrict_mergeSort46mergePairs4616 x10+                                                           x11)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x12, DI.genTerm x13]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x12 x13))+                                  DM.funcCallHook "mergeSort.mergeLists.16"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (x'xstrict_mergeSort46mergeLists4616 x14 x15)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_28 x1 x3)+                           x16)))+term_strict__case_28 x1 = DI.Term "_case_28" (DI.SrcID "Sort" 0) x1+strict__case_31 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_31"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- Prelude.return x3+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "_case_30"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_30 x5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_31 x1)+                           x8)))+term_strict__case_31 x1 = DI.Term "_case_31" (DI.SrcID "Sort" 0) x1+strict__case_30 x1 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_30"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4]))+         (do x16 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  x8 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8))))+                    Curry.DebugModule.Prelude.Cons x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- do x9 <- Prelude.return x1+                                            x10 <- Prelude.return x3+                                            x11 <- Prelude.return x5+                                            DM.funcCallHook "merge"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10,+                                                     DI.genTerm x11]))+                                              (strict_merge x9 x10 x11)+                                  x15 <- do x12 <- Prelude.return x1+                                            x13 <- Prelude.return x6+                                            DM.funcCallHook "mergeSort.mergePairs.16"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x12, DI.genTerm x13]))+                                              (x'xstrict_mergeSort46mergePairs4616 x12 x13)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_30 x1 x3)+                           x16)))+term_strict__case_30 x1 = DI.Term "_case_30" (DI.SrcID "Sort" 0) x1+strict__case_35 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_35"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x8 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x1+                                  x6 <- Prelude.return x3+                                  x7 <- Prelude.return x4+                                  DM.funcCallHook "_case_34"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+                                    (strict__case_34 x5 x6 x7)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_35 x1)+                           x8)))+term_strict__case_35 x1 = DI.Term "_case_35" (DI.SrcID "Sort" 0) x1+strict__case_34 x1 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_34"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4]))+         (do x20 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- do x7 <- Prelude.return x3+                                           x8 <- DM.constructorHook+                                                   (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return Curry.DebugModule.Prelude.Nil)+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8))+                                  x10 <- DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10))))+                    Curry.DebugModule.Prelude.Cons x5 x6+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- Prelude.return x1+                                  x16 <- Prelude.return x3+                                  x17 <- Prelude.return x5+                                  x18 <- Prelude.return x6+                                  x19 <- do x13 <- do x11 <- Prelude.return x1+                                                      x12 <- Prelude.return x3+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x11, DI.genTerm x12]))+                                                        (Curry.DebugModule.Prelude.strict_apply x11+                                                           x12)+                                            x14 <- Prelude.return x5+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x13, DI.genTerm x14]))+                                              (Curry.DebugModule.Prelude.strict_apply x13 x14)+                                  DM.funcCallHook "_case_33"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x15, DI.genTerm x16, DI.genTerm x17,+                                           DI.genTerm x18, DI.genTerm x19]))+                                    (strict__case_33 x15 x16 x17 x18 x19)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_34 x1 x3)+                           x20)))+term_strict__case_34 x1 = DI.Term "_case_34" (DI.SrcID "Sort" 0) x1+strict__case_33 x1 x3 x5 x6 x7+  = DM.eval+      (DM.funcDeclHook "_case_33"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x5, DI.genTerm x6,+                DI.genTerm x7]))+         (do x21 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- do x10 <- Prelude.return x3+                                            x11 <- do x8 <- Prelude.return x5+                                                      x9 <- DM.constructorHook+                                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 Curry.DebugModule.Prelude.Nil)+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x8, DI.genTerm x9]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x8 x9))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x10 x11))+                                  x15 <- do x12 <- Prelude.return x1+                                            x13 <- Prelude.return x6+                                            DM.funcCallHook "mergeSort.genRuns.16"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x12, DI.genTerm x13]))+                                              (x'xstrict_mergeSort46genRuns4616 x12 x13)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- Prelude.return x1+                                  x17 <- Prelude.return x3+                                  x18 <- Prelude.return x5+                                  x19 <- Prelude.return x6+                                  x20 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_32"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x16, DI.genTerm x17, DI.genTerm x18,+                                           DI.genTerm x19, DI.genTerm x20]))+                                    (strict__case_32 x16 x17 x18 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_33 x1 x3 x5 x6)+                           x21)))+term_strict__case_33 x1 = DI.Term "_case_33" (DI.SrcID "Sort" 0) x1+strict__case_32 x1 x3 x5 x6 x7+  = DM.eval+      (DM.funcDeclHook "_case_32"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x5, DI.genTerm x6,+                DI.genTerm x7]))+         (do x16 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- do x10 <- Prelude.return x5+                                            x11 <- do x8 <- Prelude.return x3+                                                      x9 <- DM.constructorHook+                                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 Curry.DebugModule.Prelude.Nil)+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x8, DI.genTerm x9]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x8 x9))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x10 x11))+                                  x15 <- do x12 <- Prelude.return x1+                                            x13 <- Prelude.return x6+                                            DM.funcCallHook "mergeSort.genRuns.16"+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x12, DI.genTerm x13]))+                                              (x'xstrict_mergeSort46genRuns4616 x12 x13)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_32 x1 x3 x5 x6)+                           x16)))+term_strict__case_32 x1 = DI.Term "_case_32" (DI.SrcID "Sort" 0) x1+strict__case_36 x1+  = DM.eval+      (DM.funcDeclHook "_case_36"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_36+                           x4)))+term_strict__case_36 x1 = DI.Term "_case_36" (DI.SrcID "Sort" 0) x1+strict__case_37 x1+  = DM.eval+      (DM.funcDeclHook "_case_37"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_37+                           x4)))+term_strict__case_37 x1 = DI.Term "_case_37" (DI.SrcID "Sort" 0) x1+strict__case_38 x1+  = DM.eval+      (DM.funcDeclHook "_case_38"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_38+                           x4)))+term_strict__case_38 x1 = DI.Term "_case_38" (DI.SrcID "Sort" 0) x1+strict__case_39 x1+  = DM.eval+      (DM.funcDeclHook "_case_39"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_39+                           x4)))+term_strict__case_39 x1 = DI.Term "_case_39" (DI.SrcID "Sort" 0) x1+strict__case_42 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_42"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x26 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x26]))+               (case x26 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x10 <- DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x9 x10))))+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x6 <- do x11 <- Prelude.return x1+                                              x12 <- Prelude.return x2+                                              x13 <- Prelude.return x5+                                              DM.funcCallHook "quickSort.split.6"+                                                (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x11, DI.genTerm x12,+                                                       DI.genTerm x13]))+                                                (x'xstrict_quickSort46split466 x11 x12 x13)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x7 <- do x14 <- Prelude.return x6+                                                       DM.funcCallHook+                                                         "quickSort.split.6._#selFP3#l"+                                                         (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x14]))+                                                         (x'xstrict_quickSort46split46646_35selFP335l+                                                            x14)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x8 <- do x15 <- Prelude.return x6+                                                                DM.funcCallHook+                                                                  "quickSort.split.6._#selFP4#r"+                                                                  (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x15]))+                                                                  (x'xstrict_quickSort46split46646_35selFP435r+                                                                     x15)+                                                       DM.eval+                                                         (do x20 <- Prelude.return x1+                                                             x21 <- Prelude.return x2+                                                             x22 <- Prelude.return x4+                                                             x23 <- Prelude.return x7+                                                             x24 <- Prelude.return x8+                                                             x25 <- do x18 <- do x16 <- Prelude.return+                                                                                          x1+                                                                                 x17 <- Prelude.return+                                                                                          x4+                                                                                 DM.funcCallHook+                                                                                   "apply"+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Sort"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         [DI.genTerm+                                                                                            x16,+                                                                                          DI.genTerm+                                                                                            x17]))+                                                                                   (Curry.DebugModule.Prelude.strict_apply+                                                                                      x16+                                                                                      x17)+                                                                       x19 <- Prelude.return x2+                                                                       DM.funcCallHook "apply"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Sort" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x18,+                                                                                DI.genTerm x19]))+                                                                         (Curry.DebugModule.Prelude.strict_apply+                                                                            x18+                                                                            x19)+                                                             DM.funcCallHook "_case_41"+                                                               (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x20,+                                                                      DI.genTerm x21,+                                                                      DI.genTerm x22,+                                                                      DI.genTerm x23,+                                                                      DI.genTerm x24,+                                                                      DI.genTerm x25]))+                                                               (strict__case_41 x20 x21 x22 x23 x24+                                                                  x25)))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x26])))+                           (strict__case_42 x1 x2)+                           x26)))+term_strict__case_42 x1 = DI.Term "_case_42" (DI.SrcID "Sort" 0) x1+strict__case_41 x1 x2 x4 x7 x8 x9+  = DM.eval+      (DM.funcDeclHook "_case_41"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x4, DI.genTerm x7,+                DI.genTerm x8, DI.genTerm x9]))+         (do x18 <- Prelude.return x9+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- do x10 <- Prelude.return x4+                                            x11 <- Prelude.return x7+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x10 x11))+                                  x13 <- Prelude.return x8+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x12 x13))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x4+                                  x15 <- Prelude.return x7+                                  x16 <- Prelude.return x8+                                  x17 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_40"+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x14, DI.genTerm x15, DI.genTerm x16,+                                           DI.genTerm x17]))+                                    (strict__case_40 x14 x15 x16 x17)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_41 x1 x2 x4 x7 x8)+                           x18)))+term_strict__case_41 x1 = DI.Term "_case_41" (DI.SrcID "Sort" 0) x1+strict__case_40 x4 x7 x8 x9+  = DM.eval+      (DM.funcDeclHook "_case_40"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo []+               [DI.genTerm x4, DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+         (do x14 <- Prelude.return x9+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" 0)+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x7+                                  x13 <- do x10 <- Prelude.return x4+                                            x11 <- Prelude.return x8+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x10 x11))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Sort" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x12 x13))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Sort" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_40 x4 x7 x8)+                           x14)))+term_strict__case_40 x1 = DI.Term "_case_40" (DI.SrcID "Sort" 0) x1+strict__case_43 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_43"+         (DI.DebugInfo (DI.SrcID "Sort" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x21 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Sort" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x5 <- do x8 <- Prelude.return x1+                                              x9 <- Prelude.return x3+                                              x10 <- Prelude.return x4+                                              DM.funcCallHook "quickSort.split.6"+                                                (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x8, DI.genTerm x9,+                                                       DI.genTerm x10]))+                                                (x'xstrict_quickSort46split466 x8 x9 x10)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x6 <- do x11 <- Prelude.return x5+                                                       DM.funcCallHook "quickSort._#selFP6#l"+                                                         (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x11]))+                                                         (x'xstrict_quickSort46_35selFP635l x11)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x7 <- do x12 <- Prelude.return x5+                                                                DM.funcCallHook+                                                                  "quickSort._#selFP7#r"+                                                                  (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12]))+                                                                  (x'xstrict_quickSort46_35selFP735r+                                                                     x12)+                                                       DM.eval+                                                         (do x19 <- do x13 <- Prelude.return x1+                                                                       x14 <- Prelude.return x6+                                                                       DM.funcCallHook "quickSort"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Sort" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x13,+                                                                                DI.genTerm x14]))+                                                                         (strict_quickSort x13 x14)+                                                             x20 <- do x17 <- Prelude.return x3+                                                                       x18 <- do x15 <- Prelude.return+                                                                                          x1+                                                                                 x16 <- Prelude.return+                                                                                          x7+                                                                                 DM.funcCallHook+                                                                                   "quickSort"+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Sort"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         [DI.genTerm+                                                                                            x15,+                                                                                          DI.genTerm+                                                                                            x16]))+                                                                                   (strict_quickSort+                                                                                      x15+                                                                                      x16)+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Sort" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x17,+                                                                                DI.genTerm x18]))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Cons+                                                                               x17+                                                                               x18))+                                                             DM.funcCallHook "++"+                                                               (DI.DebugInfo (DI.SrcID "Sort" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x19,+                                                                      DI.genTerm x20]))+                                                               (Curry.DebugModule.Prelude.op_PlusPlus+                                                                  x19+                                                                  x20)))))))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Sort" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_43 x1)+                           x21)))+term_strict__case_43 x1 = DI.Term "_case_43" (DI.SrcID "Sort" 0) x1
+ dist/build/Curry/DebugModule/Time.hs view
@@ -0,0 +1,6929 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Time where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Prelude+ +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")+ +instance DI.GenTerm ClockTime where+        genTerm (CTime x1)+          = DI.Term "CTime" (DI.SrcID "Time" 0) [DI.genTerm x1]+        genTerm x1 = DM.genericTerm (DI.SrcID "Time" 0) x1+ +instance DI.GenTerm CalendarTime where+        genTerm (CalendarTime x1 x2 x3 x4 x5 x6 x7)+          = DI.Term "CalendarTime" (DI.SrcID "Time" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3, DI.genTerm x4,+               DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]+        genTerm x1 = DM.genericTerm (DI.SrcID "Time" 0) x1+ +data ClockTime = ClockTimeFail+               | ClockTimeOr DM.OrRef [ClockTime]+               | ClockTimeUnderscore+               | CTime Curry.DebugModule.Prelude.Int+               deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data CalendarTime = CalendarTimeFail+                  | CalendarTimeOr DM.OrRef [CalendarTime]+                  | CalendarTimeUnderscore+                  | CalendarTime Curry.DebugModule.Prelude.Int+                                 Curry.DebugModule.Prelude.Int Curry.DebugModule.Prelude.Int+                                 Curry.DebugModule.Prelude.Int Curry.DebugModule.Prelude.Int+                                 Curry.DebugModule.Prelude.Int Curry.DebugModule.Prelude.Int+                  deriving (Data.Generics.Typeable, Data.Generics.Data)+ +strict_ctYear ::+              (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+strict_ctYear x1+  = DM.eval+      (DM.funcDeclHook "ctYear"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_38"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_38 x2)))+term_strict_ctYear x1 = DI.Term "ctYear" (DI.SrcID "Time" 0) x1+ +strict_ctMonth ::+               (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+strict_ctMonth x1+  = DM.eval+      (DM.funcDeclHook "ctMonth"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_37"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_37 x2)))+term_strict_ctMonth x1 = DI.Term "ctMonth" (DI.SrcID "Time" 0) x1+ +strict_ctDay ::+             (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+strict_ctDay x1+  = DM.eval+      (DM.funcDeclHook "ctDay"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_36"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_36 x2)))+term_strict_ctDay x1 = DI.Term "ctDay" (DI.SrcID "Time" 0) x1+ +strict_ctHour ::+              (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+strict_ctHour x1+  = DM.eval+      (DM.funcDeclHook "ctHour"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_35"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_35 x2)))+term_strict_ctHour x1 = DI.Term "ctHour" (DI.SrcID "Time" 0) x1+ +strict_ctMin ::+             (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+strict_ctMin x1+  = DM.eval+      (DM.funcDeclHook "ctMin"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_34"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_34 x2)))+term_strict_ctMin x1 = DI.Term "ctMin" (DI.SrcID "Time" 0) x1+ +strict_ctSec ::+             (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+strict_ctSec x1+  = DM.eval+      (DM.funcDeclHook "ctSec"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_33"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_33 x2)))+term_strict_ctSec x1 = DI.Term "ctSec" (DI.SrcID "Time" 0) x1+ +strict_ctTZ ::+            (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+strict_ctTZ x1+  = DM.eval+      (DM.funcDeclHook "ctTZ"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_32"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_32 x2)))+term_strict_ctTZ x1 = DI.Term "ctTZ" (DI.SrcID "Time" 0) x1+ +strict_getLocalTime ::+                    (DM.DM dm) => dm (Curry.DebugModule.Prelude.IO dm CalendarTime)+strict_getLocalTime+  = DM.eval+      (DM.funcDeclHook "getLocalTime"+         (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+         (do x0 <- DM.funcCallHook "getClockTime"+                     (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                     strict_getClockTime+             x1 <- Prelude.return+                     (PC.partCall1 (x'xterm_strict_getLocalTime46_35lambda2 [])+                        x'xstrict_getLocalTime46_35lambda2)+             DM.funcCallHook ">>="+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x0, DI.genTerm x1]))+               (Curry.DebugModule.Prelude.op_GtGtEq x0 x1)))+ +x'xstrict_getLocalTime46_35lambda2 ::+                                   (DM.DM dm) =>+                                     ClockTime -> dm (Curry.DebugModule.Prelude.IO dm CalendarTime)+x'xstrict_getLocalTime46_35lambda2 x1+  = DM.eval+      (DM.funcDeclHook "getLocalTime._#lambda2"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "toCalendarTime"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict_toCalendarTime x2)))+x'xterm_strict_getLocalTime46_35lambda2 x1+  = DI.Term "getLocalTime._#lambda2" (DI.SrcID "Time" 0) x1+ +strict_clockTimeToInt ::+                      (DM.DM dm) => ClockTime -> dm Curry.DebugModule.Prelude.Int+strict_clockTimeToInt x1+  = DM.eval+      (DM.funcDeclHook "clockTimeToInt"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_31"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_31 x2)))+term_strict_clockTimeToInt x1+  = DI.Term "clockTimeToInt" (DI.SrcID "Time" 0) x1+ +strict_toCalendarTime ::+                      (DM.DM dm) =>+                        ClockTime -> dm (Curry.DebugModule.Prelude.IO dm CalendarTime)+strict_toCalendarTime x1+  = DM.eval+      (DM.funcDeclHook "toCalendarTime"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_toCalendarTime [])+                        strict_prim_toCalendarTime)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_toCalendarTime x1+  = DI.Term "toCalendarTime" (DI.SrcID "Time" 0) x1+ +strict_toUTCTime :: (DM.DM dm) => ClockTime -> dm CalendarTime+strict_toUTCTime x1+  = DM.eval+      (DM.funcDeclHook "toUTCTime"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_toUTCTime [])+                        strict_prim_toUTCTime)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_toUTCTime x1+  = DI.Term "toUTCTime" (DI.SrcID "Time" 0) x1+ +strict_toClockTime :: (DM.DM dm) => CalendarTime -> dm ClockTime+strict_toClockTime x1+  = DM.eval+      (DM.funcDeclHook "toClockTime"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return+                     (PC.partCall1 (term_strict_prim_toClockTime [])+                        strict_prim_toClockTime)+             x3 <- Prelude.return x1+             DM.funcCallHook "$##"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (Curry.DebugModule.Prelude.op_DollarRhombRhomb x2 x3)))+term_strict_toClockTime x1+  = DI.Term "toClockTime" (DI.SrcID "Time" 0) x1+ +strict_calendarTimeToString ::+                            (DM.DM dm) =>+                              CalendarTime ->+                                dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_calendarTimeToString x1+  = DM.eval+      (DM.funcDeclHook "calendarTimeToString"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_30"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_30 x2)))+term_strict_calendarTimeToString x1+  = DI.Term "calendarTimeToString" (DI.SrcID "Time" 0) x1+ +strict_toDayString ::+                   (DM.DM dm) =>+                     CalendarTime ->+                       dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_toDayString x1+  = DM.eval+      (DM.funcDeclHook "toDayString"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_29"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_29 x2)))+term_strict_toDayString x1+  = DI.Term "toDayString" (DI.SrcID "Time" 0) x1+ +strict_toTimeString ::+                    (DM.DM dm) =>+                      CalendarTime ->+                        dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_toTimeString x1+  = DM.eval+      (DM.funcDeclHook "toTimeString"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_28"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_28 x2)))+term_strict_toTimeString x1+  = DI.Term "toTimeString" (DI.SrcID "Time" 0) x1+ +x'xstrict_toTimeString46digit24690 ::+                                   (DM.DM dm) =>+                                     Curry.DebugModule.Prelude.Int ->+                                       dm+                                         (Curry.DebugModule.Prelude.List+                                            Curry.DebugModule.Prelude.Char)+x'xstrict_toTimeString46digit24690 x1+  = DM.eval+      (DM.funcDeclHook "toTimeString.digit2.90"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             x5 <- do x2 <- Prelude.return x1+                      x3 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                              (Prelude.return+                                 (Curry.DebugModule.Prelude.Pos+                                    (Curry.DebugModule.Prelude.O+                                       (Curry.DebugModule.Prelude.I+                                          (Curry.DebugModule.Prelude.O+                                             Curry.DebugModule.Prelude.IHi)))))+                      DM.funcCallHook "<"+                        (DI.DebugInfo (DI.SrcID "Time" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.op_Lt x2 x3)+             DM.funcCallHook "_case_27"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (strict__case_27 x4 x5)))+x'xterm_strict_toTimeString46digit24690 x1+  = DI.Term "toTimeString.digit2.90" (DI.SrcID "Time" 0) x1+ +strict_addSeconds ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Int -> ClockTime -> dm ClockTime+strict_addSeconds x1 x2+  = DM.eval+      (DM.funcDeclHook "addSeconds"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_26"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_26 x3 x4)))+term_strict_addSeconds x1+  = DI.Term "addSeconds" (DI.SrcID "Time" 0) x1+ +strict_addMinutes ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Int -> ClockTime -> dm ClockTime+strict_addMinutes x1 x2+  = DM.eval+      (DM.funcDeclHook "addMinutes"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_25"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_25 x3 x4)))+term_strict_addMinutes x1+  = DI.Term "addMinutes" (DI.SrcID "Time" 0) x1+ +strict_addHours ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Int -> ClockTime -> dm ClockTime+strict_addHours x1 x2+  = DM.eval+      (DM.funcDeclHook "addHours"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_24"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_24 x3 x4)))+term_strict_addHours x1 = DI.Term "addHours" (DI.SrcID "Time" 0) x1+ +strict_addDays ::+               (DM.DM dm) =>+                 Curry.DebugModule.Prelude.Int -> ClockTime -> dm ClockTime+strict_addDays x1 x2+  = DM.eval+      (DM.funcDeclHook "addDays"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_23"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_23 x3 x4)))+term_strict_addDays x1 = DI.Term "addDays" (DI.SrcID "Time" 0) x1+ +strict_addMonths ::+                 (DM.DM dm) =>+                   Curry.DebugModule.Prelude.Int -> ClockTime -> dm ClockTime+strict_addMonths x1 x2+  = DM.eval+      (DM.funcDeclHook "addMonths"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (DM.letHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x3 <- do x12 <- Prelude.return x2+                         DM.funcCallHook "toUTCTime"+                           (DI.DebugInfo (DI.SrcID "Time" 0)+                              (DI.DynamicInfo [] [DI.genTerm x12]))+                           (strict_toUTCTime x12)+                DM.eval+                  (DM.letHook+                     (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                     (do x4 <- do x13 <- Prelude.return x3+                                  DM.funcCallHook "addMonths._#selFP3#y"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x13]))+                                    (x'xstrict_addMonths46_35selFP335y x13)+                         DM.eval+                           (DM.letHook+                              (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                              (do x5 <- do x14 <- Prelude.return x3+                                           DM.funcCallHook "addMonths._#selFP4#mo"+                                             (DI.DebugInfo (DI.SrcID "Time" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x14]))+                                             (x'xstrict_addMonths46_35selFP435mo x14)+                                  DM.eval+                                    (DM.letHook+                                       (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                          (DI.DynamicInfo [] []))+                                       (do x6 <- do x15 <- Prelude.return x3+                                                    DM.funcCallHook "addMonths._#selFP5#d"+                                                      (DI.DebugInfo (DI.SrcID "Time" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x15]))+                                                      (x'xstrict_addMonths46_35selFP535d x15)+                                           DM.eval+                                             (DM.letHook+                                                (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                   (DI.DynamicInfo [] []))+                                                (do x7 <- do x16 <- Prelude.return x3+                                                             DM.funcCallHook "addMonths._#selFP6#h"+                                                               (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x16]))+                                                               (x'xstrict_addMonths46_35selFP635h+                                                                  x16)+                                                    DM.eval+                                                      (DM.letHook+                                                         (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                            (DI.DynamicInfo [] []))+                                                         (do x8 <- do x17 <- Prelude.return x3+                                                                      DM.funcCallHook+                                                                        "addMonths._#selFP7#mi"+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "Time" 0)+                                                                           (DI.DynamicInfo []+                                                                              [DI.genTerm x17]))+                                                                        (x'xstrict_addMonths46_35selFP735mi+                                                                           x17)+                                                             DM.eval+                                                               (DM.letHook+                                                                  (DI.DebugInfo+                                                                     (DI.SrcID "DummyModule" 42)+                                                                     (DI.DynamicInfo [] []))+                                                                  (do x9 <- do x18 <- Prelude.return+                                                                                        x3+                                                                               DM.funcCallHook+                                                                                 "addMonths._#selFP8#s"+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID "Time"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       [DI.genTerm+                                                                                          x18]))+                                                                                 (x'xstrict_addMonths46_35selFP835s+                                                                                    x18)+                                                                      DM.eval+                                                                        (DM.letHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID+                                                                                 "DummyModule"+                                                                                 42)+                                                                              (DI.DynamicInfo []+                                                                                 []))+                                                                           (do x10 <- do x19 <- Prelude.return+                                                                                                  x3+                                                                                         DM.funcCallHook+                                                                                           "addMonths._#selFP9#tz"+                                                                                           (DI.DebugInfo+                                                                                              (DI.SrcID+                                                                                                 "Time"+                                                                                                 0)+                                                                                              (DI.DynamicInfo+                                                                                                 []+                                                                                                 [DI.genTerm+                                                                                                    x19]))+                                                                                           (x'xstrict_addMonths46_35selFP935tz+                                                                                              x19)+                                                                               DM.eval+                                                                                 (DM.letHook+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "DummyModule"+                                                                                          42)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          []))+                                                                                    (do x11 <- do x26 <- do x24 <- do x22 <- do x20 <- Prelude.return+                                                                                                                                         x5+                                                                                                                                x21 <- DM.litHook+                                                                                                                                         (DI.DebugInfo+                                                                                                                                            (DI.SrcID+                                                                                                                                               "Time"+                                                                                                                                               0)+                                                                                                                                            (DI.DynamicInfo+                                                                                                                                               []+                                                                                                                                               []))+                                                                                                                                         (Prelude.return+                                                                                                                                            (Curry.DebugModule.Prelude.Pos+                                                                                                                                               Curry.DebugModule.Prelude.IHi))+                                                                                                                                DM.funcCallHook+                                                                                                                                  "-"+                                                                                                                                  (DI.DebugInfo+                                                                                                                                     (DI.SrcID+                                                                                                                                        "Time"+                                                                                                                                        0)+                                                                                                                                     (DI.DynamicInfo+                                                                                                                                        []+                                                                                                                                        [DI.genTerm+                                                                                                                                           x20,+                                                                                                                                         DI.genTerm+                                                                                                                                           x21]))+                                                                                                                                  (Curry.DebugModule.Prelude.op_Minus+                                                                                                                                     x20+                                                                                                                                     x21)+                                                                                                                      x23 <- Prelude.return+                                                                                                                               x1+                                                                                                                      DM.funcCallHook+                                                                                                                        "+"+                                                                                                                        (DI.DebugInfo+                                                                                                                           (DI.SrcID+                                                                                                                              "Time"+                                                                                                                              0)+                                                                                                                           (DI.DynamicInfo+                                                                                                                              []+                                                                                                                              [DI.genTerm+                                                                                                                                 x22,+                                                                                                                               DI.genTerm+                                                                                                                                 x23]))+                                                                                                                        (Curry.DebugModule.Prelude.op_Plus+                                                                                                                           x22+                                                                                                                           x23)+                                                                                                            x25 <- DM.litHook+                                                                                                                     (DI.DebugInfo+                                                                                                                        (DI.SrcID+                                                                                                                           "Time"+                                                                                                                           0)+                                                                                                                        (DI.DynamicInfo+                                                                                                                           []+                                                                                                                           []))+                                                                                                                     (Prelude.return+                                                                                                                        (Curry.DebugModule.Prelude.Pos+                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                    Curry.DebugModule.Prelude.IHi)))))+                                                                                                            DM.funcCallHook+                                                                                                              "mod"+                                                                                                              (DI.DebugInfo+                                                                                                                 (DI.SrcID+                                                                                                                    "Time"+                                                                                                                    0)+                                                                                                                 (DI.DynamicInfo+                                                                                                                    []+                                                                                                                    [DI.genTerm+                                                                                                                       x24,+                                                                                                                     DI.genTerm+                                                                                                                       x25]))+                                                                                                              (Curry.DebugModule.Prelude.strict_mod+                                                                                                                 x24+                                                                                                                 x25)+                                                                                                  x27 <- DM.litHook+                                                                                                           (DI.DebugInfo+                                                                                                              (DI.SrcID+                                                                                                                 "Time"+                                                                                                                 0)+                                                                                                              (DI.DynamicInfo+                                                                                                                 []+                                                                                                                 []))+                                                                                                           (Prelude.return+                                                                                                              (Curry.DebugModule.Prelude.Pos+                                                                                                                 Curry.DebugModule.Prelude.IHi))+                                                                                                  DM.funcCallHook+                                                                                                    "+"+                                                                                                    (DI.DebugInfo+                                                                                                       (DI.SrcID+                                                                                                          "Time"+                                                                                                          0)+                                                                                                       (DI.DynamicInfo+                                                                                                          []+                                                                                                          [DI.genTerm+                                                                                                             x26,+                                                                                                           DI.genTerm+                                                                                                             x27]))+                                                                                                    (Curry.DebugModule.Prelude.op_Plus+                                                                                                       x26+                                                                                                       x27)+                                                                                        DM.eval+                                                                                          (do x30 <- Prelude.return+                                                                                                       x1+                                                                                              x31 <- Prelude.return+                                                                                                       x4+                                                                                              x32 <- Prelude.return+                                                                                                       x5+                                                                                              x33 <- Prelude.return+                                                                                                       x6+                                                                                              x34 <- Prelude.return+                                                                                                       x7+                                                                                              x35 <- Prelude.return+                                                                                                       x8+                                                                                              x36 <- Prelude.return+                                                                                                       x9+                                                                                              x37 <- Prelude.return+                                                                                                       x10+                                                                                              x38 <- Prelude.return+                                                                                                       x11+                                                                                              x39 <- do x28 <- Prelude.return+                                                                                                                 x11+                                                                                                        x29 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Time"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    Curry.DebugModule.Prelude.Zero)+                                                                                                        DM.funcCallHook+                                                                                                          ">"+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "Time"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x28,+                                                                                                                 DI.genTerm+                                                                                                                   x29]))+                                                                                                          (Curry.DebugModule.Prelude.op_Gt+                                                                                                             x28+                                                                                                             x29)+                                                                                              DM.funcCallHook+                                                                                                "_case_22"+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "Time"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x30,+                                                                                                       DI.genTerm+                                                                                                         x31,+                                                                                                       DI.genTerm+                                                                                                         x32,+                                                                                                       DI.genTerm+                                                                                                         x33,+                                                                                                       DI.genTerm+                                                                                                         x34,+                                                                                                       DI.genTerm+                                                                                                         x35,+                                                                                                       DI.genTerm+                                                                                                         x36,+                                                                                                       DI.genTerm+                                                                                                         x37,+                                                                                                       DI.genTerm+                                                                                                         x38,+                                                                                                       DI.genTerm+                                                                                                         x39]))+                                                                                                (strict__case_22+                                                                                                   x30+                                                                                                   x31+                                                                                                   x32+                                                                                                   x33+                                                                                                   x34+                                                                                                   x35+                                                                                                   x36+                                                                                                   x37+                                                                                                   x38+                                                                                                   x39)))))))))))))))))))))+term_strict_addMonths x1+  = DI.Term "addMonths" (DI.SrcID "Time" 0) x1+ +x'xstrict_addMonths46_35selFP335y ::+                                  (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addMonths46_35selFP335y x1+  = DM.eval+      (DM.funcDeclHook "addMonths._#selFP3#y"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_21"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_21 x2)))+x'xterm_strict_addMonths46_35selFP335y x1+  = DI.Term "addMonths._#selFP3#y" (DI.SrcID "Time" 0) x1+ +x'xstrict_addMonths46_35selFP435mo ::+                                   (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addMonths46_35selFP435mo x1+  = DM.eval+      (DM.funcDeclHook "addMonths._#selFP4#mo"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_20"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_20 x2)))+x'xterm_strict_addMonths46_35selFP435mo x1+  = DI.Term "addMonths._#selFP4#mo" (DI.SrcID "Time" 0) x1+ +x'xstrict_addMonths46_35selFP535d ::+                                  (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addMonths46_35selFP535d x1+  = DM.eval+      (DM.funcDeclHook "addMonths._#selFP5#d"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_19"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_19 x2)))+x'xterm_strict_addMonths46_35selFP535d x1+  = DI.Term "addMonths._#selFP5#d" (DI.SrcID "Time" 0) x1+ +x'xstrict_addMonths46_35selFP635h ::+                                  (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addMonths46_35selFP635h x1+  = DM.eval+      (DM.funcDeclHook "addMonths._#selFP6#h"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_18"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_18 x2)))+x'xterm_strict_addMonths46_35selFP635h x1+  = DI.Term "addMonths._#selFP6#h" (DI.SrcID "Time" 0) x1+ +x'xstrict_addMonths46_35selFP735mi ::+                                   (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addMonths46_35selFP735mi x1+  = DM.eval+      (DM.funcDeclHook "addMonths._#selFP7#mi"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_17"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_17 x2)))+x'xterm_strict_addMonths46_35selFP735mi x1+  = DI.Term "addMonths._#selFP7#mi" (DI.SrcID "Time" 0) x1+ +x'xstrict_addMonths46_35selFP835s ::+                                  (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addMonths46_35selFP835s x1+  = DM.eval+      (DM.funcDeclHook "addMonths._#selFP8#s"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_16"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_16 x2)))+x'xterm_strict_addMonths46_35selFP835s x1+  = DI.Term "addMonths._#selFP8#s" (DI.SrcID "Time" 0) x1+ +x'xstrict_addMonths46_35selFP935tz ::+                                   (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addMonths46_35selFP935tz x1+  = DM.eval+      (DM.funcDeclHook "addMonths._#selFP9#tz"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_15"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_15 x2)))+x'xterm_strict_addMonths46_35selFP935tz x1+  = DI.Term "addMonths._#selFP9#tz" (DI.SrcID "Time" 0) x1+ +strict_addYears ::+                (DM.DM dm) =>+                  Curry.DebugModule.Prelude.Int -> ClockTime -> dm ClockTime+strict_addYears x1 x2+  = DM.eval+      (DM.funcDeclHook "addYears"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Zero)+                      DM.funcCallHook "=="+                        (DI.DebugInfo (DI.SrcID "Time" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_EqEq x3 x4)+             DM.funcCallHook "_case_14"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_14 x5 x6 x7)))+term_strict_addYears x1 = DI.Term "addYears" (DI.SrcID "Time" 0) x1+ +x'xstrict_addYears46_35selFP1135y ::+                                  (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addYears46_35selFP1135y x1+  = DM.eval+      (DM.funcDeclHook "addYears._#selFP11#y"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_13"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_13 x2)))+x'xterm_strict_addYears46_35selFP1135y x1+  = DI.Term "addYears._#selFP11#y" (DI.SrcID "Time" 0) x1+ +x'xstrict_addYears46_35selFP1235mo ::+                                   (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addYears46_35selFP1235mo x1+  = DM.eval+      (DM.funcDeclHook "addYears._#selFP12#mo"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_12"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_12 x2)))+x'xterm_strict_addYears46_35selFP1235mo x1+  = DI.Term "addYears._#selFP12#mo" (DI.SrcID "Time" 0) x1+ +x'xstrict_addYears46_35selFP1335d ::+                                  (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addYears46_35selFP1335d x1+  = DM.eval+      (DM.funcDeclHook "addYears._#selFP13#d"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_11"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_11 x2)))+x'xterm_strict_addYears46_35selFP1335d x1+  = DI.Term "addYears._#selFP13#d" (DI.SrcID "Time" 0) x1+ +x'xstrict_addYears46_35selFP1435h ::+                                  (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addYears46_35selFP1435h x1+  = DM.eval+      (DM.funcDeclHook "addYears._#selFP14#h"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_10"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_10 x2)))+x'xterm_strict_addYears46_35selFP1435h x1+  = DI.Term "addYears._#selFP14#h" (DI.SrcID "Time" 0) x1+ +x'xstrict_addYears46_35selFP1535mi ::+                                   (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addYears46_35selFP1535mi x1+  = DM.eval+      (DM.funcDeclHook "addYears._#selFP15#mi"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_9"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_9 x2)))+x'xterm_strict_addYears46_35selFP1535mi x1+  = DI.Term "addYears._#selFP15#mi" (DI.SrcID "Time" 0) x1+ +x'xstrict_addYears46_35selFP1635s ::+                                  (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addYears46_35selFP1635s x1+  = DM.eval+      (DM.funcDeclHook "addYears._#selFP16#s"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_8"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_8 x2)))+x'xterm_strict_addYears46_35selFP1635s x1+  = DI.Term "addYears._#selFP16#s" (DI.SrcID "Time" 0) x1+ +x'xstrict_addYears46_35selFP1735tz ::+                                   (DM.DM dm) => CalendarTime -> dm Curry.DebugModule.Prelude.Int+x'xstrict_addYears46_35selFP1735tz x1+  = DM.eval+      (DM.funcDeclHook "addYears._#selFP17#tz"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_7"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_7 x2)))+x'xterm_strict_addYears46_35selFP1735tz x1+  = DI.Term "addYears._#selFP17#tz" (DI.SrcID "Time" 0) x1+ +strict_daysOfMonth ::+                   (DM.DM dm) =>+                     Curry.DebugModule.Prelude.Int ->+                       Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Int+strict_daysOfMonth x1 x2+  = DM.eval+      (DM.funcDeclHook "daysOfMonth"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- Prelude.return x1+             x6 <- Prelude.return x2+             x7 <- do x3 <- Prelude.return x1+                      x4 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                              (Prelude.return+                                 (Curry.DebugModule.Prelude.Pos+                                    (Curry.DebugModule.Prelude.O Curry.DebugModule.Prelude.IHi)))+                      DM.funcCallHook "/="+                        (DI.DebugInfo (DI.SrcID "Time" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_SlashEq x3 x4)+             DM.funcCallHook "_case_6"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6, DI.genTerm x7]))+               (strict__case_6 x5 x6 x7)))+term_strict_daysOfMonth x1+  = DI.Term "daysOfMonth" (DI.SrcID "Time" 0) x1+ +strict_validDate ::+                 (DM.DM dm) =>+                   Curry.DebugModule.Prelude.Int ->+                     Curry.DebugModule.Prelude.Int ->+                       Curry.DebugModule.Prelude.Int -> dm Curry.DebugModule.Prelude.Bool+strict_validDate x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "validDate"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x18 <- do x4 <- Prelude.return x2+                       x5 <- DM.litHook+                               (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                               (Prelude.return Curry.DebugModule.Prelude.Zero)+                       DM.funcCallHook ">"+                         (DI.DebugInfo (DI.SrcID "Time" 0)+                            (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                         (Curry.DebugModule.Prelude.op_Gt x4 x5)+             x19 <- do x16 <- do x6 <- Prelude.return x2+                                 x7 <- DM.litHook+                                         (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                                         (Prelude.return+                                            (Curry.DebugModule.Prelude.Pos+                                               (Curry.DebugModule.Prelude.I+                                                  (Curry.DebugModule.Prelude.O+                                                     (Curry.DebugModule.Prelude.I+                                                        Curry.DebugModule.Prelude.IHi)))))+                                 DM.funcCallHook "<"+                                   (DI.DebugInfo (DI.SrcID "Time" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                   (Curry.DebugModule.Prelude.op_Lt x6 x7)+                       x17 <- do x14 <- do x8 <- Prelude.return x3+                                           x9 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "Time" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return Curry.DebugModule.Prelude.Zero)+                                           DM.funcCallHook ">"+                                             (DI.DebugInfo (DI.SrcID "Time" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                             (Curry.DebugModule.Prelude.op_Gt x8 x9)+                                 x15 <- do x12 <- Prelude.return x3+                                           x13 <- do x10 <- Prelude.return x2+                                                     x11 <- Prelude.return x1+                                                     DM.funcCallHook "daysOfMonth"+                                                       (DI.DebugInfo (DI.SrcID "Time" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x10, DI.genTerm x11]))+                                                       (strict_daysOfMonth x10 x11)+                                           DM.funcCallHook "<="+                                             (DI.DebugInfo (DI.SrcID "Time" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x12, DI.genTerm x13]))+                                             (Curry.DebugModule.Prelude.op_LtEq x12 x13)+                                 DM.funcCallHook "&&"+                                   (DI.DebugInfo (DI.SrcID "Time" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                   (Curry.DebugModule.Prelude.op_AndAnd x14 x15)+                       DM.funcCallHook "&&"+                         (DI.DebugInfo (DI.SrcID "Time" 0)+                            (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17]))+                         (Curry.DebugModule.Prelude.op_AndAnd x16 x17)+             DM.funcCallHook "&&"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19]))+               (Curry.DebugModule.Prelude.op_AndAnd x18 x19)))+term_strict_validDate x1+  = DI.Term "validDate" (DI.SrcID "Time" 0) x1+ +strict_compareDate ::+                   (DM.DM dm) =>+                     dm+                       (DM.Func dm CalendarTime+                          (DM.Func dm CalendarTime Curry.DebugModule.Prelude.Ordering))+strict_compareDate+  = DM.eval+      (DM.funcDeclHook "compareDate"+         (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+         (Prelude.return+            (PC.partCall2 (term_strict_compareCalendarTime [])+               strict_compareCalendarTime)))+ +strict_compareCalendarTime ::+                           (DM.DM dm) =>+                             CalendarTime ->+                               CalendarTime -> dm Curry.DebugModule.Prelude.Ordering+strict_compareCalendarTime x1 x2+  = DM.eval+      (DM.funcDeclHook "compareCalendarTime"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x5 <- do x3 <- Prelude.return x1+                      DM.funcCallHook "toClockTime"+                        (DI.DebugInfo (DI.SrcID "Time" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3]))+                        (strict_toClockTime x3)+             x6 <- do x4 <- Prelude.return x2+                      DM.funcCallHook "toClockTime"+                        (DI.DebugInfo (DI.SrcID "Time" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4]))+                        (strict_toClockTime x4)+             DM.funcCallHook "compareClockTime"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (strict_compareClockTime x5 x6)))+term_strict_compareCalendarTime x1+  = DI.Term "compareCalendarTime" (DI.SrcID "Time" 0) x1+ +strict_compareClockTime ::+                        (DM.DM dm) =>+                          ClockTime -> ClockTime -> dm Curry.DebugModule.Prelude.Ordering+strict_compareClockTime x1 x2+  = DM.eval+      (DM.funcDeclHook "compareClockTime"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_4"+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_4 x3 x4)))+term_strict_compareClockTime x1+  = DI.Term "compareClockTime" (DI.SrcID "Time" 0) x1+strict__case_4 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    CTime x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x3+                                  x5 <- Prelude.return x2+                                  DM.funcCallHook "_case_3"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (strict__case_3 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           (strict__case_4 x2)+                           x6)))+term_strict__case_4 x1 = DI.Term "_case_4" (DI.SrcID "Time" 0) x1+strict__case_3 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x10 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    CTime x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  x8 <- Prelude.return x4+                                  x9 <- do x5 <- Prelude.return x3+                                           x6 <- Prelude.return x4+                                           DM.funcCallHook "<"+                                             (DI.DebugInfo (DI.SrcID "Time" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Curry.DebugModule.Prelude.op_Lt x5 x6)+                                  DM.funcCallHook "_case_2"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+                                    (strict__case_2 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           (strict__case_3 x3)+                           x10)))+term_strict__case_3 x1 = DI.Term "_case_3" (DI.SrcID "Time" 0) x1+strict__case_2 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x11 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.LT)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  x9 <- Prelude.return x4+                                  x10 <- do x6 <- Prelude.return x3+                                            x7 <- Prelude.return x4+                                            DM.funcCallHook ">"+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Curry.DebugModule.Prelude.op_Gt x6 x7)+                                  DM.funcCallHook "_case_1"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_1 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_2 x3 x4)+                           x11)))+term_strict__case_2 x1 = DI.Term "_case_2" (DI.SrcID "Time" 0) x1+strict__case_1 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x7 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.GT)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- DM.funcCallHook "otherwise"+                                          (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                                          Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_0"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (strict__case_0 x6)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_1 x3 x4)+                           x7)))+term_strict__case_1 x1 = DI.Term "_case_1" (DI.SrcID "Time" 0) x1+strict__case_0 x1+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (case x2 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.EQ)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x2])))+                           strict__case_0+                           x2)))+term_strict__case_0 x1 = DI.Term "_case_0" (DI.SrcID "Time" 0) x1+strict__case_6 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x50 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x50]))+               (case x50 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x30 <- do x26 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Time" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Pos+                                                           (Curry.DebugModule.Prelude.I+                                                              (Curry.DebugModule.Prelude.I+                                                                 (Curry.DebugModule.Prelude.I+                                                                    (Curry.DebugModule.Prelude.I+                                                                       Curry.DebugModule.Prelude.IHi))))))+                                            x27 <- do x24 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Pos+                                                                     (Curry.DebugModule.Prelude.O+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.I+                                                                              (Curry.DebugModule.Prelude.I+                                                                                 Curry.DebugModule.Prelude.IHi))))))+                                                      x25 <- do x22 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Time" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Pos+                                                                               (Curry.DebugModule.Prelude.I+                                                                                  (Curry.DebugModule.Prelude.I+                                                                                     (Curry.DebugModule.Prelude.I+                                                                                        (Curry.DebugModule.Prelude.I+                                                                                           Curry.DebugModule.Prelude.IHi))))))+                                                                x23 <- do x20 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Time"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Pos+                                                                                         (Curry.DebugModule.Prelude.O+                                                                                            (Curry.DebugModule.Prelude.I+                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                     Curry.DebugModule.Prelude.IHi))))))+                                                                          x21 <- do x18 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "Time"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Pos+                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                               Curry.DebugModule.Prelude.IHi))))))+                                                                                    x19 <- do x16 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "Time"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Pos+                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                         Curry.DebugModule.Prelude.IHi))))))+                                                                                              x17 <- do x14 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Time"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Pos+                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                   Curry.DebugModule.Prelude.IHi))))))+                                                                                                        x15 <- do x12 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "Time"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Curry.DebugModule.Prelude.Pos+                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                             Curry.DebugModule.Prelude.IHi))))))+                                                                                                                  x13 <- do x10 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "Time"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Curry.DebugModule.Prelude.Pos+                                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                       Curry.DebugModule.Prelude.IHi))))))+                                                                                                                            x11 <- do x8 <- DM.litHook+                                                                                                                                              (DI.DebugInfo+                                                                                                                                                 (DI.SrcID+                                                                                                                                                    "Time"+                                                                                                                                                    0)+                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                    []+                                                                                                                                                    []))+                                                                                                                                              (Prelude.return+                                                                                                                                                 (Curry.DebugModule.Prelude.Pos+                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                                                                                Curry.DebugModule.Prelude.IHi))))))+                                                                                                                                      x9 <- do x6 <- DM.litHook+                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                          (DI.SrcID+                                                                                                                                                             "Time"+                                                                                                                                                             0)+                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                             []+                                                                                                                                                             []))+                                                                                                                                                       (Prelude.return+                                                                                                                                                          (Curry.DebugModule.Prelude.Pos+                                                                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                         Curry.DebugModule.Prelude.IHi))))))+                                                                                                                                               x7 <- do x4 <- DM.litHook+                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                      "Time"+                                                                                                                                                                      0)+                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                      []+                                                                                                                                                                      []))+                                                                                                                                                                (Prelude.return+                                                                                                                                                                   (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                  Curry.DebugModule.Prelude.IHi))))))+                                                                                                                                                        x5 <- DM.constructorHook+                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                      "Time"+                                                                                                                                                                      0)+                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                      []+                                                                                                                                                                      []))+                                                                                                                                                                (Prelude.return+                                                                                                                                                                   Curry.DebugModule.Prelude.Nil)+                                                                                                                                                        DM.constructorHook+                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                             (DI.SrcID+                                                                                                                                                                "Time"+                                                                                                                                                                0)+                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                []+                                                                                                                                                                [DI.genTerm+                                                                                                                                                                   x4,+                                                                                                                                                                 DI.genTerm+                                                                                                                                                                   x5]))+                                                                                                                                                          (Prelude.return+                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                x4+                                                                                                                                                                x5))+                                                                                                                                               DM.constructorHook+                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                    (DI.SrcID+                                                                                                                                                       "Time"+                                                                                                                                                       0)+                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                       []+                                                                                                                                                       [DI.genTerm+                                                                                                                                                          x6,+                                                                                                                                                        DI.genTerm+                                                                                                                                                          x7]))+                                                                                                                                                 (Prelude.return+                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                       x6+                                                                                                                                                       x7))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "Time"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x8,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x9]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x8+                                                                                                                                              x9))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "Time"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x10,+                                                                                                                                     DI.genTerm+                                                                                                                                       x11]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                    x10+                                                                                                                                    x11))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "Time"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x12,+                                                                                                                           DI.genTerm+                                                                                                                             x13]))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                          x12+                                                                                                                          x13))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "Time"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x14,+                                                                                                                 DI.genTerm+                                                                                                                   x15]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x14+                                                                                                                x15))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "Time"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x16,+                                                                                                       DI.genTerm+                                                                                                         x17]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x16+                                                                                                      x17))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Time"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x18,+                                                                                             DI.genTerm+                                                                                               x19]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x18+                                                                                            x19))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Time" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x20,+                                                                                   DI.genTerm x21]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x20+                                                                                  x21))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x22,+                                                                         DI.genTerm x23]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x22+                                                                        x23))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x24, DI.genTerm x25]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x24 x25))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x26, DI.genTerm x27]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x26 x27))+                                  x31 <- do x28 <- Prelude.return x1+                                            x29 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Time" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Pos+                                                           Curry.DebugModule.Prelude.IHi))+                                            DM.funcCallHook "-"+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x28, DI.genTerm x29]))+                                              (Curry.DebugModule.Prelude.op_Minus x28 x29)+                                  DM.funcCallHook "!!"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x30, DI.genTerm x31]))+                                    (Curry.DebugModule.Prelude.op_EMarkEMark x30 x31)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x48 <- Prelude.return x2+                                  x49 <- do x46 <- do x34 <- do x32 <- Prelude.return x2+                                                                x33 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Time" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Pos+                                                                               (Curry.DebugModule.Prelude.O+                                                                                  (Curry.DebugModule.Prelude.O+                                                                                     Curry.DebugModule.Prelude.IHi))))+                                                                DM.funcCallHook "mod"+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x32,+                                                                         DI.genTerm x33]))+                                                                  (Curry.DebugModule.Prelude.strict_mod+                                                                     x32+                                                                     x33)+                                                      x35 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  Curry.DebugModule.Prelude.Zero)+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x34, DI.genTerm x35]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x34 x35)+                                            x47 <- do x44 <- do x38 <- do x36 <- Prelude.return x2+                                                                          x37 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Time"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Pos+                                                                                         (Curry.DebugModule.Prelude.O+                                                                                            (Curry.DebugModule.Prelude.O+                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                  (Curry.DebugModule.Prelude.O+                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                           Curry.DebugModule.Prelude.IHi))))))))+                                                                          DM.funcCallHook "mod"+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Time" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x36,+                                                                                   DI.genTerm x37]))+                                                                            (Curry.DebugModule.Prelude.strict_mod+                                                                               x36+                                                                               x37)+                                                                x39 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Time" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            Curry.DebugModule.Prelude.Zero)+                                                                DM.funcCallHook "/="+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x38,+                                                                         DI.genTerm x39]))+                                                                  (Curry.DebugModule.Prelude.op_SlashEq+                                                                     x38+                                                                     x39)+                                                      x45 <- do x42 <- do x40 <- Prelude.return x2+                                                                          x41 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Time"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Pos+                                                                                         (Curry.DebugModule.Prelude.O+                                                                                            (Curry.DebugModule.Prelude.O+                                                                                               (Curry.DebugModule.Prelude.O+                                                                                                  (Curry.DebugModule.Prelude.O+                                                                                                     (Curry.DebugModule.Prelude.I+                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                 Curry.DebugModule.Prelude.IHi))))))))))+                                                                          DM.funcCallHook "mod"+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Time" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x40,+                                                                                   DI.genTerm x41]))+                                                                            (Curry.DebugModule.Prelude.strict_mod+                                                                               x40+                                                                               x41)+                                                                x43 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Time" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            Curry.DebugModule.Prelude.Zero)+                                                                DM.funcCallHook "=="+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x42,+                                                                         DI.genTerm x43]))+                                                                  (Curry.DebugModule.Prelude.op_EqEq+                                                                     x42+                                                                     x43)+                                                      DM.funcCallHook "||"+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x44, DI.genTerm x45]))+                                                        (Curry.DebugModule.Prelude.op_OrOr x44 x45)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x46, DI.genTerm x47]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x46 x47)+                                  DM.funcCallHook "_case_5"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x48, DI.genTerm x49]))+                                    (strict__case_5 x48 x49)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x50])))+                           (strict__case_6 x1 x2)+                           x50)))+term_strict__case_6 x1 = DI.Term "_case_6" (DI.SrcID "Time" 0) x1+strict__case_5 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return+                                    (Curry.DebugModule.Prelude.Pos+                                       (Curry.DebugModule.Prelude.I+                                          (Curry.DebugModule.Prelude.O+                                             (Curry.DebugModule.Prelude.I+                                                (Curry.DebugModule.Prelude.I+                                                   Curry.DebugModule.Prelude.IHi))))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.litHook+                                 (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return+                                    (Curry.DebugModule.Prelude.Pos+                                       (Curry.DebugModule.Prelude.O+                                          (Curry.DebugModule.Prelude.O+                                             (Curry.DebugModule.Prelude.I+                                                (Curry.DebugModule.Prelude.I+                                                   Curry.DebugModule.Prelude.IHi))))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           (strict__case_5 x2)+                           x4)))+term_strict__case_5 x1 = DI.Term "_case_5" (DI.SrcID "Time" 0) x1+strict__case_7 x1+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x8))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_7+                           x9)))+term_strict__case_7 x1 = DI.Term "_case_7" (DI.SrcID "Time" 0) x1+strict__case_8 x1+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x7))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_8+                           x9)))+term_strict__case_8 x1 = DI.Term "_case_8" (DI.SrcID "Time" 0) x1+strict__case_9 x1+  = DM.eval+      (DM.funcDeclHook "_case_9"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x6))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_9+                           x9)))+term_strict__case_9 x1 = DI.Term "_case_9" (DI.SrcID "Time" 0) x1+strict__case_10 x1+  = DM.eval+      (DM.funcDeclHook "_case_10"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x5))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_10+                           x9)))+term_strict__case_10 x1 = DI.Term "_case_10" (DI.SrcID "Time" 0) x1+strict__case_11 x1+  = DM.eval+      (DM.funcDeclHook "_case_11"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x4))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_11+                           x9)))+term_strict__case_11 x1 = DI.Term "_case_11" (DI.SrcID "Time" 0) x1+strict__case_12 x1+  = DM.eval+      (DM.funcDeclHook "_case_12"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_12+                           x9)))+term_strict__case_12 x1 = DI.Term "_case_12" (DI.SrcID "Time" 0) x1+strict__case_13 x1+  = DM.eval+      (DM.funcDeclHook "_case_13"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_13+                           x9)))+term_strict__case_13 x1 = DI.Term "_case_13" (DI.SrcID "Time" 0) x1+strict__case_14 x1 x2 x11+  = DM.eval+      (DM.funcDeclHook "_case_14"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x11]))+         (do x30 <- Prelude.return x11+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x30]))+               (case x30 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x3 <- do x12 <- Prelude.return x2+                                              DM.funcCallHook "toUTCTime"+                                                (DI.DebugInfo (DI.SrcID "Time" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x12]))+                                                (strict_toUTCTime x12)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x4 <- do x13 <- Prelude.return x3+                                                       DM.funcCallHook "addYears._#selFP11#y"+                                                         (DI.DebugInfo (DI.SrcID "Time" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x13]))+                                                         (x'xstrict_addYears46_35selFP1135y x13)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x5 <- do x14 <- Prelude.return x3+                                                                DM.funcCallHook+                                                                  "addYears._#selFP12#mo"+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x14]))+                                                                  (x'xstrict_addYears46_35selFP1235mo+                                                                     x14)+                                                       DM.eval+                                                         (DM.letHook+                                                            (DI.DebugInfo+                                                               (DI.SrcID "DummyModule" 42)+                                                               (DI.DynamicInfo [] []))+                                                            (do x6 <- do x15 <- Prelude.return x3+                                                                         DM.funcCallHook+                                                                           "addYears._#selFP13#d"+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "Time" 0)+                                                                              (DI.DynamicInfo []+                                                                                 [DI.genTerm x15]))+                                                                           (x'xstrict_addYears46_35selFP1335d+                                                                              x15)+                                                                DM.eval+                                                                  (DM.letHook+                                                                     (DI.DebugInfo+                                                                        (DI.SrcID "DummyModule" 42)+                                                                        (DI.DynamicInfo [] []))+                                                                     (do x7 <- do x16 <- Prelude.return+                                                                                           x3+                                                                                  DM.funcCallHook+                                                                                    "addYears._#selFP14#h"+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "Time"+                                                                                          0)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          [DI.genTerm+                                                                                             x16]))+                                                                                    (x'xstrict_addYears46_35selFP1435h+                                                                                       x16)+                                                                         DM.eval+                                                                           (DM.letHook+                                                                              (DI.DebugInfo+                                                                                 (DI.SrcID+                                                                                    "DummyModule"+                                                                                    42)+                                                                                 (DI.DynamicInfo []+                                                                                    []))+                                                                              (do x8 <- do x17 <- Prelude.return+                                                                                                    x3+                                                                                           DM.funcCallHook+                                                                                             "addYears._#selFP15#mi"+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "Time"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   [DI.genTerm+                                                                                                      x17]))+                                                                                             (x'xstrict_addYears46_35selFP1535mi+                                                                                                x17)+                                                                                  DM.eval+                                                                                    (DM.letHook+                                                                                       (DI.DebugInfo+                                                                                          (DI.SrcID+                                                                                             "DummyModule"+                                                                                             42)+                                                                                          (DI.DynamicInfo+                                                                                             []+                                                                                             []))+                                                                                       (do x9 <- do x18 <- Prelude.return+                                                                                                             x3+                                                                                                    DM.funcCallHook+                                                                                                      "addYears._#selFP16#s"+                                                                                                      (DI.DebugInfo+                                                                                                         (DI.SrcID+                                                                                                            "Time"+                                                                                                            0)+                                                                                                         (DI.DynamicInfo+                                                                                                            []+                                                                                                            [DI.genTerm+                                                                                                               x18]))+                                                                                                      (x'xstrict_addYears46_35selFP1635s+                                                                                                         x18)+                                                                                           DM.eval+                                                                                             (DM.letHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "DummyModule"+                                                                                                      42)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      []))+                                                                                                (do x10 <- do x19 <- Prelude.return+                                                                                                                       x3+                                                                                                              DM.funcCallHook+                                                                                                                "addYears._#selFP17#tz"+                                                                                                                (DI.DebugInfo+                                                                                                                   (DI.SrcID+                                                                                                                      "Time"+                                                                                                                      0)+                                                                                                                   (DI.DynamicInfo+                                                                                                                      []+                                                                                                                      [DI.genTerm+                                                                                                                         x19]))+                                                                                                                (x'xstrict_addYears46_35selFP1735tz+                                                                                                                   x19)+                                                                                                    DM.eval+                                                                                                      (do x29 <- do x22 <- do x20 <- Prelude.return+                                                                                                                                       x4+                                                                                                                              x21 <- Prelude.return+                                                                                                                                       x1+                                                                                                                              DM.funcCallHook+                                                                                                                                "+"+                                                                                                                                (DI.DebugInfo+                                                                                                                                   (DI.SrcID+                                                                                                                                      "Time"+                                                                                                                                      0)+                                                                                                                                   (DI.DynamicInfo+                                                                                                                                      []+                                                                                                                                      [DI.genTerm+                                                                                                                                         x20,+                                                                                                                                       DI.genTerm+                                                                                                                                         x21]))+                                                                                                                                (Curry.DebugModule.Prelude.op_Plus+                                                                                                                                   x20+                                                                                                                                   x21)+                                                                                                                    x23 <- Prelude.return+                                                                                                                             x5+                                                                                                                    x24 <- Prelude.return+                                                                                                                             x6+                                                                                                                    x25 <- Prelude.return+                                                                                                                             x7+                                                                                                                    x26 <- Prelude.return+                                                                                                                             x8+                                                                                                                    x27 <- Prelude.return+                                                                                                                             x9+                                                                                                                    x28 <- Prelude.return+                                                                                                                             x10+                                                                                                                    DM.constructorHook+                                                                                                                      (DI.DebugInfo+                                                                                                                         (DI.SrcID+                                                                                                                            "Time"+                                                                                                                            0)+                                                                                                                         (DI.DynamicInfo+                                                                                                                            []+                                                                                                                            [DI.genTerm+                                                                                                                               x22,+                                                                                                                             DI.genTerm+                                                                                                                               x23,+                                                                                                                             DI.genTerm+                                                                                                                               x24,+                                                                                                                             DI.genTerm+                                                                                                                               x25,+                                                                                                                             DI.genTerm+                                                                                                                               x26,+                                                                                                                             DI.genTerm+                                                                                                                               x27,+                                                                                                                             DI.genTerm+                                                                                                                               x28]))+                                                                                                                      (Prelude.return+                                                                                                                         (CalendarTime+                                                                                                                            x22+                                                                                                                            x23+                                                                                                                            x24+                                                                                                                            x25+                                                                                                                            x26+                                                                                                                            x27+                                                                                                                            x28))+                                                                                                          DM.funcCallHook+                                                                                                            "toClockTime"+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "Time"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  [DI.genTerm+                                                                                                                     x29]))+                                                                                                            (strict_toClockTime+                                                                                                               x29)))))))))))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x30])))+                           (strict__case_14 x1 x2)+                           x30)))+term_strict__case_14 x1 = DI.Term "_case_14" (DI.SrcID "Time" 0) x1+strict__case_15 x1+  = DM.eval+      (DM.funcDeclHook "_case_15"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x8))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_15+                           x9)))+term_strict__case_15 x1 = DI.Term "_case_15" (DI.SrcID "Time" 0) x1+strict__case_16 x1+  = DM.eval+      (DM.funcDeclHook "_case_16"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x7))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_16+                           x9)))+term_strict__case_16 x1 = DI.Term "_case_16" (DI.SrcID "Time" 0) x1+strict__case_17 x1+  = DM.eval+      (DM.funcDeclHook "_case_17"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x6))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_17+                           x9)))+term_strict__case_17 x1 = DI.Term "_case_17" (DI.SrcID "Time" 0) x1+strict__case_18 x1+  = DM.eval+      (DM.funcDeclHook "_case_18"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x5))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_18+                           x9)))+term_strict__case_18 x1 = DI.Term "_case_18" (DI.SrcID "Time" 0) x1+strict__case_19 x1+  = DM.eval+      (DM.funcDeclHook "_case_19"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x4))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_19+                           x9)))+term_strict__case_19 x1 = DI.Term "_case_19" (DI.SrcID "Time" 0) x1+strict__case_20 x1+  = DM.eval+      (DM.funcDeclHook "_case_20"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_20+                           x9)))+term_strict__case_20 x1 = DI.Term "_case_20" (DI.SrcID "Time" 0) x1+strict__case_21 x1+  = DM.eval+      (DM.funcDeclHook "_case_21"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_21+                           x9)))+term_strict__case_21 x1 = DI.Term "_case_21" (DI.SrcID "Time" 0) x1+strict__case_22 x1 x4 x5 x6 x7 x8 x9 x10 x11 x12+  = DM.eval+      (DM.funcDeclHook "_case_22"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6,+                DI.genTerm x7, DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                DI.genTerm x11, DI.genTerm x12]))+         (do x49 <- Prelude.return x12+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x49]))+               (case x49 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x27 <- do x17 <- do x15 <- do x13 <- Prelude.return x5+                                                                x14 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Time" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Pos+                                                                               Curry.DebugModule.Prelude.IHi))+                                                                DM.funcCallHook "-"+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x13,+                                                                         DI.genTerm x14]))+                                                                  (Curry.DebugModule.Prelude.op_Minus+                                                                     x13+                                                                     x14)+                                                      x16 <- Prelude.return x1+                                                      DM.funcCallHook "+"+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x15, DI.genTerm x16]))+                                                        (Curry.DebugModule.Prelude.op_Plus x15 x16)+                                            x18 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Time" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Pos+                                                           (Curry.DebugModule.Prelude.O+                                                              (Curry.DebugModule.Prelude.O+                                                                 (Curry.DebugModule.Prelude.I+                                                                    Curry.DebugModule.Prelude.IHi)))))+                                            DM.funcCallHook "div"+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x17, DI.genTerm x18]))+                                              (Curry.DebugModule.Prelude.strict_div x17 x18)+                                  x28 <- do x26 <- do x19 <- Prelude.return x4+                                                      x20 <- Prelude.return x11+                                                      x21 <- Prelude.return x6+                                                      x22 <- Prelude.return x7+                                                      x23 <- Prelude.return x8+                                                      x24 <- Prelude.return x9+                                                      x25 <- Prelude.return x10+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x19, DI.genTerm x20,+                                                               DI.genTerm x21, DI.genTerm x22,+                                                               DI.genTerm x23, DI.genTerm x24,+                                                               DI.genTerm x25]))+                                                        (Prelude.return+                                                           (CalendarTime x19 x20 x21 x22 x23 x24+                                                              x25))+                                            DM.funcCallHook "toClockTime"+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x26]))+                                              (strict_toClockTime x26)+                                  DM.funcCallHook "addYears"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x27, DI.genTerm x28]))+                                    (strict_addYears x27 x28)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x47 <- do x35 <- do x33 <- do x31 <- do x29 <- Prelude.return+                                                                                   x5+                                                                          x30 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Time"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Pos+                                                                                         Curry.DebugModule.Prelude.IHi))+                                                                          DM.funcCallHook "-"+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Time" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x29,+                                                                                   DI.genTerm x30]))+                                                                            (Curry.DebugModule.Prelude.op_Minus+                                                                               x29+                                                                               x30)+                                                                x32 <- Prelude.return x1+                                                                DM.funcCallHook "+"+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x31,+                                                                         DI.genTerm x32]))+                                                                  (Curry.DebugModule.Prelude.op_Plus+                                                                     x31+                                                                     x32)+                                                      x34 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Pos+                                                                     (Curry.DebugModule.Prelude.O+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))+                                                      DM.funcCallHook "div"+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x33, DI.genTerm x34]))+                                                        (Curry.DebugModule.Prelude.strict_div x33+                                                           x34)+                                            x36 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "Time" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Pos+                                                           Curry.DebugModule.Prelude.IHi))+                                            DM.funcCallHook "-"+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x35, DI.genTerm x36]))+                                              (Curry.DebugModule.Prelude.op_Minus x35 x36)+                                  x48 <- do x46 <- do x39 <- Prelude.return x4+                                                      x40 <- do x37 <- Prelude.return x11+                                                                x38 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Time" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Pos+                                                                               (Curry.DebugModule.Prelude.O+                                                                                  (Curry.DebugModule.Prelude.O+                                                                                     (Curry.DebugModule.Prelude.I+                                                                                        Curry.DebugModule.Prelude.IHi)))))+                                                                DM.funcCallHook "+"+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x37,+                                                                         DI.genTerm x38]))+                                                                  (Curry.DebugModule.Prelude.op_Plus+                                                                     x37+                                                                     x38)+                                                      x41 <- Prelude.return x6+                                                      x42 <- Prelude.return x7+                                                      x43 <- Prelude.return x8+                                                      x44 <- Prelude.return x9+                                                      x45 <- Prelude.return x10+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x39, DI.genTerm x40,+                                                               DI.genTerm x41, DI.genTerm x42,+                                                               DI.genTerm x43, DI.genTerm x44,+                                                               DI.genTerm x45]))+                                                        (Prelude.return+                                                           (CalendarTime x39 x40 x41 x42 x43 x44+                                                              x45))+                                            DM.funcCallHook "toClockTime"+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x46]))+                                              (strict_toClockTime x46)+                                  DM.funcCallHook "addYears"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x47, DI.genTerm x48]))+                                    (strict_addYears x47 x48)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x49])))+                           (strict__case_22 x1 x4 x5 x6 x7 x8 x9 x10 x11)+                           x49)))+term_strict__case_22 x1 = DI.Term "_case_22" (DI.SrcID "Time" 0) x1+strict__case_23 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_23"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x9 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CTime x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x6 <- Prelude.return x3+                                           x7 <- do x4 <- Prelude.return x1+                                                    x5 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Time" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Pos+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.O+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.O+                                                                              (Curry.DebugModule.Prelude.O+                                                                                 (Curry.DebugModule.Prelude.O+                                                                                    (Curry.DebugModule.Prelude.O+                                                                                       (Curry.DebugModule.Prelude.I+                                                                                          (Curry.DebugModule.Prelude.I+                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                (Curry.DebugModule.Prelude.O+                                                                                                   (Curry.DebugModule.Prelude.O+                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                         (Curry.DebugModule.Prelude.O+                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                               (Curry.DebugModule.Prelude.O+                                                                                                                  Curry.DebugModule.Prelude.IHi))))))))))))))))))+                                                    DM.funcCallHook "*"+                                                      (DI.DebugInfo (DI.SrcID "Time" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x4, DI.genTerm x5]))+                                                      (Curry.DebugModule.Prelude.op_Asterisk x4 x5)+                                           DM.funcCallHook "+"+                                             (DI.DebugInfo (DI.SrcID "Time" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (Curry.DebugModule.Prelude.op_Plus x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (CTime x8))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_23 x1)+                           x9)))+term_strict__case_23 x1 = DI.Term "_case_23" (DI.SrcID "Time" 0) x1+strict__case_24 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_24"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x9 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CTime x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x6 <- Prelude.return x3+                                           x7 <- do x4 <- Prelude.return x1+                                                    x5 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Time" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Pos+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.O+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.O+                                                                              (Curry.DebugModule.Prelude.I+                                                                                 (Curry.DebugModule.Prelude.O+                                                                                    (Curry.DebugModule.Prelude.O+                                                                                       (Curry.DebugModule.Prelude.O+                                                                                          (Curry.DebugModule.Prelude.O+                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                   Curry.DebugModule.Prelude.IHi)))))))))))))+                                                    DM.funcCallHook "*"+                                                      (DI.DebugInfo (DI.SrcID "Time" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x4, DI.genTerm x5]))+                                                      (Curry.DebugModule.Prelude.op_Asterisk x4 x5)+                                           DM.funcCallHook "+"+                                             (DI.DebugInfo (DI.SrcID "Time" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (Curry.DebugModule.Prelude.op_Plus x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (CTime x8))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_24 x1)+                           x9)))+term_strict__case_24 x1 = DI.Term "_case_24" (DI.SrcID "Time" 0) x1+strict__case_25 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_25"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x9 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CTime x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- do x6 <- Prelude.return x3+                                           x7 <- do x4 <- Prelude.return x1+                                                    x5 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "Time" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Pos+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.O+                                                                        (Curry.DebugModule.Prelude.I+                                                                           (Curry.DebugModule.Prelude.I+                                                                              (Curry.DebugModule.Prelude.I+                                                                                 Curry.DebugModule.Prelude.IHi)))))))+                                                    DM.funcCallHook "*"+                                                      (DI.DebugInfo (DI.SrcID "Time" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x4, DI.genTerm x5]))+                                                      (Curry.DebugModule.Prelude.op_Asterisk x4 x5)+                                           DM.funcCallHook "+"+                                             (DI.DebugInfo (DI.SrcID "Time" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                             (Curry.DebugModule.Prelude.op_Plus x6 x7)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (Prelude.return (CTime x8))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_25 x1)+                           x9)))+term_strict__case_25 x1 = DI.Term "_case_25" (DI.SrcID "Time" 0) x1+strict__case_26 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_26"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    CTime x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- Prelude.return x3+                                           x5 <- Prelude.return x1+                                           DM.funcCallHook "+"+                                             (DI.DebugInfo (DI.SrcID "Time" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_Plus x4 x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (Prelude.return (CTime x6))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_26 x1)+                           x7)))+term_strict__case_26 x1 = DI.Term "_case_26" (DI.SrcID "Time" 0) x1+strict__case_27 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_27"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x12 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char '0'))+                                  x10 <- do x7 <- do x6 <- do x4 <- do x3 <- DM.litHook+                                                                               (DI.DebugInfo+                                                                                  (DI.SrcID "Time"+                                                                                     0)+                                                                                  (DI.DynamicInfo []+                                                                                     []))+                                                                               (Prelude.return+                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                     '0'))+                                                                       DM.funcCallHook "ord"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "Time" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x3]))+                                                                         (Curry.DebugModule.Prelude.strict_ord+                                                                            x3)+                                                              x5 <- Prelude.return x1+                                                              DM.funcCallHook "+"+                                                                (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x4,+                                                                       DI.genTerm x5]))+                                                                (Curry.DebugModule.Prelude.op_Plus+                                                                   x4+                                                                   x5)+                                                     DM.funcCallHook "chr"+                                                       (DI.DebugInfo (DI.SrcID "Time" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x6]))+                                                       (Curry.DebugModule.Prelude.strict_chr x6)+                                            x8 <- DM.constructorHook+                                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x7 x8))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x1+                                  DM.funcCallHook "show"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11]))+                                    (Curry.DebugModule.Prelude.strict_show x11)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_27 x1)+                           x12)))+term_strict__case_27 x1 = DI.Term "_case_27" (DI.SrcID "Time" 0) x1+strict__case_28 x1+  = DM.eval+      (DM.funcDeclHook "_case_28"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x24 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x24]))+               (case x24 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x22 <- do x9 <- Prelude.return x5+                                            DM.funcCallHook "toTimeString.digit2.90"+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x9]))+                                              (x'xstrict_toTimeString46digit24690 x9)+                                  x23 <- do x20 <- do x10 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     ':'))+                                                      x11 <- DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  Curry.DebugModule.Prelude.Nil)+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x10, DI.genTerm x11]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x10 x11))+                                            x21 <- do x18 <- do x12 <- Prelude.return x6+                                                                DM.funcCallHook+                                                                  "toTimeString.digit2.90"+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12]))+                                                                  (x'xstrict_toTimeString46digit24690+                                                                     x12)+                                                      x19 <- do x16 <- do x13 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Time"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         ':'))+                                                                          x14 <- DM.constructorHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "Time"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      Curry.DebugModule.Prelude.Nil)+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Time" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x13,+                                                                                   DI.genTerm x14]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x13+                                                                                  x14))+                                                                x17 <- do x15 <- Prelude.return x7+                                                                          DM.funcCallHook+                                                                            "toTimeString.digit2.90"+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Time" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x15]))+                                                                            (x'xstrict_toTimeString46digit24690+                                                                               x15)+                                                                DM.funcCallHook "++"+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x16,+                                                                         DI.genTerm x17]))+                                                                  (Curry.DebugModule.Prelude.op_PlusPlus+                                                                     x16+                                                                     x17)+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x18, DI.genTerm x19]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x18+                                                           x19)+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "Time" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x20, DI.genTerm x21]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x20 x21)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "Time" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x22, DI.genTerm x23]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x22 x23)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x24])))+                           strict__case_28+                           x24)))+term_strict__case_28 x1 = DI.Term "_case_28" (DI.SrcID "Time" 0) x1+strict__case_29 x1+  = DM.eval+      (DM.funcDeclHook "_case_29"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x202 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x202]))+               (case x202 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x9 <- do x180 <- do x22 <- DM.litHook+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo [] []))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Char+                                                                        'J'))+                                                         x23 <- do x20 <- DM.litHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Time" 0)+                                                                               (DI.DynamicInfo []+                                                                                  []))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Char+                                                                                  'a'))+                                                                   x21 <- do x18 <- DM.litHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Time"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            []))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                            'n'))+                                                                             x19 <- do x16 <- DM.litHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "Time"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      []))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                      'u'))+                                                                                       x17 <- do x14 <- DM.litHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "Time"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                []))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                'a'))+                                                                                                 x15 <- do x12 <- DM.litHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "Time"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          []))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                                                          'r'))+                                                                                                           x13 <- do x10 <- DM.litHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "Time"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    []))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                    'y'))+                                                                                                                     x11 <- DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "Time"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    []))+                                                                                                                              (Prelude.return+                                                                                                                                 Curry.DebugModule.Prelude.Nil)+                                                                                                                     DM.constructorHook+                                                                                                                       (DI.DebugInfo+                                                                                                                          (DI.SrcID+                                                                                                                             "Time"+                                                                                                                             0)+                                                                                                                          (DI.DynamicInfo+                                                                                                                             []+                                                                                                                             [DI.genTerm+                                                                                                                                x10,+                                                                                                                              DI.genTerm+                                                                                                                                x11]))+                                                                                                                       (Prelude.return+                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                             x10+                                                                                                                             x11))+                                                                                                           DM.constructorHook+                                                                                                             (DI.DebugInfo+                                                                                                                (DI.SrcID+                                                                                                                   "Time"+                                                                                                                   0)+                                                                                                                (DI.DynamicInfo+                                                                                                                   []+                                                                                                                   [DI.genTerm+                                                                                                                      x12,+                                                                                                                    DI.genTerm+                                                                                                                      x13]))+                                                                                                             (Prelude.return+                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                   x12+                                                                                                                   x13))+                                                                                                 DM.constructorHook+                                                                                                   (DI.DebugInfo+                                                                                                      (DI.SrcID+                                                                                                         "Time"+                                                                                                         0)+                                                                                                      (DI.DynamicInfo+                                                                                                         []+                                                                                                         [DI.genTerm+                                                                                                            x14,+                                                                                                          DI.genTerm+                                                                                                            x15]))+                                                                                                   (Prelude.return+                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                         x14+                                                                                                         x15))+                                                                                       DM.constructorHook+                                                                                         (DI.DebugInfo+                                                                                            (DI.SrcID+                                                                                               "Time"+                                                                                               0)+                                                                                            (DI.DynamicInfo+                                                                                               []+                                                                                               [DI.genTerm+                                                                                                  x16,+                                                                                                DI.genTerm+                                                                                                  x17]))+                                                                                         (Prelude.return+                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                               x16+                                                                                               x17))+                                                                             DM.constructorHook+                                                                               (DI.DebugInfo+                                                                                  (DI.SrcID "Time"+                                                                                     0)+                                                                                  (DI.DynamicInfo []+                                                                                     [DI.genTerm+                                                                                        x18,+                                                                                      DI.genTerm+                                                                                        x19]))+                                                                               (Prelude.return+                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                     x18+                                                                                     x19))+                                                                   DM.constructorHook+                                                                     (DI.DebugInfo+                                                                        (DI.SrcID "Time" 0)+                                                                        (DI.DynamicInfo []+                                                                           [DI.genTerm x20,+                                                                            DI.genTerm x21]))+                                                                     (Prelude.return+                                                                        (Curry.DebugModule.Prelude.Cons+                                                                           x20+                                                                           x21))+                                                         DM.constructorHook+                                                           (DI.DebugInfo (DI.SrcID "Time" 0)+                                                              (DI.DynamicInfo []+                                                                 [DI.genTerm x22, DI.genTerm x23]))+                                                           (Prelude.return+                                                              (Curry.DebugModule.Prelude.Cons x22+                                                                 x23))+                                              x181 <- do x178 <- do x38 <- DM.litHook+                                                                             (DI.DebugInfo+                                                                                (DI.SrcID "Time" 0)+                                                                                (DI.DynamicInfo []+                                                                                   []))+                                                                             (Prelude.return+                                                                                (Curry.DebugModule.Prelude.Char+                                                                                   'F'))+                                                                    x39 <- do x36 <- DM.litHook+                                                                                       (DI.DebugInfo+                                                                                          (DI.SrcID+                                                                                             "Time"+                                                                                             0)+                                                                                          (DI.DynamicInfo+                                                                                             []+                                                                                             []))+                                                                                       (Prelude.return+                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                             'e'))+                                                                              x37 <- do x34 <- DM.litHook+                                                                                                 (DI.DebugInfo+                                                                                                    (DI.SrcID+                                                                                                       "Time"+                                                                                                       0)+                                                                                                    (DI.DynamicInfo+                                                                                                       []+                                                                                                       []))+                                                                                                 (Prelude.return+                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                       'b'))+                                                                                        x35 <- do x32 <- DM.litHook+                                                                                                           (DI.DebugInfo+                                                                                                              (DI.SrcID+                                                                                                                 "Time"+                                                                                                                 0)+                                                                                                              (DI.DynamicInfo+                                                                                                                 []+                                                                                                                 []))+                                                                                                           (Prelude.return+                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                 'r'))+                                                                                                  x33 <- do x30 <- DM.litHook+                                                                                                                     (DI.DebugInfo+                                                                                                                        (DI.SrcID+                                                                                                                           "Time"+                                                                                                                           0)+                                                                                                                        (DI.DynamicInfo+                                                                                                                           []+                                                                                                                           []))+                                                                                                                     (Prelude.return+                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                           'u'))+                                                                                                            x31 <- do x28 <- DM.litHook+                                                                                                                               (DI.DebugInfo+                                                                                                                                  (DI.SrcID+                                                                                                                                     "Time"+                                                                                                                                     0)+                                                                                                                                  (DI.DynamicInfo+                                                                                                                                     []+                                                                                                                                     []))+                                                                                                                               (Prelude.return+                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                     'a'))+                                                                                                                      x29 <- do x26 <- DM.litHook+                                                                                                                                         (DI.DebugInfo+                                                                                                                                            (DI.SrcID+                                                                                                                                               "Time"+                                                                                                                                               0)+                                                                                                                                            (DI.DynamicInfo+                                                                                                                                               []+                                                                                                                                               []))+                                                                                                                                         (Prelude.return+                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                               'r'))+                                                                                                                                x27 <- do x24 <- DM.litHook+                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                      (DI.SrcID+                                                                                                                                                         "Time"+                                                                                                                                                         0)+                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                         []+                                                                                                                                                         []))+                                                                                                                                                   (Prelude.return+                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                         'y'))+                                                                                                                                          x25 <- DM.constructorHook+                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                      (DI.SrcID+                                                                                                                                                         "Time"+                                                                                                                                                         0)+                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                         []+                                                                                                                                                         []))+                                                                                                                                                   (Prelude.return+                                                                                                                                                      Curry.DebugModule.Prelude.Nil)+                                                                                                                                          DM.constructorHook+                                                                                                                                            (DI.DebugInfo+                                                                                                                                               (DI.SrcID+                                                                                                                                                  "Time"+                                                                                                                                                  0)+                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                  []+                                                                                                                                                  [DI.genTerm+                                                                                                                                                     x24,+                                                                                                                                                   DI.genTerm+                                                                                                                                                     x25]))+                                                                                                                                            (Prelude.return+                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                  x24+                                                                                                                                                  x25))+                                                                                                                                DM.constructorHook+                                                                                                                                  (DI.DebugInfo+                                                                                                                                     (DI.SrcID+                                                                                                                                        "Time"+                                                                                                                                        0)+                                                                                                                                     (DI.DynamicInfo+                                                                                                                                        []+                                                                                                                                        [DI.genTerm+                                                                                                                                           x26,+                                                                                                                                         DI.genTerm+                                                                                                                                           x27]))+                                                                                                                                  (Prelude.return+                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                        x26+                                                                                                                                        x27))+                                                                                                                      DM.constructorHook+                                                                                                                        (DI.DebugInfo+                                                                                                                           (DI.SrcID+                                                                                                                              "Time"+                                                                                                                              0)+                                                                                                                           (DI.DynamicInfo+                                                                                                                              []+                                                                                                                              [DI.genTerm+                                                                                                                                 x28,+                                                                                                                               DI.genTerm+                                                                                                                                 x29]))+                                                                                                                        (Prelude.return+                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                              x28+                                                                                                                              x29))+                                                                                                            DM.constructorHook+                                                                                                              (DI.DebugInfo+                                                                                                                 (DI.SrcID+                                                                                                                    "Time"+                                                                                                                    0)+                                                                                                                 (DI.DynamicInfo+                                                                                                                    []+                                                                                                                    [DI.genTerm+                                                                                                                       x30,+                                                                                                                     DI.genTerm+                                                                                                                       x31]))+                                                                                                              (Prelude.return+                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                    x30+                                                                                                                    x31))+                                                                                                  DM.constructorHook+                                                                                                    (DI.DebugInfo+                                                                                                       (DI.SrcID+                                                                                                          "Time"+                                                                                                          0)+                                                                                                       (DI.DynamicInfo+                                                                                                          []+                                                                                                          [DI.genTerm+                                                                                                             x32,+                                                                                                           DI.genTerm+                                                                                                             x33]))+                                                                                                    (Prelude.return+                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                          x32+                                                                                                          x33))+                                                                                        DM.constructorHook+                                                                                          (DI.DebugInfo+                                                                                             (DI.SrcID+                                                                                                "Time"+                                                                                                0)+                                                                                             (DI.DynamicInfo+                                                                                                []+                                                                                                [DI.genTerm+                                                                                                   x34,+                                                                                                 DI.genTerm+                                                                                                   x35]))+                                                                                          (Prelude.return+                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                x34+                                                                                                x35))+                                                                              DM.constructorHook+                                                                                (DI.DebugInfo+                                                                                   (DI.SrcID "Time"+                                                                                      0)+                                                                                   (DI.DynamicInfo+                                                                                      []+                                                                                      [DI.genTerm+                                                                                         x36,+                                                                                       DI.genTerm+                                                                                         x37]))+                                                                                (Prelude.return+                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                      x36+                                                                                      x37))+                                                                    DM.constructorHook+                                                                      (DI.DebugInfo+                                                                         (DI.SrcID "Time" 0)+                                                                         (DI.DynamicInfo []+                                                                            [DI.genTerm x38,+                                                                             DI.genTerm x39]))+                                                                      (Prelude.return+                                                                         (Curry.DebugModule.Prelude.Cons+                                                                            x38+                                                                            x39))+                                                         x179 <- do x176 <- do x48 <- DM.litHook+                                                                                        (DI.DebugInfo+                                                                                           (DI.SrcID+                                                                                              "Time"+                                                                                              0)+                                                                                           (DI.DynamicInfo+                                                                                              []+                                                                                              []))+                                                                                        (Prelude.return+                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                              'M'))+                                                                               x49 <- do x46 <- DM.litHook+                                                                                                  (DI.DebugInfo+                                                                                                     (DI.SrcID+                                                                                                        "Time"+                                                                                                        0)+                                                                                                     (DI.DynamicInfo+                                                                                                        []+                                                                                                        []))+                                                                                                  (Prelude.return+                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                        'a'))+                                                                                         x47 <- do x44 <- DM.litHook+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "Time"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  []))+                                                                                                            (Prelude.return+                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                  'r'))+                                                                                                   x45 <- do x42 <- DM.litHook+                                                                                                                      (DI.DebugInfo+                                                                                                                         (DI.SrcID+                                                                                                                            "Time"+                                                                                                                            0)+                                                                                                                         (DI.DynamicInfo+                                                                                                                            []+                                                                                                                            []))+                                                                                                                      (Prelude.return+                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                            'c'))+                                                                                                             x43 <- do x40 <- DM.litHook+                                                                                                                                (DI.DebugInfo+                                                                                                                                   (DI.SrcID+                                                                                                                                      "Time"+                                                                                                                                      0)+                                                                                                                                   (DI.DynamicInfo+                                                                                                                                      []+                                                                                                                                      []))+                                                                                                                                (Prelude.return+                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                      'h'))+                                                                                                                       x41 <- DM.constructorHook+                                                                                                                                (DI.DebugInfo+                                                                                                                                   (DI.SrcID+                                                                                                                                      "Time"+                                                                                                                                      0)+                                                                                                                                   (DI.DynamicInfo+                                                                                                                                      []+                                                                                                                                      []))+                                                                                                                                (Prelude.return+                                                                                                                                   Curry.DebugModule.Prelude.Nil)+                                                                                                                       DM.constructorHook+                                                                                                                         (DI.DebugInfo+                                                                                                                            (DI.SrcID+                                                                                                                               "Time"+                                                                                                                               0)+                                                                                                                            (DI.DynamicInfo+                                                                                                                               []+                                                                                                                               [DI.genTerm+                                                                                                                                  x40,+                                                                                                                                DI.genTerm+                                                                                                                                  x41]))+                                                                                                                         (Prelude.return+                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                               x40+                                                                                                                               x41))+                                                                                                             DM.constructorHook+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "Time"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x42,+                                                                                                                      DI.genTerm+                                                                                                                        x43]))+                                                                                                               (Prelude.return+                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                     x42+                                                                                                                     x43))+                                                                                                   DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "Time"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           [DI.genTerm+                                                                                                              x44,+                                                                                                            DI.genTerm+                                                                                                              x45]))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                           x44+                                                                                                           x45))+                                                                                         DM.constructorHook+                                                                                           (DI.DebugInfo+                                                                                              (DI.SrcID+                                                                                                 "Time"+                                                                                                 0)+                                                                                              (DI.DynamicInfo+                                                                                                 []+                                                                                                 [DI.genTerm+                                                                                                    x46,+                                                                                                  DI.genTerm+                                                                                                    x47]))+                                                                                           (Prelude.return+                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                 x46+                                                                                                 x47))+                                                                               DM.constructorHook+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID "Time"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       [DI.genTerm+                                                                                          x48,+                                                                                        DI.genTerm+                                                                                          x49]))+                                                                                 (Prelude.return+                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                       x48+                                                                                       x49))+                                                                    x177 <- do x174 <- do x58 <- DM.litHook+                                                                                                   (DI.DebugInfo+                                                                                                      (DI.SrcID+                                                                                                         "Time"+                                                                                                         0)+                                                                                                      (DI.DynamicInfo+                                                                                                         []+                                                                                                         []))+                                                                                                   (Prelude.return+                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                         'A'))+                                                                                          x59 <- do x56 <- DM.litHook+                                                                                                             (DI.DebugInfo+                                                                                                                (DI.SrcID+                                                                                                                   "Time"+                                                                                                                   0)+                                                                                                                (DI.DynamicInfo+                                                                                                                   []+                                                                                                                   []))+                                                                                                             (Prelude.return+                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                   'p'))+                                                                                                    x57 <- do x54 <- DM.litHook+                                                                                                                       (DI.DebugInfo+                                                                                                                          (DI.SrcID+                                                                                                                             "Time"+                                                                                                                             0)+                                                                                                                          (DI.DynamicInfo+                                                                                                                             []+                                                                                                                             []))+                                                                                                                       (Prelude.return+                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                             'r'))+                                                                                                              x55 <- do x52 <- DM.litHook+                                                                                                                                 (DI.DebugInfo+                                                                                                                                    (DI.SrcID+                                                                                                                                       "Time"+                                                                                                                                       0)+                                                                                                                                    (DI.DynamicInfo+                                                                                                                                       []+                                                                                                                                       []))+                                                                                                                                 (Prelude.return+                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                       'i'))+                                                                                                                        x53 <- do x50 <- DM.litHook+                                                                                                                                           (DI.DebugInfo+                                                                                                                                              (DI.SrcID+                                                                                                                                                 "Time"+                                                                                                                                                 0)+                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                 []+                                                                                                                                                 []))+                                                                                                                                           (Prelude.return+                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                 'l'))+                                                                                                                                  x51 <- DM.constructorHook+                                                                                                                                           (DI.DebugInfo+                                                                                                                                              (DI.SrcID+                                                                                                                                                 "Time"+                                                                                                                                                 0)+                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                 []+                                                                                                                                                 []))+                                                                                                                                           (Prelude.return+                                                                                                                                              Curry.DebugModule.Prelude.Nil)+                                                                                                                                  DM.constructorHook+                                                                                                                                    (DI.DebugInfo+                                                                                                                                       (DI.SrcID+                                                                                                                                          "Time"+                                                                                                                                          0)+                                                                                                                                       (DI.DynamicInfo+                                                                                                                                          []+                                                                                                                                          [DI.genTerm+                                                                                                                                             x50,+                                                                                                                                           DI.genTerm+                                                                                                                                             x51]))+                                                                                                                                    (Prelude.return+                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                          x50+                                                                                                                                          x51))+                                                                                                                        DM.constructorHook+                                                                                                                          (DI.DebugInfo+                                                                                                                             (DI.SrcID+                                                                                                                                "Time"+                                                                                                                                0)+                                                                                                                             (DI.DynamicInfo+                                                                                                                                []+                                                                                                                                [DI.genTerm+                                                                                                                                   x52,+                                                                                                                                 DI.genTerm+                                                                                                                                   x53]))+                                                                                                                          (Prelude.return+                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                x52+                                                                                                                                x53))+                                                                                                              DM.constructorHook+                                                                                                                (DI.DebugInfo+                                                                                                                   (DI.SrcID+                                                                                                                      "Time"+                                                                                                                      0)+                                                                                                                   (DI.DynamicInfo+                                                                                                                      []+                                                                                                                      [DI.genTerm+                                                                                                                         x54,+                                                                                                                       DI.genTerm+                                                                                                                         x55]))+                                                                                                                (Prelude.return+                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                      x54+                                                                                                                      x55))+                                                                                                    DM.constructorHook+                                                                                                      (DI.DebugInfo+                                                                                                         (DI.SrcID+                                                                                                            "Time"+                                                                                                            0)+                                                                                                         (DI.DynamicInfo+                                                                                                            []+                                                                                                            [DI.genTerm+                                                                                                               x56,+                                                                                                             DI.genTerm+                                                                                                               x57]))+                                                                                                      (Prelude.return+                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                            x56+                                                                                                            x57))+                                                                                          DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "Time"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  [DI.genTerm+                                                                                                     x58,+                                                                                                   DI.genTerm+                                                                                                     x59]))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                  x58+                                                                                                  x59))+                                                                               x175 <- do x172 <- do x64 <- DM.litHook+                                                                                                              (DI.DebugInfo+                                                                                                                 (DI.SrcID+                                                                                                                    "Time"+                                                                                                                    0)+                                                                                                                 (DI.DynamicInfo+                                                                                                                    []+                                                                                                                    []))+                                                                                                              (Prelude.return+                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                    'M'))+                                                                                                     x65 <- do x62 <- DM.litHook+                                                                                                                        (DI.DebugInfo+                                                                                                                           (DI.SrcID+                                                                                                                              "Time"+                                                                                                                              0)+                                                                                                                           (DI.DynamicInfo+                                                                                                                              []+                                                                                                                              []))+                                                                                                                        (Prelude.return+                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                              'a'))+                                                                                                               x63 <- do x60 <- DM.litHook+                                                                                                                                  (DI.DebugInfo+                                                                                                                                     (DI.SrcID+                                                                                                                                        "Time"+                                                                                                                                        0)+                                                                                                                                     (DI.DynamicInfo+                                                                                                                                        []+                                                                                                                                        []))+                                                                                                                                  (Prelude.return+                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                        'y'))+                                                                                                                         x61 <- DM.constructorHook+                                                                                                                                  (DI.DebugInfo+                                                                                                                                     (DI.SrcID+                                                                                                                                        "Time"+                                                                                                                                        0)+                                                                                                                                     (DI.DynamicInfo+                                                                                                                                        []+                                                                                                                                        []))+                                                                                                                                  (Prelude.return+                                                                                                                                     Curry.DebugModule.Prelude.Nil)+                                                                                                                         DM.constructorHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "Time"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 [DI.genTerm+                                                                                                                                    x60,+                                                                                                                                  DI.genTerm+                                                                                                                                    x61]))+                                                                                                                           (Prelude.return+                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                 x60+                                                                                                                                 x61))+                                                                                                               DM.constructorHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "Time"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       [DI.genTerm+                                                                                                                          x62,+                                                                                                                        DI.genTerm+                                                                                                                          x63]))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                       x62+                                                                                                                       x63))+                                                                                                     DM.constructorHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "Time"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             [DI.genTerm+                                                                                                                x64,+                                                                                                              DI.genTerm+                                                                                                                x65]))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                             x64+                                                                                                             x65))+                                                                                          x173 <- do x170 <- do x72 <- DM.litHook+                                                                                                                         (DI.DebugInfo+                                                                                                                            (DI.SrcID+                                                                                                                               "Time"+                                                                                                                               0)+                                                                                                                            (DI.DynamicInfo+                                                                                                                               []+                                                                                                                               []))+                                                                                                                         (Prelude.return+                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                               'J'))+                                                                                                                x73 <- do x70 <- DM.litHook+                                                                                                                                   (DI.DebugInfo+                                                                                                                                      (DI.SrcID+                                                                                                                                         "Time"+                                                                                                                                         0)+                                                                                                                                      (DI.DynamicInfo+                                                                                                                                         []+                                                                                                                                         []))+                                                                                                                                   (Prelude.return+                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                         'u'))+                                                                                                                          x71 <- do x68 <- DM.litHook+                                                                                                                                             (DI.DebugInfo+                                                                                                                                                (DI.SrcID+                                                                                                                                                   "Time"+                                                                                                                                                   0)+                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                   []+                                                                                                                                                   []))+                                                                                                                                             (Prelude.return+                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                   'n'))+                                                                                                                                    x69 <- do x66 <- DM.litHook+                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                          (DI.SrcID+                                                                                                                                                             "Time"+                                                                                                                                                             0)+                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                             []+                                                                                                                                                             []))+                                                                                                                                                       (Prelude.return+                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                             'e'))+                                                                                                                                              x67 <- DM.constructorHook+                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                          (DI.SrcID+                                                                                                                                                             "Time"+                                                                                                                                                             0)+                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                             []+                                                                                                                                                             []))+                                                                                                                                                       (Prelude.return+                                                                                                                                                          Curry.DebugModule.Prelude.Nil)+                                                                                                                                              DM.constructorHook+                                                                                                                                                (DI.DebugInfo+                                                                                                                                                   (DI.SrcID+                                                                                                                                                      "Time"+                                                                                                                                                      0)+                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                      []+                                                                                                                                                      [DI.genTerm+                                                                                                                                                         x66,+                                                                                                                                                       DI.genTerm+                                                                                                                                                         x67]))+                                                                                                                                                (Prelude.return+                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                      x66+                                                                                                                                                      x67))+                                                                                                                                    DM.constructorHook+                                                                                                                                      (DI.DebugInfo+                                                                                                                                         (DI.SrcID+                                                                                                                                            "Time"+                                                                                                                                            0)+                                                                                                                                         (DI.DynamicInfo+                                                                                                                                            []+                                                                                                                                            [DI.genTerm+                                                                                                                                               x68,+                                                                                                                                             DI.genTerm+                                                                                                                                               x69]))+                                                                                                                                      (Prelude.return+                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                            x68+                                                                                                                                            x69))+                                                                                                                          DM.constructorHook+                                                                                                                            (DI.DebugInfo+                                                                                                                               (DI.SrcID+                                                                                                                                  "Time"+                                                                                                                                  0)+                                                                                                                               (DI.DynamicInfo+                                                                                                                                  []+                                                                                                                                  [DI.genTerm+                                                                                                                                     x70,+                                                                                                                                   DI.genTerm+                                                                                                                                     x71]))+                                                                                                                            (Prelude.return+                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                  x70+                                                                                                                                  x71))+                                                                                                                DM.constructorHook+                                                                                                                  (DI.DebugInfo+                                                                                                                     (DI.SrcID+                                                                                                                        "Time"+                                                                                                                        0)+                                                                                                                     (DI.DynamicInfo+                                                                                                                        []+                                                                                                                        [DI.genTerm+                                                                                                                           x72,+                                                                                                                         DI.genTerm+                                                                                                                           x73]))+                                                                                                                  (Prelude.return+                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                        x72+                                                                                                                        x73))+                                                                                                     x171 <- do x168 <- do x80 <- DM.litHook+                                                                                                                                    (DI.DebugInfo+                                                                                                                                       (DI.SrcID+                                                                                                                                          "Time"+                                                                                                                                          0)+                                                                                                                                       (DI.DynamicInfo+                                                                                                                                          []+                                                                                                                                          []))+                                                                                                                                    (Prelude.return+                                                                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                                                                          'J'))+                                                                                                                           x81 <- do x78 <- DM.litHook+                                                                                                                                              (DI.DebugInfo+                                                                                                                                                 (DI.SrcID+                                                                                                                                                    "Time"+                                                                                                                                                    0)+                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                    []+                                                                                                                                                    []))+                                                                                                                                              (Prelude.return+                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                    'u'))+                                                                                                                                     x79 <- do x76 <- DM.litHook+                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                           (DI.SrcID+                                                                                                                                                              "Time"+                                                                                                                                                              0)+                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                              []+                                                                                                                                                              []))+                                                                                                                                                        (Prelude.return+                                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                                              'l'))+                                                                                                                                               x77 <- do x74 <- DM.litHook+                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                        "Time"+                                                                                                                                                                        0)+                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                        []+                                                                                                                                                                        []))+                                                                                                                                                                  (Prelude.return+                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                        'y'))+                                                                                                                                                         x75 <- DM.constructorHook+                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                        "Time"+                                                                                                                                                                        0)+                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                        []+                                                                                                                                                                        []))+                                                                                                                                                                  (Prelude.return+                                                                                                                                                                     Curry.DebugModule.Prelude.Nil)+                                                                                                                                                         DM.constructorHook+                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                              (DI.SrcID+                                                                                                                                                                 "Time"+                                                                                                                                                                 0)+                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                 []+                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                    x74,+                                                                                                                                                                  DI.genTerm+                                                                                                                                                                    x75]))+                                                                                                                                                           (Prelude.return+                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                 x74+                                                                                                                                                                 x75))+                                                                                                                                               DM.constructorHook+                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                    (DI.SrcID+                                                                                                                                                       "Time"+                                                                                                                                                       0)+                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                       []+                                                                                                                                                       [DI.genTerm+                                                                                                                                                          x76,+                                                                                                                                                        DI.genTerm+                                                                                                                                                          x77]))+                                                                                                                                                 (Prelude.return+                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                       x76+                                                                                                                                                       x77))+                                                                                                                                     DM.constructorHook+                                                                                                                                       (DI.DebugInfo+                                                                                                                                          (DI.SrcID+                                                                                                                                             "Time"+                                                                                                                                             0)+                                                                                                                                          (DI.DynamicInfo+                                                                                                                                             []+                                                                                                                                             [DI.genTerm+                                                                                                                                                x78,+                                                                                                                                              DI.genTerm+                                                                                                                                                x79]))+                                                                                                                                       (Prelude.return+                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                             x78+                                                                                                                                             x79))+                                                                                                                           DM.constructorHook+                                                                                                                             (DI.DebugInfo+                                                                                                                                (DI.SrcID+                                                                                                                                   "Time"+                                                                                                                                   0)+                                                                                                                                (DI.DynamicInfo+                                                                                                                                   []+                                                                                                                                   [DI.genTerm+                                                                                                                                      x80,+                                                                                                                                    DI.genTerm+                                                                                                                                      x81]))+                                                                                                                             (Prelude.return+                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                   x80+                                                                                                                                   x81))+                                                                                                                x169 <- do x166 <- do x92 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "Time"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                     'A'))+                                                                                                                                      x93 <- do x90 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "Time"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                               'u'))+                                                                                                                                                x91 <- do x88 <- DM.litHook+                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                         "Time"+                                                                                                                                                                         0)+                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                         []+                                                                                                                                                                         []))+                                                                                                                                                                   (Prelude.return+                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                         'g'))+                                                                                                                                                          x89 <- do x86 <- DM.litHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "Time"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                   'u'))+                                                                                                                                                                    x87 <- do x84 <- DM.litHook+                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                             "Time"+                                                                                                                                                                                             0)+                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                             []+                                                                                                                                                                                             []))+                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                             's'))+                                                                                                                                                                              x85 <- do x82 <- DM.litHook+                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                       "Time"+                                                                                                                                                                                                       0)+                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                       []+                                                                                                                                                                                                       []))+                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                       't'))+                                                                                                                                                                                        x83 <- DM.constructorHook+                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                       "Time"+                                                                                                                                                                                                       0)+                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                       []+                                                                                                                                                                                                       []))+                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                    Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                "Time"+                                                                                                                                                                                                0)+                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                []+                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                   x82,+                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                   x83]))+                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                x82+                                                                                                                                                                                                x83))+                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                      "Time"+                                                                                                                                                                                      0)+                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                      []+                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                         x84,+                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                         x85]))+                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                      x84+                                                                                                                                                                                      x85))+                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "Time"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                               x86,+                                                                                                                                                                             DI.genTerm+                                                                                                                                                                               x87]))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                            x86+                                                                                                                                                                            x87))+                                                                                                                                                          DM.constructorHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "Time"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                     x88,+                                                                                                                                                                   DI.genTerm+                                                                                                                                                                     x89]))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                  x88+                                                                                                                                                                  x89))+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "Time"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x90,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x91]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                        x90+                                                                                                                                                        x91))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "Time"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x92,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x93]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x92+                                                                                                                                              x93))+                                                                                                                           x167 <- do x164 <- do x110 <- DM.litHook+                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                              (DI.SrcID+                                                                                                                                                                 "Time"+                                                                                                                                                                 0)+                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                 []+                                                                                                                                                                 []))+                                                                                                                                                           (Prelude.return+                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                 'S'))+                                                                                                                                                 x111 <- do x108 <- DM.litHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "Time"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            []))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                                                                            'e'))+                                                                                                                                                            x109 <- do x106 <- DM.litHook+                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                       "Time"+                                                                                                                                                                                       0)+                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                       []+                                                                                                                                                                                       []))+                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                       'p'))+                                                                                                                                                                       x107 <- do x104 <- DM.litHook+                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                  "Time"+                                                                                                                                                                                                  0)+                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                  []+                                                                                                                                                                                                  []))+                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                  't'))+                                                                                                                                                                                  x105 <- do x102 <- DM.litHook+                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                             "Time"+                                                                                                                                                                                                             0)+                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                             []+                                                                                                                                                                                                             []))+                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                             'e'))+                                                                                                                                                                                             x103 <- do x100 <- DM.litHook+                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                        "Time"+                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                        []+                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                        'm'))+                                                                                                                                                                                                        x101 <- do x98 <- DM.litHook+                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                  "Time"+                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                  []))+                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                  'b'))+                                                                                                                                                                                                                   x99 <- do x96 <- DM.litHook+                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                            "Time"+                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                            []))+                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                            'e'))+                                                                                                                                                                                                                             x97 <- do x94 <- DM.litHook+                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                      "Time"+                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                      []))+                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                      'r'))+                                                                                                                                                                                                                                       x95 <- DM.constructorHook+                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                      "Time"+                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                      []))+                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                   Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                               "Time"+                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                                                                                  x94,+                                                                                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                                                                                  x95]))+                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                               x94+                                                                                                                                                                                                                                               x95))+                                                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                     "Time"+                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                                                        x96,+                                                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                                                        x97]))+                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                     x96+                                                                                                                                                                                                                                     x97))+                                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                           "Time"+                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                           []+                                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                                              x98,+                                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                                              x99]))+                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                           x98+                                                                                                                                                                                                                           x99))+                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                "Time"+                                                                                                                                                                                                                0)+                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                []+                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                   x100,+                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                   x101]))+                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                x100+                                                                                                                                                                                                                x101))+                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                     "Time"+                                                                                                                                                                                                     0)+                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                     []+                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                        x102,+                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                        x103]))+                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                     x102+                                                                                                                                                                                                     x103))+                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                          "Time"+                                                                                                                                                                                          0)+                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                          []+                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                             x104,+                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                             x105]))+                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                          x104+                                                                                                                                                                                          x105))+                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                               "Time"+                                                                                                                                                                               0)+                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                               []+                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                  x106,+                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                  x107]))+                                                                                                                                                                         (Prelude.return+                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                               x106+                                                                                                                                                                               x107))+                                                                                                                                                            DM.constructorHook+                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                    "Time"+                                                                                                                                                                    0)+                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                    []+                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                       x108,+                                                                                                                                                                     DI.genTerm+                                                                                                                                                                       x109]))+                                                                                                                                                              (Prelude.return+                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                    x108+                                                                                                                                                                    x109))+                                                                                                                                                 DM.constructorHook+                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                      (DI.SrcID+                                                                                                                                                         "Time"+                                                                                                                                                         0)+                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                         []+                                                                                                                                                         [DI.genTerm+                                                                                                                                                            x110,+                                                                                                                                                          DI.genTerm+                                                                                                                                                            x111]))+                                                                                                                                                   (Prelude.return+                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                         x110+                                                                                                                                                         x111))+                                                                                                                                      x165 <- do x162 <- do x124 <- DM.litHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "Time"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            []))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                                                                            'O'))+                                                                                                                                                            x125 <- do x122 <- DM.litHook+                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                       "Time"+                                                                                                                                                                                       0)+                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                       []+                                                                                                                                                                                       []))+                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                       'c'))+                                                                                                                                                                       x123 <- do x120 <- DM.litHook+                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                  "Time"+                                                                                                                                                                                                  0)+                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                  []+                                                                                                                                                                                                  []))+                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                  't'))+                                                                                                                                                                                  x121 <- do x118 <- DM.litHook+                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                             "Time"+                                                                                                                                                                                                             0)+                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                             []+                                                                                                                                                                                                             []))+                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                             'o'))+                                                                                                                                                                                             x119 <- do x116 <- DM.litHook+                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                        "Time"+                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                        []+                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                        'b'))+                                                                                                                                                                                                        x117 <- do x114 <- DM.litHook+                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                   "Time"+                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                   'e'))+                                                                                                                                                                                                                   x115 <- do x112 <- DM.litHook+                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                              "Time"+                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                              []))+                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                              'r'))+                                                                                                                                                                                                                              x113 <- DM.constructorHook+                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                              "Time"+                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                              []))+                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                           Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                      "Time"+                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                         x112,+                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                         x113]))+                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                      x112+                                                                                                                                                                                                                                      x113))+                                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                           "Time"+                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                           []+                                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                                              x114,+                                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                                              x115]))+                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                           x114+                                                                                                                                                                                                                           x115))+                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                "Time"+                                                                                                                                                                                                                0)+                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                []+                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                   x116,+                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                   x117]))+                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                x116+                                                                                                                                                                                                                x117))+                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                     "Time"+                                                                                                                                                                                                     0)+                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                     []+                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                        x118,+                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                        x119]))+                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                     x118+                                                                                                                                                                                                     x119))+                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                          "Time"+                                                                                                                                                                                          0)+                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                          []+                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                             x120,+                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                             x121]))+                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                          x120+                                                                                                                                                                                          x121))+                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                               "Time"+                                                                                                                                                                               0)+                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                               []+                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                  x122,+                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                  x123]))+                                                                                                                                                                         (Prelude.return+                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                               x122+                                                                                                                                                                               x123))+                                                                                                                                                            DM.constructorHook+                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                    "Time"+                                                                                                                                                                    0)+                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                    []+                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                       x124,+                                                                                                                                                                     DI.genTerm+                                                                                                                                                                       x125]))+                                                                                                                                                              (Prelude.return+                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                    x124+                                                                                                                                                                    x125))+                                                                                                                                                 x163 <- do x160 <- do x140 <- DM.litHook+                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                       "Time"+                                                                                                                                                                                       0)+                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                       []+                                                                                                                                                                                       []))+                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                       'N'))+                                                                                                                                                                       x141 <- do x138 <- DM.litHook+                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                  "Time"+                                                                                                                                                                                                  0)+                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                  []+                                                                                                                                                                                                  []))+                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                  'o'))+                                                                                                                                                                                  x139 <- do x136 <- DM.litHook+                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                             "Time"+                                                                                                                                                                                                             0)+                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                             []+                                                                                                                                                                                                             []))+                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                             'v'))+                                                                                                                                                                                             x137 <- do x134 <- DM.litHook+                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                        "Time"+                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                        []+                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                        'e'))+                                                                                                                                                                                                        x135 <- do x132 <- DM.litHook+                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                   "Time"+                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                   'm'))+                                                                                                                                                                                                                   x133 <- do x130 <- DM.litHook+                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                              "Time"+                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                              []))+                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                              'b'))+                                                                                                                                                                                                                              x131 <- do x128 <- DM.litHook+                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                         "Time"+                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                         'e'))+                                                                                                                                                                                                                                         x129 <- do x126 <- DM.litHook+                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                    "Time"+                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                    'r'))+                                                                                                                                                                                                                                                    x127 <- DM.constructorHook+                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                    "Time"+                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                 Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                            "Time"+                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                               x126,+                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                               x127]))+                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                            x126+                                                                                                                                                                                                                                                            x127))+                                                                                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                 "Time"+                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                                                                                    x128,+                                                                                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                                                                                    x129]))+                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                 x128+                                                                                                                                                                                                                                                 x129))+                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                      "Time"+                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                         x130,+                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                         x131]))+                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                      x130+                                                                                                                                                                                                                                      x131))+                                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                           "Time"+                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                           []+                                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                                              x132,+                                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                                              x133]))+                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                           x132+                                                                                                                                                                                                                           x133))+                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                "Time"+                                                                                                                                                                                                                0)+                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                []+                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                   x134,+                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                   x135]))+                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                x134+                                                                                                                                                                                                                x135))+                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                     "Time"+                                                                                                                                                                                                     0)+                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                     []+                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                        x136,+                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                        x137]))+                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                     x136+                                                                                                                                                                                                     x137))+                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                          "Time"+                                                                                                                                                                                          0)+                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                          []+                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                             x138,+                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                             x139]))+                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                          x138+                                                                                                                                                                                          x139))+                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                               "Time"+                                                                                                                                                                               0)+                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                               []+                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                  x140,+                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                  x141]))+                                                                                                                                                                         (Prelude.return+                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                               x140+                                                                                                                                                                               x141))+                                                                                                                                                            x161 <- do x158 <- do x156 <- DM.litHook+                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                  "Time"+                                                                                                                                                                                                  0)+                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                  []+                                                                                                                                                                                                  []))+                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                  'D'))+                                                                                                                                                                                  x157 <- do x154 <- DM.litHook+                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                             "Time"+                                                                                                                                                                                                             0)+                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                             []+                                                                                                                                                                                                             []))+                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                             'e'))+                                                                                                                                                                                             x155 <- do x152 <- DM.litHook+                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                        "Time"+                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                        []+                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                        'c'))+                                                                                                                                                                                                        x153 <- do x150 <- DM.litHook+                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                   "Time"+                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                   'e'))+                                                                                                                                                                                                                   x151 <- do x148 <- DM.litHook+                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                              "Time"+                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                              []))+                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                              'm'))+                                                                                                                                                                                                                              x149 <- do x146 <- DM.litHook+                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                         "Time"+                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                         'b'))+                                                                                                                                                                                                                                         x147 <- do x144 <- DM.litHook+                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                    "Time"+                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                    'e'))+                                                                                                                                                                                                                                                    x145 <- do x142 <- DM.litHook+                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                               "Time"+                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                               'r'))+                                                                                                                                                                                                                                                               x143 <- DM.constructorHook+                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                               "Time"+                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                            Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                               DM.constructorHook+                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                       "Time"+                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                                                                                                                          x142,+                                                                                                                                                                                                                                                                        DI.genTerm+                                                                                                                                                                                                                                                                          x143]))+                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                       x142+                                                                                                                                                                                                                                                                       x143))+                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                            "Time"+                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                               x144,+                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                               x145]))+                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                            x144+                                                                                                                                                                                                                                                            x145))+                                                                                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                 "Time"+                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                                                                                    x146,+                                                                                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                                                                                    x147]))+                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                 x146+                                                                                                                                                                                                                                                 x147))+                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                      "Time"+                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                         x148,+                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                         x149]))+                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                      x148+                                                                                                                                                                                                                                      x149))+                                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                           "Time"+                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                           []+                                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                                              x150,+                                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                                              x151]))+                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                           x150+                                                                                                                                                                                                                           x151))+                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                "Time"+                                                                                                                                                                                                                0)+                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                []+                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                   x152,+                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                   x153]))+                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                x152+                                                                                                                                                                                                                x153))+                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                     "Time"+                                                                                                                                                                                                     0)+                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                     []+                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                        x154,+                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                        x155]))+                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                     x154+                                                                                                                                                                                                     x155))+                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                          "Time"+                                                                                                                                                                                          0)+                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                          []+                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                             x156,+                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                             x157]))+                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                          x156+                                                                                                                                                                                          x157))+                                                                                                                                                                       x159 <- DM.constructorHook+                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                       "Time"+                                                                                                                                                                                       0)+                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                       []+                                                                                                                                                                                       []))+                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                    Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                               "Time"+                                                                                                                                                                               0)+                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                               []+                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                  x158,+                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                  x159]))+                                                                                                                                                                         (Prelude.return+                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                               x158+                                                                                                                                                                               x159))+                                                                                                                                                            DM.constructorHook+                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                    "Time"+                                                                                                                                                                    0)+                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                    []+                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                       x160,+                                                                                                                                                                     DI.genTerm+                                                                                                                                                                       x161]))+                                                                                                                                                              (Prelude.return+                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                    x160+                                                                                                                                                                    x161))+                                                                                                                                                 DM.constructorHook+                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                      (DI.SrcID+                                                                                                                                                         "Time"+                                                                                                                                                         0)+                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                         []+                                                                                                                                                         [DI.genTerm+                                                                                                                                                            x162,+                                                                                                                                                          DI.genTerm+                                                                                                                                                            x163]))+                                                                                                                                                   (Prelude.return+                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                         x162+                                                                                                                                                         x163))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "Time"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x164,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x165]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x164+                                                                                                                                              x165))+                                                                                                                           DM.constructorHook+                                                                                                                             (DI.DebugInfo+                                                                                                                                (DI.SrcID+                                                                                                                                   "Time"+                                                                                                                                   0)+                                                                                                                                (DI.DynamicInfo+                                                                                                                                   []+                                                                                                                                   [DI.genTerm+                                                                                                                                      x166,+                                                                                                                                    DI.genTerm+                                                                                                                                      x167]))+                                                                                                                             (Prelude.return+                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                   x166+                                                                                                                                   x167))+                                                                                                                DM.constructorHook+                                                                                                                  (DI.DebugInfo+                                                                                                                     (DI.SrcID+                                                                                                                        "Time"+                                                                                                                        0)+                                                                                                                     (DI.DynamicInfo+                                                                                                                        []+                                                                                                                        [DI.genTerm+                                                                                                                           x168,+                                                                                                                         DI.genTerm+                                                                                                                           x169]))+                                                                                                                  (Prelude.return+                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                        x168+                                                                                                                        x169))+                                                                                                     DM.constructorHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "Time"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             [DI.genTerm+                                                                                                                x170,+                                                                                                              DI.genTerm+                                                                                                                x171]))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                             x170+                                                                                                             x171))+                                                                                          DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "Time"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  [DI.genTerm+                                                                                                     x172,+                                                                                                   DI.genTerm+                                                                                                     x173]))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                  x172+                                                                                                  x173))+                                                                               DM.constructorHook+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID "Time"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       [DI.genTerm+                                                                                          x174,+                                                                                        DI.genTerm+                                                                                          x175]))+                                                                                 (Prelude.return+                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                       x174+                                                                                       x175))+                                                                    DM.constructorHook+                                                                      (DI.DebugInfo+                                                                         (DI.SrcID "Time" 0)+                                                                         (DI.DynamicInfo []+                                                                            [DI.genTerm x176,+                                                                             DI.genTerm x177]))+                                                                      (Prelude.return+                                                                         (Curry.DebugModule.Prelude.Cons+                                                                            x176+                                                                            x177))+                                                         DM.constructorHook+                                                           (DI.DebugInfo (DI.SrcID "Time" 0)+                                                              (DI.DynamicInfo []+                                                                 [DI.genTerm x178,+                                                                  DI.genTerm x179]))+                                                           (Prelude.return+                                                              (Curry.DebugModule.Prelude.Cons x178+                                                                 x179))+                                              DM.constructorHook+                                                (DI.DebugInfo (DI.SrcID "Time" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x180, DI.genTerm x181]))+                                                (Prelude.return+                                                   (Curry.DebugModule.Prelude.Cons x180 x181))+                                     DM.eval+                                       (do x200 <- do x184 <- Prelude.return x9+                                                      x185 <- do x182 <- Prelude.return x3+                                                                 x183 <- DM.litHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "Time" 0)+                                                                              (DI.DynamicInfo []+                                                                                 []))+                                                                           (Prelude.return+                                                                              (Curry.DebugModule.Prelude.Pos+                                                                                 Curry.DebugModule.Prelude.IHi))+                                                                 DM.funcCallHook "-"+                                                                   (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x182,+                                                                          DI.genTerm x183]))+                                                                   (Curry.DebugModule.Prelude.op_Minus+                                                                      x182+                                                                      x183)+                                                      DM.funcCallHook "!!"+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x184, DI.genTerm x185]))+                                                        (Curry.DebugModule.Prelude.op_EMarkEMark+                                                           x184+                                                           x185)+                                           x201 <- do x198 <- do x186 <- DM.litHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "Time" 0)+                                                                              (DI.DynamicInfo []+                                                                                 []))+                                                                           (Prelude.return+                                                                              (Curry.DebugModule.Prelude.Char+                                                                                 ' '))+                                                                 x187 <- DM.constructorHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "Time" 0)+                                                                              (DI.DynamicInfo []+                                                                                 []))+                                                                           (Prelude.return+                                                                              Curry.DebugModule.Prelude.Nil)+                                                                 DM.constructorHook+                                                                   (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x186,+                                                                          DI.genTerm x187]))+                                                                   (Prelude.return+                                                                      (Curry.DebugModule.Prelude.Cons+                                                                         x186+                                                                         x187))+                                                      x199 <- do x196 <- do x188 <- Prelude.return+                                                                                      x4+                                                                            DM.funcCallHook "show"+                                                                              (DI.DebugInfo+                                                                                 (DI.SrcID "Time" 0)+                                                                                 (DI.DynamicInfo []+                                                                                    [DI.genTerm+                                                                                       x188]))+                                                                              (Curry.DebugModule.Prelude.strict_show+                                                                                 x188)+                                                                 x197 <- do x194 <- do x191 <- DM.litHook+                                                                                                 (DI.DebugInfo+                                                                                                    (DI.SrcID+                                                                                                       "Time"+                                                                                                       0)+                                                                                                    (DI.DynamicInfo+                                                                                                       []+                                                                                                       []))+                                                                                                 (Prelude.return+                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                       ','))+                                                                                       x192 <- do x189 <- DM.litHook+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "Time"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  []))+                                                                                                            (Prelude.return+                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                  ' '))+                                                                                                  x190 <- DM.constructorHook+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "Time"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  []))+                                                                                                            (Prelude.return+                                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                                  DM.constructorHook+                                                                                                    (DI.DebugInfo+                                                                                                       (DI.SrcID+                                                                                                          "Time"+                                                                                                          0)+                                                                                                       (DI.DynamicInfo+                                                                                                          []+                                                                                                          [DI.genTerm+                                                                                                             x189,+                                                                                                           DI.genTerm+                                                                                                             x190]))+                                                                                                    (Prelude.return+                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                          x189+                                                                                                          x190))+                                                                                       DM.constructorHook+                                                                                         (DI.DebugInfo+                                                                                            (DI.SrcID+                                                                                               "Time"+                                                                                               0)+                                                                                            (DI.DynamicInfo+                                                                                               []+                                                                                               [DI.genTerm+                                                                                                  x191,+                                                                                                DI.genTerm+                                                                                                  x192]))+                                                                                         (Prelude.return+                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                               x191+                                                                                               x192))+                                                                            x195 <- do x193 <- Prelude.return+                                                                                                 x2+                                                                                       DM.funcCallHook+                                                                                         "show"+                                                                                         (DI.DebugInfo+                                                                                            (DI.SrcID+                                                                                               "Time"+                                                                                               0)+                                                                                            (DI.DynamicInfo+                                                                                               []+                                                                                               [DI.genTerm+                                                                                                  x193]))+                                                                                         (Curry.DebugModule.Prelude.strict_show+                                                                                            x193)+                                                                            DM.funcCallHook "++"+                                                                              (DI.DebugInfo+                                                                                 (DI.SrcID "Time" 0)+                                                                                 (DI.DynamicInfo []+                                                                                    [DI.genTerm+                                                                                       x194,+                                                                                     DI.genTerm+                                                                                       x195]))+                                                                              (Curry.DebugModule.Prelude.op_PlusPlus+                                                                                 x194+                                                                                 x195)+                                                                 DM.funcCallHook "++"+                                                                   (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x196,+                                                                          DI.genTerm x197]))+                                                                   (Curry.DebugModule.Prelude.op_PlusPlus+                                                                      x196+                                                                      x197)+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x198, DI.genTerm x199]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x198+                                                           x199)+                                           DM.funcCallHook "++"+                                             (DI.DebugInfo (DI.SrcID "Time" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x200, DI.genTerm x201]))+                                             (Curry.DebugModule.Prelude.op_PlusPlus x200 x201)))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x202])))+                           strict__case_29+                           x202)))+term_strict__case_29 x1 = DI.Term "_case_29" (DI.SrcID "Time" 0) x1+strict__case_30 x1+  = DM.eval+      (DM.funcDeclHook "_case_30"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x131 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x131]))+               (case x131 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x9 <- do x104 <- do x14 <- DM.litHook+                                                                  (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                     (DI.DynamicInfo [] []))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Char+                                                                        'J'))+                                                         x15 <- do x12 <- DM.litHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "Time" 0)+                                                                               (DI.DynamicInfo []+                                                                                  []))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Char+                                                                                  'a'))+                                                                   x13 <- do x10 <- DM.litHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Time"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            []))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                            'n'))+                                                                             x11 <- DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "Time"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            []))+                                                                                      (Prelude.return+                                                                                         Curry.DebugModule.Prelude.Nil)+                                                                             DM.constructorHook+                                                                               (DI.DebugInfo+                                                                                  (DI.SrcID "Time"+                                                                                     0)+                                                                                  (DI.DynamicInfo []+                                                                                     [DI.genTerm+                                                                                        x10,+                                                                                      DI.genTerm+                                                                                        x11]))+                                                                               (Prelude.return+                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                     x10+                                                                                     x11))+                                                                   DM.constructorHook+                                                                     (DI.DebugInfo+                                                                        (DI.SrcID "Time" 0)+                                                                        (DI.DynamicInfo []+                                                                           [DI.genTerm x12,+                                                                            DI.genTerm x13]))+                                                                     (Prelude.return+                                                                        (Curry.DebugModule.Prelude.Cons+                                                                           x12+                                                                           x13))+                                                         DM.constructorHook+                                                           (DI.DebugInfo (DI.SrcID "Time" 0)+                                                              (DI.DynamicInfo []+                                                                 [DI.genTerm x14, DI.genTerm x15]))+                                                           (Prelude.return+                                                              (Curry.DebugModule.Prelude.Cons x14+                                                                 x15))+                                              x105 <- do x102 <- do x20 <- DM.litHook+                                                                             (DI.DebugInfo+                                                                                (DI.SrcID "Time" 0)+                                                                                (DI.DynamicInfo []+                                                                                   []))+                                                                             (Prelude.return+                                                                                (Curry.DebugModule.Prelude.Char+                                                                                   'F'))+                                                                    x21 <- do x18 <- DM.litHook+                                                                                       (DI.DebugInfo+                                                                                          (DI.SrcID+                                                                                             "Time"+                                                                                             0)+                                                                                          (DI.DynamicInfo+                                                                                             []+                                                                                             []))+                                                                                       (Prelude.return+                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                             'e'))+                                                                              x19 <- do x16 <- DM.litHook+                                                                                                 (DI.DebugInfo+                                                                                                    (DI.SrcID+                                                                                                       "Time"+                                                                                                       0)+                                                                                                    (DI.DynamicInfo+                                                                                                       []+                                                                                                       []))+                                                                                                 (Prelude.return+                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                       'b'))+                                                                                        x17 <- DM.constructorHook+                                                                                                 (DI.DebugInfo+                                                                                                    (DI.SrcID+                                                                                                       "Time"+                                                                                                       0)+                                                                                                    (DI.DynamicInfo+                                                                                                       []+                                                                                                       []))+                                                                                                 (Prelude.return+                                                                                                    Curry.DebugModule.Prelude.Nil)+                                                                                        DM.constructorHook+                                                                                          (DI.DebugInfo+                                                                                             (DI.SrcID+                                                                                                "Time"+                                                                                                0)+                                                                                             (DI.DynamicInfo+                                                                                                []+                                                                                                [DI.genTerm+                                                                                                   x16,+                                                                                                 DI.genTerm+                                                                                                   x17]))+                                                                                          (Prelude.return+                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                x16+                                                                                                x17))+                                                                              DM.constructorHook+                                                                                (DI.DebugInfo+                                                                                   (DI.SrcID "Time"+                                                                                      0)+                                                                                   (DI.DynamicInfo+                                                                                      []+                                                                                      [DI.genTerm+                                                                                         x18,+                                                                                       DI.genTerm+                                                                                         x19]))+                                                                                (Prelude.return+                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                      x18+                                                                                      x19))+                                                                    DM.constructorHook+                                                                      (DI.DebugInfo+                                                                         (DI.SrcID "Time" 0)+                                                                         (DI.DynamicInfo []+                                                                            [DI.genTerm x20,+                                                                             DI.genTerm x21]))+                                                                      (Prelude.return+                                                                         (Curry.DebugModule.Prelude.Cons+                                                                            x20+                                                                            x21))+                                                         x103 <- do x100 <- do x26 <- DM.litHook+                                                                                        (DI.DebugInfo+                                                                                           (DI.SrcID+                                                                                              "Time"+                                                                                              0)+                                                                                           (DI.DynamicInfo+                                                                                              []+                                                                                              []))+                                                                                        (Prelude.return+                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                              'M'))+                                                                               x27 <- do x24 <- DM.litHook+                                                                                                  (DI.DebugInfo+                                                                                                     (DI.SrcID+                                                                                                        "Time"+                                                                                                        0)+                                                                                                     (DI.DynamicInfo+                                                                                                        []+                                                                                                        []))+                                                                                                  (Prelude.return+                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                        'a'))+                                                                                         x25 <- do x22 <- DM.litHook+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "Time"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  []))+                                                                                                            (Prelude.return+                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                  'r'))+                                                                                                   x23 <- DM.constructorHook+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "Time"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  []))+                                                                                                            (Prelude.return+                                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                                   DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "Time"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           [DI.genTerm+                                                                                                              x22,+                                                                                                            DI.genTerm+                                                                                                              x23]))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                           x22+                                                                                                           x23))+                                                                                         DM.constructorHook+                                                                                           (DI.DebugInfo+                                                                                              (DI.SrcID+                                                                                                 "Time"+                                                                                                 0)+                                                                                              (DI.DynamicInfo+                                                                                                 []+                                                                                                 [DI.genTerm+                                                                                                    x24,+                                                                                                  DI.genTerm+                                                                                                    x25]))+                                                                                           (Prelude.return+                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                 x24+                                                                                                 x25))+                                                                               DM.constructorHook+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID "Time"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       [DI.genTerm+                                                                                          x26,+                                                                                        DI.genTerm+                                                                                          x27]))+                                                                                 (Prelude.return+                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                       x26+                                                                                       x27))+                                                                    x101 <- do x98 <- do x32 <- DM.litHook+                                                                                                  (DI.DebugInfo+                                                                                                     (DI.SrcID+                                                                                                        "Time"+                                                                                                        0)+                                                                                                     (DI.DynamicInfo+                                                                                                        []+                                                                                                        []))+                                                                                                  (Prelude.return+                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                        'A'))+                                                                                         x33 <- do x30 <- DM.litHook+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "Time"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  []))+                                                                                                            (Prelude.return+                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                  'p'))+                                                                                                   x31 <- do x28 <- DM.litHook+                                                                                                                      (DI.DebugInfo+                                                                                                                         (DI.SrcID+                                                                                                                            "Time"+                                                                                                                            0)+                                                                                                                         (DI.DynamicInfo+                                                                                                                            []+                                                                                                                            []))+                                                                                                                      (Prelude.return+                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                            'r'))+                                                                                                             x29 <- DM.constructorHook+                                                                                                                      (DI.DebugInfo+                                                                                                                         (DI.SrcID+                                                                                                                            "Time"+                                                                                                                            0)+                                                                                                                         (DI.DynamicInfo+                                                                                                                            []+                                                                                                                            []))+                                                                                                                      (Prelude.return+                                                                                                                         Curry.DebugModule.Prelude.Nil)+                                                                                                             DM.constructorHook+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "Time"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x28,+                                                                                                                      DI.genTerm+                                                                                                                        x29]))+                                                                                                               (Prelude.return+                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                     x28+                                                                                                                     x29))+                                                                                                   DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "Time"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           [DI.genTerm+                                                                                                              x30,+                                                                                                            DI.genTerm+                                                                                                              x31]))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                           x30+                                                                                                           x31))+                                                                                         DM.constructorHook+                                                                                           (DI.DebugInfo+                                                                                              (DI.SrcID+                                                                                                 "Time"+                                                                                                 0)+                                                                                              (DI.DynamicInfo+                                                                                                 []+                                                                                                 [DI.genTerm+                                                                                                    x32,+                                                                                                  DI.genTerm+                                                                                                    x33]))+                                                                                           (Prelude.return+                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                 x32+                                                                                                 x33))+                                                                               x99 <- do x96 <- do x38 <- DM.litHook+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "Time"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  []))+                                                                                                            (Prelude.return+                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                  'M'))+                                                                                                   x39 <- do x36 <- DM.litHook+                                                                                                                      (DI.DebugInfo+                                                                                                                         (DI.SrcID+                                                                                                                            "Time"+                                                                                                                            0)+                                                                                                                         (DI.DynamicInfo+                                                                                                                            []+                                                                                                                            []))+                                                                                                                      (Prelude.return+                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                            'a'))+                                                                                                             x37 <- do x34 <- DM.litHook+                                                                                                                                (DI.DebugInfo+                                                                                                                                   (DI.SrcID+                                                                                                                                      "Time"+                                                                                                                                      0)+                                                                                                                                   (DI.DynamicInfo+                                                                                                                                      []+                                                                                                                                      []))+                                                                                                                                (Prelude.return+                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                      'y'))+                                                                                                                       x35 <- DM.constructorHook+                                                                                                                                (DI.DebugInfo+                                                                                                                                   (DI.SrcID+                                                                                                                                      "Time"+                                                                                                                                      0)+                                                                                                                                   (DI.DynamicInfo+                                                                                                                                      []+                                                                                                                                      []))+                                                                                                                                (Prelude.return+                                                                                                                                   Curry.DebugModule.Prelude.Nil)+                                                                                                                       DM.constructorHook+                                                                                                                         (DI.DebugInfo+                                                                                                                            (DI.SrcID+                                                                                                                               "Time"+                                                                                                                               0)+                                                                                                                            (DI.DynamicInfo+                                                                                                                               []+                                                                                                                               [DI.genTerm+                                                                                                                                  x34,+                                                                                                                                DI.genTerm+                                                                                                                                  x35]))+                                                                                                                         (Prelude.return+                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                               x34+                                                                                                                               x35))+                                                                                                             DM.constructorHook+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "Time"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x36,+                                                                                                                      DI.genTerm+                                                                                                                        x37]))+                                                                                                               (Prelude.return+                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                     x36+                                                                                                                     x37))+                                                                                                   DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "Time"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           [DI.genTerm+                                                                                                              x38,+                                                                                                            DI.genTerm+                                                                                                              x39]))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                           x38+                                                                                                           x39))+                                                                                         x97 <- do x94 <- do x44 <- DM.litHook+                                                                                                                      (DI.DebugInfo+                                                                                                                         (DI.SrcID+                                                                                                                            "Time"+                                                                                                                            0)+                                                                                                                         (DI.DynamicInfo+                                                                                                                            []+                                                                                                                            []))+                                                                                                                      (Prelude.return+                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                            'J'))+                                                                                                             x45 <- do x42 <- DM.litHook+                                                                                                                                (DI.DebugInfo+                                                                                                                                   (DI.SrcID+                                                                                                                                      "Time"+                                                                                                                                      0)+                                                                                                                                   (DI.DynamicInfo+                                                                                                                                      []+                                                                                                                                      []))+                                                                                                                                (Prelude.return+                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                      'u'))+                                                                                                                       x43 <- do x40 <- DM.litHook+                                                                                                                                          (DI.DebugInfo+                                                                                                                                             (DI.SrcID+                                                                                                                                                "Time"+                                                                                                                                                0)+                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                []+                                                                                                                                                []))+                                                                                                                                          (Prelude.return+                                                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                                                'n'))+                                                                                                                                 x41 <- DM.constructorHook+                                                                                                                                          (DI.DebugInfo+                                                                                                                                             (DI.SrcID+                                                                                                                                                "Time"+                                                                                                                                                0)+                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                []+                                                                                                                                                []))+                                                                                                                                          (Prelude.return+                                                                                                                                             Curry.DebugModule.Prelude.Nil)+                                                                                                                                 DM.constructorHook+                                                                                                                                   (DI.DebugInfo+                                                                                                                                      (DI.SrcID+                                                                                                                                         "Time"+                                                                                                                                         0)+                                                                                                                                      (DI.DynamicInfo+                                                                                                                                         []+                                                                                                                                         [DI.genTerm+                                                                                                                                            x40,+                                                                                                                                          DI.genTerm+                                                                                                                                            x41]))+                                                                                                                                   (Prelude.return+                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                         x40+                                                                                                                                         x41))+                                                                                                                       DM.constructorHook+                                                                                                                         (DI.DebugInfo+                                                                                                                            (DI.SrcID+                                                                                                                               "Time"+                                                                                                                               0)+                                                                                                                            (DI.DynamicInfo+                                                                                                                               []+                                                                                                                               [DI.genTerm+                                                                                                                                  x42,+                                                                                                                                DI.genTerm+                                                                                                                                  x43]))+                                                                                                                         (Prelude.return+                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                               x42+                                                                                                                               x43))+                                                                                                             DM.constructorHook+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "Time"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x44,+                                                                                                                      DI.genTerm+                                                                                                                        x45]))+                                                                                                               (Prelude.return+                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                     x44+                                                                                                                     x45))+                                                                                                   x95 <- do x92 <- do x50 <- DM.litHook+                                                                                                                                (DI.DebugInfo+                                                                                                                                   (DI.SrcID+                                                                                                                                      "Time"+                                                                                                                                      0)+                                                                                                                                   (DI.DynamicInfo+                                                                                                                                      []+                                                                                                                                      []))+                                                                                                                                (Prelude.return+                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                      'J'))+                                                                                                                       x51 <- do x48 <- DM.litHook+                                                                                                                                          (DI.DebugInfo+                                                                                                                                             (DI.SrcID+                                                                                                                                                "Time"+                                                                                                                                                0)+                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                []+                                                                                                                                                []))+                                                                                                                                          (Prelude.return+                                                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                                                'u'))+                                                                                                                                 x49 <- do x46 <- DM.litHook+                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                       (DI.SrcID+                                                                                                                                                          "Time"+                                                                                                                                                          0)+                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                          []+                                                                                                                                                          []))+                                                                                                                                                    (Prelude.return+                                                                                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                                                                                          'l'))+                                                                                                                                           x47 <- DM.constructorHook+                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                       (DI.SrcID+                                                                                                                                                          "Time"+                                                                                                                                                          0)+                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                          []+                                                                                                                                                          []))+                                                                                                                                                    (Prelude.return+                                                                                                                                                       Curry.DebugModule.Prelude.Nil)+                                                                                                                                           DM.constructorHook+                                                                                                                                             (DI.DebugInfo+                                                                                                                                                (DI.SrcID+                                                                                                                                                   "Time"+                                                                                                                                                   0)+                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                   []+                                                                                                                                                   [DI.genTerm+                                                                                                                                                      x46,+                                                                                                                                                    DI.genTerm+                                                                                                                                                      x47]))+                                                                                                                                             (Prelude.return+                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                   x46+                                                                                                                                                   x47))+                                                                                                                                 DM.constructorHook+                                                                                                                                   (DI.DebugInfo+                                                                                                                                      (DI.SrcID+                                                                                                                                         "Time"+                                                                                                                                         0)+                                                                                                                                      (DI.DynamicInfo+                                                                                                                                         []+                                                                                                                                         [DI.genTerm+                                                                                                                                            x48,+                                                                                                                                          DI.genTerm+                                                                                                                                            x49]))+                                                                                                                                   (Prelude.return+                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                         x48+                                                                                                                                         x49))+                                                                                                                       DM.constructorHook+                                                                                                                         (DI.DebugInfo+                                                                                                                            (DI.SrcID+                                                                                                                               "Time"+                                                                                                                               0)+                                                                                                                            (DI.DynamicInfo+                                                                                                                               []+                                                                                                                               [DI.genTerm+                                                                                                                                  x50,+                                                                                                                                DI.genTerm+                                                                                                                                  x51]))+                                                                                                                         (Prelude.return+                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                               x50+                                                                                                                               x51))+                                                                                                             x93 <- do x90 <- do x56 <- DM.litHook+                                                                                                                                          (DI.DebugInfo+                                                                                                                                             (DI.SrcID+                                                                                                                                                "Time"+                                                                                                                                                0)+                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                []+                                                                                                                                                []))+                                                                                                                                          (Prelude.return+                                                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                                                'A'))+                                                                                                                                 x57 <- do x54 <- DM.litHook+                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                       (DI.SrcID+                                                                                                                                                          "Time"+                                                                                                                                                          0)+                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                          []+                                                                                                                                                          []))+                                                                                                                                                    (Prelude.return+                                                                                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                                                                                          'u'))+                                                                                                                                           x55 <- do x52 <- DM.litHook+                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                    "Time"+                                                                                                                                                                    0)+                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                    []+                                                                                                                                                                    []))+                                                                                                                                                              (Prelude.return+                                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                                    'g'))+                                                                                                                                                     x53 <- DM.constructorHook+                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                    "Time"+                                                                                                                                                                    0)+                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                    []+                                                                                                                                                                    []))+                                                                                                                                                              (Prelude.return+                                                                                                                                                                 Curry.DebugModule.Prelude.Nil)+                                                                                                                                                     DM.constructorHook+                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                          (DI.SrcID+                                                                                                                                                             "Time"+                                                                                                                                                             0)+                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                             []+                                                                                                                                                             [DI.genTerm+                                                                                                                                                                x52,+                                                                                                                                                              DI.genTerm+                                                                                                                                                                x53]))+                                                                                                                                                       (Prelude.return+                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                             x52+                                                                                                                                                             x53))+                                                                                                                                           DM.constructorHook+                                                                                                                                             (DI.DebugInfo+                                                                                                                                                (DI.SrcID+                                                                                                                                                   "Time"+                                                                                                                                                   0)+                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                   []+                                                                                                                                                   [DI.genTerm+                                                                                                                                                      x54,+                                                                                                                                                    DI.genTerm+                                                                                                                                                      x55]))+                                                                                                                                             (Prelude.return+                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                   x54+                                                                                                                                                   x55))+                                                                                                                                 DM.constructorHook+                                                                                                                                   (DI.DebugInfo+                                                                                                                                      (DI.SrcID+                                                                                                                                         "Time"+                                                                                                                                         0)+                                                                                                                                      (DI.DynamicInfo+                                                                                                                                         []+                                                                                                                                         [DI.genTerm+                                                                                                                                            x56,+                                                                                                                                          DI.genTerm+                                                                                                                                            x57]))+                                                                                                                                   (Prelude.return+                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                         x56+                                                                                                                                         x57))+                                                                                                                       x91 <- do x88 <- do x62 <- DM.litHook+                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                       (DI.SrcID+                                                                                                                                                          "Time"+                                                                                                                                                          0)+                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                          []+                                                                                                                                                          []))+                                                                                                                                                    (Prelude.return+                                                                                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                                                                                          'S'))+                                                                                                                                           x63 <- do x60 <- DM.litHook+                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                    "Time"+                                                                                                                                                                    0)+                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                    []+                                                                                                                                                                    []))+                                                                                                                                                              (Prelude.return+                                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                                    'e'))+                                                                                                                                                     x61 <- do x58 <- DM.litHook+                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                              "Time"+                                                                                                                                                                              0)+                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                              []+                                                                                                                                                                              []))+                                                                                                                                                                        (Prelude.return+                                                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                                                              'p'))+                                                                                                                                                               x59 <- DM.constructorHook+                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                              "Time"+                                                                                                                                                                              0)+                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                              []+                                                                                                                                                                              []))+                                                                                                                                                                        (Prelude.return+                                                                                                                                                                           Curry.DebugModule.Prelude.Nil)+                                                                                                                                                               DM.constructorHook+                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                       "Time"+                                                                                                                                                                       0)+                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                       []+                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                          x58,+                                                                                                                                                                        DI.genTerm+                                                                                                                                                                          x59]))+                                                                                                                                                                 (Prelude.return+                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                       x58+                                                                                                                                                                       x59))+                                                                                                                                                     DM.constructorHook+                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                          (DI.SrcID+                                                                                                                                                             "Time"+                                                                                                                                                             0)+                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                             []+                                                                                                                                                             [DI.genTerm+                                                                                                                                                                x60,+                                                                                                                                                              DI.genTerm+                                                                                                                                                                x61]))+                                                                                                                                                       (Prelude.return+                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                             x60+                                                                                                                                                             x61))+                                                                                                                                           DM.constructorHook+                                                                                                                                             (DI.DebugInfo+                                                                                                                                                (DI.SrcID+                                                                                                                                                   "Time"+                                                                                                                                                   0)+                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                   []+                                                                                                                                                   [DI.genTerm+                                                                                                                                                      x62,+                                                                                                                                                    DI.genTerm+                                                                                                                                                      x63]))+                                                                                                                                             (Prelude.return+                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                   x62+                                                                                                                                                   x63))+                                                                                                                                 x89 <- do x86 <- do x68 <- DM.litHook+                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                    "Time"+                                                                                                                                                                    0)+                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                    []+                                                                                                                                                                    []))+                                                                                                                                                              (Prelude.return+                                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                                    'O'))+                                                                                                                                                     x69 <- do x66 <- DM.litHook+                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                              "Time"+                                                                                                                                                                              0)+                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                              []+                                                                                                                                                                              []))+                                                                                                                                                                        (Prelude.return+                                                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                                                              'c'))+                                                                                                                                                               x67 <- do x64 <- DM.litHook+                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                        "Time"+                                                                                                                                                                                        0)+                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                        []+                                                                                                                                                                                        []))+                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                        't'))+                                                                                                                                                                         x65 <- DM.constructorHook+                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                        "Time"+                                                                                                                                                                                        0)+                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                        []+                                                                                                                                                                                        []))+                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                     Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                 "Time"+                                                                                                                                                                                 0)+                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                 []+                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                    x64,+                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                    x65]))+                                                                                                                                                                           (Prelude.return+                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                 x64+                                                                                                                                                                                 x65))+                                                                                                                                                               DM.constructorHook+                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                       "Time"+                                                                                                                                                                       0)+                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                       []+                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                          x66,+                                                                                                                                                                        DI.genTerm+                                                                                                                                                                          x67]))+                                                                                                                                                                 (Prelude.return+                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                       x66+                                                                                                                                                                       x67))+                                                                                                                                                     DM.constructorHook+                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                          (DI.SrcID+                                                                                                                                                             "Time"+                                                                                                                                                             0)+                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                             []+                                                                                                                                                             [DI.genTerm+                                                                                                                                                                x68,+                                                                                                                                                              DI.genTerm+                                                                                                                                                                x69]))+                                                                                                                                                       (Prelude.return+                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                             x68+                                                                                                                                                             x69))+                                                                                                                                           x87 <- do x84 <- do x74 <- DM.litHook+                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                              "Time"+                                                                                                                                                                              0)+                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                              []+                                                                                                                                                                              []))+                                                                                                                                                                        (Prelude.return+                                                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                                                              'N'))+                                                                                                                                                               x75 <- do x72 <- DM.litHook+                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                        "Time"+                                                                                                                                                                                        0)+                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                        []+                                                                                                                                                                                        []))+                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                        'o'))+                                                                                                                                                                         x73 <- do x70 <- DM.litHook+                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                  "Time"+                                                                                                                                                                                                  0)+                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                  []+                                                                                                                                                                                                  []))+                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                  'v'))+                                                                                                                                                                                   x71 <- DM.constructorHook+                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                  "Time"+                                                                                                                                                                                                  0)+                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                  []+                                                                                                                                                                                                  []))+                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                           "Time"+                                                                                                                                                                                           0)+                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                           []+                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                              x70,+                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                              x71]))+                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                           x70+                                                                                                                                                                                           x71))+                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                 "Time"+                                                                                                                                                                                 0)+                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                 []+                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                    x72,+                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                    x73]))+                                                                                                                                                                           (Prelude.return+                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                 x72+                                                                                                                                                                                 x73))+                                                                                                                                                               DM.constructorHook+                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                       "Time"+                                                                                                                                                                       0)+                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                       []+                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                          x74,+                                                                                                                                                                        DI.genTerm+                                                                                                                                                                          x75]))+                                                                                                                                                                 (Prelude.return+                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                       x74+                                                                                                                                                                       x75))+                                                                                                                                                     x85 <- do x82 <- do x80 <- DM.litHook+                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                        "Time"+                                                                                                                                                                                        0)+                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                        []+                                                                                                                                                                                        []))+                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                        'D'))+                                                                                                                                                                         x81 <- do x78 <- DM.litHook+                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                  "Time"+                                                                                                                                                                                                  0)+                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                  []+                                                                                                                                                                                                  []))+                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                  'e'))+                                                                                                                                                                                   x79 <- do x76 <- DM.litHook+                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                            "Time"+                                                                                                                                                                                                            0)+                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                            []+                                                                                                                                                                                                            []))+                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                            'c'))+                                                                                                                                                                                             x77 <- DM.constructorHook+                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                            "Time"+                                                                                                                                                                                                            0)+                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                            []+                                                                                                                                                                                                            []))+                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                         Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                     "Time"+                                                                                                                                                                                                     0)+                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                     []+                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                        x76,+                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                        x77]))+                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                     x76+                                                                                                                                                                                                     x77))+                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                           "Time"+                                                                                                                                                                                           0)+                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                           []+                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                              x78,+                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                              x79]))+                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                           x78+                                                                                                                                                                                           x79))+                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                 "Time"+                                                                                                                                                                                 0)+                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                 []+                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                    x80,+                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                    x81]))+                                                                                                                                                                           (Prelude.return+                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                 x80+                                                                                                                                                                                 x81))+                                                                                                                                                               x83 <- DM.constructorHook+                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                              "Time"+                                                                                                                                                                              0)+                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                              []+                                                                                                                                                                              []))+                                                                                                                                                                        (Prelude.return+                                                                                                                                                                           Curry.DebugModule.Prelude.Nil)+                                                                                                                                                               DM.constructorHook+                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                       "Time"+                                                                                                                                                                       0)+                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                       []+                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                          x82,+                                                                                                                                                                        DI.genTerm+                                                                                                                                                                          x83]))+                                                                                                                                                                 (Prelude.return+                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                       x82+                                                                                                                                                                       x83))+                                                                                                                                                     DM.constructorHook+                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                          (DI.SrcID+                                                                                                                                                             "Time"+                                                                                                                                                             0)+                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                             []+                                                                                                                                                             [DI.genTerm+                                                                                                                                                                x84,+                                                                                                                                                              DI.genTerm+                                                                                                                                                                x85]))+                                                                                                                                                       (Prelude.return+                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                             x84+                                                                                                                                                             x85))+                                                                                                                                           DM.constructorHook+                                                                                                                                             (DI.DebugInfo+                                                                                                                                                (DI.SrcID+                                                                                                                                                   "Time"+                                                                                                                                                   0)+                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                   []+                                                                                                                                                   [DI.genTerm+                                                                                                                                                      x86,+                                                                                                                                                    DI.genTerm+                                                                                                                                                      x87]))+                                                                                                                                             (Prelude.return+                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                   x86+                                                                                                                                                   x87))+                                                                                                                                 DM.constructorHook+                                                                                                                                   (DI.DebugInfo+                                                                                                                                      (DI.SrcID+                                                                                                                                         "Time"+                                                                                                                                         0)+                                                                                                                                      (DI.DynamicInfo+                                                                                                                                         []+                                                                                                                                         [DI.genTerm+                                                                                                                                            x88,+                                                                                                                                          DI.genTerm+                                                                                                                                            x89]))+                                                                                                                                   (Prelude.return+                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                         x88+                                                                                                                                         x89))+                                                                                                                       DM.constructorHook+                                                                                                                         (DI.DebugInfo+                                                                                                                            (DI.SrcID+                                                                                                                               "Time"+                                                                                                                               0)+                                                                                                                            (DI.DynamicInfo+                                                                                                                               []+                                                                                                                               [DI.genTerm+                                                                                                                                  x90,+                                                                                                                                DI.genTerm+                                                                                                                                  x91]))+                                                                                                                         (Prelude.return+                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                               x90+                                                                                                                               x91))+                                                                                                             DM.constructorHook+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "Time"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x92,+                                                                                                                      DI.genTerm+                                                                                                                        x93]))+                                                                                                               (Prelude.return+                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                     x92+                                                                                                                     x93))+                                                                                                   DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "Time"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           [DI.genTerm+                                                                                                              x94,+                                                                                                            DI.genTerm+                                                                                                              x95]))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                           x94+                                                                                                           x95))+                                                                                         DM.constructorHook+                                                                                           (DI.DebugInfo+                                                                                              (DI.SrcID+                                                                                                 "Time"+                                                                                                 0)+                                                                                              (DI.DynamicInfo+                                                                                                 []+                                                                                                 [DI.genTerm+                                                                                                    x96,+                                                                                                  DI.genTerm+                                                                                                    x97]))+                                                                                           (Prelude.return+                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                 x96+                                                                                                 x97))+                                                                               DM.constructorHook+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID "Time"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       [DI.genTerm+                                                                                          x98,+                                                                                        DI.genTerm+                                                                                          x99]))+                                                                                 (Prelude.return+                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                       x98+                                                                                       x99))+                                                                    DM.constructorHook+                                                                      (DI.DebugInfo+                                                                         (DI.SrcID "Time" 0)+                                                                         (DI.DynamicInfo []+                                                                            [DI.genTerm x100,+                                                                             DI.genTerm x101]))+                                                                      (Prelude.return+                                                                         (Curry.DebugModule.Prelude.Cons+                                                                            x100+                                                                            x101))+                                                         DM.constructorHook+                                                           (DI.DebugInfo (DI.SrcID "Time" 0)+                                                              (DI.DynamicInfo []+                                                                 [DI.genTerm x102,+                                                                  DI.genTerm x103]))+                                                           (Prelude.return+                                                              (Curry.DebugModule.Prelude.Cons x102+                                                                 x103))+                                              DM.constructorHook+                                                (DI.DebugInfo (DI.SrcID "Time" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x104, DI.genTerm x105]))+                                                (Prelude.return+                                                   (Curry.DebugModule.Prelude.Cons x104 x105))+                                     DM.eval+                                       (do x129 <- do x108 <- Prelude.return x9+                                                      x109 <- do x106 <- Prelude.return x3+                                                                 x107 <- DM.litHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "Time" 0)+                                                                              (DI.DynamicInfo []+                                                                                 []))+                                                                           (Prelude.return+                                                                              (Curry.DebugModule.Prelude.Pos+                                                                                 Curry.DebugModule.Prelude.IHi))+                                                                 DM.funcCallHook "-"+                                                                   (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x106,+                                                                          DI.genTerm x107]))+                                                                   (Curry.DebugModule.Prelude.op_Minus+                                                                      x106+                                                                      x107)+                                                      DM.funcCallHook "!!"+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x108, DI.genTerm x109]))+                                                        (Curry.DebugModule.Prelude.op_EMarkEMark+                                                           x108+                                                           x109)+                                           x130 <- do x127 <- do x110 <- DM.litHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "Time" 0)+                                                                              (DI.DynamicInfo []+                                                                                 []))+                                                                           (Prelude.return+                                                                              (Curry.DebugModule.Prelude.Char+                                                                                 ' '))+                                                                 x111 <- DM.constructorHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "Time" 0)+                                                                              (DI.DynamicInfo []+                                                                                 []))+                                                                           (Prelude.return+                                                                              Curry.DebugModule.Prelude.Nil)+                                                                 DM.constructorHook+                                                                   (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x110,+                                                                          DI.genTerm x111]))+                                                                   (Prelude.return+                                                                      (Curry.DebugModule.Prelude.Cons+                                                                         x110+                                                                         x111))+                                                      x128 <- do x125 <- do x112 <- Prelude.return+                                                                                      x4+                                                                            DM.funcCallHook "show"+                                                                              (DI.DebugInfo+                                                                                 (DI.SrcID "Time" 0)+                                                                                 (DI.DynamicInfo []+                                                                                    [DI.genTerm+                                                                                       x112]))+                                                                              (Curry.DebugModule.Prelude.strict_show+                                                                                 x112)+                                                                 x126 <- do x123 <- do x113 <- DM.litHook+                                                                                                 (DI.DebugInfo+                                                                                                    (DI.SrcID+                                                                                                       "Time"+                                                                                                       0)+                                                                                                    (DI.DynamicInfo+                                                                                                       []+                                                                                                       []))+                                                                                                 (Prelude.return+                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                       ' '))+                                                                                       x114 <- DM.constructorHook+                                                                                                 (DI.DebugInfo+                                                                                                    (DI.SrcID+                                                                                                       "Time"+                                                                                                       0)+                                                                                                    (DI.DynamicInfo+                                                                                                       []+                                                                                                       []))+                                                                                                 (Prelude.return+                                                                                                    Curry.DebugModule.Prelude.Nil)+                                                                                       DM.constructorHook+                                                                                         (DI.DebugInfo+                                                                                            (DI.SrcID+                                                                                               "Time"+                                                                                               0)+                                                                                            (DI.DynamicInfo+                                                                                               []+                                                                                               [DI.genTerm+                                                                                                  x113,+                                                                                                DI.genTerm+                                                                                                  x114]))+                                                                                         (Prelude.return+                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                               x113+                                                                                               x114))+                                                                            x124 <- do x121 <- do x115 <- Prelude.return+                                                                                                            x1+                                                                                                  DM.funcCallHook+                                                                                                    "toTimeString"+                                                                                                    (DI.DebugInfo+                                                                                                       (DI.SrcID+                                                                                                          "Time"+                                                                                                          0)+                                                                                                       (DI.DynamicInfo+                                                                                                          []+                                                                                                          [DI.genTerm+                                                                                                             x115]))+                                                                                                    (strict_toTimeString+                                                                                                       x115)+                                                                                       x122 <- do x119 <- do x116 <- DM.litHook+                                                                                                                       (DI.DebugInfo+                                                                                                                          (DI.SrcID+                                                                                                                             "Time"+                                                                                                                             0)+                                                                                                                          (DI.DynamicInfo+                                                                                                                             []+                                                                                                                             []))+                                                                                                                       (Prelude.return+                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                             ' '))+                                                                                                             x117 <- DM.constructorHook+                                                                                                                       (DI.DebugInfo+                                                                                                                          (DI.SrcID+                                                                                                                             "Time"+                                                                                                                             0)+                                                                                                                          (DI.DynamicInfo+                                                                                                                             []+                                                                                                                             []))+                                                                                                                       (Prelude.return+                                                                                                                          Curry.DebugModule.Prelude.Nil)+                                                                                                             DM.constructorHook+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "Time"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x116,+                                                                                                                      DI.genTerm+                                                                                                                        x117]))+                                                                                                               (Prelude.return+                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                     x116+                                                                                                                     x117))+                                                                                                  x120 <- do x118 <- Prelude.return+                                                                                                                       x2+                                                                                                             DM.funcCallHook+                                                                                                               "show"+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "Time"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x118]))+                                                                                                               (Curry.DebugModule.Prelude.strict_show+                                                                                                                  x118)+                                                                                                  DM.funcCallHook+                                                                                                    "++"+                                                                                                    (DI.DebugInfo+                                                                                                       (DI.SrcID+                                                                                                          "Time"+                                                                                                          0)+                                                                                                       (DI.DynamicInfo+                                                                                                          []+                                                                                                          [DI.genTerm+                                                                                                             x119,+                                                                                                           DI.genTerm+                                                                                                             x120]))+                                                                                                    (Curry.DebugModule.Prelude.op_PlusPlus+                                                                                                       x119+                                                                                                       x120)+                                                                                       DM.funcCallHook+                                                                                         "++"+                                                                                         (DI.DebugInfo+                                                                                            (DI.SrcID+                                                                                               "Time"+                                                                                               0)+                                                                                            (DI.DynamicInfo+                                                                                               []+                                                                                               [DI.genTerm+                                                                                                  x121,+                                                                                                DI.genTerm+                                                                                                  x122]))+                                                                                         (Curry.DebugModule.Prelude.op_PlusPlus+                                                                                            x121+                                                                                            x122)+                                                                            DM.funcCallHook "++"+                                                                              (DI.DebugInfo+                                                                                 (DI.SrcID "Time" 0)+                                                                                 (DI.DynamicInfo []+                                                                                    [DI.genTerm+                                                                                       x123,+                                                                                     DI.genTerm+                                                                                       x124]))+                                                                              (Curry.DebugModule.Prelude.op_PlusPlus+                                                                                 x123+                                                                                 x124)+                                                                 DM.funcCallHook "++"+                                                                   (DI.DebugInfo (DI.SrcID "Time" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x125,+                                                                          DI.genTerm x126]))+                                                                   (Curry.DebugModule.Prelude.op_PlusPlus+                                                                      x125+                                                                      x126)+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "Time" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x127, DI.genTerm x128]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x127+                                                           x128)+                                           DM.funcCallHook "++"+                                             (DI.DebugInfo (DI.SrcID "Time" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x129, DI.genTerm x130]))+                                             (Curry.DebugModule.Prelude.op_PlusPlus x129 x130)))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x131])))+                           strict__case_30+                           x131)))+term_strict__case_30 x1 = DI.Term "_case_30" (DI.SrcID "Time" 0) x1+strict__case_31 x1+  = DM.eval+      (DM.funcDeclHook "_case_31"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x3]))+               (case x3 of+                    CTime x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x3])))+                           strict__case_31+                           x3)))+term_strict__case_31 x1 = DI.Term "_case_31" (DI.SrcID "Time" 0) x1+strict__case_32 x1+  = DM.eval+      (DM.funcDeclHook "_case_32"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x8))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_32+                           x9)))+term_strict__case_32 x1 = DI.Term "_case_32" (DI.SrcID "Time" 0) x1+strict__case_33 x1+  = DM.eval+      (DM.funcDeclHook "_case_33"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x7))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_33+                           x9)))+term_strict__case_33 x1 = DI.Term "_case_33" (DI.SrcID "Time" 0) x1+strict__case_34 x1+  = DM.eval+      (DM.funcDeclHook "_case_34"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x6))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_34+                           x9)))+term_strict__case_34 x1 = DI.Term "_case_34" (DI.SrcID "Time" 0) x1+strict__case_35 x1+  = DM.eval+      (DM.funcDeclHook "_case_35"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x5))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_35+                           x9)))+term_strict__case_35 x1 = DI.Term "_case_35" (DI.SrcID "Time" 0) x1+strict__case_36 x1+  = DM.eval+      (DM.funcDeclHook "_case_36"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x4))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_36+                           x9)))+term_strict__case_36 x1 = DI.Term "_case_36" (DI.SrcID "Time" 0) x1+strict__case_37 x1+  = DM.eval+      (DM.funcDeclHook "_case_37"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_37+                           x9)))+term_strict__case_37 x1 = DI.Term "_case_37" (DI.SrcID "Time" 0) x1+strict__case_38 x1+  = DM.eval+      (DM.funcDeclHook "_case_38"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "Time" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    CalendarTime x2 x3 x4 x5 x6 x7 x8+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "Time" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_38+                           x9)))+term_strict__case_38 x1 = DI.Term "_case_38" (DI.SrcID "Time" 0) x1+hook_strict_getClockTime value+  = DM.eval+      (DM.funcDeclHook "getClockTime"+         (DI.DebugInfo (DI.SrcID "Time" 0) (DI.DynamicInfo [] []))+         value)+term_strict_getClockTime x1+  = DI.Term "getClockTime" (DI.SrcID "Time" 0) x1+hook_strict_prim_toCalendarTime x1 value+  = DM.eval+      (DM.funcDeclHook "prim_toCalendarTime"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_toCalendarTime x1+  = DI.Term "prim_toCalendarTime" (DI.SrcID "Time" 0) x1+hook_strict_prim_toUTCTime x1 value+  = DM.eval+      (DM.funcDeclHook "prim_toUTCTime"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_toUTCTime x1+  = DI.Term "prim_toUTCTime" (DI.SrcID "Time" 0) x1+hook_strict_prim_toClockTime x1 value+  = DM.eval+      (DM.funcDeclHook "prim_toClockTime"+         (DI.DebugInfo (DI.SrcID "Time" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         value)+term_strict_prim_toClockTime x1+  = DI.Term "prim_toClockTime" (DI.SrcID "Time" 0) x1+term_CTime x1 = DI.Term "CTime" (DI.SrcID "Time" 0) x1+term_CalendarTime x1+  = DI.Term "CalendarTime" (DI.SrcID "Time" 0) x1
+ dist/build/Curry/DebugModule/Trace.hs view
@@ -0,0 +1,17 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.Trace where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Prelude+ +strict_trace :: (DM.DM dm, DI.GenTerm a) => a -> dm a+strict_trace x1+  = DM.eval+      (DM.funcDeclHook "trace"+         (DI.DebugInfo (DI.SrcID "Trace" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (Prelude.return x1))+term_strict_trace x1 = DI.Term "trace" (DI.SrcID "Trace" 0) x1
+ dist/build/Curry/DebugModule/XML.hs view
@@ -0,0 +1,16201 @@+{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}+module Curry.DebugModule.XML where+import qualified Prelude+import qualified Curry.Debugger.DebugMonad as DM+import qualified Curry.Debugger.DebugInfo as DI+import qualified Curry.Debugger.PartCalls as PC+import qualified Data.Generics+import qualified Curry.DebugModule.Char+import qualified Curry.DebugModule.List+import qualified Curry.DebugModule.Prelude+import qualified Curry.DebugModule.Read+ +instance DI.GenTerm XmlExp where+        genTerm (XText x1)+          = DI.Term "XText" (DI.SrcID "XML" 0) [DI.genTerm x1]+        genTerm (XElem x1 x2 x3)+          = DI.Term "XElem" (DI.SrcID "XML" 0)+              [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]+        genTerm x1 = DM.genericTerm (DI.SrcID "XML" 0) x1+ +instance DI.GenTerm Encoding where+        genTerm (StandardEnc) = DI.Term "StandardEnc" (DI.SrcID "XML" 0) []+        genTerm (Iso88591Enc) = DI.Term "Iso88591Enc" (DI.SrcID "XML" 0) []+        genTerm x1 = DM.genericTerm (DI.SrcID "XML" 0) x1+ +instance DI.GenTerm XmlDocParams where+        genTerm (Enc x1) = DI.Term "Enc" (DI.SrcID "XML" 0) [DI.genTerm x1]+        genTerm (DtdUrl x1)+          = DI.Term "DtdUrl" (DI.SrcID "XML" 0) [DI.genTerm x1]+        genTerm x1 = DM.genericTerm (DI.SrcID "XML" 0) x1+ +data XmlExp = XmlExpFail+            | XmlExpOr DM.OrRef [XmlExp]+            | XmlExpUnderscore+            | XText (Curry.DebugModule.Prelude.List+                       Curry.DebugModule.Prelude.Char)+            | XElem (Curry.DebugModule.Prelude.List+                       Curry.DebugModule.Prelude.Char)+                    (Curry.DebugModule.Prelude.List+                       (Curry.DebugModule.Prelude.Tuple2+                          (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                          (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)))+                    (Curry.DebugModule.Prelude.List XmlExp)+            deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data Encoding = EncodingFail+              | EncodingOr DM.OrRef [Encoding]+              | EncodingUnderscore+              | StandardEnc+              | Iso88591Enc+              deriving (Data.Generics.Typeable, Data.Generics.Data)+ +data XmlDocParams = XmlDocParamsFail+                  | XmlDocParamsOr DM.OrRef [XmlDocParams]+                  | XmlDocParamsUnderscore+                  | Enc Encoding+                  | DtdUrl (Curry.DebugModule.Prelude.List+                              Curry.DebugModule.Prelude.Char)+                  deriving (Data.Generics.Typeable, Data.Generics.Data)+ +strict_encoding2Attribute ::+                          (DM.DM dm) =>+                            Encoding ->+                              dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_encoding2Attribute x1+  = DM.eval+      (DM.funcDeclHook "encoding2Attribute"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_121"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_121 x2)))+term_strict_encoding2Attribute x1+  = DI.Term "encoding2Attribute" (DI.SrcID "XML" 0) x1+ +strict_encoding2EncFunc ::+                        (DM.DM dm) =>+                          Encoding ->+                            dm+                              (DM.Func dm+                                 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                                 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_encoding2EncFunc x1+  = DM.eval+      (DM.funcDeclHook "encoding2EncFunc"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_120"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_120 x2)))+term_strict_encoding2EncFunc x1+  = DI.Term "encoding2EncFunc" (DI.SrcID "XML" 0) x1+ +strict_standardEncoding ::+                        (DM.DM dm) =>+                          Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                            dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_standardEncoding x1+  = DM.eval+      (DM.funcDeclHook "standardEncoding"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_119"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_119 x2)))+term_strict_standardEncoding x1+  = DI.Term "standardEncoding" (DI.SrcID "XML" 0) x1+ +strict_iso88591Encoding ::+                        (DM.DM dm) =>+                          Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                            dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_iso88591Encoding x1+  = DM.eval+      (DM.funcDeclHook "iso88591Encoding"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_110"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_110 x2)))+term_strict_iso88591Encoding x1+  = DI.Term "iso88591Encoding" (DI.SrcID "XML" 0) x1+ +strict_iso88591list ::+                    (DM.DM dm) =>+                      dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Int)+strict_iso88591list+  = DM.eval+      (DM.funcDeclHook "iso88591list"+         (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+         (do x110 <- DM.litHook+                       (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                       (Prelude.return+                          (Curry.DebugModule.Prelude.Pos+                             (Curry.DebugModule.Prelude.O+                                (Curry.DebugModule.Prelude.O+                                   (Curry.DebugModule.Prelude.O+                                      (Curry.DebugModule.Prelude.O+                                         (Curry.DebugModule.Prelude.O+                                            (Curry.DebugModule.Prelude.O+                                               (Curry.DebugModule.Prelude.I+                                                  Curry.DebugModule.Prelude.IHi)))))))))+             x111 <- do x108 <- DM.litHook+                                  (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                  (Prelude.return+                                     (Curry.DebugModule.Prelude.Pos+                                        (Curry.DebugModule.Prelude.I+                                           (Curry.DebugModule.Prelude.O+                                              (Curry.DebugModule.Prelude.O+                                                 (Curry.DebugModule.Prelude.O+                                                    (Curry.DebugModule.Prelude.O+                                                       (Curry.DebugModule.Prelude.O+                                                          (Curry.DebugModule.Prelude.I+                                                             Curry.DebugModule.Prelude.IHi)))))))))+                        x109 <- do x106 <- DM.litHook+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] []))+                                             (Prelude.return+                                                (Curry.DebugModule.Prelude.Pos+                                                   (Curry.DebugModule.Prelude.O+                                                      (Curry.DebugModule.Prelude.I+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.O+                                                               (Curry.DebugModule.Prelude.O+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.I+                                                                        Curry.DebugModule.Prelude.IHi)))))))))+                                   x107 <- do x104 <- DM.litHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] []))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Pos+                                                              (Curry.DebugModule.Prelude.I+                                                                 (Curry.DebugModule.Prelude.I+                                                                    (Curry.DebugModule.Prelude.O+                                                                       (Curry.DebugModule.Prelude.O+                                                                          (Curry.DebugModule.Prelude.O+                                                                             (Curry.DebugModule.Prelude.O+                                                                                (Curry.DebugModule.Prelude.I+                                                                                   Curry.DebugModule.Prelude.IHi)))))))))+                                              x105 <- do x102 <- DM.litHook+                                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                      (DI.DynamicInfo [] []))+                                                                   (Prelude.return+                                                                      (Curry.DebugModule.Prelude.Pos+                                                                         (Curry.DebugModule.Prelude.O+                                                                            (Curry.DebugModule.Prelude.O+                                                                               (Curry.DebugModule.Prelude.I+                                                                                  (Curry.DebugModule.Prelude.O+                                                                                     (Curry.DebugModule.Prelude.O+                                                                                        (Curry.DebugModule.Prelude.O+                                                                                           (Curry.DebugModule.Prelude.I+                                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                                         x103 <- do x100 <- DM.litHook+                                                                              (DI.DebugInfo+                                                                                 (DI.SrcID "XML" 0)+                                                                                 (DI.DynamicInfo []+                                                                                    []))+                                                                              (Prelude.return+                                                                                 (Curry.DebugModule.Prelude.Pos+                                                                                    (Curry.DebugModule.Prelude.I+                                                                                       (Curry.DebugModule.Prelude.O+                                                                                          (Curry.DebugModule.Prelude.I+                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                (Curry.DebugModule.Prelude.O+                                                                                                   (Curry.DebugModule.Prelude.O+                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                         Curry.DebugModule.Prelude.IHi)))))))))+                                                                    x101 <- do x98 <- DM.litHook+                                                                                        (DI.DebugInfo+                                                                                           (DI.SrcID+                                                                                              "XML"+                                                                                              0)+                                                                                           (DI.DynamicInfo+                                                                                              []+                                                                                              []))+                                                                                        (Prelude.return+                                                                                           (Curry.DebugModule.Prelude.Pos+                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                       (Curry.DebugModule.Prelude.O+                                                                                                          (Curry.DebugModule.Prelude.O+                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                   Curry.DebugModule.Prelude.IHi)))))))))+                                                                               x99 <- do x96 <- DM.litHook+                                                                                                  (DI.DebugInfo+                                                                                                     (DI.SrcID+                                                                                                        "XML"+                                                                                                        0)+                                                                                                     (DI.DynamicInfo+                                                                                                        []+                                                                                                        []))+                                                                                                  (Prelude.return+                                                                                                     (Curry.DebugModule.Prelude.Pos+                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                 (Curry.DebugModule.Prelude.O+                                                                                                                    (Curry.DebugModule.Prelude.O+                                                                                                                       (Curry.DebugModule.Prelude.O+                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                             Curry.DebugModule.Prelude.IHi)))))))))+                                                                                         x97 <- do x94 <- DM.litHook+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "XML"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  []))+                                                                                                            (Prelude.return+                                                                                                               (Curry.DebugModule.Prelude.Pos+                                                                                                                  (Curry.DebugModule.Prelude.O+                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                                                 (Curry.DebugModule.Prelude.O+                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                       Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                   x95 <- do x92 <- DM.litHook+                                                                                                                      (DI.DebugInfo+                                                                                                                         (DI.SrcID+                                                                                                                            "XML"+                                                                                                                            0)+                                                                                                                         (DI.DynamicInfo+                                                                                                                            []+                                                                                                                            []))+                                                                                                                      (Prelude.return+                                                                                                                         (Curry.DebugModule.Prelude.Pos+                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                               (Curry.DebugModule.Prelude.O+                                                                                                                                  (Curry.DebugModule.Prelude.O+                                                                                                                                     (Curry.DebugModule.Prelude.I+                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                 Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                             x93 <- do x90 <- DM.litHook+                                                                                                                                (DI.DebugInfo+                                                                                                                                   (DI.SrcID+                                                                                                                                      "XML"+                                                                                                                                      0)+                                                                                                                                   (DI.DynamicInfo+                                                                                                                                      []+                                                                                                                                      []))+                                                                                                                                (Prelude.return+                                                                                                                                   (Curry.DebugModule.Prelude.Pos+                                                                                                                                      (Curry.DebugModule.Prelude.O+                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                            (Curry.DebugModule.Prelude.O+                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                  (Curry.DebugModule.Prelude.O+                                                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                           Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                       x91 <- do x88 <- DM.litHook+                                                                                                                                          (DI.DebugInfo+                                                                                                                                             (DI.SrcID+                                                                                                                                                "XML"+                                                                                                                                                0)+                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                []+                                                                                                                                                []))+                                                                                                                                          (Prelude.return+                                                                                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                      (Curry.DebugModule.Prelude.O+                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                            (Curry.DebugModule.Prelude.O+                                                                                                                                                               (Curry.DebugModule.Prelude.O+                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                     Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                 x89 <- do x86 <- DM.litHook+                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                       (DI.SrcID+                                                                                                                                                          "XML"+                                                                                                                                                          0)+                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                          []+                                                                                                                                                          []))+                                                                                                                                                    (Prelude.return+                                                                                                                                                       (Curry.DebugModule.Prelude.Pos+                                                                                                                                                          (Curry.DebugModule.Prelude.O+                                                                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                                      (Curry.DebugModule.Prelude.O+                                                                                                                                                                         (Curry.DebugModule.Prelude.O+                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                               Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                           x87 <- do x84 <- DM.litHook+                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                    "XML"+                                                                                                                                                                    0)+                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                    []+                                                                                                                                                                    []))+                                                                                                                                                              (Prelude.return+                                                                                                                                                                 (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                       (Curry.DebugModule.Prelude.O+                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                                                                                                (Curry.DebugModule.Prelude.O+                                                                                                                                                                                   (Curry.DebugModule.Prelude.O+                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                         Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                     x85 <- do x82 <- DM.litHook+                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                              "XML"+                                                                                                                                                                              0)+                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                              []+                                                                                                                                                                              []))+                                                                                                                                                                        (Prelude.return+                                                                                                                                                                           (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                                                                          (Curry.DebugModule.Prelude.O+                                                                                                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                   Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                               x83 <- do x80 <- DM.litHook+                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                        "XML"+                                                                                                                                                                                        0)+                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                        []+                                                                                                                                                                                        []))+                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                     (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                 (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                       (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                             Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                         x81 <- do x78 <- DM.litHook+                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                  0)+                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                  []+                                                                                                                                                                                                  []))+                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                               (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                       Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                   x79 <- do x76 <- DM.litHook+                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                            "XML"+                                                                                                                                                                                                            0)+                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                            []+                                                                                                                                                                                                            []))+                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                            (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                 Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                             x77 <- do x74 <- DM.litHook+                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                      []+                                                                                                                                                                                                                      []))+                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                           Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                       x75 <- do x72 <- DM.litHook+                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                "XML"+                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                []))+                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                     Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                 x73 <- do x70 <- DM.litHook+                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                          []))+                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                               Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                           x71 <- do x68 <- DM.litHook+                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                         Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                     x69 <- do x66 <- DM.litHook+                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                              "XML"+                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                              []))+                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                   Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                               x67 <- do x64 <- DM.litHook+                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                             Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                         x65 <- do x62 <- DM.litHook+                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                  []))+                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                       Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                   x63 <- do x60 <- DM.litHook+                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                            "XML"+                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                            []))+                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                 Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                             x61 <- do x58 <- DM.litHook+                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                      []))+                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                           Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                       x59 <- do x56 <- DM.litHook+                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                "XML"+                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                []))+                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                     Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                 x57 <- do x54 <- DM.litHook+                                                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                                                          []))+                                                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                               Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                           x55 <- do x52 <- DM.litHook+                                                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                         Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                     x53 <- do x50 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                                                              "XML"+                                                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                                                              []))+                                                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                   Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                               x51 <- do x48 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                             Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                         x49 <- do x46 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                  []))+                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                       Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                   x47 <- do x44 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                            "XML"+                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                            []))+                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                 Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                             x45 <- do x42 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                                                                                                      []))+                                                                                                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                           Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                       x43 <- do x40 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                "XML"+                                                                                                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                                                                                                []))+                                                                                                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                     Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                 x41 <- do x38 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                                                                                                                                          []))+                                                                                                                                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                               Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                           x39 <- do x36 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                         Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                     x37 <- do x34 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                              "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                                                                                                                                              []))+                                                                                                                                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                   Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                               x35 <- do x32 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                             Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                         x33 <- do x30 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                                                                                                  []))+                                                                                                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                   x31 <- do x28 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                            "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                                                                                                            []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                             x29 <- do x26 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                       x27 <- do x24 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                 x25 <- do x22 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                           x23 <- do x20 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     x21 <- do x18 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               x19 <- do x16 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         x17 <- do x14 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   x15 <- do x12 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             x13 <- do x10 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x11 <- do x8 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 x9 <- do x6 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          x7 <- do x4 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   x5 <- do x2 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.O+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            x3 <- do x0 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Pos+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.I+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Curry.DebugModule.Prelude.IHi)))))))))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     x1 <- DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                x0,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                x1]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             x0+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             x1))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x2,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x3]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    x2+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    x3))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              x4,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              x5]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           x4+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           x5))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     x6,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     x7]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  x6+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  x7))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            x8,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            x9]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         x8+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         x9))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  x10,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  x11]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               x10+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               x11))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        x12,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        x13]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     x12+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     x13))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              x14,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              x15]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           x14+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           x15))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    x16,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    x17]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 x16+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 x17))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          x18,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          x19]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x18+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       x19))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                x20,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                x21]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             x20+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             x21))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                           DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      x22,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      x23]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   x22+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   x23))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                 DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            x24,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                          DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                            x25]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         x24+                                                                                                                                                                                                                                                                                                                                                                                                                                                                         x25))+                                                                                                                                                                                                                                                                                                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                  x26,+                                                                                                                                                                                                                                                                                                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                                  x27]))+                                                                                                                                                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                               x26+                                                                                                                                                                                                                                                                                                                                                                                                                                                               x27))+                                                                                                                                                                                                                                                                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                        x28,+                                                                                                                                                                                                                                                                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                        x29]))+                                                                                                                                                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                     x28+                                                                                                                                                                                                                                                                                                                                                                                                                                                     x29))+                                                                                                                                                                                                                                                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                              x30,+                                                                                                                                                                                                                                                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                              x31]))+                                                                                                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                           x30+                                                                                                                                                                                                                                                                                                                                                                                                                                           x31))+                                                                                                                                                                                                                                                                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                    x32,+                                                                                                                                                                                                                                                                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                    x33]))+                                                                                                                                                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                 x32+                                                                                                                                                                                                                                                                                                                                                                                                                                 x33))+                                                                                                                                                                                                                                                                                                                                                                                                               DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                          x34,+                                                                                                                                                                                                                                                                                                                                                                                                                        DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                          x35]))+                                                                                                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                       x34+                                                                                                                                                                                                                                                                                                                                                                                                                       x35))+                                                                                                                                                                                                                                                                                                                                                                                                     DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                             "XML"+                                                                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                                                                             [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                x36,+                                                                                                                                                                                                                                                                                                                                                                                                              DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                x37]))+                                                                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                             x36+                                                                                                                                                                                                                                                                                                                                                                                                             x37))+                                                                                                                                                                                                                                                                                                                                                                                           DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                   "XML"+                                                                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                                                                   [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                      x38,+                                                                                                                                                                                                                                                                                                                                                                                                    DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                      x39]))+                                                                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                   x38+                                                                                                                                                                                                                                                                                                                                                                                                   x39))+                                                                                                                                                                                                                                                                                                                                                                                 DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                                                                         [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                            x40,+                                                                                                                                                                                                                                                                                                                                                                                          DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                            x41]))+                                                                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                         x40+                                                                                                                                                                                                                                                                                                                                                                                         x41))+                                                                                                                                                                                                                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                  x42,+                                                                                                                                                                                                                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                  x43]))+                                                                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                               x42+                                                                                                                                                                                                                                                                                                                                                                               x43))+                                                                                                                                                                                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                        x44,+                                                                                                                                                                                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                        x45]))+                                                                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                     x44+                                                                                                                                                                                                                                                                                                                                                                     x45))+                                                                                                                                                                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                              x46,+                                                                                                                                                                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                                                                                                                                                                              x47]))+                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                           x46+                                                                                                                                                                                                                                                                                                                                                           x47))+                                                                                                                                                                                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                    x48,+                                                                                                                                                                                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                                                                                                                                                                                    x49]))+                                                                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                 x48+                                                                                                                                                                                                                                                                                                                                                 x49))+                                                                                                                                                                                                                                                                                                                               DM.constructorHook+                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                                                                                                                                                                                          x50,+                                                                                                                                                                                                                                                                                                                                        DI.genTerm+                                                                                                                                                                                                                                                                                                                                          x51]))+                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                       x50+                                                                                                                                                                                                                                                                                                                                       x51))+                                                                                                                                                                                                                                                                                                                     DM.constructorHook+                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                             "XML"+                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                             [DI.genTerm+                                                                                                                                                                                                                                                                                                                                x52,+                                                                                                                                                                                                                                                                                                                              DI.genTerm+                                                                                                                                                                                                                                                                                                                                x53]))+                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                             x52+                                                                                                                                                                                                                                                                                                                             x53))+                                                                                                                                                                                                                                                                                                           DM.constructorHook+                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                   "XML"+                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                   [DI.genTerm+                                                                                                                                                                                                                                                                                                                      x54,+                                                                                                                                                                                                                                                                                                                    DI.genTerm+                                                                                                                                                                                                                                                                                                                      x55]))+                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                   x54+                                                                                                                                                                                                                                                                                                                   x55))+                                                                                                                                                                                                                                                                                                 DM.constructorHook+                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                         [DI.genTerm+                                                                                                                                                                                                                                                                                                            x56,+                                                                                                                                                                                                                                                                                                          DI.genTerm+                                                                                                                                                                                                                                                                                                            x57]))+                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                         x56+                                                                                                                                                                                                                                                                                                         x57))+                                                                                                                                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                                                                                                                                  x58,+                                                                                                                                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                                                                                                                                  x59]))+                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                               x58+                                                                                                                                                                                                                                                                                               x59))+                                                                                                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                                                                                                        x60,+                                                                                                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                                                                                                        x61]))+                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                     x60+                                                                                                                                                                                                                                                                                     x61))+                                                                                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                                                                                              x62,+                                                                                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                                                                                              x63]))+                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                           x62+                                                                                                                                                                                                                                                                           x63))+                                                                                                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                                                                                                    x64,+                                                                                                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                                                                                                    x65]))+                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                 x64+                                                                                                                                                                                                                                                                 x65))+                                                                                                                                                                                                                                               DM.constructorHook+                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                                                                                                          x66,+                                                                                                                                                                                                                                                        DI.genTerm+                                                                                                                                                                                                                                                          x67]))+                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                       x66+                                                                                                                                                                                                                                                       x67))+                                                                                                                                                                                                                                     DM.constructorHook+                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                             "XML"+                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                             [DI.genTerm+                                                                                                                                                                                                                                                x68,+                                                                                                                                                                                                                                              DI.genTerm+                                                                                                                                                                                                                                                x69]))+                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                             x68+                                                                                                                                                                                                                                             x69))+                                                                                                                                                                                                                           DM.constructorHook+                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                   "XML"+                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                   [DI.genTerm+                                                                                                                                                                                                                                      x70,+                                                                                                                                                                                                                                    DI.genTerm+                                                                                                                                                                                                                                      x71]))+                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                   x70+                                                                                                                                                                                                                                   x71))+                                                                                                                                                                                                                 DM.constructorHook+                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                         []+                                                                                                                                                                                                                         [DI.genTerm+                                                                                                                                                                                                                            x72,+                                                                                                                                                                                                                          DI.genTerm+                                                                                                                                                                                                                            x73]))+                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                         x72+                                                                                                                                                                                                                         x73))+                                                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                               0)+                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                               []+                                                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                                                  x74,+                                                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                                                  x75]))+                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                               x74+                                                                                                                                                                                                               x75))+                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                     0)+                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                     []+                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                        x76,+                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                        x77]))+                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                     x76+                                                                                                                                                                                                     x77))+                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                           "XML"+                                                                                                                                                                                           0)+                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                           []+                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                              x78,+                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                              x79]))+                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                           x78+                                                                                                                                                                                           x79))+                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                 "XML"+                                                                                                                                                                                 0)+                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                 []+                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                    x80,+                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                    x81]))+                                                                                                                                                                           (Prelude.return+                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                 x80+                                                                                                                                                                                 x81))+                                                                                                                                                               DM.constructorHook+                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                       "XML"+                                                                                                                                                                       0)+                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                       []+                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                          x82,+                                                                                                                                                                        DI.genTerm+                                                                                                                                                                          x83]))+                                                                                                                                                                 (Prelude.return+                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                       x82+                                                                                                                                                                       x83))+                                                                                                                                                     DM.constructorHook+                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                          (DI.SrcID+                                                                                                                                                             "XML"+                                                                                                                                                             0)+                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                             []+                                                                                                                                                             [DI.genTerm+                                                                                                                                                                x84,+                                                                                                                                                              DI.genTerm+                                                                                                                                                                x85]))+                                                                                                                                                       (Prelude.return+                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                             x84+                                                                                                                                                             x85))+                                                                                                                                           DM.constructorHook+                                                                                                                                             (DI.DebugInfo+                                                                                                                                                (DI.SrcID+                                                                                                                                                   "XML"+                                                                                                                                                   0)+                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                   []+                                                                                                                                                   [DI.genTerm+                                                                                                                                                      x86,+                                                                                                                                                    DI.genTerm+                                                                                                                                                      x87]))+                                                                                                                                             (Prelude.return+                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                   x86+                                                                                                                                                   x87))+                                                                                                                                 DM.constructorHook+                                                                                                                                   (DI.DebugInfo+                                                                                                                                      (DI.SrcID+                                                                                                                                         "XML"+                                                                                                                                         0)+                                                                                                                                      (DI.DynamicInfo+                                                                                                                                         []+                                                                                                                                         [DI.genTerm+                                                                                                                                            x88,+                                                                                                                                          DI.genTerm+                                                                                                                                            x89]))+                                                                                                                                   (Prelude.return+                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                         x88+                                                                                                                                         x89))+                                                                                                                       DM.constructorHook+                                                                                                                         (DI.DebugInfo+                                                                                                                            (DI.SrcID+                                                                                                                               "XML"+                                                                                                                               0)+                                                                                                                            (DI.DynamicInfo+                                                                                                                               []+                                                                                                                               [DI.genTerm+                                                                                                                                  x90,+                                                                                                                                DI.genTerm+                                                                                                                                  x91]))+                                                                                                                         (Prelude.return+                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                               x90+                                                                                                                               x91))+                                                                                                             DM.constructorHook+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "XML"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x92,+                                                                                                                      DI.genTerm+                                                                                                                        x93]))+                                                                                                               (Prelude.return+                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                     x92+                                                                                                                     x93))+                                                                                                   DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           [DI.genTerm+                                                                                                              x94,+                                                                                                            DI.genTerm+                                                                                                              x95]))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                           x94+                                                                                                           x95))+                                                                                         DM.constructorHook+                                                                                           (DI.DebugInfo+                                                                                              (DI.SrcID+                                                                                                 "XML"+                                                                                                 0)+                                                                                              (DI.DynamicInfo+                                                                                                 []+                                                                                                 [DI.genTerm+                                                                                                    x96,+                                                                                                  DI.genTerm+                                                                                                    x97]))+                                                                                           (Prelude.return+                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                 x96+                                                                                                 x97))+                                                                               DM.constructorHook+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID "XML"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       [DI.genTerm+                                                                                          x98,+                                                                                        DI.genTerm+                                                                                          x99]))+                                                                                 (Prelude.return+                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                       x98+                                                                                       x99))+                                                                    DM.constructorHook+                                                                      (DI.DebugInfo+                                                                         (DI.SrcID "XML" 0)+                                                                         (DI.DynamicInfo []+                                                                            [DI.genTerm x100,+                                                                             DI.genTerm x101]))+                                                                      (Prelude.return+                                                                         (Curry.DebugModule.Prelude.Cons+                                                                            x100+                                                                            x101))+                                                         DM.constructorHook+                                                           (DI.DebugInfo (DI.SrcID "XML" 0)+                                                              (DI.DynamicInfo []+                                                                 [DI.genTerm x102,+                                                                  DI.genTerm x103]))+                                                           (Prelude.return+                                                              (Curry.DebugModule.Prelude.Cons x102+                                                                 x103))+                                              DM.constructorHook+                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x104, DI.genTerm x105]))+                                                (Prelude.return+                                                   (Curry.DebugModule.Prelude.Cons x104 x105))+                                   DM.constructorHook+                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                        (DI.DynamicInfo [] [DI.genTerm x106, DI.genTerm x107]))+                                     (Prelude.return (Curry.DebugModule.Prelude.Cons x106 x107))+                        DM.constructorHook+                          (DI.DebugInfo (DI.SrcID "XML" 0)+                             (DI.DynamicInfo [] [DI.genTerm x108, DI.genTerm x109]))+                          (Prelude.return (Curry.DebugModule.Prelude.Cons x108 x109))+             DM.constructorHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x110, DI.genTerm x111]))+               (Prelude.return (Curry.DebugModule.Prelude.Cons x110 x111))))+ +strict_lookupEncoding ::+                      (DM.DM dm) =>+                        Curry.DebugModule.Prelude.List XmlDocParams -> dm Encoding+strict_lookupEncoding x1+  = DM.eval+      (DM.funcDeclHook "lookupEncoding"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_108"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_108 x2)))+term_strict_lookupEncoding x1+  = DI.Term "lookupEncoding" (DI.SrcID "XML" 0) x1+ +strict_lookupDtdUrl ::+                    (DM.DM dm) =>+                      Curry.DebugModule.Prelude.List XmlDocParams ->+                        dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_lookupDtdUrl x1+  = DM.eval+      (DM.funcDeclHook "lookupDtdUrl"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_106"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_106 x2)))+term_strict_lookupDtdUrl x1+  = DI.Term "lookupDtdUrl" (DI.SrcID "XML" 0) x1+ +strict_hasDtdUrl ::+                 (DM.DM dm) =>+                   Curry.DebugModule.Prelude.List XmlDocParams ->+                     dm Curry.DebugModule.Prelude.Bool+strict_hasDtdUrl x1+  = DM.eval+      (DM.funcDeclHook "hasDtdUrl"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_104"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_104 x2)))+term_strict_hasDtdUrl x1+  = DI.Term "hasDtdUrl" (DI.SrcID "XML" 0) x1+ +strict_xtxt ::+            (DM.DM dm) =>+              Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                dm XmlExp+strict_xtxt x1+  = DM.eval+      (DM.funcDeclHook "xtxt"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.constructorHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (Prelude.return (XText x2))))+term_strict_xtxt x1 = DI.Term "xtxt" (DI.SrcID "XML" 0) x1+ +strict_xml ::+           (DM.DM dm) =>+             Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+               Curry.DebugModule.Prelude.List XmlExp -> dm XmlExp+strict_xml x1 x2+  = DM.eval+      (DM.funcDeclHook "xml"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Nil)+             x5 <- Prelude.return x2+             DM.constructorHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+               (Prelude.return (XElem x3 x4 x5))))+term_strict_xml x1 = DI.Term "xml" (DI.SrcID "XML" 0) x1+ +strict_writeXmlFile ::+                    (DM.DM dm) =>+                      Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                        XmlExp ->+                          dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_writeXmlFile x1 x2+  = DM.eval+      (DM.funcDeclHook "writeXmlFile"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x6 <- Prelude.return x1+             x7 <- do x4 <- do x3 <- DM.constructorHook+                                       (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                       (Prelude.return StandardEnc)+                               DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x3]))+                                 (Prelude.return (Enc x3))+                      x5 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nil)+                      DM.constructorHook+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (Prelude.return (Curry.DebugModule.Prelude.Cons x4 x5))+             x8 <- Prelude.return x2+             DM.funcCallHook "writeXmlFileWithParams"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+               (strict_writeXmlFileWithParams x6 x7 x8)))+term_strict_writeXmlFile x1+  = DI.Term "writeXmlFile" (DI.SrcID "XML" 0) x1+ +strict_writeXmlFileWithParams ::+                              (DM.DM dm) =>+                                Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                                  Curry.DebugModule.Prelude.List XmlDocParams ->+                                    XmlExp ->+                                      dm+                                        (Curry.DebugModule.Prelude.IO dm+                                           Curry.DebugModule.Prelude.Unit)+strict_writeXmlFileWithParams x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "writeXmlFileWithParams"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x6 <- Prelude.return x1+             x7 <- do x4 <- Prelude.return x2+                      x5 <- Prelude.return x3+                      DM.funcCallHook "showXmlDocWithParams"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                        (strict_showXmlDocWithParams x4 x5)+             DM.funcCallHook "writeFile"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+               (Curry.DebugModule.Prelude.strict_writeFile x6 x7)))+term_strict_writeXmlFileWithParams x1+  = DI.Term "writeXmlFileWithParams" (DI.SrcID "XML" 0) x1+ +strict_showXmlDoc ::+                  (DM.DM dm) =>+                    XmlExp ->+                      dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_showXmlDoc x1+  = DM.eval+      (DM.funcDeclHook "showXmlDoc"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- DM.constructorHook+                     (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                     (Prelude.return Curry.DebugModule.Prelude.Nil)+             x3 <- Prelude.return x1+             DM.funcCallHook "showXmlDocWithParams"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+               (strict_showXmlDocWithParams x2 x3)))+term_strict_showXmlDoc x1+  = DI.Term "showXmlDoc" (DI.SrcID "XML" 0) x1+ +strict_showXmlDocWithParams ::+                            (DM.DM dm) =>+                              Curry.DebugModule.Prelude.List XmlDocParams ->+                                XmlExp ->+                                  dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_showXmlDocWithParams x1 x2+  = DM.eval+      (DM.funcDeclHook "showXmlDocWithParams"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_102"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_102 x3 x4)))+term_strict_showXmlDocWithParams x1+  = DI.Term "showXmlDocWithParams" (DI.SrcID "XML" 0) x1+ +strict_showXmlExp ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.Int ->+                      DM.Func dm+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                        (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                        ->+                        XmlExp ->+                          dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_showXmlExp x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "showXmlExp"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x4 <- Prelude.return x1+             x5 <- Prelude.return x2+             x6 <- Prelude.return x3+             DM.funcCallHook "_case_99"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+               (strict__case_99 x4 x5 x6)))+term_strict_showXmlExp x1+  = DI.Term "showXmlExp" (DI.SrcID "XML" 0) x1+ +x'xstrict_showXmlExp46_35selFP335s ::+                                   (DM.DM dm) =>+                                     Curry.DebugModule.Prelude.List XmlExp ->+                                       dm+                                         (Curry.DebugModule.Prelude.List+                                            Curry.DebugModule.Prelude.Char)+x'xstrict_showXmlExp46_35selFP335s x1+  = DM.eval+      (DM.funcDeclHook "showXmlExp._#selFP3#s"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_96"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_96 x2)))+x'xterm_strict_showXmlExp46_35selFP335s x1+  = DI.Term "showXmlExp._#selFP3#s" (DI.SrcID "XML" 0) x1+ +strict_xtab ::+            (DM.DM dm) =>+              Curry.DebugModule.Prelude.Int ->+                dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_xtab x1+  = DM.eval+      (DM.funcDeclHook "xtab"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x3 <- Prelude.return x1+             x4 <- do x2 <- DM.litHook+                              (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                              (Prelude.return (Curry.DebugModule.Prelude.Char ' '))+                      DM.funcCallHook "repeat"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (Curry.DebugModule.Prelude.strict_repeat x2)+             DM.funcCallHook "take"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (Curry.DebugModule.Prelude.strict_take x3 x4)))+term_strict_xtab x1 = DI.Term "xtab" (DI.SrcID "XML" 0) x1+ +strict_showXmlOpenTag ::+                      (DM.DM dm, DI.GenTerm a) =>+                        Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                          Curry.DebugModule.Prelude.List+                            (Curry.DebugModule.Prelude.Tuple2+                               (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                               a)+                            ->+                            DM.Func dm a+                              (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                              ->+                              dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_showXmlOpenTag x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "showXmlOpenTag"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x17 <- do x4 <- DM.litHook+                               (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                               (Prelude.return (Curry.DebugModule.Prelude.Char '<'))+                       x5 <- DM.constructorHook+                               (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                               (Prelude.return Curry.DebugModule.Prelude.Nil)+                       DM.constructorHook+                         (DI.DebugInfo (DI.SrcID "XML" 0)+                            (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                         (Prelude.return (Curry.DebugModule.Prelude.Cons x4 x5))+             x18 <- do x15 <- Prelude.return x1+                       x16 <- do x14 <- do x12 <- do x10 <- do x8 <- do x6 <- DM.litHook+                                                                                (DI.DebugInfo+                                                                                   (DI.SrcID "XML"+                                                                                      0)+                                                                                   (DI.DynamicInfo+                                                                                      []+                                                                                      []))+                                                                                (Prelude.return+                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                      ' '))+                                                                        x7 <- DM.constructorHook+                                                                                (DI.DebugInfo+                                                                                   (DI.SrcID "XML"+                                                                                      0)+                                                                                   (DI.DynamicInfo+                                                                                      []+                                                                                      []))+                                                                                (Prelude.return+                                                                                   Curry.DebugModule.Prelude.Nil)+                                                                        DM.constructorHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "XML" 0)+                                                                             (DI.DynamicInfo []+                                                                                [DI.genTerm x6,+                                                                                 DI.genTerm x7]))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                x6+                                                                                x7))+                                                               Prelude.return+                                                                 (PC.partCall1+                                                                    (Curry.DebugModule.Prelude.term_op_PlusPlus+                                                                       [DI.genTerm x8])+                                                                    (Curry.DebugModule.Prelude.op_PlusPlus+                                                                       x8))+                                                     x11 <- do x9 <- Prelude.return x3+                                                               Prelude.return+                                                                 (PC.partCall1+                                                                    (x'xterm_strict_showXmlOpenTag46attr2string46125+                                                                       [DI.genTerm x9])+                                                                    (x'xstrict_showXmlOpenTag46attr2string46125+                                                                       x9))+                                                     DM.funcCallHook "."+                                                       (DI.DebugInfo (DI.SrcID "XML" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x10, DI.genTerm x11]))+                                                       (Curry.DebugModule.Prelude.op_Point x10 x11)+                                           x13 <- Prelude.return x2+                                           DM.funcCallHook "map"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo []+                                                   [DI.genTerm x12, DI.genTerm x13]))+                                             (Curry.DebugModule.Prelude.strict_map x12 x13)+                                 DM.funcCallHook "concat"+                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x14]))+                                   (Curry.DebugModule.Prelude.strict_concat x14)+                       DM.funcCallHook "++"+                         (DI.DebugInfo (DI.SrcID "XML" 0)+                            (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16]))+                         (Curry.DebugModule.Prelude.op_PlusPlus x15 x16)+             DM.funcCallHook "++"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18]))+               (Curry.DebugModule.Prelude.op_PlusPlus x17 x18)))+term_strict_showXmlOpenTag x1+  = DI.Term "showXmlOpenTag" (DI.SrcID "XML" 0) x1+ +x'xstrict_showXmlOpenTag46attr2string46125 ::+                                           (DM.DM dm, DI.GenTerm x130) =>+                                             DM.Func dm x130+                                               (Curry.DebugModule.Prelude.List+                                                  Curry.DebugModule.Prelude.Char)+                                               ->+                                               Curry.DebugModule.Prelude.Tuple2+                                                 (Curry.DebugModule.Prelude.List+                                                    Curry.DebugModule.Prelude.Char)+                                                 x130+                                                 ->+                                                 dm+                                                   (Curry.DebugModule.Prelude.List+                                                      Curry.DebugModule.Prelude.Char)+x'xstrict_showXmlOpenTag46attr2string46125 x1 x2+  = DM.eval+      (DM.funcDeclHook "showXmlOpenTag.attr2string.125"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_93"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_93 x3 x4)))+x'xterm_strict_showXmlOpenTag46attr2string46125 x1+  = DI.Term "showXmlOpenTag.attr2string.125" (DI.SrcID "XML" 0) x1+ +strict_showXmlExps ::+                   (DM.DM dm) =>+                     Curry.DebugModule.Prelude.Int ->+                       Curry.DebugModule.Prelude.List XmlExp ->+                         DM.Func dm+                           (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                           (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                           ->+                           dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_showXmlExps x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "showXmlExps"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x7 <- do x6 <- do x4 <- Prelude.return x1+                               x5 <- Prelude.return x3+                               Prelude.return+                                 (PC.partCall1+                                    (term_strict_showXmlExp [DI.genTerm x4, DI.genTerm x5])+                                    (strict_showXmlExp x4 x5))+                      DM.funcCallHook "concatMap"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x6]))+                        (Curry.DebugModule.Prelude.strict_concatMap x6)+             x8 <- Prelude.return x2+             DM.funcCallHook "apply"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+               (Curry.DebugModule.Prelude.strict_apply x7 x8)))+term_strict_showXmlExps x1+  = DI.Term "showXmlExps" (DI.SrcID "XML" 0) x1+ +strict_isXText ::+               (DM.DM dm) => XmlExp -> dm Curry.DebugModule.Prelude.Bool+strict_isXText x1+  = DM.eval+      (DM.funcDeclHook "isXText"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_92"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_92 x2)))+term_strict_isXText x1 = DI.Term "isXText" (DI.SrcID "XML" 0) x1+ +strict_xmlUnquoteSpecials ::+                          (DM.DM dm) =>+                            Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                              dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_xmlUnquoteSpecials x1+  = DM.eval+      (DM.funcDeclHook "xmlUnquoteSpecials"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_91"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_91 x2)))+term_strict_xmlUnquoteSpecials x1+  = DI.Term "xmlUnquoteSpecials" (DI.SrcID "XML" 0) x1+ +x'xstrict_xmlUnquoteSpecials46_35selFP535special ::+                                                 (DM.DM dm) =>+                                                   Curry.DebugModule.Prelude.Tuple2+                                                     (Curry.DebugModule.Prelude.List+                                                        Curry.DebugModule.Prelude.Char)+                                                     (Curry.DebugModule.Prelude.List+                                                        Curry.DebugModule.Prelude.Char)+                                                     ->+                                                     dm+                                                       (Curry.DebugModule.Prelude.List+                                                          Curry.DebugModule.Prelude.Char)+x'xstrict_xmlUnquoteSpecials46_35selFP535special x1+  = DM.eval+      (DM.funcDeclHook "xmlUnquoteSpecials._#selFP5#special"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_88"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_88 x2)))+x'xterm_strict_xmlUnquoteSpecials46_35selFP535special x1+  = DI.Term "xmlUnquoteSpecials._#selFP5#special" (DI.SrcID "XML" 0)+      x1+ +x'xstrict_xmlUnquoteSpecials46_35selFP635rest ::+                                              (DM.DM dm) =>+                                                Curry.DebugModule.Prelude.Tuple2+                                                  (Curry.DebugModule.Prelude.List+                                                     Curry.DebugModule.Prelude.Char)+                                                  (Curry.DebugModule.Prelude.List+                                                     Curry.DebugModule.Prelude.Char)+                                                  ->+                                                  dm+                                                    (Curry.DebugModule.Prelude.List+                                                       Curry.DebugModule.Prelude.Char)+x'xstrict_xmlUnquoteSpecials46_35selFP635rest x1+  = DM.eval+      (DM.funcDeclHook "xmlUnquoteSpecials._#selFP6#rest"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_87"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_87 x2)))+x'xterm_strict_xmlUnquoteSpecials46_35selFP635rest x1+  = DI.Term "xmlUnquoteSpecials._#selFP6#rest" (DI.SrcID "XML" 0) x1+ +strict_xmlUnquoteSpecial ::+                         (DM.DM dm) =>+                           Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                             Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                               dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_xmlUnquoteSpecial x1 x2+  = DM.eval+      (DM.funcDeclHook "xmlUnquoteSpecial"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x9 <- Prelude.return x1+             x10 <- Prelude.return x2+             x11 <- do x7 <- Prelude.return x1+                       x8 <- do x5 <- DM.litHook+                                        (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                        (Prelude.return (Curry.DebugModule.Prelude.Char 'l'))+                                x6 <- do x3 <- DM.litHook+                                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                                    (DI.DynamicInfo [] []))+                                                 (Prelude.return+                                                    (Curry.DebugModule.Prelude.Char 't'))+                                         x4 <- DM.constructorHook+                                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                                    (DI.DynamicInfo [] []))+                                                 (Prelude.return Curry.DebugModule.Prelude.Nil)+                                         DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "XML" 0)+                                              (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                           (Prelude.return (Curry.DebugModule.Prelude.Cons x3 x4))+                                DM.constructorHook+                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                     (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                  (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))+                       DM.funcCallHook "=="+                         (DI.DebugInfo (DI.SrcID "XML" 0)+                            (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                         (Curry.DebugModule.Prelude.op_EqEq x7 x8)+             DM.funcCallHook "_case_86"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo []+                     [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11]))+               (strict__case_86 x9 x10 x11)))+term_strict_xmlUnquoteSpecial x1+  = DI.Term "xmlUnquoteSpecial" (DI.SrcID "XML" 0) x1+ +strict_unquoteUnicode ::+                      (DM.DM dm) =>+                        Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                          dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_unquoteUnicode x1+  = DM.eval+      (DM.funcDeclHook "unquoteUnicode"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_73"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_73 x2)))+term_strict_unquoteUnicode x1+  = DI.Term "unquoteUnicode" (DI.SrcID "XML" 0) x1+ +strict_readXmlFile ::+                   (DM.DM dm) =>+                     Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                       dm (Curry.DebugModule.Prelude.IO dm XmlExp)+strict_readXmlFile x1+  = DM.eval+      (DM.funcDeclHook "readXmlFile"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "readFile"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (Curry.DebugModule.Prelude.strict_readFile x2)+             x5 <- do x3 <- Prelude.return x1+                      Prelude.return+                        (PC.partCall1+                           (x'xterm_strict_readXmlFile46_35lambda3 [DI.genTerm x3])+                           (x'xstrict_readXmlFile46_35lambda3 x3))+             DM.funcCallHook ">>="+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+               (Curry.DebugModule.Prelude.op_GtGtEq x4 x5)))+term_strict_readXmlFile x1+  = DI.Term "readXmlFile" (DI.SrcID "XML" 0) x1+ +x'xstrict_readXmlFile46_35lambda3 ::+                                  (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 XmlExp)+x'xstrict_readXmlFile46_35lambda3 x1 x2+  = DM.eval+      (DM.funcDeclHook "readXmlFile._#lambda3"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (DM.letHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x3 <- do x4 <- Prelude.return x2+                         DM.funcCallHook "parseXmlString"+                           (DI.DebugInfo (DI.SrcID "XML" 0)+                              (DI.DynamicInfo [] [DI.genTerm x4]))+                           (strict_parseXmlString x4)+                DM.eval+                  (do x7 <- Prelude.return x1+                      x8 <- Prelude.return x3+                      x9 <- do x5 <- Prelude.return x3+                               x6 <- DM.constructorHook+                                       (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                       (Prelude.return Curry.DebugModule.Prelude.Nil)+                               DM.funcCallHook "=="+                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                 (Curry.DebugModule.Prelude.op_EqEq x5 x6)+                      DM.funcCallHook "_case_68"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+                        (strict__case_68 x7 x8 x9)))))+x'xterm_strict_readXmlFile46_35lambda3 x1+  = DI.Term "readXmlFile._#lambda3" (DI.SrcID "XML" 0) x1+ +strict_readUnsafeXmlFile ::+                         (DM.DM dm) =>+                           Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                             dm+                               (Curry.DebugModule.Prelude.IO dm+                                  (Curry.DebugModule.Prelude.Maybe XmlExp))+strict_readUnsafeXmlFile x1+  = DM.eval+      (DM.funcDeclHook "readUnsafeXmlFile"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x8 <- do x5 <- do x2 <- Prelude.return x1+                               DM.funcCallHook "readXmlFile"+                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x2]))+                                 (strict_readXmlFile x2)+                      x6 <- do x3 <- Prelude.return+                                       (PC.partCall1+                                          (Curry.DebugModule.Prelude.term_strict_return [])+                                          Curry.DebugModule.Prelude.strict_return)+                               x4 <- Prelude.return+                                       (PC.partCall1 (Curry.DebugModule.Prelude.term_Just [])+                                          (\ x0 ->+                                             Prelude.return (Curry.DebugModule.Prelude.Just x0)))+                               DM.funcCallHook "."+                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                 (Curry.DebugModule.Prelude.op_Point x3 x4)+                      DM.funcCallHook ">>="+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                        (Curry.DebugModule.Prelude.op_GtGtEq x5 x6)+             x9 <- do x7 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nothing)+                      DM.funcCallHook "return"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x7]))+                        (Curry.DebugModule.Prelude.strict_return x7)+             DM.funcCallHook "catchFail"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+               (Curry.DebugModule.Prelude.strict_catchFail x8 x9)))+term_strict_readUnsafeXmlFile x1+  = DI.Term "readUnsafeXmlFile" (DI.SrcID "XML" 0) x1+ +strict_showXmlFile ::+                   (DM.DM dm) =>+                     Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                       dm (Curry.DebugModule.Prelude.IO dm Curry.DebugModule.Prelude.Unit)+strict_showXmlFile x1+  = DM.eval+      (DM.funcDeclHook "showXmlFile"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "readXmlFile"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (strict_readXmlFile x2)+             x6 <- do x3 <- Prelude.return+                              (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_putStr [])+                                 Curry.DebugModule.Prelude.strict_putStr)+                      x4 <- Prelude.return+                              (PC.partCall1 (term_strict_showXmlDoc []) strict_showXmlDoc)+                      DM.funcCallHook "."+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_Point x3 x4)+             DM.funcCallHook ">>="+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_GtGtEq x5 x6)))+term_strict_showXmlFile x1+  = DI.Term "showXmlFile" (DI.SrcID "XML" 0) x1+ +strict_readFileWithXmlDocs ::+                           (DM.DM dm) =>+                             Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                               dm+                                 (Curry.DebugModule.Prelude.IO dm+                                    (Curry.DebugModule.Prelude.List XmlExp))+strict_readFileWithXmlDocs x1+  = DM.eval+      (DM.funcDeclHook "readFileWithXmlDocs"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- do x2 <- Prelude.return x1+                      DM.funcCallHook "readFile"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2]))+                        (Curry.DebugModule.Prelude.strict_readFile x2)+             x6 <- do x3 <- Prelude.return+                              (PC.partCall1 (Curry.DebugModule.Prelude.term_strict_return [])+                                 Curry.DebugModule.Prelude.strict_return)+                      x4 <- Prelude.return+                              (PC.partCall1 (term_strict_parseXmlString [])+                                 strict_parseXmlString)+                      DM.funcCallHook "."+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (Curry.DebugModule.Prelude.op_Point x3 x4)+             DM.funcCallHook ">>="+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+               (Curry.DebugModule.Prelude.op_GtGtEq x5 x6)))+term_strict_readFileWithXmlDocs x1+  = DI.Term "readFileWithXmlDocs" (DI.SrcID "XML" 0) x1+ +strict_parseXmlString ::+                      (DM.DM dm) =>+                        Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                          dm (Curry.DebugModule.Prelude.List XmlExp)+strict_parseXmlString x1+  = DM.eval+      (DM.funcDeclHook "parseXmlString"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x5 <- do x3 <- do x2 <- Prelude.return x1+                               DM.funcCallHook "scanXmlString"+                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x2]))+                                 (strict_scanXmlString x2)+                      x4 <- DM.constructorHook+                              (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                              (Prelude.return Curry.DebugModule.Prelude.Nothing)+                      DM.funcCallHook "parseXmlTokens"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                        (strict_parseXmlTokens x3 x4)+             DM.funcCallHook "fst"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (Curry.DebugModule.Prelude.strict_fst x5)))+term_strict_parseXmlString x1+  = DI.Term "parseXmlString" (DI.SrcID "XML" 0) x1+ +strict_parseXmlTokens ::+                      (DM.DM dm) =>+                        Curry.DebugModule.Prelude.List XmlExp ->+                          Curry.DebugModule.Prelude.Maybe+                            (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                            ->+                            dm+                              (Curry.DebugModule.Prelude.Tuple2+                                 (Curry.DebugModule.Prelude.List XmlExp)+                                 (Curry.DebugModule.Prelude.List XmlExp))+strict_parseXmlTokens x1 x2+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x2+             x4 <- Prelude.return x1+             DM.funcCallHook "_case_66"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_66 x3 x4)))+term_strict_parseXmlTokens x1+  = DI.Term "parseXmlTokens" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseXmlTokens46_35selFP835xexps ::+                                           (DM.DM dm) =>+                                             Curry.DebugModule.Prelude.Tuple2+                                               (Curry.DebugModule.Prelude.List XmlExp)+                                               (Curry.DebugModule.Prelude.List XmlExp)+                                               -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_parseXmlTokens46_35selFP835xexps x1+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens._#selFP8#xexps"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_58"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_58 x2)))+x'xterm_strict_parseXmlTokens46_35selFP835xexps x1+  = DI.Term "parseXmlTokens._#selFP8#xexps" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseXmlTokens46_35selFP935rem_xtokens ::+                                                 (DM.DM dm) =>+                                                   Curry.DebugModule.Prelude.Tuple2+                                                     (Curry.DebugModule.Prelude.List XmlExp)+                                                     (Curry.DebugModule.Prelude.List XmlExp)+                                                     -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_parseXmlTokens46_35selFP935rem_xtokens x1+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens._#selFP9#rem_xtokens"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_57"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_57 x2)))+x'xterm_strict_parseXmlTokens46_35selFP935rem_xtokens x1+  = DI.Term "parseXmlTokens._#selFP9#rem_xtokens" (DI.SrcID "XML" 0)+      x1+ +x'xstrict_parseXmlTokens46_35selFP1435xexps1 ::+                                             (DM.DM dm) =>+                                               Curry.DebugModule.Prelude.Tuple2+                                                 (Curry.DebugModule.Prelude.List XmlExp)+                                                 (Curry.DebugModule.Prelude.List XmlExp)+                                                 -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_parseXmlTokens46_35selFP1435xexps1 x1+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens._#selFP14#xexps1"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_56"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_56 x2)))+x'xterm_strict_parseXmlTokens46_35selFP1435xexps1 x1+  = DI.Term "parseXmlTokens._#selFP14#xexps1" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseXmlTokens46_35selFP1535xtokens1 ::+                                               (DM.DM dm) =>+                                                 Curry.DebugModule.Prelude.Tuple2+                                                   (Curry.DebugModule.Prelude.List XmlExp)+                                                   (Curry.DebugModule.Prelude.List XmlExp)+                                                   -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_parseXmlTokens46_35selFP1535xtokens1 x1+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens._#selFP15#xtokens1"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_55"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_55 x2)))+x'xterm_strict_parseXmlTokens46_35selFP1535xtokens1 x1+  = DI.Term "parseXmlTokens._#selFP15#xtokens1" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseXmlTokens46_35selFP1235xexps ::+                                            (DM.DM dm) =>+                                              Curry.DebugModule.Prelude.Tuple2+                                                (Curry.DebugModule.Prelude.List XmlExp)+                                                (Curry.DebugModule.Prelude.List XmlExp)+                                                -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_parseXmlTokens46_35selFP1235xexps x1+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens._#selFP12#xexps"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_54"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_54 x2)))+x'xterm_strict_parseXmlTokens46_35selFP1235xexps x1+  = DI.Term "parseXmlTokens._#selFP12#xexps" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseXmlTokens46_35selFP1335rem_xtokens ::+                                                  (DM.DM dm) =>+                                                    Curry.DebugModule.Prelude.Tuple2+                                                      (Curry.DebugModule.Prelude.List XmlExp)+                                                      (Curry.DebugModule.Prelude.List XmlExp)+                                                      -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_parseXmlTokens46_35selFP1335rem_xtokens x1+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens._#selFP13#rem_xtokens"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_53"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_53 x2)))+x'xterm_strict_parseXmlTokens46_35selFP1335rem_xtokens x1+  = DI.Term "parseXmlTokens._#selFP13#rem_xtokens" (DI.SrcID "XML" 0)+      x1+ +x'xstrict_parseXmlTokens46_35selFP1735xexps ::+                                            (DM.DM dm) =>+                                              Curry.DebugModule.Prelude.Tuple2+                                                (Curry.DebugModule.Prelude.List XmlExp)+                                                (Curry.DebugModule.Prelude.List XmlExp)+                                                -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_parseXmlTokens46_35selFP1735xexps x1+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens._#selFP17#xexps"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_52"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_52 x2)))+x'xterm_strict_parseXmlTokens46_35selFP1735xexps x1+  = DI.Term "parseXmlTokens._#selFP17#xexps" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseXmlTokens46_35selFP1835rem_xtokens ::+                                                  (DM.DM dm) =>+                                                    Curry.DebugModule.Prelude.Tuple2+                                                      (Curry.DebugModule.Prelude.List XmlExp)+                                                      (Curry.DebugModule.Prelude.List XmlExp)+                                                      -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_parseXmlTokens46_35selFP1835rem_xtokens x1+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens._#selFP18#rem_xtokens"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_51"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_51 x2)))+x'xterm_strict_parseXmlTokens46_35selFP1835rem_xtokens x1+  = DI.Term "parseXmlTokens._#selFP18#rem_xtokens" (DI.SrcID "XML" 0)+      x1+ +x'xstrict_parseXmlTokens46_35selFP2035xexps ::+                                            (DM.DM dm) =>+                                              Curry.DebugModule.Prelude.Tuple2+                                                (Curry.DebugModule.Prelude.List XmlExp)+                                                (Curry.DebugModule.Prelude.List XmlExp)+                                                -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_parseXmlTokens46_35selFP2035xexps x1+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens._#selFP20#xexps"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_50"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_50 x2)))+x'xterm_strict_parseXmlTokens46_35selFP2035xexps x1+  = DI.Term "parseXmlTokens._#selFP20#xexps" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseXmlTokens46_35selFP2135rem_xtokens ::+                                                  (DM.DM dm) =>+                                                    Curry.DebugModule.Prelude.Tuple2+                                                      (Curry.DebugModule.Prelude.List XmlExp)+                                                      (Curry.DebugModule.Prelude.List XmlExp)+                                                      -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_parseXmlTokens46_35selFP2135rem_xtokens x1+  = DM.eval+      (DM.funcDeclHook "parseXmlTokens._#selFP21#rem_xtokens"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_49"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_49 x2)))+x'xterm_strict_parseXmlTokens46_35selFP2135rem_xtokens x1+  = DI.Term "parseXmlTokens._#selFP21#rem_xtokens" (DI.SrcID "XML" 0)+      x1+ +strict_scanXmlString ::+                     (DM.DM dm) =>+                       Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                         dm (Curry.DebugModule.Prelude.List XmlExp)+strict_scanXmlString x1+  = DM.eval+      (DM.funcDeclHook "scanXmlString"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- do x2 <- DM.funcCallHook "dropBlanks"+                              (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                              strict_dropBlanks+                      x3 <- Prelude.return x1+                      DM.funcCallHook "apply"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                        (Curry.DebugModule.Prelude.strict_apply x2 x3)+             DM.funcCallHook "scanXmlString.scanXml.191"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (x'xstrict_scanXmlString46scanXml46191 x4)))+term_strict_scanXmlString x1+  = DI.Term "scanXmlString" (DI.SrcID "XML" 0) x1+ +x'xstrict_scanXmlString46scanXml46191 ::+                                      (DM.DM dm) =>+                                        Curry.DebugModule.Prelude.List+                                          Curry.DebugModule.Prelude.Char+                                          -> dm (Curry.DebugModule.Prelude.List XmlExp)+x'xstrict_scanXmlString46scanXml46191 x1+  = DM.eval+      (DM.funcDeclHook "scanXmlString.scanXml.191"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_48"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_48 x2)))+x'xterm_strict_scanXmlString46scanXml46191 x1+  = DI.Term "scanXmlString.scanXml.191" (DI.SrcID "XML" 0) x1+ +x'xstrict_scanXmlString46scanXml4619146_35selFP2335initxt ::+                                                          (DM.DM dm) =>+                                                            Curry.DebugModule.Prelude.Tuple2+                                                              (Curry.DebugModule.Prelude.List+                                                                 Curry.DebugModule.Prelude.Char)+                                                              (Curry.DebugModule.Prelude.List+                                                                 Curry.DebugModule.Prelude.Char)+                                                              ->+                                                              dm+                                                                (Curry.DebugModule.Prelude.List+                                                                   Curry.DebugModule.Prelude.Char)+x'xstrict_scanXmlString46scanXml4619146_35selFP2335initxt x1+  = DM.eval+      (DM.funcDeclHook "scanXmlString.scanXml.191._#selFP23#initxt"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_46"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_46 x2)))+x'xterm_strict_scanXmlString46scanXml4619146_35selFP2335initxt x1+  = DI.Term "scanXmlString.scanXml.191._#selFP23#initxt"+      (DI.SrcID "XML" 0)+      x1+ +x'xstrict_scanXmlString46scanXml4619146_35selFP2435remtag ::+                                                          (DM.DM dm) =>+                                                            Curry.DebugModule.Prelude.Tuple2+                                                              (Curry.DebugModule.Prelude.List+                                                                 Curry.DebugModule.Prelude.Char)+                                                              (Curry.DebugModule.Prelude.List+                                                                 Curry.DebugModule.Prelude.Char)+                                                              ->+                                                              dm+                                                                (Curry.DebugModule.Prelude.List+                                                                   Curry.DebugModule.Prelude.Char)+x'xstrict_scanXmlString46scanXml4619146_35selFP2435remtag x1+  = DM.eval+      (DM.funcDeclHook "scanXmlString.scanXml.191._#selFP24#remtag"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_45"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_45 x2)))+x'xterm_strict_scanXmlString46scanXml4619146_35selFP2435remtag x1+  = DI.Term "scanXmlString.scanXml.191._#selFP24#remtag"+      (DI.SrcID "XML" 0)+      x1+ +strict_scanXmlText ::+                   (DM.DM dm) =>+                     Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                       dm+                         (Curry.DebugModule.Prelude.Tuple2+                            (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                            (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_scanXmlText x1+  = DM.eval+      (DM.funcDeclHook "scanXmlText"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_44"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_44 x2)))+term_strict_scanXmlText x1+  = DI.Term "scanXmlText" (DI.SrcID "XML" 0) x1+ +x'xstrict_scanXmlText46_35selFP2635txt ::+                                       (DM.DM dm) =>+                                         Curry.DebugModule.Prelude.Tuple2+                                           (Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char)+                                           (Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char)+                                           ->+                                           dm+                                             (Curry.DebugModule.Prelude.List+                                                Curry.DebugModule.Prelude.Char)+x'xstrict_scanXmlText46_35selFP2635txt x1+  = DM.eval+      (DM.funcDeclHook "scanXmlText._#selFP26#txt"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_39"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_39 x2)))+x'xterm_strict_scanXmlText46_35selFP2635txt x1+  = DI.Term "scanXmlText._#selFP26#txt" (DI.SrcID "XML" 0) x1+ +x'xstrict_scanXmlText46_35selFP2735rem ::+                                       (DM.DM dm) =>+                                         Curry.DebugModule.Prelude.Tuple2+                                           (Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char)+                                           (Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char)+                                           ->+                                           dm+                                             (Curry.DebugModule.Prelude.List+                                                Curry.DebugModule.Prelude.Char)+x'xstrict_scanXmlText46_35selFP2735rem x1+  = DM.eval+      (DM.funcDeclHook "scanXmlText._#selFP27#rem"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_38"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_38 x2)))+x'xterm_strict_scanXmlText46_35selFP2735rem x1+  = DI.Term "scanXmlText._#selFP27#rem" (DI.SrcID "XML" 0) x1+ +x'xstrict_scanXmlText46_35selFP2935txt ::+                                       (DM.DM dm) =>+                                         Curry.DebugModule.Prelude.Tuple2+                                           (Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char)+                                           (Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char)+                                           ->+                                           dm+                                             (Curry.DebugModule.Prelude.List+                                                Curry.DebugModule.Prelude.Char)+x'xstrict_scanXmlText46_35selFP2935txt x1+  = DM.eval+      (DM.funcDeclHook "scanXmlText._#selFP29#txt"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_37"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_37 x2)))+x'xterm_strict_scanXmlText46_35selFP2935txt x1+  = DI.Term "scanXmlText._#selFP29#txt" (DI.SrcID "XML" 0) x1+ +x'xstrict_scanXmlText46_35selFP3035rem ::+                                       (DM.DM dm) =>+                                         Curry.DebugModule.Prelude.Tuple2+                                           (Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char)+                                           (Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char)+                                           ->+                                           dm+                                             (Curry.DebugModule.Prelude.List+                                                Curry.DebugModule.Prelude.Char)+x'xstrict_scanXmlText46_35selFP3035rem x1+  = DM.eval+      (DM.funcDeclHook "scanXmlText._#selFP30#rem"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_36"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_36 x2)))+x'xterm_strict_scanXmlText46_35selFP3035rem x1+  = DI.Term "scanXmlText._#selFP30#rem" (DI.SrcID "XML" 0) x1+ +strict_scanXmlElem ::+                   (DM.DM dm) =>+                     Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                       dm (Curry.DebugModule.Prelude.List XmlExp)+strict_scanXmlElem x1+  = DM.eval+      (DM.funcDeclHook "scanXmlElem"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_35"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_35 x2)))+term_strict_scanXmlElem x1+  = DI.Term "scanXmlElem" (DI.SrcID "XML" 0) x1+ +strict_scanXmlElemName ::+                       (DM.DM dm) =>+                         Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                           Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                             dm (Curry.DebugModule.Prelude.List XmlExp)+strict_scanXmlElemName x1 x2+  = DM.eval+      (DM.funcDeclHook "scanXmlElemName"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_30"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_30 x3 x4)))+term_strict_scanXmlElemName x1+  = DI.Term "scanXmlElemName" (DI.SrcID "XML" 0) x1+ +x'xstrict_scanXmlElemName46_35selFP3235attrs ::+                                             (DM.DM dm) =>+                                               Curry.DebugModule.Prelude.Tuple2+                                                 (Curry.DebugModule.Prelude.List+                                                    (Curry.DebugModule.Prelude.Tuple2+                                                       (Curry.DebugModule.Prelude.List+                                                          Curry.DebugModule.Prelude.Char)+                                                       (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+                                                         (Curry.DebugModule.Prelude.List+                                                            Curry.DebugModule.Prelude.Char)+                                                         (Curry.DebugModule.Prelude.List+                                                            Curry.DebugModule.Prelude.Char)))+x'xstrict_scanXmlElemName46_35selFP3235attrs x1+  = DM.eval+      (DM.funcDeclHook "scanXmlElemName._#selFP32#attrs"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_24"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_24 x2)))+x'xterm_strict_scanXmlElemName46_35selFP3235attrs x1+  = DI.Term "scanXmlElemName._#selFP32#attrs" (DI.SrcID "XML" 0) x1+ +x'xstrict_scanXmlElemName46_35selFP3335rest ::+                                            (DM.DM dm) =>+                                              Curry.DebugModule.Prelude.Tuple2+                                                (Curry.DebugModule.Prelude.List+                                                   (Curry.DebugModule.Prelude.Tuple2+                                                      (Curry.DebugModule.Prelude.List+                                                         Curry.DebugModule.Prelude.Char)+                                                      (Curry.DebugModule.Prelude.List+                                                         Curry.DebugModule.Prelude.Char)))+                                                (Curry.DebugModule.Prelude.List+                                                   Curry.DebugModule.Prelude.Char)+                                                ->+                                                dm+                                                  (Curry.DebugModule.Prelude.List+                                                     Curry.DebugModule.Prelude.Char)+x'xstrict_scanXmlElemName46_35selFP3335rest x1+  = DM.eval+      (DM.funcDeclHook "scanXmlElemName._#selFP33#rest"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_23"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_23 x2)))+x'xterm_strict_scanXmlElemName46_35selFP3335rest x1+  = DI.Term "scanXmlElemName._#selFP33#rest" (DI.SrcID "XML" 0) x1+ +strict_scanXmlComment ::+                      (DM.DM dm) =>+                        Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                          dm (Curry.DebugModule.Prelude.List XmlExp)+strict_scanXmlComment x1+  = DM.eval+      (DM.funcDeclHook "scanXmlComment"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_22"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_22 x2)))+term_strict_scanXmlComment x1+  = DI.Term "scanXmlComment" (DI.SrcID "XML" 0) x1+ +strict_scanXmlCData ::+                    (DM.DM dm) =>+                      Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                        dm (Curry.DebugModule.Prelude.List XmlExp)+strict_scanXmlCData x1+  = DM.eval+      (DM.funcDeclHook "scanXmlCData"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (DM.letHook+            (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+            (do x2 <- do x3 <- Prelude.return x1+                         DM.funcCallHook "dropCData"+                           (DI.DebugInfo (DI.SrcID "XML" 0)+                              (DI.DynamicInfo [] [DI.genTerm x3]))+                           (strict_dropCData x3)+                DM.eval+                  (do x7 <- Prelude.return x2+                      x8 <- do x5 <- do x4 <- Prelude.return x2+                                        DM.funcCallHook "head"+                                          (DI.DebugInfo (DI.SrcID "XML" 0)+                                             (DI.DynamicInfo [] [DI.genTerm x4]))+                                          (Curry.DebugModule.Prelude.strict_head x4)+                               x6 <- DM.litHook+                                       (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                       (Prelude.return (Curry.DebugModule.Prelude.Char '>'))+                               DM.funcCallHook "=="+                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                    (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                 (Curry.DebugModule.Prelude.op_EqEq x5 x6)+                      DM.funcCallHook "_case_20"+                        (DI.DebugInfo (DI.SrcID "XML" 0)+                           (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                        (strict__case_20 x7 x8)))))+term_strict_scanXmlCData x1+  = DI.Term "scanXmlCData" (DI.SrcID "XML" 0) x1+ +strict_dropCData ::+                 (DM.DM dm) =>+                   Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                     dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_dropCData x1+  = DM.eval+      (DM.funcDeclHook "dropCData"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_19"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_19 x2)))+term_strict_dropCData x1+  = DI.Term "dropCData" (DI.SrcID "XML" 0) x1+ +strict_scanXmlProcInstr ::+                        (DM.DM dm) =>+                          Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                            dm (Curry.DebugModule.Prelude.List XmlExp)+strict_scanXmlProcInstr x1+  = DM.eval+      (DM.funcDeclHook "scanXmlProcInstr"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_15"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_15 x2)))+term_strict_scanXmlProcInstr x1+  = DI.Term "scanXmlProcInstr" (DI.SrcID "XML" 0) x1+ +strict_parseAttrs ::+                  (DM.DM dm) =>+                    Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char ->+                      dm+                        (Curry.DebugModule.Prelude.Tuple2+                           (Curry.DebugModule.Prelude.List+                              (Curry.DebugModule.Prelude.Tuple2+                                 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                                 (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)))+                           (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_parseAttrs x1+  = DM.eval+      (DM.funcDeclHook "parseAttrs"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_13"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_13 x2)))+term_strict_parseAttrs x1+  = DI.Term "parseAttrs" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseAttrs46_35selFP4135name ::+                                       (DM.DM dm) =>+                                         Curry.DebugModule.Prelude.Tuple2+                                           (Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char)+                                           (Curry.DebugModule.Prelude.List+                                              Curry.DebugModule.Prelude.Char)+                                           ->+                                           dm+                                             (Curry.DebugModule.Prelude.List+                                                Curry.DebugModule.Prelude.Char)+x'xstrict_parseAttrs46_35selFP4135name x1+  = DM.eval+      (DM.funcDeclHook "parseAttrs._#selFP41#name"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_10"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_10 x2)))+x'xterm_strict_parseAttrs46_35selFP4135name x1+  = DI.Term "parseAttrs._#selFP41#name" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseAttrs46_35selFP4235rest1 ::+                                        (DM.DM dm) =>+                                          Curry.DebugModule.Prelude.Tuple2+                                            (Curry.DebugModule.Prelude.List+                                               Curry.DebugModule.Prelude.Char)+                                            (Curry.DebugModule.Prelude.List+                                               Curry.DebugModule.Prelude.Char)+                                            ->+                                            dm+                                              (Curry.DebugModule.Prelude.List+                                                 Curry.DebugModule.Prelude.Char)+x'xstrict_parseAttrs46_35selFP4235rest1 x1+  = DM.eval+      (DM.funcDeclHook "parseAttrs._#selFP42#rest1"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_9"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_9 x2)))+x'xterm_strict_parseAttrs46_35selFP4235rest1 x1+  = DI.Term "parseAttrs._#selFP42#rest1" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseAttrs46_35selFP3935value ::+                                        (DM.DM dm) =>+                                          Curry.DebugModule.Prelude.Tuple2+                                            (Curry.DebugModule.Prelude.List+                                               Curry.DebugModule.Prelude.Char)+                                            (Curry.DebugModule.Prelude.List+                                               Curry.DebugModule.Prelude.Char)+                                            ->+                                            dm+                                              (Curry.DebugModule.Prelude.List+                                                 Curry.DebugModule.Prelude.Char)+x'xstrict_parseAttrs46_35selFP3935value x1+  = DM.eval+      (DM.funcDeclHook "parseAttrs._#selFP39#value"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_8"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_8 x2)))+x'xterm_strict_parseAttrs46_35selFP3935value x1+  = DI.Term "parseAttrs._#selFP39#value" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseAttrs46_35selFP4035rest2 ::+                                        (DM.DM dm) =>+                                          Curry.DebugModule.Prelude.Tuple2+                                            (Curry.DebugModule.Prelude.List+                                               Curry.DebugModule.Prelude.Char)+                                            (Curry.DebugModule.Prelude.List+                                               Curry.DebugModule.Prelude.Char)+                                            ->+                                            dm+                                              (Curry.DebugModule.Prelude.List+                                                 Curry.DebugModule.Prelude.Char)+x'xstrict_parseAttrs46_35selFP4035rest2 x1+  = DM.eval+      (DM.funcDeclHook "parseAttrs._#selFP40#rest2"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_7"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_7 x2)))+x'xterm_strict_parseAttrs46_35selFP4035rest2 x1+  = DI.Term "parseAttrs._#selFP40#rest2" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseAttrs46_35selFP3735rem_attrs ::+                                            (DM.DM dm) =>+                                              Curry.DebugModule.Prelude.Tuple2+                                                (Curry.DebugModule.Prelude.List+                                                   (Curry.DebugModule.Prelude.Tuple2+                                                      (Curry.DebugModule.Prelude.List+                                                         Curry.DebugModule.Prelude.Char)+                                                      (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+                                                        (Curry.DebugModule.Prelude.List+                                                           Curry.DebugModule.Prelude.Char)+                                                        (Curry.DebugModule.Prelude.List+                                                           Curry.DebugModule.Prelude.Char)))+x'xstrict_parseAttrs46_35selFP3735rem_attrs x1+  = DM.eval+      (DM.funcDeclHook "parseAttrs._#selFP37#rem_attrs"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_6"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_6 x2)))+x'xterm_strict_parseAttrs46_35selFP3735rem_attrs x1+  = DI.Term "parseAttrs._#selFP37#rem_attrs" (DI.SrcID "XML" 0) x1+ +x'xstrict_parseAttrs46_35selFP3835rem_inp ::+                                          (DM.DM dm) =>+                                            Curry.DebugModule.Prelude.Tuple2+                                              (Curry.DebugModule.Prelude.List+                                                 (Curry.DebugModule.Prelude.Tuple2+                                                    (Curry.DebugModule.Prelude.List+                                                       Curry.DebugModule.Prelude.Char)+                                                    (Curry.DebugModule.Prelude.List+                                                       Curry.DebugModule.Prelude.Char)))+                                              (Curry.DebugModule.Prelude.List+                                                 Curry.DebugModule.Prelude.Char)+                                              ->+                                              dm+                                                (Curry.DebugModule.Prelude.List+                                                   Curry.DebugModule.Prelude.Char)+x'xstrict_parseAttrs46_35selFP3835rem_inp x1+  = DM.eval+      (DM.funcDeclHook "parseAttrs._#selFP38#rem_inp"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_5"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_5 x2)))+x'xterm_strict_parseAttrs46_35selFP3835rem_inp x1+  = DI.Term "parseAttrs._#selFP38#rem_inp" (DI.SrcID "XML" 0) x1+ +strict_dropBlanks ::+                  (DM.DM dm) =>+                    dm+                      (DM.Func dm+                         (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+                         (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char))+strict_dropBlanks+  = DM.eval+      (DM.funcDeclHook "dropBlanks"+         (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+         (do x0 <- Prelude.return+                     (PC.partCall1 (Curry.DebugModule.Char.term_strict_isSpace [])+                        Curry.DebugModule.Char.strict_isSpace)+             Prelude.return+               (PC.partCall1+                  (Curry.DebugModule.Prelude.term_strict_dropWhile [DI.genTerm x0])+                  (Curry.DebugModule.Prelude.strict_dropWhile x0))))+ +strict_splitAtChar ::+                   (DM.DM dm, DI.GenTerm a) =>+                     a ->+                       Curry.DebugModule.Prelude.List a ->+                         dm+                           (Curry.DebugModule.Prelude.Tuple2+                              (Curry.DebugModule.Prelude.List a)+                              (Curry.DebugModule.Prelude.List a))+strict_splitAtChar x1 x2+  = DM.eval+      (DM.funcDeclHook "splitAtChar"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x3 <- Prelude.return x1+             x4 <- Prelude.return x2+             DM.funcCallHook "_case_4"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+               (strict__case_4 x3 x4)))+term_strict_splitAtChar x1+  = DI.Term "splitAtChar" (DI.SrcID "XML" 0) x1+ +x'xstrict_splitAtChar46_35selFP4435first ::+                                         (DM.DM dm, DI.GenTerm x231) =>+                                           Curry.DebugModule.Prelude.Tuple2+                                             (Curry.DebugModule.Prelude.List x231)+                                             (Curry.DebugModule.Prelude.List x231)+                                             -> dm (Curry.DebugModule.Prelude.List x231)+x'xstrict_splitAtChar46_35selFP4435first x1+  = DM.eval+      (DM.funcDeclHook "splitAtChar._#selFP44#first"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_2"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_2 x2)))+x'xterm_strict_splitAtChar46_35selFP4435first x1+  = DI.Term "splitAtChar._#selFP44#first" (DI.SrcID "XML" 0) x1+ +x'xstrict_splitAtChar46_35selFP4535rest ::+                                        (DM.DM dm, DI.GenTerm x231) =>+                                          Curry.DebugModule.Prelude.Tuple2+                                            (Curry.DebugModule.Prelude.List x231)+                                            (Curry.DebugModule.Prelude.List x231)+                                            -> dm (Curry.DebugModule.Prelude.List x231)+x'xstrict_splitAtChar46_35selFP4535rest x1+  = DM.eval+      (DM.funcDeclHook "splitAtChar._#selFP45#rest"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_1"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_1 x2)))+x'xterm_strict_splitAtChar46_35selFP4535rest x1+  = DI.Term "splitAtChar._#selFP45#rest" (DI.SrcID "XML" 0) x1+ +strict_textOfXml ::+                 (DM.DM dm) =>+                   Curry.DebugModule.Prelude.List XmlExp ->+                     dm (Curry.DebugModule.Prelude.List Curry.DebugModule.Prelude.Char)+strict_textOfXml x1+  = DM.eval+      (DM.funcDeclHook "textOfXml"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x12 <- do x10 <- do x2 <- DM.litHook+                                         (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                         (Prelude.return (Curry.DebugModule.Prelude.Char ' '))+                                 x3 <- DM.constructorHook+                                         (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                         (Prelude.return Curry.DebugModule.Prelude.Nil)+                                 DM.constructorHook+                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+                                   (Prelude.return (Curry.DebugModule.Prelude.Cons x2 x3))+                       x11 <- do x8 <- do x4 <- Prelude.return+                                                  (PC.partCall1+                                                     (Curry.DebugModule.Prelude.term_strict_not [])+                                                     Curry.DebugModule.Prelude.strict_not)+                                          x5 <- Prelude.return+                                                  (PC.partCall1+                                                     (Curry.DebugModule.Prelude.term_strict_null [])+                                                     Curry.DebugModule.Prelude.strict_null)+                                          DM.funcCallHook "."+                                            (DI.DebugInfo (DI.SrcID "XML" 0)+                                               (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                            (Curry.DebugModule.Prelude.op_Point x4 x5)+                                 x9 <- do x6 <- Prelude.return+                                                  (PC.partCall1+                                                     (x'xterm_strict_textOfXml46textOfXmlItem46255+                                                        [])+                                                     x'xstrict_textOfXml46textOfXmlItem46255)+                                          x7 <- Prelude.return x1+                                          DM.funcCallHook "map"+                                            (DI.DebugInfo (DI.SrcID "XML" 0)+                                               (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                            (Curry.DebugModule.Prelude.strict_map x6 x7)+                                 DM.funcCallHook "filter"+                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                      (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                   (Curry.DebugModule.Prelude.strict_filter x8 x9)+                       DM.funcCallHook "intersperse"+                         (DI.DebugInfo (DI.SrcID "XML" 0)+                            (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                         (Curry.DebugModule.List.strict_intersperse x10 x11)+             DM.funcCallHook "concat"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (Curry.DebugModule.Prelude.strict_concat x12)))+term_strict_textOfXml x1+  = DI.Term "textOfXml" (DI.SrcID "XML" 0) x1+ +x'xstrict_textOfXml46textOfXmlItem46255 ::+                                        (DM.DM dm) =>+                                          XmlExp ->+                                            dm+                                              (Curry.DebugModule.Prelude.List+                                                 Curry.DebugModule.Prelude.Char)+x'xstrict_textOfXml46textOfXmlItem46255 x1+  = DM.eval+      (DM.funcDeclHook "textOfXml.textOfXmlItem.255"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.funcCallHook "_case_0"+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (strict__case_0 x2)))+x'xterm_strict_textOfXml46textOfXmlItem46255 x1+  = DI.Term "textOfXml.textOfXmlItem.255" (DI.SrcID "XML" 0) x1+strict__case_0 x1+  = DM.eval+      (DM.funcDeclHook "_case_0"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x7 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    XText x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    XElem x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x5+                                  DM.funcCallHook "textOfXml"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (strict_textOfXml x6)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           strict__case_0+                           x7)))+term_strict__case_0 x1 = DI.Term "_case_0" (DI.SrcID "XML" 0) x1+strict__case_1 x1+  = DM.eval+      (DM.funcDeclHook "_case_1"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_1+                           x4)))+term_strict__case_1 x1 = DI.Term "_case_1" (DI.SrcID "XML" 0) x1+strict__case_2 x1+  = DM.eval+      (DM.funcDeclHook "_case_2"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_2+                           x4)))+term_strict__case_2 x1 = DI.Term "_case_2" (DI.SrcID "XML" 0) x1+strict__case_4 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_4"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x6 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x5 x6))))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- Prelude.return x1+                                  x10 <- Prelude.return x3+                                  x11 <- Prelude.return x4+                                  x12 <- do x7 <- Prelude.return x3+                                            x8 <- Prelude.return x1+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (Curry.DebugModule.Prelude.op_EqEq x7 x8)+                                  DM.funcCallHook "_case_3"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x9, DI.genTerm x10, DI.genTerm x11,+                                           DI.genTerm x12]))+                                    (strict__case_3 x9 x10 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_4 x1)+                           x13)))+term_strict__case_4 x1 = DI.Term "_case_4" (DI.SrcID "XML" 0) x1+strict__case_3 x1 x3 x4 x8+  = DM.eval+      (DM.funcDeclHook "_case_3"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x8]))+         (do x19 <- Prelude.return x8+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x10 <- Prelude.return x4+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x9 x10))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x5 <- do x11 <- Prelude.return x1+                                              x12 <- Prelude.return x4+                                              DM.funcCallHook "splitAtChar"+                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x11, DI.genTerm x12]))+                                                (strict_splitAtChar x11 x12)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x6 <- do x13 <- Prelude.return x5+                                                       DM.funcCallHook "splitAtChar._#selFP44#first"+                                                         (DI.DebugInfo (DI.SrcID "XML" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x13]))+                                                         (x'xstrict_splitAtChar46_35selFP4435first+                                                            x13)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x7 <- do x14 <- Prelude.return x5+                                                                DM.funcCallHook+                                                                  "splitAtChar._#selFP45#rest"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x14]))+                                                                  (x'xstrict_splitAtChar46_35selFP4535rest+                                                                     x14)+                                                       DM.eval+                                                         (do x17 <- do x15 <- Prelude.return x3+                                                                       x16 <- Prelude.return x6+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x15,+                                                                                DI.genTerm x16]))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Cons+                                                                               x15+                                                                               x16))+                                                             x18 <- Prelude.return x7+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x17,+                                                                      DI.genTerm x18]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Tuple2+                                                                     x17+                                                                     x18))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           (strict__case_3 x1 x3 x4)+                           x19)))+term_strict__case_3 x1 = DI.Term "_case_3" (DI.SrcID "XML" 0) x1+strict__case_5 x1+  = DM.eval+      (DM.funcDeclHook "_case_5"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_5+                           x4)))+term_strict__case_5 x1 = DI.Term "_case_5" (DI.SrcID "XML" 0) x1+strict__case_6 x1+  = DM.eval+      (DM.funcDeclHook "_case_6"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_6+                           x4)))+term_strict__case_6 x1 = DI.Term "_case_6" (DI.SrcID "XML" 0) x1+strict__case_7 x1+  = DM.eval+      (DM.funcDeclHook "_case_7"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_7+                           x4)))+term_strict__case_7 x1 = DI.Term "_case_7" (DI.SrcID "XML" 0) x1+strict__case_8 x1+  = DM.eval+      (DM.funcDeclHook "_case_8"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_8+                           x4)))+term_strict__case_8 x1 = DI.Term "_case_8" (DI.SrcID "XML" 0) x1+strict__case_9 x1+  = DM.eval+      (DM.funcDeclHook "_case_9"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_9+                           x4)))+term_strict__case_9 x1 = DI.Term "_case_9" (DI.SrcID "XML" 0) x1+strict__case_10 x1+  = DM.eval+      (DM.funcDeclHook "_case_10"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_10+                           x4)))+term_strict__case_10 x1 = DI.Term "_case_10" (DI.SrcID "XML" 0) x1+strict__case_13 x1+  = DM.eval+      (DM.funcDeclHook "_case_13"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x10 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x10]))+               (case x10 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x4 x5))))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x2+                                  x8 <- Prelude.return x3+                                  x9 <- do x6 <- Prelude.return x2+                                           DM.funcCallHook "isAlpha"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x6]))+                                             (Curry.DebugModule.Char.strict_isAlpha x6)+                                  DM.funcCallHook "_case_12"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+                                    (strict__case_12 x7 x8 x9)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x10])))+                           strict__case_13+                           x10)))+term_strict__case_13 x1 = DI.Term "_case_13" (DI.SrcID "XML" 0) x1+strict__case_12 x2 x3 x13+  = DM.eval+      (DM.funcDeclHook "_case_12"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x13]))+         (do x40 <- Prelude.return x13+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x40]))+               (case x40 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x4 <- do x16 <- DM.litHook+                                                       (DI.DebugInfo (DI.SrcID "XML" 0)+                                                          (DI.DynamicInfo [] []))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Char '='))+                                              x17 <- do x14 <- Prelude.return x2+                                                        x15 <- Prelude.return x3+                                                        DM.constructorHook+                                                          (DI.DebugInfo (DI.SrcID "XML" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x14, DI.genTerm x15]))+                                                          (Prelude.return+                                                             (Curry.DebugModule.Prelude.Cons x14+                                                                x15))+                                              DM.funcCallHook "splitAtChar"+                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x16, DI.genTerm x17]))+                                                (strict_splitAtChar x16 x17)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x5 <- do x18 <- Prelude.return x4+                                                       DM.funcCallHook "parseAttrs._#selFP41#name"+                                                         (DI.DebugInfo (DI.SrcID "XML" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x18]))+                                                         (x'xstrict_parseAttrs46_35selFP4135name+                                                            x18)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x6 <- do x19 <- Prelude.return x4+                                                                DM.funcCallHook+                                                                  "parseAttrs._#selFP42#rest1"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x19]))+                                                                  (x'xstrict_parseAttrs46_35selFP4235rest1+                                                                     x19)+                                                       DM.eval+                                                         (DM.letHook+                                                            (DI.DebugInfo+                                                               (DI.SrcID "DummyModule" 42)+                                                               (DI.DynamicInfo [] []))+                                                            (do x7 <- do x21 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        '"'))+                                                                         x22 <- do x20 <- Prelude.return+                                                                                            x6+                                                                                   DM.funcCallHook+                                                                                     "tail"+                                                                                     (DI.DebugInfo+                                                                                        (DI.SrcID+                                                                                           "XML"+                                                                                           0)+                                                                                        (DI.DynamicInfo+                                                                                           []+                                                                                           [DI.genTerm+                                                                                              x20]))+                                                                                     (Curry.DebugModule.Prelude.strict_tail+                                                                                        x20)+                                                                         DM.funcCallHook+                                                                           "splitAtChar"+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "XML" 0)+                                                                              (DI.DynamicInfo []+                                                                                 [DI.genTerm x21,+                                                                                  DI.genTerm x22]))+                                                                           (strict_splitAtChar x21+                                                                              x22)+                                                                DM.eval+                                                                  (DM.letHook+                                                                     (DI.DebugInfo+                                                                        (DI.SrcID "DummyModule" 42)+                                                                        (DI.DynamicInfo [] []))+                                                                     (do x8 <- do x23 <- Prelude.return+                                                                                           x7+                                                                                  DM.funcCallHook+                                                                                    "parseAttrs._#selFP39#value"+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "XML"+                                                                                          0)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          [DI.genTerm+                                                                                             x23]))+                                                                                    (x'xstrict_parseAttrs46_35selFP3935value+                                                                                       x23)+                                                                         DM.eval+                                                                           (DM.letHook+                                                                              (DI.DebugInfo+                                                                                 (DI.SrcID+                                                                                    "DummyModule"+                                                                                    42)+                                                                                 (DI.DynamicInfo []+                                                                                    []))+                                                                              (do x9 <- do x24 <- Prelude.return+                                                                                                    x7+                                                                                           DM.funcCallHook+                                                                                             "parseAttrs._#selFP40#rest2"+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   [DI.genTerm+                                                                                                      x24]))+                                                                                             (x'xstrict_parseAttrs46_35selFP4035rest2+                                                                                                x24)+                                                                                  DM.eval+                                                                                    (DM.letHook+                                                                                       (DI.DebugInfo+                                                                                          (DI.SrcID+                                                                                             "DummyModule"+                                                                                             42)+                                                                                          (DI.DynamicInfo+                                                                                             []+                                                                                             []))+                                                                                       (do x10 <- do x27 <- do x25 <- DM.funcCallHook+                                                                                                                        "dropBlanks"+                                                                                                                        (DI.DebugInfo+                                                                                                                           (DI.SrcID+                                                                                                                              "XML"+                                                                                                                              0)+                                                                                                                           (DI.DynamicInfo+                                                                                                                              []+                                                                                                                              []))+                                                                                                                        strict_dropBlanks+                                                                                                               x26 <- Prelude.return+                                                                                                                        x9+                                                                                                               DM.funcCallHook+                                                                                                                 "apply"+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "XML"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       [DI.genTerm+                                                                                                                          x25,+                                                                                                                        DI.genTerm+                                                                                                                          x26]))+                                                                                                                 (Curry.DebugModule.Prelude.strict_apply+                                                                                                                    x25+                                                                                                                    x26)+                                                                                                     DM.funcCallHook+                                                                                                       "parseAttrs"+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "XML"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             [DI.genTerm+                                                                                                                x27]))+                                                                                                       (strict_parseAttrs+                                                                                                          x27)+                                                                                           DM.eval+                                                                                             (DM.letHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "DummyModule"+                                                                                                      42)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      []))+                                                                                                (do x11 <- do x28 <- Prelude.return+                                                                                                                       x10+                                                                                                              DM.funcCallHook+                                                                                                                "parseAttrs._#selFP37#rem_attrs"+                                                                                                                (DI.DebugInfo+                                                                                                                   (DI.SrcID+                                                                                                                      "XML"+                                                                                                                      0)+                                                                                                                   (DI.DynamicInfo+                                                                                                                      []+                                                                                                                      [DI.genTerm+                                                                                                                         x28]))+                                                                                                                (x'xstrict_parseAttrs46_35selFP3735rem_attrs+                                                                                                                   x28)+                                                                                                    DM.eval+                                                                                                      (DM.letHook+                                                                                                         (DI.DebugInfo+                                                                                                            (DI.SrcID+                                                                                                               "DummyModule"+                                                                                                               42)+                                                                                                            (DI.DynamicInfo+                                                                                                               []+                                                                                                               []))+                                                                                                         (do x12 <- do x29 <- Prelude.return+                                                                                                                                x10+                                                                                                                       DM.funcCallHook+                                                                                                                         "parseAttrs._#selFP38#rem_inp"+                                                                                                                         (DI.DebugInfo+                                                                                                                            (DI.SrcID+                                                                                                                               "XML"+                                                                                                                               0)+                                                                                                                            (DI.DynamicInfo+                                                                                                                               []+                                                                                                                               [DI.genTerm+                                                                                                                                  x29]))+                                                                                                                         (x'xstrict_parseAttrs46_35selFP3835rem_inp+                                                                                                                            x29)+                                                                                                             DM.eval+                                                                                                               (do x35 <- do x33 <- do x31 <- Prelude.return+                                                                                                                                                x5+                                                                                                                                       x32 <- do x30 <- Prelude.return+                                                                                                                                                          x8+                                                                                                                                                 DM.funcCallHook+                                                                                                                                                   "xmlUnquoteSpecials"+                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                      (DI.SrcID+                                                                                                                                                         "XML"+                                                                                                                                                         0)+                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                         []+                                                                                                                                                         [DI.genTerm+                                                                                                                                                            x30]))+                                                                                                                                                   (strict_xmlUnquoteSpecials+                                                                                                                                                      x30)+                                                                                                                                       DM.constructorHook+                                                                                                                                         (DI.DebugInfo+                                                                                                                                            (DI.SrcID+                                                                                                                                               "XML"+                                                                                                                                               0)+                                                                                                                                            (DI.DynamicInfo+                                                                                                                                               []+                                                                                                                                               [DI.genTerm+                                                                                                                                                  x31,+                                                                                                                                                DI.genTerm+                                                                                                                                                  x32]))+                                                                                                                                         (Prelude.return+                                                                                                                                            (Curry.DebugModule.Prelude.Tuple2+                                                                                                                                               x31+                                                                                                                                               x32))+                                                                                                                             x34 <- Prelude.return+                                                                                                                                      x11+                                                                                                                             DM.constructorHook+                                                                                                                               (DI.DebugInfo+                                                                                                                                  (DI.SrcID+                                                                                                                                     "XML"+                                                                                                                                     0)+                                                                                                                                  (DI.DynamicInfo+                                                                                                                                     []+                                                                                                                                     [DI.genTerm+                                                                                                                                        x33,+                                                                                                                                      DI.genTerm+                                                                                                                                        x34]))+                                                                                                                               (Prelude.return+                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                     x33+                                                                                                                                     x34))+                                                                                                                   x36 <- Prelude.return+                                                                                                                            x12+                                                                                                                   DM.constructorHook+                                                                                                                     (DI.DebugInfo+                                                                                                                        (DI.SrcID+                                                                                                                           "XML"+                                                                                                                           0)+                                                                                                                        (DI.DynamicInfo+                                                                                                                           []+                                                                                                                           [DI.genTerm+                                                                                                                              x35,+                                                                                                                            DI.genTerm+                                                                                                                              x36]))+                                                                                                                     (Prelude.return+                                                                                                                        (Curry.DebugModule.Prelude.Tuple2+                                                                                                                           x35+                                                                                                                           x36))))))))))))))))))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x37 <- Prelude.return x2+                                  x38 <- Prelude.return x3+                                  x39 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_11"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x37, DI.genTerm x38, DI.genTerm x39]))+                                    (strict__case_11 x37 x38 x39)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x40])))+                           (strict__case_12 x2 x3)+                           x40)))+term_strict__case_12 x1 = DI.Term "_case_12" (DI.SrcID "XML" 0) x1+strict__case_11 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_11"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x9 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x8 <- do x5 <- Prelude.return x2+                                           x6 <- Prelude.return x3+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x7 x8))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_11 x2 x3)+                           x9)))+term_strict__case_11 x1 = DI.Term "_case_11" (DI.SrcID "XML" 0) x1+strict__case_15 x1+  = DM.eval+      (DM.funcDeclHook "_case_15"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x14 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- Prelude.return x2+                                  x12 <- Prelude.return x3+                                  x13 <- do x9 <- do x4 <- Prelude.return x2+                                                     x5 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   '?'))+                                                     DM.funcCallHook "=="+                                                       (DI.DebugInfo (DI.SrcID "XML" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x4, DI.genTerm x5]))+                                                       (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                            x10 <- do x7 <- do x6 <- Prelude.return x3+                                                               DM.funcCallHook "head"+                                                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x6]))+                                                                 (Curry.DebugModule.Prelude.strict_head+                                                                    x6)+                                                      x8 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    '>'))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x7, DI.genTerm x8]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x7 x8)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x9 x10)+                                  DM.funcCallHook "_case_14"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x11, DI.genTerm x12, DI.genTerm x13]))+                                    (strict__case_14 x11 x12 x13)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           strict__case_15+                           x14)))+term_strict__case_15 x1 = DI.Term "_case_15" (DI.SrcID "XML" 0) x1+strict__case_14 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_14"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x8 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x5 <- Prelude.return x3+                                           DM.funcCallHook "tail"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.strict_tail x5)+                                  DM.funcCallHook "scanXmlString"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (strict_scanXmlString x6)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  DM.funcCallHook "scanXmlProcInstr"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7]))+                                    (strict_scanXmlProcInstr x7)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_14 x2 x3)+                           x8)))+term_strict__case_14 x1 = DI.Term "_case_14" (DI.SrcID "XML" 0) x1+strict__case_19 x1+  = DM.eval+      (DM.funcDeclHook "_case_19"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- do x4 <- Prelude.return x2+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char '['))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_18"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_18 x6 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_19+                           x9)))+term_strict__case_19 x1 = DI.Term "_case_19" (DI.SrcID "XML" 0) x1+strict__case_18 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_18"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x15 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- do x7 <- do x5 <- Prelude.return+                                                            (PC.partCall2+                                                               (Curry.DebugModule.Prelude.term_op_SlashEq+                                                                  [])+                                                               Curry.DebugModule.Prelude.op_SlashEq)+                                                    x6 <- DM.litHook+                                                            (DI.DebugInfo (DI.SrcID "XML" 0)+                                                               (DI.DynamicInfo [] []))+                                                            (Prelude.return+                                                               (Curry.DebugModule.Prelude.Char ']'))+                                                    Prelude.return+                                                      (PC.partCall1+                                                         (Curry.DebugModule.Prelude.term_strict_flip+                                                            [DI.genTerm x5, DI.genTerm x6])+                                                         (Curry.DebugModule.Prelude.strict_flip x5+                                                            x6))+                                           x8 <- Prelude.return x3+                                           DM.funcCallHook "dropWhile"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                             (Curry.DebugModule.Prelude.strict_dropWhile x7 x8)+                                  DM.funcCallHook "tail"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9]))+                                    (Curry.DebugModule.Prelude.strict_tail x9)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- Prelude.return x2+                                  x13 <- Prelude.return x3+                                  x14 <- do x10 <- Prelude.return x2+                                            x11 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '>'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x10, DI.genTerm x11]))+                                              (Curry.DebugModule.Prelude.op_EqEq x10 x11)+                                  DM.funcCallHook "_case_17"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x12, DI.genTerm x13, DI.genTerm x14]))+                                    (strict__case_17 x12 x13 x14)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_18 x2 x3)+                           x15)))+term_strict__case_18 x1 = DI.Term "_case_18" (DI.SrcID "XML" 0) x1+strict__case_17 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_17"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x9 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x2+                                  x6 <- Prelude.return x3+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- Prelude.return x3+                                  x8 <- DM.funcCallHook "otherwise"+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_16"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_16 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_17 x2 x3)+                           x9)))+term_strict__case_17 x1 = DI.Term "_case_17" (DI.SrcID "XML" 0) x1+strict__case_16 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_16"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+         (do x6 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x3+                                  DM.funcCallHook "dropCData"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (strict_dropCData x5)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           (strict__case_16 x3)+                           x6)))+term_strict__case_16 x1 = DI.Term "_case_16" (DI.SrcID "XML" 0) x1+strict__case_20 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_20"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3]))+         (do x7 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- do x4 <- Prelude.return x2+                                           DM.funcCallHook "tail"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.strict_tail x4)+                                  DM.funcCallHook "scanXmlString"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (strict_scanXmlString x5)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  DM.funcCallHook "scanXmlCData"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (strict_scanXmlCData x6)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_20 x2)+                           x7)))+term_strict__case_20 x1 = DI.Term "_case_20" (DI.SrcID "XML" 0) x1+strict__case_22 x1+  = DM.eval+      (DM.funcDeclHook "_case_22"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x19 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- Prelude.return x2+                                  x17 <- Prelude.return x3+                                  x18 <- do x14 <- do x4 <- Prelude.return x2+                                                      x5 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    '-'))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x4, DI.genTerm x5]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                            x15 <- do x12 <- do x6 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "XML" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Pos+                                                                              (Curry.DebugModule.Prelude.O+                                                                                 Curry.DebugModule.Prelude.IHi)))+                                                                x7 <- Prelude.return x3+                                                                DM.funcCallHook "take"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x6,+                                                                         DI.genTerm x7]))+                                                                  (Curry.DebugModule.Prelude.strict_take+                                                                     x6+                                                                     x7)+                                                      x13 <- do x10 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               '-'))+                                                                x11 <- do x8 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        '>'))+                                                                          x9 <- DM.constructorHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     Curry.DebugModule.Prelude.Nil)+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x8,+                                                                                   DI.genTerm x9]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x8+                                                                                  x9))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x10,+                                                                         DI.genTerm x11]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x10+                                                                        x11))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x12, DI.genTerm x13]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x12 x13)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x14, DI.genTerm x15]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x14 x15)+                                  DM.funcCallHook "_case_21"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x16, DI.genTerm x17, DI.genTerm x18]))+                                    (strict__case_21 x16 x17 x18)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           strict__case_22+                           x19)))+term_strict__case_22 x1 = DI.Term "_case_22" (DI.SrcID "XML" 0) x1+strict__case_21 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_21"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x9 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            Curry.DebugModule.Prelude.IHi)))+                                           x6 <- Prelude.return x3+                                           DM.funcCallHook "drop"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Curry.DebugModule.Prelude.strict_drop x5 x6)+                                  DM.funcCallHook "scanXmlString"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7]))+                                    (strict_scanXmlString x7)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  DM.funcCallHook "scanXmlComment"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (strict_scanXmlComment x8)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_21 x2 x3)+                           x9)))+term_strict__case_21 x1 = DI.Term "_case_21" (DI.SrcID "XML" 0) x1+strict__case_23 x1+  = DM.eval+      (DM.funcDeclHook "_case_23"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_23+                           x4)))+term_strict__case_23 x1 = DI.Term "_case_23" (DI.SrcID "XML" 0) x1+strict__case_24 x1+  = DM.eval+      (DM.funcDeclHook "_case_24"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_24+                           x4)))+term_strict__case_24 x1 = DI.Term "_case_24" (DI.SrcID "XML" 0) x1+strict__case_30 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_30"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x18 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x7 <- do x5 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   '<'))+                                                     x6 <- Prelude.return x1+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "XML" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x5, DI.genTerm x6]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x5 x6))+                                            x8 <- DM.constructorHook+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            x9 <- DM.constructorHook+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x7, DI.genTerm x8, DI.genTerm x9]))+                                              (Prelude.return (XElem x7 x8 x9))+                                  x11 <- DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x10 x11))))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x1+                                  x15 <- Prelude.return x3+                                  x16 <- Prelude.return x4+                                  x17 <- do x12 <- Prelude.return x3+                                            x13 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '>'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x12, DI.genTerm x13]))+                                              (Curry.DebugModule.Prelude.op_EqEq x12 x13)+                                  DM.funcCallHook "_case_29"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x14, DI.genTerm x15, DI.genTerm x16,+                                           DI.genTerm x17]))+                                    (strict__case_29 x14 x15 x16 x17)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_30 x1)+                           x18)))+term_strict__case_30 x1 = DI.Term "_case_30" (DI.SrcID "XML" 0) x1+strict__case_29 x1 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_29"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x19 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- do x8 <- do x6 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   '<'))+                                                     x7 <- Prelude.return x1+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "XML" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x6, DI.genTerm x7]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x6 x7))+                                            x9 <- DM.constructorHook+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            x10 <- DM.constructorHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                              (Prelude.return (XElem x8 x9 x10))+                                  x13 <- do x11 <- Prelude.return x4+                                            DM.funcCallHook "scanXmlString"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x11]))+                                              (strict_scanXmlString x11)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x12 x13))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- Prelude.return x1+                                  x16 <- Prelude.return x3+                                  x17 <- Prelude.return x4+                                  x18 <- do x14 <- Prelude.return x3+                                            DM.funcCallHook "isSpace"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x14]))+                                              (Curry.DebugModule.Char.strict_isSpace x14)+                                  DM.funcCallHook "_case_28"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x15, DI.genTerm x16, DI.genTerm x17,+                                           DI.genTerm x18]))+                                    (strict__case_28 x15 x16 x17 x18)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           (strict__case_29 x1 x3 x4)+                           x19)))+term_strict__case_29 x1 = DI.Term "_case_29" (DI.SrcID "XML" 0) x1+strict__case_28 x1 x3 x4 x8+  = DM.eval+      (DM.funcDeclHook "_case_28"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x8]))+         (do x32 <- Prelude.return x8+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x32]))+               (case x32 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x5 <- do x11 <- do x9 <- DM.funcCallHook "dropBlanks"+                                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                   (DI.DynamicInfo [] []))+                                                                strict_dropBlanks+                                                        x10 <- Prelude.return x4+                                                        DM.funcCallHook "apply"+                                                          (DI.DebugInfo (DI.SrcID "XML" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x9, DI.genTerm x10]))+                                                          (Curry.DebugModule.Prelude.strict_apply x9+                                                             x10)+                                              DM.funcCallHook "parseAttrs"+                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x11]))+                                                (strict_parseAttrs x11)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x6 <- do x12 <- Prelude.return x5+                                                       DM.funcCallHook+                                                         "scanXmlElemName._#selFP32#attrs"+                                                         (DI.DebugInfo (DI.SrcID "XML" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x12]))+                                                         (x'xstrict_scanXmlElemName46_35selFP3235attrs+                                                            x12)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x7 <- do x13 <- Prelude.return x5+                                                                DM.funcCallHook+                                                                  "scanXmlElemName._#selFP33#rest"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x13]))+                                                                  (x'xstrict_scanXmlElemName46_35selFP3335rest+                                                                     x13)+                                                       DM.eval+                                                         (do x17 <- Prelude.return x1+                                                             x18 <- Prelude.return x6+                                                             x19 <- Prelude.return x7+                                                             x20 <- do x15 <- do x14 <- Prelude.return+                                                                                          x7+                                                                                 DM.funcCallHook+                                                                                   "head"+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         [DI.genTerm+                                                                                            x14]))+                                                                                   (Curry.DebugModule.Prelude.strict_head+                                                                                      x14)+                                                                       x16 <- DM.litHook+                                                                                (DI.DebugInfo+                                                                                   (DI.SrcID "XML"+                                                                                      0)+                                                                                   (DI.DynamicInfo+                                                                                      []+                                                                                      []))+                                                                                (Prelude.return+                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                      '/'))+                                                                       DM.funcCallHook "=="+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x15,+                                                                                DI.genTerm x16]))+                                                                         (Curry.DebugModule.Prelude.op_EqEq+                                                                            x15+                                                                            x16)+                                                             DM.funcCallHook "_case_27"+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x17,+                                                                      DI.genTerm x18,+                                                                      DI.genTerm x19,+                                                                      DI.genTerm x20]))+                                                               (strict__case_27 x17 x18 x19+                                                                  x20)))))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x28 <- Prelude.return x1+                                  x29 <- Prelude.return x3+                                  x30 <- Prelude.return x4+                                  x31 <- do x26 <- do x21 <- Prelude.return x3+                                                      x22 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '/'))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x21, DI.genTerm x22]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x21 x22)+                                            x27 <- do x24 <- do x23 <- Prelude.return x4+                                                                DM.funcCallHook "head"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x23]))+                                                                  (Curry.DebugModule.Prelude.strict_head+                                                                     x23)+                                                      x25 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '>'))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x24, DI.genTerm x25]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x24 x25)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x26, DI.genTerm x27]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x26 x27)+                                  DM.funcCallHook "_case_26"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x28, DI.genTerm x29, DI.genTerm x30,+                                           DI.genTerm x31]))+                                    (strict__case_26 x28 x29 x30 x31)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x32])))+                           (strict__case_28 x1 x3 x4)+                           x32)))+term_strict__case_28 x1 = DI.Term "_case_28" (DI.SrcID "XML" 0) x1+strict__case_26 x1 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_26"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x17 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x17]))+               (case x17 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- do x6 <- Prelude.return x1+                                            x7 <- DM.constructorHook+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            x8 <- DM.constructorHook+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                              (Prelude.return (XElem x6 x7 x8))+                                  x12 <- do x10 <- do x9 <- Prelude.return x4+                                                      DM.funcCallHook "tail"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x9]))+                                                        (Curry.DebugModule.Prelude.strict_tail x9)+                                            DM.funcCallHook "scanXmlString"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x10]))+                                              (strict_scanXmlString x10)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x1+                                  x14 <- Prelude.return x3+                                  x15 <- Prelude.return x4+                                  x16 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_25"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x13, DI.genTerm x14, DI.genTerm x15,+                                           DI.genTerm x16]))+                                    (strict__case_25 x13 x14 x15 x16)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x17])))+                           (strict__case_26 x1 x3 x4)+                           x17)))+term_strict__case_26 x1 = DI.Term "_case_26" (DI.SrcID "XML" 0) x1+strict__case_25 x1 x3 x4 x5+  = DM.eval+      (DM.funcDeclHook "_case_25"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4, DI.genTerm x5]))+         (do x12 <- Prelude.return x5+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x12]))+               (case x12 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- do x8 <- Prelude.return x1+                                            x9 <- do x6 <- Prelude.return x3+                                                     x7 <- DM.constructorHook+                                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                Curry.DebugModule.Prelude.Nil)+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "XML" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x6, DI.genTerm x7]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x6 x7))+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8, DI.genTerm x9]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x8 x9)+                                  x11 <- Prelude.return x4+                                  DM.funcCallHook "scanXmlElemName"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x10, DI.genTerm x11]))+                                    (strict_scanXmlElemName x10 x11)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x12])))+                           (strict__case_25 x1 x3 x4)+                           x12)))+term_strict__case_25 x1 = DI.Term "_case_25" (DI.SrcID "XML" 0) x1+strict__case_27 x1 x6 x7 x8+  = DM.eval+      (DM.funcDeclHook "_case_27"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+         (do x26 <- Prelude.return x8+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x26]))+               (case x26 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- do x9 <- Prelude.return x1+                                            x10 <- Prelude.return x6+                                            x11 <- DM.constructorHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10,+                                                     DI.genTerm x11]))+                                              (Prelude.return (XElem x9 x10 x11))+                                  x16 <- do x14 <- do x12 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Pos+                                                                     (Curry.DebugModule.Prelude.O+                                                                        Curry.DebugModule.Prelude.IHi)))+                                                      x13 <- Prelude.return x7+                                                      DM.funcCallHook "drop"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x12, DI.genTerm x13]))+                                                        (Curry.DebugModule.Prelude.strict_drop x12+                                                           x13)+                                            DM.funcCallHook "scanXmlString"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x14]))+                                              (strict_scanXmlString x14)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x24 <- do x19 <- do x17 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '<'))+                                                      x18 <- Prelude.return x1+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x17, DI.genTerm x18]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x17 x18))+                                            x20 <- Prelude.return x6+                                            x21 <- DM.constructorHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x19, DI.genTerm x20,+                                                     DI.genTerm x21]))+                                              (Prelude.return (XElem x19 x20 x21))+                                  x25 <- do x23 <- do x22 <- Prelude.return x7+                                                      DM.funcCallHook "tail"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x22]))+                                                        (Curry.DebugModule.Prelude.strict_tail x22)+                                            DM.funcCallHook "scanXmlString"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x23]))+                                              (strict_scanXmlString x23)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x24, DI.genTerm x25]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x24 x25))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x26])))+                           (strict__case_27 x1 x6 x7)+                           x26)))+term_strict__case_27 x1 = DI.Term "_case_27" (DI.SrcID "XML" 0) x1+strict__case_35 x1+  = DM.eval+      (DM.funcDeclHook "_case_35"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- do x4 <- Prelude.return x2+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char '!'))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_34"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_34 x6 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_35+                           x9)))+term_strict__case_35 x1 = DI.Term "_case_35" (DI.SrcID "XML" 0) x1+strict__case_34 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_34"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x20 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x3+                                  x14 <- do x11 <- do x5 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Pos+                                                                    (Curry.DebugModule.Prelude.O+                                                                       Curry.DebugModule.Prelude.IHi)))+                                                      x6 <- Prelude.return x3+                                                      DM.funcCallHook "take"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x5, DI.genTerm x6]))+                                                        (Curry.DebugModule.Prelude.strict_take x5+                                                           x6)+                                            x12 <- do x9 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    '-'))+                                                      x10 <- do x7 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "XML" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Char+                                                                              '-'))+                                                                x8 <- DM.constructorHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "XML" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           Curry.DebugModule.Prelude.Nil)+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x7,+                                                                         DI.genTerm x8]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x7+                                                                        x8))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x9 x10))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12]))+                                              (Curry.DebugModule.Prelude.op_EqEq x11 x12)+                                  DM.funcCallHook "_case_33"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14]))+                                    (strict__case_33 x13 x14)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- Prelude.return x2+                                  x18 <- Prelude.return x3+                                  x19 <- do x15 <- Prelude.return x2+                                            x16 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '?'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Curry.DebugModule.Prelude.op_EqEq x15 x16)+                                  DM.funcCallHook "_case_32"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19]))+                                    (strict__case_32 x17 x18 x19)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_34 x2 x3)+                           x20)))+term_strict__case_34 x1 = DI.Term "_case_34" (DI.SrcID "XML" 0) x1+strict__case_32 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_32"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x9 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x3+                                  DM.funcCallHook "scanXmlProcInstr"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (strict_scanXmlProcInstr x5)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- DM.funcCallHook "otherwise"+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_31"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_31 x6 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_32 x2 x3)+                           x9)))+term_strict__case_32 x1 = DI.Term "_case_32" (DI.SrcID "XML" 0) x1+strict__case_31 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_31"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x9 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x5 <- Prelude.return x2+                                           x6 <- DM.constructorHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return Curry.DebugModule.Prelude.Nil)+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))+                                  x8 <- Prelude.return x3+                                  DM.funcCallHook "scanXmlElemName"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (strict_scanXmlElemName x7 x8)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_31 x2 x3)+                           x9)))+term_strict__case_31 x1 = DI.Term "_case_31" (DI.SrcID "XML" 0) x1+strict__case_33 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_33"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+         (do x9 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- do x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            Curry.DebugModule.Prelude.IHi)))+                                           x6 <- Prelude.return x3+                                           DM.funcCallHook "drop"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Curry.DebugModule.Prelude.strict_drop x5 x6)+                                  DM.funcCallHook "scanXmlComment"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7]))+                                    (strict_scanXmlComment x7)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  DM.funcCallHook "scanXmlCData"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (strict_scanXmlCData x8)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_33 x3)+                           x9)))+term_strict__case_33 x1 = DI.Term "_case_33" (DI.SrcID "XML" 0) x1+strict__case_36 x1+  = DM.eval+      (DM.funcDeclHook "_case_36"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_36+                           x4)))+term_strict__case_36 x1 = DI.Term "_case_36" (DI.SrcID "XML" 0) x1+strict__case_37 x1+  = DM.eval+      (DM.funcDeclHook "_case_37"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_37+                           x4)))+term_strict__case_37 x1 = DI.Term "_case_37" (DI.SrcID "XML" 0) x1+strict__case_38 x1+  = DM.eval+      (DM.funcDeclHook "_case_38"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_38+                           x4)))+term_strict__case_38 x1 = DI.Term "_case_38" (DI.SrcID "XML" 0) x1+strict__case_39 x1+  = DM.eval+      (DM.funcDeclHook "_case_39"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_39+                           x4)))+term_strict__case_39 x1 = DI.Term "_case_39" (DI.SrcID "XML" 0) x1+strict__case_44 x1+  = DM.eval+      (DM.funcDeclHook "_case_44"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x11 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x5 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x4 x5))))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x2+                                  x9 <- Prelude.return x3+                                  x10 <- do x6 <- Prelude.return x2+                                            x7 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Char '<'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Curry.DebugModule.Prelude.op_EqEq x6 x7)+                                  DM.funcCallHook "_case_43"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_43 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           strict__case_44+                           x11)))+term_strict__case_44 x1 = DI.Term "_case_44" (DI.SrcID "XML" 0) x1+strict__case_43 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_43"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x13 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x8 <- do x5 <- Prelude.return x2+                                           x6 <- Prelude.return x3+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x7 x8))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x10 <- Prelude.return x2+                                  x11 <- Prelude.return x3+                                  x12 <- do x9 <- Prelude.return x2+                                            DM.funcCallHook "isSpace"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x9]))+                                              (Curry.DebugModule.Char.strict_isSpace x9)+                                  DM.funcCallHook "_case_42"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x10, DI.genTerm x11, DI.genTerm x12]))+                                    (strict__case_42 x10 x11 x12)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_43 x2 x3)+                           x13)))+term_strict__case_43 x1 = DI.Term "_case_43" (DI.SrcID "XML" 0) x1+strict__case_42 x2 x3 x7+  = DM.eval+      (DM.funcDeclHook "_case_42"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x7]))+         (do x21 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x4 <- do x10 <- do x8 <- DM.funcCallHook "dropBlanks"+                                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                   (DI.DynamicInfo [] []))+                                                                strict_dropBlanks+                                                        x9 <- Prelude.return x3+                                                        DM.funcCallHook "apply"+                                                          (DI.DebugInfo (DI.SrcID "XML" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x8, DI.genTerm x9]))+                                                          (Curry.DebugModule.Prelude.strict_apply x8+                                                             x9)+                                              DM.funcCallHook "scanXmlText"+                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x10]))+                                                (strict_scanXmlText x10)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x5 <- do x11 <- Prelude.return x4+                                                       DM.funcCallHook "scanXmlText._#selFP26#txt"+                                                         (DI.DebugInfo (DI.SrcID "XML" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x11]))+                                                         (x'xstrict_scanXmlText46_35selFP2635txt+                                                            x11)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x6 <- do x12 <- Prelude.return x4+                                                                DM.funcCallHook+                                                                  "scanXmlText._#selFP27#rem"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12]))+                                                                  (x'xstrict_scanXmlText46_35selFP2735rem+                                                                     x12)+                                                       DM.eval+                                                         (do x16 <- do x14 <- Prelude.return x5+                                                                       x15 <- do x13 <- Prelude.return+                                                                                          x5+                                                                                 DM.funcCallHook+                                                                                   "null"+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         [DI.genTerm+                                                                                            x13]))+                                                                                   (Curry.DebugModule.Prelude.strict_null+                                                                                      x13)+                                                                       DM.funcCallHook "_case_41"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x14,+                                                                                DI.genTerm x15]))+                                                                         (strict__case_41 x14 x15)+                                                             x17 <- Prelude.return x6+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x16,+                                                                      DI.genTerm x17]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Tuple2+                                                                     x16+                                                                     x17))))))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- Prelude.return x2+                                  x19 <- Prelude.return x3+                                  x20 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_40"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20]))+                                    (strict__case_40 x18 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_42 x2 x3)+                           x21)))+term_strict__case_42 x1 = DI.Term "_case_42" (DI.SrcID "XML" 0) x1+strict__case_40 x2 x3 x10+  = DM.eval+      (DM.funcDeclHook "_case_40"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x10]))+         (do x18 <- Prelude.return x10+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x7 <- do x11 <- Prelude.return x3+                                              DM.funcCallHook "scanXmlText"+                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x11]))+                                                (strict_scanXmlText x11)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x8 <- do x12 <- Prelude.return x7+                                                       DM.funcCallHook "scanXmlText._#selFP29#txt"+                                                         (DI.DebugInfo (DI.SrcID "XML" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x12]))+                                                         (x'xstrict_scanXmlText46_35selFP2935txt+                                                            x12)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x9 <- do x13 <- Prelude.return x7+                                                                DM.funcCallHook+                                                                  "scanXmlText._#selFP30#rem"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x13]))+                                                                  (x'xstrict_scanXmlText46_35selFP3035rem+                                                                     x13)+                                                       DM.eval+                                                         (do x16 <- do x14 <- Prelude.return x2+                                                                       x15 <- Prelude.return x8+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x14,+                                                                                DI.genTerm x15]))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Cons+                                                                               x14+                                                                               x15))+                                                             x17 <- Prelude.return x9+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x16,+                                                                      DI.genTerm x17]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Tuple2+                                                                     x16+                                                                     x17))))))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_40 x2 x3)+                           x18)))+term_strict__case_40 x1 = DI.Term "_case_40" (DI.SrcID "XML" 0) x1+strict__case_41 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_41"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+         (do x9 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x5))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x7 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char ' '))+                                  x8 <- Prelude.return x5+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x7 x8))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_41 x5)+                           x9)))+term_strict__case_41 x1 = DI.Term "_case_41" (DI.SrcID "XML" 0) x1+strict__case_45 x1+  = DM.eval+      (DM.funcDeclHook "_case_45"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_45+                           x4)))+term_strict__case_45 x1 = DI.Term "_case_45" (DI.SrcID "XML" 0) x1+strict__case_46 x1+  = DM.eval+      (DM.funcDeclHook "_case_46"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_46+                           x4)))+term_strict__case_46 x1 = DI.Term "_case_46" (DI.SrcID "XML" 0) x1+strict__case_48 x1+  = DM.eval+      (DM.funcDeclHook "_case_48"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- do x4 <- Prelude.return x2+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char '<'))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_47"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_47 x6 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_48+                           x9)))+term_strict__case_48 x1 = DI.Term "_case_48" (DI.SrcID "XML" 0) x1+strict__case_47 x2 x3 x7+  = DM.eval+      (DM.funcDeclHook "_case_47"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x7]))+         (do x18 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  DM.funcCallHook "scanXmlElem"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x8]))+                                    (strict_scanXmlElem x8)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x4 <- do x11 <- do x9 <- Prelude.return x2+                                                        x10 <- Prelude.return x3+                                                        DM.constructorHook+                                                          (DI.DebugInfo (DI.SrcID "XML" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x9, DI.genTerm x10]))+                                                          (Prelude.return+                                                             (Curry.DebugModule.Prelude.Cons x9+                                                                x10))+                                              DM.funcCallHook "scanXmlText"+                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                   (DI.DynamicInfo [] [DI.genTerm x11]))+                                                (strict_scanXmlText x11)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x5 <- do x12 <- Prelude.return x4+                                                       DM.funcCallHook+                                                         "scanXmlString.scanXml.191._#selFP23#initxt"+                                                         (DI.DebugInfo (DI.SrcID "XML" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x12]))+                                                         (x'xstrict_scanXmlString46scanXml4619146_35selFP2335initxt+                                                            x12)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x6 <- do x13 <- Prelude.return x4+                                                                DM.funcCallHook+                                                                  "scanXmlString.scanXml.191._#selFP24#remtag"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x13]))+                                                                  (x'xstrict_scanXmlString46scanXml4619146_35selFP2435remtag+                                                                     x13)+                                                       DM.eval+                                                         (do x16 <- do x14 <- Prelude.return x5+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x14]))+                                                                         (Prelude.return+                                                                            (XText x14))+                                                             x17 <- do x15 <- Prelude.return x6+                                                                       DM.funcCallHook+                                                                         "scanXmlString.scanXml.191"+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x15]))+                                                                         (x'xstrict_scanXmlString46scanXml46191+                                                                            x15)+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x16,+                                                                      DI.genTerm x17]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Cons+                                                                     x16+                                                                     x17))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_47 x2 x3)+                           x18)))+term_strict__case_47 x1 = DI.Term "_case_47" (DI.SrcID "XML" 0) x1+strict__case_49 x1+  = DM.eval+      (DM.funcDeclHook "_case_49"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_49+                           x4)))+term_strict__case_49 x1 = DI.Term "_case_49" (DI.SrcID "XML" 0) x1+strict__case_50 x1+  = DM.eval+      (DM.funcDeclHook "_case_50"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_50+                           x4)))+term_strict__case_50 x1 = DI.Term "_case_50" (DI.SrcID "XML" 0) x1+strict__case_51 x1+  = DM.eval+      (DM.funcDeclHook "_case_51"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_51+                           x4)))+term_strict__case_51 x1 = DI.Term "_case_51" (DI.SrcID "XML" 0) x1+strict__case_52 x1+  = DM.eval+      (DM.funcDeclHook "_case_52"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_52+                           x4)))+term_strict__case_52 x1 = DI.Term "_case_52" (DI.SrcID "XML" 0) x1+strict__case_53 x1+  = DM.eval+      (DM.funcDeclHook "_case_53"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_53+                           x4)))+term_strict__case_53 x1 = DI.Term "_case_53" (DI.SrcID "XML" 0) x1+strict__case_54 x1+  = DM.eval+      (DM.funcDeclHook "_case_54"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_54+                           x4)))+term_strict__case_54 x1 = DI.Term "_case_54" (DI.SrcID "XML" 0) x1+strict__case_55 x1+  = DM.eval+      (DM.funcDeclHook "_case_55"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_55+                           x4)))+term_strict__case_55 x1 = DI.Term "_case_55" (DI.SrcID "XML" 0) x1+strict__case_56 x1+  = DM.eval+      (DM.funcDeclHook "_case_56"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_56+                           x4)))+term_strict__case_56 x1 = DI.Term "_case_56" (DI.SrcID "XML" 0) x1+strict__case_57 x1+  = DM.eval+      (DM.funcDeclHook "_case_57"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_57+                           x4)))+term_strict__case_57 x1 = DI.Term "_case_57" (DI.SrcID "XML" 0) x1+strict__case_58 x1+  = DM.eval+      (DM.funcDeclHook "_case_58"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_58+                           x4)))+term_strict__case_58 x1 = DI.Term "_case_58" (DI.SrcID "XML" 0) x1+strict__case_66 x2 x1+  = DM.eval+      (DM.funcDeclHook "_case_66"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x2+                                  DM.funcCallHook "_case_65"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (strict__case_65 x5)))+                    Curry.DebugModule.Prelude.Cons x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x4+                                  x8 <- Prelude.return x3+                                  DM.funcCallHook "_case_64"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_64 x6 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_66 x2)+                           x9)))+term_strict__case_66 x1 = DI.Term "_case_66" (DI.SrcID "XML" 0) x1+strict__case_64 x2 x4 x3+  = DM.eval+      (DM.funcDeclHook "_case_64"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x4, DI.genTerm x3]))+         (do x27 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x27]))+               (case x27 of+                    XText x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x6 <- do x12 <- Prelude.return x4+                                              x13 <- Prelude.return x2+                                              DM.funcCallHook "parseXmlTokens"+                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x12, DI.genTerm x13]))+                                                (strict_parseXmlTokens x12 x13)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x7 <- do x14 <- Prelude.return x6+                                                       DM.funcCallHook+                                                         "parseXmlTokens._#selFP8#xexps"+                                                         (DI.DebugInfo (DI.SrcID "XML" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x14]))+                                                         (x'xstrict_parseXmlTokens46_35selFP835xexps+                                                            x14)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x8 <- do x15 <- Prelude.return x6+                                                                DM.funcCallHook+                                                                  "parseXmlTokens._#selFP9#rem_xtokens"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x15]))+                                                                  (x'xstrict_parseXmlTokens46_35selFP935rem_xtokens+                                                                     x15)+                                                       DM.eval+                                                         (do x20 <- do x18 <- do x17 <- do x16 <- Prelude.return+                                                                                                    x5+                                                                                           DM.funcCallHook+                                                                                             "xmlUnquoteSpecials"+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   [DI.genTerm+                                                                                                      x16]))+                                                                                             (strict_xmlUnquoteSpecials+                                                                                                x16)+                                                                                 DM.constructorHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         [DI.genTerm+                                                                                            x17]))+                                                                                   (Prelude.return+                                                                                      (XText x17))+                                                                       x19 <- Prelude.return x7+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x18,+                                                                                DI.genTerm x19]))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Cons+                                                                               x18+                                                                               x19))+                                                             x21 <- Prelude.return x8+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x20,+                                                                      DI.genTerm x21]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Tuple2+                                                                     x20+                                                                     x21))))))))))+                    XElem x9 x10 x11+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x22 <- Prelude.return x2+                                  x23 <- Prelude.return x4+                                  x24 <- Prelude.return x10+                                  x25 <- Prelude.return x11+                                  x26 <- Prelude.return x9+                                  DM.funcCallHook "_case_63"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x22, DI.genTerm x23, DI.genTerm x24,+                                           DI.genTerm x25, DI.genTerm x26]))+                                    (strict__case_63 x22 x23 x24 x25 x26)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x27])))+                           (strict__case_64 x2 x4)+                           x27)))+term_strict__case_64 x1 = DI.Term "_case_64" (DI.SrcID "XML" 0) x1+strict__case_63 x2 x4 x10 x11 x9+  = DM.eval+      (DM.funcDeclHook "_case_63"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x4, DI.genTerm x10, DI.genTerm x11,+                DI.genTerm x9]))+         (do x28 <- Prelude.return x9+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x28]))+               (case x28 of+                    Curry.DebugModule.Prelude.Cons x12 x13+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x21 <- Prelude.return x2+                                  x22 <- Prelude.return x4+                                  x23 <- Prelude.return x10+                                  x24 <- Prelude.return x11+                                  x25 <- Prelude.return x12+                                  x26 <- Prelude.return x13+                                  x27 <- do x19 <- do x14 <- Prelude.return x12+                                                      x15 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '<'))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x14, DI.genTerm x15]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x14 x15)+                                            x20 <- do x17 <- do x16 <- Prelude.return x13+                                                                DM.funcCallHook "head"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x16]))+                                                                  (Curry.DebugModule.Prelude.strict_head+                                                                     x16)+                                                      x18 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '/'))+                                                      DM.funcCallHook "/="+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x17, DI.genTerm x18]))+                                                        (Curry.DebugModule.Prelude.op_SlashEq x17+                                                           x18)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x19, DI.genTerm x20]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x19 x20)+                                  DM.funcCallHook "_case_62"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x21, DI.genTerm x22, DI.genTerm x23,+                                           DI.genTerm x24, DI.genTerm x25, DI.genTerm x26,+                                           DI.genTerm x27]))+                                    (strict__case_62 x21 x22 x23 x24 x25 x26 x27)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x28])))+                           (strict__case_63 x2 x4 x10 x11)+                           x28)))+term_strict__case_63 x1 = DI.Term "_case_63" (DI.SrcID "XML" 0) x1+strict__case_62 x2 x4 x10 x11 x12 x13 x20+  = DM.eval+      (DM.funcDeclHook "_case_62"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x4, DI.genTerm x10, DI.genTerm x11,+                DI.genTerm x12, DI.genTerm x13, DI.genTerm x20]))+         (do x51 <- Prelude.return x20+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x51]))+               (case x51 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x14 <- do x22 <- Prelude.return x4+                                               x23 <- do x21 <- Prelude.return x13+                                                         DM.constructorHook+                                                           (DI.DebugInfo (DI.SrcID "XML" 0)+                                                              (DI.DynamicInfo [] [DI.genTerm x21]))+                                                           (Prelude.return+                                                              (Curry.DebugModule.Prelude.Just x21))+                                               DM.funcCallHook "parseXmlTokens"+                                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                                    (DI.DynamicInfo []+                                                       [DI.genTerm x22, DI.genTerm x23]))+                                                 (strict_parseXmlTokens x22 x23)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x15 <- do x24 <- Prelude.return x14+                                                        DM.funcCallHook+                                                          "parseXmlTokens._#selFP14#xexps1"+                                                          (DI.DebugInfo (DI.SrcID "XML" 0)+                                                             (DI.DynamicInfo [] [DI.genTerm x24]))+                                                          (x'xstrict_parseXmlTokens46_35selFP1435xexps1+                                                             x24)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x16 <- do x25 <- Prelude.return x14+                                                                 DM.funcCallHook+                                                                   "parseXmlTokens._#selFP15#xtokens1"+                                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x25]))+                                                                   (x'xstrict_parseXmlTokens46_35selFP1535xtokens1+                                                                      x25)+                                                       DM.eval+                                                         (DM.letHook+                                                            (DI.DebugInfo+                                                               (DI.SrcID "DummyModule" 42)+                                                               (DI.DynamicInfo [] []))+                                                            (do x17 <- do x26 <- Prelude.return x16+                                                                          x27 <- Prelude.return x2+                                                                          DM.funcCallHook+                                                                            "parseXmlTokens"+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x26,+                                                                                   DI.genTerm x27]))+                                                                            (strict_parseXmlTokens+                                                                               x26+                                                                               x27)+                                                                DM.eval+                                                                  (DM.letHook+                                                                     (DI.DebugInfo+                                                                        (DI.SrcID "DummyModule" 42)+                                                                        (DI.DynamicInfo [] []))+                                                                     (do x18 <- do x28 <- Prelude.return+                                                                                            x17+                                                                                   DM.funcCallHook+                                                                                     "parseXmlTokens._#selFP12#xexps"+                                                                                     (DI.DebugInfo+                                                                                        (DI.SrcID+                                                                                           "XML"+                                                                                           0)+                                                                                        (DI.DynamicInfo+                                                                                           []+                                                                                           [DI.genTerm+                                                                                              x28]))+                                                                                     (x'xstrict_parseXmlTokens46_35selFP1235xexps+                                                                                        x28)+                                                                         DM.eval+                                                                           (DM.letHook+                                                                              (DI.DebugInfo+                                                                                 (DI.SrcID+                                                                                    "DummyModule"+                                                                                    42)+                                                                                 (DI.DynamicInfo []+                                                                                    []))+                                                                              (do x19 <- do x29 <- Prelude.return+                                                                                                     x17+                                                                                            DM.funcCallHook+                                                                                              "parseXmlTokens._#selFP13#rem_xtokens"+                                                                                              (DI.DebugInfo+                                                                                                 (DI.SrcID+                                                                                                    "XML"+                                                                                                    0)+                                                                                                 (DI.DynamicInfo+                                                                                                    []+                                                                                                    [DI.genTerm+                                                                                                       x29]))+                                                                                              (x'xstrict_parseXmlTokens46_35selFP1335rem_xtokens+                                                                                                 x29)+                                                                                  DM.eval+                                                                                    (do x35 <- do x33 <- do x30 <- Prelude.return+                                                                                                                     x13+                                                                                                            x31 <- Prelude.return+                                                                                                                     x10+                                                                                                            x32 <- Prelude.return+                                                                                                                     x15+                                                                                                            DM.constructorHook+                                                                                                              (DI.DebugInfo+                                                                                                                 (DI.SrcID+                                                                                                                    "XML"+                                                                                                                    0)+                                                                                                                 (DI.DynamicInfo+                                                                                                                    []+                                                                                                                    [DI.genTerm+                                                                                                                       x30,+                                                                                                                     DI.genTerm+                                                                                                                       x31,+                                                                                                                     DI.genTerm+                                                                                                                       x32]))+                                                                                                              (Prelude.return+                                                                                                                 (XElem+                                                                                                                    x30+                                                                                                                    x31+                                                                                                                    x32))+                                                                                                  x34 <- Prelude.return+                                                                                                           x18+                                                                                                  DM.constructorHook+                                                                                                    (DI.DebugInfo+                                                                                                       (DI.SrcID+                                                                                                          "XML"+                                                                                                          0)+                                                                                                       (DI.DynamicInfo+                                                                                                          []+                                                                                                          [DI.genTerm+                                                                                                             x33,+                                                                                                           DI.genTerm+                                                                                                             x34]))+                                                                                                    (Prelude.return+                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                          x33+                                                                                                          x34))+                                                                                        x36 <- Prelude.return+                                                                                                 x19+                                                                                        DM.constructorHook+                                                                                          (DI.DebugInfo+                                                                                             (DI.SrcID+                                                                                                "XML"+                                                                                                0)+                                                                                             (DI.DynamicInfo+                                                                                                []+                                                                                                [DI.genTerm+                                                                                                   x35,+                                                                                                 DI.genTerm+                                                                                                   x36]))+                                                                                          (Prelude.return+                                                                                             (Curry.DebugModule.Prelude.Tuple2+                                                                                                x35+                                                                                                x36))))))))))))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x44 <- Prelude.return x2+                                  x45 <- Prelude.return x4+                                  x46 <- Prelude.return x10+                                  x47 <- Prelude.return x11+                                  x48 <- Prelude.return x12+                                  x49 <- Prelude.return x13+                                  x50 <- do x42 <- do x37 <- Prelude.return x12+                                                      x38 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '<'))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x37, DI.genTerm x38]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x37 x38)+                                            x43 <- do x40 <- do x39 <- Prelude.return x13+                                                                DM.funcCallHook "head"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x39]))+                                                                  (Curry.DebugModule.Prelude.strict_head+                                                                     x39)+                                                      x41 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '/'))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x40, DI.genTerm x41]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x40 x41)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x42, DI.genTerm x43]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x42 x43)+                                  DM.funcCallHook "_case_61"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x44, DI.genTerm x45, DI.genTerm x46,+                                           DI.genTerm x47, DI.genTerm x48, DI.genTerm x49,+                                           DI.genTerm x50]))+                                    (strict__case_61 x44 x45 x46 x47 x48 x49 x50)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x51])))+                           (strict__case_62 x2 x4 x10 x11 x12 x13)+                           x51)))+term_strict__case_62 x1 = DI.Term "_case_62" (DI.SrcID "XML" 0) x1+strict__case_61 x2 x4 x10 x11 x12 x13 x14+  = DM.eval+      (DM.funcDeclHook "_case_61"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x4, DI.genTerm x10, DI.genTerm x11,+                DI.genTerm x12, DI.genTerm x13, DI.genTerm x14]))+         (do x34 <- Prelude.return x14+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x34]))+               (case x34 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x21 <- Prelude.return x2+                                  x22 <- Prelude.return x4+                                  x23 <- Prelude.return x10+                                  x24 <- Prelude.return x11+                                  x25 <- Prelude.return x13+                                  x26 <- do x18 <- DM.constructorHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        Curry.DebugModule.Prelude.False)+                                            x19 <- do x16 <- Prelude.return+                                                               (PC.partCall2+                                                                  (Curry.DebugModule.Prelude.term_op_EqEq+                                                                     [])+                                                                  Curry.DebugModule.Prelude.op_EqEq)+                                                      x17 <- do x15 <- Prelude.return x13+                                                                DM.funcCallHook "tail"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x15]))+                                                                  (Curry.DebugModule.Prelude.strict_tail+                                                                     x15)+                                                      Prelude.return+                                                        (PC.partCall1+                                                           (Curry.DebugModule.Prelude.term_strict_flip+                                                              [DI.genTerm x16, DI.genTerm x17])+                                                           (Curry.DebugModule.Prelude.strict_flip+                                                              x16+                                                              x17))+                                            x20 <- Prelude.return x2+                                            DM.funcCallHook "maybe"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x18, DI.genTerm x19,+                                                     DI.genTerm x20]))+                                              (Curry.DebugModule.Prelude.strict_maybe x18 x19 x20)+                                  DM.funcCallHook "_case_60"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x21, DI.genTerm x22, DI.genTerm x23,+                                           DI.genTerm x24, DI.genTerm x25, DI.genTerm x26]))+                                    (strict__case_60 x21 x22 x23 x24 x25 x26)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x27 <- Prelude.return x2+                                  x28 <- Prelude.return x4+                                  x29 <- Prelude.return x10+                                  x30 <- Prelude.return x11+                                  x31 <- Prelude.return x12+                                  x32 <- Prelude.return x13+                                  x33 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_59"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x27, DI.genTerm x28, DI.genTerm x29,+                                           DI.genTerm x30, DI.genTerm x31, DI.genTerm x32,+                                           DI.genTerm x33]))+                                    (strict__case_59 x27 x28 x29 x30 x31 x32 x33)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x34])))+                           (strict__case_61 x2 x4 x10 x11 x12 x13)+                           x34)))+term_strict__case_61 x1 = DI.Term "_case_61" (DI.SrcID "XML" 0) x1+strict__case_59 x2 x4 x10 x11 x12 x13 x26+  = DM.eval+      (DM.funcDeclHook "_case_59"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x4, DI.genTerm x10, DI.genTerm x11,+                DI.genTerm x12, DI.genTerm x13, DI.genTerm x26]))+         (do x40 <- Prelude.return x26+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x40]))+               (case x40 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x23 <- do x27 <- Prelude.return x4+                                               x28 <- Prelude.return x2+                                               DM.funcCallHook "parseXmlTokens"+                                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                                    (DI.DynamicInfo []+                                                       [DI.genTerm x27, DI.genTerm x28]))+                                                 (strict_parseXmlTokens x27 x28)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x24 <- do x29 <- Prelude.return x23+                                                        DM.funcCallHook+                                                          "parseXmlTokens._#selFP20#xexps"+                                                          (DI.DebugInfo (DI.SrcID "XML" 0)+                                                             (DI.DynamicInfo [] [DI.genTerm x29]))+                                                          (x'xstrict_parseXmlTokens46_35selFP2035xexps+                                                             x29)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x25 <- do x30 <- Prelude.return x23+                                                                 DM.funcCallHook+                                                                   "parseXmlTokens._#selFP21#rem_xtokens"+                                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x30]))+                                                                   (x'xstrict_parseXmlTokens46_35selFP2135rem_xtokens+                                                                      x30)+                                                       DM.eval+                                                         (do x38 <- do x36 <- do x33 <- do x31 <- Prelude.return+                                                                                                    x12+                                                                                           x32 <- Prelude.return+                                                                                                    x13+                                                                                           DM.constructorHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   [DI.genTerm+                                                                                                      x31,+                                                                                                    DI.genTerm+                                                                                                      x32]))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                   x31+                                                                                                   x32))+                                                                                 x34 <- Prelude.return+                                                                                          x10+                                                                                 x35 <- Prelude.return+                                                                                          x11+                                                                                 DM.constructorHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         [DI.genTerm+                                                                                            x33,+                                                                                          DI.genTerm+                                                                                            x34,+                                                                                          DI.genTerm+                                                                                            x35]))+                                                                                   (Prelude.return+                                                                                      (XElem x33 x34+                                                                                         x35))+                                                                       x37 <- Prelude.return x24+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x36,+                                                                                DI.genTerm x37]))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Cons+                                                                               x36+                                                                               x37))+                                                             x39 <- Prelude.return x25+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x38,+                                                                      DI.genTerm x39]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Tuple2+                                                                     x38+                                                                     x39))))))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x40])))+                           (strict__case_59 x2 x4 x10 x11 x12 x13)+                           x40)))+term_strict__case_59 x1 = DI.Term "_case_59" (DI.SrcID "XML" 0) x1+strict__case_60 x2 x4 x10 x11 x13 x23+  = DM.eval+      (DM.funcDeclHook "_case_60"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x2, DI.genTerm x4, DI.genTerm x10, DI.genTerm x11,+                DI.genTerm x13, DI.genTerm x23]))+         (do x37 <- Prelude.return x23+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x37]))+               (case x37 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x24 <- DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x25 <- Prelude.return x4+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x24, DI.genTerm x25]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x24 x25))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x20 <- do x26 <- Prelude.return x4+                                               x27 <- Prelude.return x2+                                               DM.funcCallHook "parseXmlTokens"+                                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                                    (DI.DynamicInfo []+                                                       [DI.genTerm x26, DI.genTerm x27]))+                                                 (strict_parseXmlTokens x26 x27)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x21 <- do x28 <- Prelude.return x20+                                                        DM.funcCallHook+                                                          "parseXmlTokens._#selFP17#xexps"+                                                          (DI.DebugInfo (DI.SrcID "XML" 0)+                                                             (DI.DynamicInfo [] [DI.genTerm x28]))+                                                          (x'xstrict_parseXmlTokens46_35selFP1735xexps+                                                             x28)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x22 <- do x29 <- Prelude.return x20+                                                                 DM.funcCallHook+                                                                   "parseXmlTokens._#selFP18#rem_xtokens"+                                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x29]))+                                                                   (x'xstrict_parseXmlTokens46_35selFP1835rem_xtokens+                                                                      x29)+                                                       DM.eval+                                                         (do x35 <- do x33 <- do x30 <- Prelude.return+                                                                                          x13+                                                                                 x31 <- Prelude.return+                                                                                          x10+                                                                                 x32 <- Prelude.return+                                                                                          x11+                                                                                 DM.constructorHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         [DI.genTerm+                                                                                            x30,+                                                                                          DI.genTerm+                                                                                            x31,+                                                                                          DI.genTerm+                                                                                            x32]))+                                                                                   (Prelude.return+                                                                                      (XElem x30 x31+                                                                                         x32))+                                                                       x34 <- Prelude.return x21+                                                                       DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo []+                                                                               [DI.genTerm x33,+                                                                                DI.genTerm x34]))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Cons+                                                                               x33+                                                                               x34))+                                                             x36 <- Prelude.return x22+                                                             DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x35,+                                                                      DI.genTerm x36]))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Tuple2+                                                                     x35+                                                                     x36))))))))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x37])))+                           (strict__case_60 x2 x4 x10 x11 x13)+                           x37)))+term_strict__case_60 x1 = DI.Term "_case_60" (DI.SrcID "XML" 0) x1+strict__case_65 x2+  = DM.eval+      (DM.funcDeclHook "_case_65"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2]))+         (do x5 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    Curry.DebugModule.Prelude.Nothing+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x3 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  x4 <- DM.constructorHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Tuple2 x3 x4))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           strict__case_65+                           x5)))+term_strict__case_65 x1 = DI.Term "_case_65" (DI.SrcID "XML" 0) x1+strict__case_68 x1 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_68"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4]))+         (do x78 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x78]))+               (case x78 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x71 <- do x69 <- do x13 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'F'))+                                                      x14 <- do x11 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'i'))+                                                                x12 <- do x9 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        'l'))+                                                                          x10 <- do x7 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  'e'))+                                                                                    x8 <- do x5 <- DM.litHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                           ' '))+                                                                                             x6 <- DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        Curry.DebugModule.Prelude.Nil)+                                                                                             DM.constructorHook+                                                                                               (DI.DebugInfo+                                                                                                  (DI.SrcID+                                                                                                     "XML"+                                                                                                     0)+                                                                                                  (DI.DynamicInfo+                                                                                                     []+                                                                                                     [DI.genTerm+                                                                                                        x5,+                                                                                                      DI.genTerm+                                                                                                        x6]))+                                                                                               (Prelude.return+                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                     x5+                                                                                                     x6))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x7,+                                                                                             DI.genTerm+                                                                                               x8]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x7+                                                                                            x8))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x9,+                                                                                   DI.genTerm x10]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x9+                                                                                  x10))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x11+                                                                        x12))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x13 x14))+                                            x70 <- do x67 <- Prelude.return x1+                                                      x68 <- do x65 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               ' '))+                                                                x66 <- do x63 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'c'))+                                                                          x64 <- do x61 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   'o'))+                                                                                    x62 <- do x59 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "XML"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             'n'))+                                                                                              x60 <- do x57 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "XML"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       't'))+                                                                                                        x58 <- do x55 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "XML"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                 'a'))+                                                                                                                  x56 <- do x53 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "XML"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                           'i'))+                                                                                                                            x54 <- do x51 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "XML"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                     'n'))+                                                                                                                                      x52 <- do x49 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "XML"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                               's'))+                                                                                                                                                x50 <- do x47 <- DM.litHook+                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                         "XML"+                                                                                                                                                                         0)+                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                         []+                                                                                                                                                                         []))+                                                                                                                                                                   (Prelude.return+                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                         ' '))+                                                                                                                                                          x48 <- do x45 <- DM.litHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "XML"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                   'n'))+                                                                                                                                                                    x46 <- do x43 <- DM.litHook+                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                             "XML"+                                                                                                                                                                                             0)+                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                             []+                                                                                                                                                                                             []))+                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                             'o'))+                                                                                                                                                                              x44 <- do x41 <- DM.litHook+                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                       0)+                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                       []+                                                                                                                                                                                                       []))+                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                       ' '))+                                                                                                                                                                                        x42 <- do x39 <- DM.litHook+                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                 0)+                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                 []+                                                                                                                                                                                                                 []))+                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                 'X'))+                                                                                                                                                                                                  x40 <- do x37 <- DM.litHook+                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                           []+                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                           'M'))+                                                                                                                                                                                                            x38 <- do x35 <- DM.litHook+                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                     'L'))+                                                                                                                                                                                                                      x36 <- do x33 <- DM.litHook+                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                               ' '))+                                                                                                                                                                                                                                x34 <- do x31 <- DM.litHook+                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                         'd'))+                                                                                                                                                                                                                                          x32 <- do x29 <- DM.litHook+                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                   "XML"+                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                   'o'))+                                                                                                                                                                                                                                                    x30 <- do x27 <- DM.litHook+                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                             "XML"+                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                             'c'))+                                                                                                                                                                                                                                                              x28 <- do x25 <- DM.litHook+                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                       'u'))+                                                                                                                                                                                                                                                                        x26 <- do x23 <- DM.litHook+                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                 'm'))+                                                                                                                                                                                                                                                                                  x24 <- do x21 <- DM.litHook+                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                           'e'))+                                                                                                                                                                                                                                                                                            x22 <- do x19 <- DM.litHook+                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                     'n'))+                                                                                                                                                                                                                                                                                                      x20 <- do x17 <- DM.litHook+                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                               't'))+                                                                                                                                                                                                                                                                                                                x18 <- do x15 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                         '!'))+                                                                                                                                                                                                                                                                                                                          x16 <- DM.constructorHook+                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                      Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                                                                     x15,+                                                                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                                                                     x16]))+                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                  x15+                                                                                                                                                                                                                                                                                                                                  x16))+                                                                                                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                                                                                                           x17,+                                                                                                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                                                                                                           x18]))+                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                        x17+                                                                                                                                                                                                                                                                                                                        x18))+                                                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                              "XML"+                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                                                 x19,+                                                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                                                 x20]))+                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                              x19+                                                                                                                                                                                                                                                                                                              x20))+                                                                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                                                                       x21,+                                                                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                                                                       x22]))+                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                    x21+                                                                                                                                                                                                                                                                                                    x22))+                                                                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                                                                             x23,+                                                                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                                                                             x24]))+                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                          x23+                                                                                                                                                                                                                                                                                          x24))+                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                "XML"+                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                   x25,+                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                   x26]))+                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                x25+                                                                                                                                                                                                                                                                                x26))+                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                         x27,+                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                         x28]))+                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                      x27+                                                                                                                                                                                                                                                                      x28))+                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                            "XML"+                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                               x29,+                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                               x30]))+                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                            x29+                                                                                                                                                                                                                                                            x30))+                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                     x31,+                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                     x32]))+                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                  x31+                                                                                                                                                                                                                                                  x32))+                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                           x33,+                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                           x34]))+                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                        x33+                                                                                                                                                                                                                                        x34))+                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                              "XML"+                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                              []+                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                 x35,+                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                 x36]))+                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                              x35+                                                                                                                                                                                                                              x36))+                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                    []+                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                       x37,+                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                       x38]))+                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                    x37+                                                                                                                                                                                                                    x38))+                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                          0)+                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                          []+                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                             x39,+                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                             x40]))+                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                          x39+                                                                                                                                                                                                          x40))+                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                "XML"+                                                                                                                                                                                                0)+                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                []+                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                   x41,+                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                   x42]))+                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                x41+                                                                                                                                                                                                x42))+                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                      "XML"+                                                                                                                                                                                      0)+                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                      []+                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                         x43,+                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                         x44]))+                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                      x43+                                                                                                                                                                                      x44))+                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "XML"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                               x45,+                                                                                                                                                                             DI.genTerm+                                                                                                                                                                               x46]))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                            x45+                                                                                                                                                                            x46))+                                                                                                                                                          DM.constructorHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "XML"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                     x47,+                                                                                                                                                                   DI.genTerm+                                                                                                                                                                     x48]))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                  x47+                                                                                                                                                                  x48))+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "XML"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x49,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x50]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                        x49+                                                                                                                                                        x50))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "XML"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x51,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x52]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x51+                                                                                                                                              x52))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "XML"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x53,+                                                                                                                                     DI.genTerm+                                                                                                                                       x54]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                    x53+                                                                                                                                    x54))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "XML"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x55,+                                                                                                                           DI.genTerm+                                                                                                                             x56]))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                          x55+                                                                                                                          x56))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "XML"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x57,+                                                                                                                 DI.genTerm+                                                                                                                   x58]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x57+                                                                                                                x58))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "XML"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x59,+                                                                                                       DI.genTerm+                                                                                                         x60]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x59+                                                                                                      x60))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x61,+                                                                                             DI.genTerm+                                                                                               x62]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x61+                                                                                            x62))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x63,+                                                                                   DI.genTerm x64]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x63+                                                                                  x64))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x65,+                                                                         DI.genTerm x66]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x65+                                                                        x66))+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x67, DI.genTerm x68]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x67+                                                           x68)+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x69, DI.genTerm x70]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x69 x70)+                                  DM.funcCallHook "error"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x71]))+                                    (Curry.DebugModule.Prelude.strict_error x71)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x75 <- Prelude.return x1+                                  x76 <- Prelude.return x3+                                  x77 <- do x73 <- do x72 <- Prelude.return x3+                                                      DM.funcCallHook "tail"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x72]))+                                                        (Curry.DebugModule.Prelude.strict_tail x72)+                                            x74 <- DM.constructorHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return Curry.DebugModule.Prelude.Nil)+                                            DM.funcCallHook "/="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x73, DI.genTerm x74]))+                                              (Curry.DebugModule.Prelude.op_SlashEq x73 x74)+                                  DM.funcCallHook "_case_67"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x75, DI.genTerm x76, DI.genTerm x77]))+                                    (strict__case_67 x75 x76 x77)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x78])))+                           (strict__case_68 x1 x3)+                           x78)))+term_strict__case_68 x1 = DI.Term "_case_68" (DI.SrcID "XML" 0) x1+strict__case_67 x1 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_67"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4]))+         (do x96 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x96]))+               (case x96 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x93 <- do x91 <- do x13 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'F'))+                                                      x14 <- do x11 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'i'))+                                                                x12 <- do x9 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        'l'))+                                                                          x10 <- do x7 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  'e'))+                                                                                    x8 <- do x5 <- DM.litHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                           ' '))+                                                                                             x6 <- DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        Curry.DebugModule.Prelude.Nil)+                                                                                             DM.constructorHook+                                                                                               (DI.DebugInfo+                                                                                                  (DI.SrcID+                                                                                                     "XML"+                                                                                                     0)+                                                                                                  (DI.DynamicInfo+                                                                                                     []+                                                                                                     [DI.genTerm+                                                                                                        x5,+                                                                                                      DI.genTerm+                                                                                                        x6]))+                                                                                               (Prelude.return+                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                     x5+                                                                                                     x6))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x7,+                                                                                             DI.genTerm+                                                                                               x8]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x7+                                                                                            x8))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x9,+                                                                                   DI.genTerm x10]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x9+                                                                                  x10))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x11+                                                                        x12))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x13 x14))+                                            x92 <- do x89 <- Prelude.return x1+                                                      x90 <- do x87 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               ' '))+                                                                x88 <- do x85 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'c'))+                                                                          x86 <- do x83 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   'o'))+                                                                                    x84 <- do x81 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "XML"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             'n'))+                                                                                              x82 <- do x79 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "XML"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       't'))+                                                                                                        x80 <- do x77 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "XML"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                 'a'))+                                                                                                                  x78 <- do x75 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "XML"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                           'i'))+                                                                                                                            x76 <- do x73 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "XML"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                     'n'))+                                                                                                                                      x74 <- do x71 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "XML"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                               's'))+                                                                                                                                                x72 <- do x69 <- DM.litHook+                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                         "XML"+                                                                                                                                                                         0)+                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                         []+                                                                                                                                                                         []))+                                                                                                                                                                   (Prelude.return+                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                         ' '))+                                                                                                                                                          x70 <- do x67 <- DM.litHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "XML"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                   'm'))+                                                                                                                                                                    x68 <- do x65 <- DM.litHook+                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                             "XML"+                                                                                                                                                                                             0)+                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                             []+                                                                                                                                                                                             []))+                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                             'o'))+                                                                                                                                                                              x66 <- do x63 <- DM.litHook+                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                       0)+                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                       []+                                                                                                                                                                                                       []))+                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                       'r'))+                                                                                                                                                                                        x64 <- do x61 <- DM.litHook+                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                 0)+                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                 []+                                                                                                                                                                                                                 []))+                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                 'e'))+                                                                                                                                                                                                  x62 <- do x59 <- DM.litHook+                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                           []+                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                           ' '))+                                                                                                                                                                                                            x60 <- do x57 <- DM.litHook+                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                     't'))+                                                                                                                                                                                                                      x58 <- do x55 <- DM.litHook+                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                               'h'))+                                                                                                                                                                                                                                x56 <- do x53 <- DM.litHook+                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                         'a'))+                                                                                                                                                                                                                                          x54 <- do x51 <- DM.litHook+                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                   "XML"+                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                   'n'))+                                                                                                                                                                                                                                                    x52 <- do x49 <- DM.litHook+                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                             "XML"+                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                             ' '))+                                                                                                                                                                                                                                                              x50 <- do x47 <- DM.litHook+                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                       'o'))+                                                                                                                                                                                                                                                                        x48 <- do x45 <- DM.litHook+                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                 'n'))+                                                                                                                                                                                                                                                                                  x46 <- do x43 <- DM.litHook+                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                           'e'))+                                                                                                                                                                                                                                                                                            x44 <- do x41 <- DM.litHook+                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                     ' '))+                                                                                                                                                                                                                                                                                                      x42 <- do x39 <- DM.litHook+                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                               'X'))+                                                                                                                                                                                                                                                                                                                x40 <- do x37 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                         'M'))+                                                                                                                                                                                                                                                                                                                          x38 <- do x35 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                   "XML"+                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                   'L'))+                                                                                                                                                                                                                                                                                                                                    x36 <- do x33 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                             "XML"+                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                             ' '))+                                                                                                                                                                                                                                                                                                                                              x34 <- do x31 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                       'd'))+                                                                                                                                                                                                                                                                                                                                                        x32 <- do x29 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                                                                                                                                                                                 0)+                                                                                                                                                                                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                 []+                                                                                                                                                                                                                                                                                                                                                                                 []))+                                                                                                                                                                                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                 'o'))+                                                                                                                                                                                                                                                                                                                                                                  x30 <- do x27 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                           []+                                                                                                                                                                                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                           'c'))+                                                                                                                                                                                                                                                                                                                                                                            x28 <- do x25 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                     []+                                                                                                                                                                                                                                                                                                                                                                                                     []))+                                                                                                                                                                                                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                     'u'))+                                                                                                                                                                                                                                                                                                                                                                                      x26 <- do x23 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                               'm'))+                                                                                                                                                                                                                                                                                                                                                                                                x24 <- do x21 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                                                                                                                                                                                         []))+                                                                                                                                                                                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                         'e'))+                                                                                                                                                                                                                                                                                                                                                                                                          x22 <- do x19 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                   "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                   0)+                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                   []+                                                                                                                                                                                                                                                                                                                                                                                                                                   []))+                                                                                                                                                                                                                                                                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                   'n'))+                                                                                                                                                                                                                                                                                                                                                                                                                    x20 <- do x17 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                             "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                             't'))+                                                                                                                                                                                                                                                                                                                                                                                                                              x18 <- do x15 <- DM.litHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                                                                                                                                                                                                                       '!'))+                                                                                                                                                                                                                                                                                                                                                                                                                                        x16 <- DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                                                                                                                                                                                                                                       []))+                                                                                                                                                                                                                                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                                    Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                                "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                   x15,+                                                                                                                                                                                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                                   x16]))+                                                                                                                                                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                                x15+                                                                                                                                                                                                                                                                                                                                                                                                                                                x16))+                                                                                                                                                                                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                         x17,+                                                                                                                                                                                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                                         x18]))+                                                                                                                                                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                                      x17+                                                                                                                                                                                                                                                                                                                                                                                                                                      x18))+                                                                                                                                                                                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                            "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                               x19,+                                                                                                                                                                                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                               x20]))+                                                                                                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                            x19+                                                                                                                                                                                                                                                                                                                                                                                                                            x20))+                                                                                                                                                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                     x21,+                                                                                                                                                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                                     x22]))+                                                                                                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                                  x21+                                                                                                                                                                                                                                                                                                                                                                                                                  x22))+                                                                                                                                                                                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                           x23,+                                                                                                                                                                                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                           x24]))+                                                                                                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                                        x23+                                                                                                                                                                                                                                                                                                                                                                                                        x24))+                                                                                                                                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                              "XML"+                                                                                                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                 x25,+                                                                                                                                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                                 x26]))+                                                                                                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                              x25+                                                                                                                                                                                                                                                                                                                                                                                              x26))+                                                                                                                                                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                       x27,+                                                                                                                                                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                                       x28]))+                                                                                                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                                    x27+                                                                                                                                                                                                                                                                                                                                                                                    x28))+                                                                                                                                                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                             x29,+                                                                                                                                                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                             x30]))+                                                                                                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                          x29+                                                                                                                                                                                                                                                                                                                                                                          x30))+                                                                                                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                                "XML"+                                                                                                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                   x31,+                                                                                                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                                                                                                   x32]))+                                                                                                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                                x31+                                                                                                                                                                                                                                                                                                                                                                x32))+                                                                                                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                                                                                                         x33,+                                                                                                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                                                                                                         x34]))+                                                                                                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                                      x33+                                                                                                                                                                                                                                                                                                                                                      x34))+                                                                                                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                                                                                                            "XML"+                                                                                                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                                                                                                               x35,+                                                                                                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                                                                                                               x36]))+                                                                                                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                            x35+                                                                                                                                                                                                                                                                                                                                            x36))+                                                                                                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                                                                                                     x37,+                                                                                                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                                                                                                     x38]))+                                                                                                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                                  x37+                                                                                                                                                                                                                                                                                                                                  x38))+                                                                                                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                                                                                                           x39,+                                                                                                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                                                                                                           x40]))+                                                                                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                                        x39+                                                                                                                                                                                                                                                                                                                        x40))+                                                                                                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                                                                                                              "XML"+                                                                                                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                              []+                                                                                                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                                                                                                 x41,+                                                                                                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                                                                                                 x42]))+                                                                                                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                              x41+                                                                                                                                                                                                                                                                                                              x42))+                                                                                                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                                                                                                       x43,+                                                                                                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                                                                                                       x44]))+                                                                                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                                    x43+                                                                                                                                                                                                                                                                                                    x44))+                                                                                                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                                                                                                          0)+                                                                                                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                                                                                                          []+                                                                                                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                                                                                                             x45,+                                                                                                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                                                                                                             x46]))+                                                                                                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                          x45+                                                                                                                                                                                                                                                                                          x46))+                                                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                                                "XML"+                                                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                                                   x47,+                                                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                                                   x48]))+                                                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                                x47+                                                                                                                                                                                                                                                                                x48))+                                                                                                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                                                                                                         x49,+                                                                                                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                                                                                                         x50]))+                                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                                      x49+                                                                                                                                                                                                                                                                      x50))+                                                                                                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                                                            "XML"+                                                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                                                            []+                                                                                                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                                                                                                               x51,+                                                                                                                                                                                                                                                             DI.genTerm+                                                                                                                                                                                                                                                               x52]))+                                                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                            x51+                                                                                                                                                                                                                                                            x52))+                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                     x53,+                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                     x54]))+                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                  x53+                                                                                                                                                                                                                                                  x54))+                                                                                                                                                                                                                                DM.constructorHook+                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                        [DI.genTerm+                                                                                                                                                                                                                                           x55,+                                                                                                                                                                                                                                         DI.genTerm+                                                                                                                                                                                                                                           x56]))+                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                        x55+                                                                                                                                                                                                                                        x56))+                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                              "XML"+                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                              []+                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                 x57,+                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                 x58]))+                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                              x57+                                                                                                                                                                                                                              x58))+                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                    []+                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                       x59,+                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                       x60]))+                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                    x59+                                                                                                                                                                                                                    x60))+                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                          0)+                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                          []+                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                             x61,+                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                             x62]))+                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                          x61+                                                                                                                                                                                                          x62))+                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                "XML"+                                                                                                                                                                                                0)+                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                []+                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                   x63,+                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                   x64]))+                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                x63+                                                                                                                                                                                                x64))+                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                      "XML"+                                                                                                                                                                                      0)+                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                      []+                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                         x65,+                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                         x66]))+                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                      x65+                                                                                                                                                                                      x66))+                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "XML"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                               x67,+                                                                                                                                                                             DI.genTerm+                                                                                                                                                                               x68]))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                            x67+                                                                                                                                                                            x68))+                                                                                                                                                          DM.constructorHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "XML"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                     x69,+                                                                                                                                                                   DI.genTerm+                                                                                                                                                                     x70]))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                  x69+                                                                                                                                                                  x70))+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "XML"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x71,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x72]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                        x71+                                                                                                                                                        x72))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "XML"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x73,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x74]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x73+                                                                                                                                              x74))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "XML"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x75,+                                                                                                                                     DI.genTerm+                                                                                                                                       x76]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                    x75+                                                                                                                                    x76))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "XML"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x77,+                                                                                                                           DI.genTerm+                                                                                                                             x78]))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                          x77+                                                                                                                          x78))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "XML"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x79,+                                                                                                                 DI.genTerm+                                                                                                                   x80]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x79+                                                                                                                x80))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "XML"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x81,+                                                                                                       DI.genTerm+                                                                                                         x82]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x81+                                                                                                      x82))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x83,+                                                                                             DI.genTerm+                                                                                               x84]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x83+                                                                                            x84))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x85,+                                                                                   DI.genTerm x86]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x85+                                                                                  x86))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x87,+                                                                         DI.genTerm x88]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x87+                                                                        x88))+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x89, DI.genTerm x90]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x89+                                                           x90)+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x91, DI.genTerm x92]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x91 x92)+                                  DM.funcCallHook "error"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x93]))+                                    (Curry.DebugModule.Prelude.strict_error x93)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x95 <- do x94 <- Prelude.return x3+                                            DM.funcCallHook "head"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x94]))+                                              (Curry.DebugModule.Prelude.strict_head x94)+                                  DM.funcCallHook "return"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x95]))+                                    (Curry.DebugModule.Prelude.strict_return x95)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x96])))+                           (strict__case_67 x1 x3)+                           x96)))+term_strict__case_67 x1 = DI.Term "_case_67" (DI.SrcID "XML" 0) x1+strict__case_73 x1+  = DM.eval+      (DM.funcDeclHook "_case_73"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- do x4 <- Prelude.return x2+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char '#'))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_72"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_72 x6 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_73+                           x9)))+term_strict__case_73 x1 = DI.Term "_case_73" (DI.SrcID "XML" 0) x1+strict__case_72 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_72"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x9 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x3+                                  DM.funcCallHook "_case_71"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5]))+                                    (strict__case_71 x5)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- DM.funcCallHook "otherwise"+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_69"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_69 x6 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           (strict__case_72 x2 x3)+                           x9)))+term_strict__case_72 x1 = DI.Term "_case_72" (DI.SrcID "XML" 0) x1+strict__case_69 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_69"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x13 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- DM.litHook+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return (Curry.DebugModule.Prelude.Char '&'))+                                  x12 <- do x9 <- do x5 <- Prelude.return x2+                                                     x6 <- Prelude.return x3+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "XML" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x5, DI.genTerm x6]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x5 x6))+                                            x10 <- do x7 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    ';'))+                                                      x8 <- DM.constructorHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 Curry.DebugModule.Prelude.Nil)+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x7, DI.genTerm x8]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x7 x8))+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x9 x10)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_69 x2 x3)+                           x13)))+term_strict__case_69 x1 = DI.Term "_case_69" (DI.SrcID "XML" 0) x1+strict__case_71 x3+  = DM.eval+      (DM.funcDeclHook "_case_71"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x3]))+         (do x16 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.Cons x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x3+                                  x9 <- Prelude.return x4+                                  x10 <- Prelude.return x5+                                  x11 <- do x6 <- Prelude.return x4+                                            x7 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Char 'x'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Curry.DebugModule.Prelude.op_EqEq x6 x7)+                                  DM.funcCallHook "_case_70"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10,+                                           DI.genTerm x11]))+                                    (strict__case_70 x8 x9 x10 x11)))+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- do x13 <- do x12 <- Prelude.return x3+                                                      DM.funcCallHook "readInt"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x12]))+                                                        (Curry.DebugModule.Read.strict_readInt x12)+                                            DM.funcCallHook "chr"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x13]))+                                              (Curry.DebugModule.Prelude.strict_chr x13)+                                  x15 <- DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x14 x15))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           strict__case_71+                           x16)))+term_strict__case_71 x1 = DI.Term "_case_71" (DI.SrcID "XML" 0) x1+strict__case_70 x3 x4 x5 x6+  = DM.eval+      (DM.funcDeclHook "_case_70"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x3, DI.genTerm x4, DI.genTerm x5, DI.genTerm x6]))+         (do x15 <- Prelude.return x6+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x15]))+               (case x15 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x9 <- do x8 <- do x7 <- Prelude.return x5+                                                    DM.funcCallHook "readHex"+                                                      (DI.DebugInfo (DI.SrcID "XML" 0)+                                                         (DI.DynamicInfo [] [DI.genTerm x7]))+                                                      (Curry.DebugModule.Read.strict_readHex x7)+                                           DM.funcCallHook "chr"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x8]))+                                             (Curry.DebugModule.Prelude.strict_chr x8)+                                  x10 <- DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x9, DI.genTerm x10]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x9 x10))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- do x12 <- do x11 <- Prelude.return x3+                                                      DM.funcCallHook "readInt"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x11]))+                                                        (Curry.DebugModule.Read.strict_readInt x11)+                                            DM.funcCallHook "chr"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x12]))+                                              (Curry.DebugModule.Prelude.strict_chr x12)+                                  x14 <- DM.constructorHook+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return Curry.DebugModule.Prelude.Nil)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x13, DI.genTerm x14]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x13 x14))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x15])))+                           (strict__case_70 x3 x4 x5)+                           x15)))+term_strict__case_70 x1 = DI.Term "_case_70" (DI.SrcID "XML" 0) x1+strict__case_86 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_86"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x16 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x16]))+               (case x16 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char '<'))+                                  x6 <- do x4 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (strict_xmlUnquoteSpecials x4)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x13 <- Prelude.return x1+                                  x14 <- Prelude.return x2+                                  x15 <- do x11 <- Prelude.return x1+                                            x12 <- do x9 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    'g'))+                                                      x10 <- do x7 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "XML" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Char+                                                                              't'))+                                                                x8 <- DM.constructorHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "XML" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           Curry.DebugModule.Prelude.Nil)+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x7,+                                                                         DI.genTerm x8]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x7+                                                                        x8))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x9 x10))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12]))+                                              (Curry.DebugModule.Prelude.op_EqEq x11 x12)+                                  DM.funcCallHook "_case_85"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x13, DI.genTerm x14, DI.genTerm x15]))+                                    (strict__case_85 x13 x14 x15)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x16])))+                           (strict__case_86 x1 x2)+                           x16)))+term_strict__case_86 x1 = DI.Term "_case_86" (DI.SrcID "XML" 0) x1+strict__case_85 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_85"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x18 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x18]))+               (case x18 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char '>'))+                                  x6 <- do x4 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (strict_xmlUnquoteSpecials x4)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- Prelude.return x1+                                  x16 <- Prelude.return x2+                                  x17 <- do x13 <- Prelude.return x1+                                            x14 <- do x11 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'a'))+                                                      x12 <- do x9 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "XML" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Char+                                                                              'm'))+                                                                x10 <- do x7 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        'p'))+                                                                          x8 <- DM.constructorHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     Curry.DebugModule.Prelude.Nil)+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x7,+                                                                                   DI.genTerm x8]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x7+                                                                                  x8))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x9,+                                                                         DI.genTerm x10]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x9+                                                                        x10))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x11, DI.genTerm x12]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x11 x12))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x13, DI.genTerm x14]))+                                              (Curry.DebugModule.Prelude.op_EqEq x13 x14)+                                  DM.funcCallHook "_case_84"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x15, DI.genTerm x16, DI.genTerm x17]))+                                    (strict__case_84 x15 x16 x17)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x18])))+                           (strict__case_85 x1 x2)+                           x18)))+term_strict__case_85 x1 = DI.Term "_case_85" (DI.SrcID "XML" 0) x1+strict__case_84 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_84"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x20 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char '&'))+                                  x6 <- do x4 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (strict_xmlUnquoteSpecials x4)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- Prelude.return x1+                                  x18 <- Prelude.return x2+                                  x19 <- do x15 <- Prelude.return x1+                                            x16 <- do x13 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'q'))+                                                      x14 <- do x11 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'u'))+                                                                x12 <- do x9 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        'o'))+                                                                          x10 <- do x7 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  't'))+                                                                                    x8 <- DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x7,+                                                                                             DI.genTerm+                                                                                               x8]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x7+                                                                                            x8))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x9,+                                                                                   DI.genTerm x10]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x9+                                                                                  x10))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x11+                                                                        x12))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x13 x14))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Curry.DebugModule.Prelude.op_EqEq x15 x16)+                                  DM.funcCallHook "_case_83"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19]))+                                    (strict__case_83 x17 x18 x19)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_84 x1 x2)+                           x20)))+term_strict__case_84 x1 = DI.Term "_case_84" (DI.SrcID "XML" 0) x1+strict__case_83 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_83"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x20 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char '"'))+                                  x6 <- do x4 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (strict_xmlUnquoteSpecials x4)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- Prelude.return x1+                                  x18 <- Prelude.return x2+                                  x19 <- do x15 <- Prelude.return x1+                                            x16 <- do x13 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'a'))+                                                      x14 <- do x11 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'p'))+                                                                x12 <- do x9 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        'o'))+                                                                          x10 <- do x7 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  's'))+                                                                                    x8 <- DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x7,+                                                                                             DI.genTerm+                                                                                               x8]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x7+                                                                                            x8))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x9,+                                                                                   DI.genTerm x10]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x9+                                                                                  x10))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x11+                                                                        x12))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x13 x14))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Curry.DebugModule.Prelude.op_EqEq x15 x16)+                                  DM.funcCallHook "_case_82"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19]))+                                    (strict__case_82 x17 x18 x19)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_83 x1 x2)+                           x20)))+term_strict__case_83 x1 = DI.Term "_case_83" (DI.SrcID "XML" 0) x1+strict__case_82 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_82"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x20 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x20]))+               (case x20 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char '\''))+                                  x6 <- do x4 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (strict_xmlUnquoteSpecials x4)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- Prelude.return x1+                                  x18 <- Prelude.return x2+                                  x19 <- do x15 <- Prelude.return x1+                                            x16 <- do x13 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'a'))+                                                      x14 <- do x11 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'u'))+                                                                x12 <- do x9 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        'm'))+                                                                          x10 <- do x7 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  'l'))+                                                                                    x8 <- DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x7,+                                                                                             DI.genTerm+                                                                                               x8]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x7+                                                                                            x8))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x9,+                                                                                   DI.genTerm x10]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x9+                                                                                  x10))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x11+                                                                        x12))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x13 x14))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Curry.DebugModule.Prelude.op_EqEq x15 x16)+                                  DM.funcCallHook "_case_81"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x17, DI.genTerm x18, DI.genTerm x19]))+                                    (strict__case_81 x17 x18 x19)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x20])))+                           (strict__case_82 x1 x2)+                           x20)))+term_strict__case_82 x1 = DI.Term "_case_82" (DI.SrcID "XML" 0) x1+strict__case_81 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_81"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x21 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.O+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.O+                                                                        (Curry.DebugModule.Prelude.I+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "chr"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.strict_chr x4)+                                  x7 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_xmlUnquoteSpecials x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- Prelude.return x1+                                  x19 <- Prelude.return x2+                                  x20 <- do x16 <- Prelude.return x1+                                            x17 <- do x14 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'o'))+                                                      x15 <- do x12 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'u'))+                                                                x13 <- do x10 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'm'))+                                                                          x11 <- do x8 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  'l'))+                                                                                    x9 <- DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x8,+                                                                                             DI.genTerm+                                                                                               x9]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x8+                                                                                            x9))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x10,+                                                                                   DI.genTerm x11]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x10+                                                                                  x11))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12,+                                                                         DI.genTerm x13]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x12+                                                                        x13))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x14, DI.genTerm x15]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x14 x15))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x16, DI.genTerm x17]))+                                              (Curry.DebugModule.Prelude.op_EqEq x16 x17)+                                  DM.funcCallHook "_case_80"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20]))+                                    (strict__case_80 x18 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_81 x1 x2)+                           x21)))+term_strict__case_81 x1 = DI.Term "_case_81" (DI.SrcID "XML" 0) x1+strict__case_80 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_80"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x21 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.I+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.I+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "chr"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.strict_chr x4)+                                  x7 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_xmlUnquoteSpecials x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- Prelude.return x1+                                  x19 <- Prelude.return x2+                                  x20 <- do x16 <- Prelude.return x1+                                            x17 <- do x14 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'u'))+                                                      x15 <- do x12 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'u'))+                                                                x13 <- do x10 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'm'))+                                                                          x11 <- do x8 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  'l'))+                                                                                    x9 <- DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x8,+                                                                                             DI.genTerm+                                                                                               x9]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x8+                                                                                            x9))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x10,+                                                                                   DI.genTerm x11]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x10+                                                                                  x11))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12,+                                                                         DI.genTerm x13]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x12+                                                                        x13))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x14, DI.genTerm x15]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x14 x15))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x16, DI.genTerm x17]))+                                              (Curry.DebugModule.Prelude.op_EqEq x16 x17)+                                  DM.funcCallHook "_case_79"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20]))+                                    (strict__case_79 x18 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_80 x1 x2)+                           x21)))+term_strict__case_80 x1 = DI.Term "_case_80" (DI.SrcID "XML" 0) x1+strict__case_79 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_79"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x21 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.O+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.I+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.I+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "chr"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.strict_chr x4)+                                  x7 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_xmlUnquoteSpecials x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- Prelude.return x1+                                  x19 <- Prelude.return x2+                                  x20 <- do x16 <- Prelude.return x1+                                            x17 <- do x14 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'A'))+                                                      x15 <- do x12 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'u'))+                                                                x13 <- do x10 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'm'))+                                                                          x11 <- do x8 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  'l'))+                                                                                    x9 <- DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x8,+                                                                                             DI.genTerm+                                                                                               x9]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x8+                                                                                            x9))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x10,+                                                                                   DI.genTerm x11]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x10+                                                                                  x11))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12,+                                                                         DI.genTerm x13]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x12+                                                                        x13))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x14, DI.genTerm x15]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x14 x15))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x16, DI.genTerm x17]))+                                              (Curry.DebugModule.Prelude.op_EqEq x16 x17)+                                  DM.funcCallHook "_case_78"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20]))+                                    (strict__case_78 x18 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_79 x1 x2)+                           x21)))+term_strict__case_79 x1 = DI.Term "_case_79" (DI.SrcID "XML" 0) x1+strict__case_78 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_78"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x21 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.O+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.O+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "chr"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.strict_chr x4)+                                  x7 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_xmlUnquoteSpecials x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- Prelude.return x1+                                  x19 <- Prelude.return x2+                                  x20 <- do x16 <- Prelude.return x1+                                            x17 <- do x14 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'O'))+                                                      x15 <- do x12 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'u'))+                                                                x13 <- do x10 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'm'))+                                                                          x11 <- do x8 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  'l'))+                                                                                    x9 <- DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x8,+                                                                                             DI.genTerm+                                                                                               x9]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x8+                                                                                            x9))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x10,+                                                                                   DI.genTerm x11]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x10+                                                                                  x11))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12,+                                                                         DI.genTerm x13]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x12+                                                                        x13))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x14, DI.genTerm x15]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x14 x15))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x16, DI.genTerm x17]))+                                              (Curry.DebugModule.Prelude.op_EqEq x16 x17)+                                  DM.funcCallHook "_case_77"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20]))+                                    (strict__case_77 x18 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_78 x1 x2)+                           x21)))+term_strict__case_78 x1 = DI.Term "_case_78" (DI.SrcID "XML" 0) x1+strict__case_77 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_77"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x21 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.I+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.O+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "chr"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.strict_chr x4)+                                  x7 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_xmlUnquoteSpecials x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- Prelude.return x1+                                  x19 <- Prelude.return x2+                                  x20 <- do x16 <- Prelude.return x1+                                            x17 <- do x14 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'U'))+                                                      x15 <- do x12 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'u'))+                                                                x13 <- do x10 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'm'))+                                                                          x11 <- do x8 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  'l'))+                                                                                    x9 <- DM.constructorHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               Curry.DebugModule.Prelude.Nil)+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x8,+                                                                                             DI.genTerm+                                                                                               x9]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x8+                                                                                            x9))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x10,+                                                                                   DI.genTerm x11]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x10+                                                                                  x11))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x12,+                                                                         DI.genTerm x13]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x12+                                                                        x13))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x14, DI.genTerm x15]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x14 x15))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x16, DI.genTerm x17]))+                                              (Curry.DebugModule.Prelude.op_EqEq x16 x17)+                                  DM.funcCallHook "_case_76"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20]))+                                    (strict__case_76 x18 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_77 x1 x2)+                           x21)))+term_strict__case_77 x1 = DI.Term "_case_77" (DI.SrcID "XML" 0) x1+strict__case_76 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_76"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x23 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x23]))+               (case x23 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.O+                                                            (Curry.DebugModule.Prelude.O+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.I+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "chr"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.strict_chr x4)+                                  x7 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_xmlUnquoteSpecials x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x20 <- Prelude.return x1+                                  x21 <- Prelude.return x2+                                  x22 <- do x18 <- Prelude.return x1+                                            x19 <- do x16 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     's'))+                                                      x17 <- do x14 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'z'))+                                                                x15 <- do x12 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'l'))+                                                                          x13 <- do x10 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   'i'))+                                                                                    x11 <- do x8 <- DM.litHook+                                                                                                      (DI.DebugInfo+                                                                                                         (DI.SrcID+                                                                                                            "XML"+                                                                                                            0)+                                                                                                         (DI.DynamicInfo+                                                                                                            []+                                                                                                            []))+                                                                                                      (Prelude.return+                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                            'g'))+                                                                                              x9 <- DM.constructorHook+                                                                                                      (DI.DebugInfo+                                                                                                         (DI.SrcID+                                                                                                            "XML"+                                                                                                            0)+                                                                                                         (DI.DynamicInfo+                                                                                                            []+                                                                                                            []))+                                                                                                      (Prelude.return+                                                                                                         Curry.DebugModule.Prelude.Nil)+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "XML"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x8,+                                                                                                       DI.genTerm+                                                                                                         x9]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x8+                                                                                                      x9))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x10,+                                                                                             DI.genTerm+                                                                                               x11]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x10+                                                                                            x11))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x12,+                                                                                   DI.genTerm x13]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x12+                                                                                  x13))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x14,+                                                                         DI.genTerm x15]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x14+                                                                        x15))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x16, DI.genTerm x17]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x16 x17))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x18, DI.genTerm x19]))+                                              (Curry.DebugModule.Prelude.op_EqEq x18 x19)+                                  DM.funcCallHook "_case_75"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x20, DI.genTerm x21, DI.genTerm x22]))+                                    (strict__case_75 x20 x21 x22)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x23])))+                           (strict__case_76 x1 x2)+                           x23)))+term_strict__case_76 x1 = DI.Term "_case_76" (DI.SrcID "XML" 0) x1+strict__case_75 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_75"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x11 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Pos+                                                         (Curry.DebugModule.Prelude.I+                                                            (Curry.DebugModule.Prelude.I+                                                               (Curry.DebugModule.Prelude.I+                                                                  (Curry.DebugModule.Prelude.I+                                                                     (Curry.DebugModule.Prelude.I+                                                                        (Curry.DebugModule.Prelude.O+                                                                           (Curry.DebugModule.Prelude.I+                                                                              Curry.DebugModule.Prelude.IHi)))))))))+                                           DM.funcCallHook "chr"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (Curry.DebugModule.Prelude.strict_chr x4)+                                  x7 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_xmlUnquoteSpecials x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x1+                                  x9 <- Prelude.return x2+                                  x10 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_74"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_74 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           (strict__case_75 x1 x2)+                           x11)))+term_strict__case_75 x1 = DI.Term "_case_75" (DI.SrcID "XML" 0) x1+strict__case_74 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_74"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x8 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- do x4 <- Prelude.return x1+                                           DM.funcCallHook "unquoteUnicode"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4]))+                                             (strict_unquoteUnicode x4)+                                  x7 <- do x5 <- Prelude.return x2+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_xmlUnquoteSpecials x5)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x6 x7)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_74 x1 x2)+                           x8)))+term_strict__case_74 x1 = DI.Term "_case_74" (DI.SrcID "XML" 0) x1+strict__case_87 x1+  = DM.eval+      (DM.funcDeclHook "_case_87"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x3))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_87+                           x4)))+term_strict__case_87 x1 = DI.Term "_case_87" (DI.SrcID "XML" 0) x1+strict__case_88 x1+  = DM.eval+      (DM.funcDeclHook "_case_88"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x4 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x4]))+               (case x4 of+                    Curry.DebugModule.Prelude.Tuple2 x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x2))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x4])))+                           strict__case_88+                           x4)))+term_strict__case_88 x1 = DI.Term "_case_88" (DI.SrcID "XML" 0) x1+strict__case_91 x1+  = DM.eval+      (DM.funcDeclHook "_case_91"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- do x4 <- Prelude.return x2+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char '&'))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_90"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_90 x6 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_91+                           x9)))+term_strict__case_91 x1 = DI.Term "_case_91" (DI.SrcID "XML" 0) x1+strict__case_90 x2 x3 x7+  = DM.eval+      (DM.funcDeclHook "_case_90"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x7]))+         (do x17 <- Prelude.return x7+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x17]))+               (case x17 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x4 <- do x8 <- DM.litHook+                                                      (DI.DebugInfo (DI.SrcID "XML" 0)+                                                         (DI.DynamicInfo [] []))+                                                      (Prelude.return+                                                         (Curry.DebugModule.Prelude.Char ';'))+                                              x9 <- Prelude.return x3+                                              DM.funcCallHook "splitAtChar"+                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                   (DI.DynamicInfo []+                                                      [DI.genTerm x8, DI.genTerm x9]))+                                                (strict_splitAtChar x8 x9)+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x5 <- do x10 <- Prelude.return x4+                                                       DM.funcCallHook+                                                         "xmlUnquoteSpecials._#selFP5#special"+                                                         (DI.DebugInfo (DI.SrcID "XML" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x10]))+                                                         (x'xstrict_xmlUnquoteSpecials46_35selFP535special+                                                            x10)+                                              DM.eval+                                                (DM.letHook+                                                   (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                                      (DI.DynamicInfo [] []))+                                                   (do x6 <- do x11 <- Prelude.return x4+                                                                DM.funcCallHook+                                                                  "xmlUnquoteSpecials._#selFP6#rest"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11]))+                                                                  (x'xstrict_xmlUnquoteSpecials46_35selFP635rest+                                                                     x11)+                                                       DM.eval+                                                         (do x12 <- Prelude.return x5+                                                             x13 <- Prelude.return x6+                                                             DM.funcCallHook "xmlUnquoteSpecial"+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo []+                                                                     [DI.genTerm x12,+                                                                      DI.genTerm x13]))+                                                               (strict_xmlUnquoteSpecial x12+                                                                  x13)))))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- Prelude.return x2+                                  x15 <- Prelude.return x3+                                  x16 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_89"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x14, DI.genTerm x15, DI.genTerm x16]))+                                    (strict__case_89 x14 x15 x16)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x17])))+                           (strict__case_90 x2 x3)+                           x17)))+term_strict__case_90 x1 = DI.Term "_case_90" (DI.SrcID "XML" 0) x1+strict__case_89 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_89"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x8 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- do x5 <- Prelude.return x3+                                           DM.funcCallHook "xmlUnquoteSpecials"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_xmlUnquoteSpecials x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_89 x2 x3)+                           x8)))+term_strict__case_89 x1 = DI.Term "_case_89" (DI.SrcID "XML" 0) x1+strict__case_92 x1+  = DM.eval+      (DM.funcDeclHook "_case_92"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    XText x2+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.True)))+                    XElem x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.False)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_92+                           x6)))+term_strict__case_92 x1 = DI.Term "_case_92" (DI.SrcID "XML" 0) x1+strict__case_93 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_93"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x19 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x19]))+               (case x19 of+                    Curry.DebugModule.Prelude.Tuple2 x3 x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x17 <- Prelude.return x3+                                  x18 <- do x15 <- do x7 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    '='))+                                                      x8 <- do x5 <- DM.litHook+                                                                       (DI.DebugInfo+                                                                          (DI.SrcID "XML" 0)+                                                                          (DI.DynamicInfo [] []))+                                                                       (Prelude.return+                                                                          (Curry.DebugModule.Prelude.Char+                                                                             '"'))+                                                               x6 <- DM.constructorHook+                                                                       (DI.DebugInfo+                                                                          (DI.SrcID "XML" 0)+                                                                          (DI.DynamicInfo [] []))+                                                                       (Prelude.return+                                                                          Curry.DebugModule.Prelude.Nil)+                                                               DM.constructorHook+                                                                 (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                    (DI.DynamicInfo []+                                                                       [DI.genTerm x5,+                                                                        DI.genTerm x6]))+                                                                 (Prelude.return+                                                                    (Curry.DebugModule.Prelude.Cons+                                                                       x5+                                                                       x6))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x7, DI.genTerm x8]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x7 x8))+                                            x16 <- do x13 <- do x9 <- Prelude.return x1+                                                                x10 <- Prelude.return x4+                                                                DM.funcCallHook "apply"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x9,+                                                                         DI.genTerm x10]))+                                                                  (Curry.DebugModule.Prelude.strict_apply+                                                                     x9+                                                                     x10)+                                                      x14 <- do x11 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               '"'))+                                                                x12 <- DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            Curry.DebugModule.Prelude.Nil)+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x11+                                                                        x12))+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x13+                                                           x14)+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x15 x16)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x17, DI.genTerm x18]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x17 x18)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x19])))+                           (strict__case_93 x1)+                           x19)))+term_strict__case_93 x1 = DI.Term "_case_93" (DI.SrcID "XML" 0) x1+strict__case_96 x1+  = DM.eval+      (DM.funcDeclHook "_case_96"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x3+                                  x5 <- Prelude.return x2+                                  DM.funcCallHook "_case_95"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (strict__case_95 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_96+                           x6)))+term_strict__case_96 x1 = DI.Term "_case_96" (DI.SrcID "XML" 0) x1+strict__case_95 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_95"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    XText x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- Prelude.return x4+                                  x6 <- Prelude.return x3+                                  DM.funcCallHook "_case_94"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (strict__case_94 x5 x6)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_95 x3)+                           x7)))+term_strict__case_95 x1 = DI.Term "_case_95" (DI.SrcID "XML" 0) x1+strict__case_94 x4 x3+  = DM.eval+      (DM.funcDeclHook "_case_94"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x3]))+         (do x5 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x5]))+               (case x5 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x4))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x5])))+                           (strict__case_94 x4)+                           x5)))+term_strict__case_94 x1 = DI.Term "_case_94" (DI.SrcID "XML" 0) x1+strict__case_99 x1 x2 x3+  = DM.eval+      (DM.funcDeclHook "_case_99"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2, DI.genTerm x3]))+         (do x32 <- Prelude.return x3+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x32]))+               (case x32 of+                    XText x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- do x8 <- Prelude.return x1+                                            DM.funcCallHook "xtab"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x8]))+                                              (strict_xtab x8)+                                  x16 <- do x13 <- do x9 <- Prelude.return x2+                                                      x10 <- Prelude.return x4+                                                      DM.funcCallHook "apply"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Curry.DebugModule.Prelude.strict_apply x9+                                                           x10)+                                            x14 <- do x11 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '\n'))+                                                      x12 <- DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  Curry.DebugModule.Prelude.Nil)+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x11, DI.genTerm x12]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x11 x12))+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x13, DI.genTerm x14]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x13 x14)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x15 x16)))+                    XElem x5 x6 x7+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x30 <- do x17 <- Prelude.return x1+                                            DM.funcCallHook "xtab"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x17]))+                                              (strict_xtab x17)+                                  x31 <- do x28 <- do x18 <- Prelude.return x5+                                                      x19 <- Prelude.return x6+                                                      x20 <- Prelude.return x2+                                                      DM.funcCallHook "showXmlOpenTag"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x18, DI.genTerm x19,+                                                               DI.genTerm x20]))+                                                        (strict_showXmlOpenTag x18 x19 x20)+                                            x29 <- do x23 <- Prelude.return x1+                                                      x24 <- Prelude.return x2+                                                      x25 <- Prelude.return x5+                                                      x26 <- Prelude.return x7+                                                      x27 <- do x21 <- Prelude.return x7+                                                                x22 <- DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            Curry.DebugModule.Prelude.Nil)+                                                                DM.funcCallHook "=="+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x21,+                                                                         DI.genTerm x22]))+                                                                  (Curry.DebugModule.Prelude.op_EqEq+                                                                     x21+                                                                     x22)+                                                      DM.funcCallHook "_case_98"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x23, DI.genTerm x24,+                                                               DI.genTerm x25, DI.genTerm x26,+                                                               DI.genTerm x27]))+                                                        (strict__case_98 x23 x24 x25 x26 x27)+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x28, DI.genTerm x29]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x28 x29)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x30, DI.genTerm x31]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x30 x31)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x32])))+                           (strict__case_99 x1 x2)+                           x32)))+term_strict__case_99 x1 = DI.Term "_case_99" (DI.SrcID "XML" 0) x1+strict__case_98 x1 x2 x5 x7 x8+  = DM.eval+      (DM.funcDeclHook "_case_98"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5, DI.genTerm x7,+                DI.genTerm x8]))+         (do x29 <- Prelude.return x8+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x29]))+               (case x29 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x15 <- DM.litHook+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return (Curry.DebugModule.Prelude.Char ' '))+                                  x16 <- do x13 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '/'))+                                            x14 <- do x11 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '>'))+                                                      x12 <- do x9 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "XML" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Char+                                                                              '\n'))+                                                                x10 <- DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            Curry.DebugModule.Prelude.Nil)+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x9,+                                                                         DI.genTerm x10]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x9+                                                                        x10))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x11, DI.genTerm x12]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x11 x12))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x13, DI.genTerm x14]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x13 x14))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x15, DI.genTerm x16]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x15 x16))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x24 <- Prelude.return x1+                                  x25 <- Prelude.return x2+                                  x26 <- Prelude.return x5+                                  x27 <- Prelude.return x7+                                  x28 <- do x22 <- do x18 <- do x17 <- Prelude.return x7+                                                                DM.funcCallHook "length"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x17]))+                                                                  (Curry.DebugModule.Prelude.strict_length+                                                                     x17)+                                                      x19 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Pos+                                                                     Curry.DebugModule.Prelude.IHi))+                                                      DM.funcCallHook "=="+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x18, DI.genTerm x19]))+                                                        (Curry.DebugModule.Prelude.op_EqEq x18 x19)+                                            x23 <- do x21 <- do x20 <- Prelude.return x7+                                                                DM.funcCallHook "head"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x20]))+                                                                  (Curry.DebugModule.Prelude.strict_head+                                                                     x20)+                                                      DM.funcCallHook "isXText"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x21]))+                                                        (strict_isXText x21)+                                            DM.funcCallHook "&&"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x22, DI.genTerm x23]))+                                              (Curry.DebugModule.Prelude.op_AndAnd x22 x23)+                                  DM.funcCallHook "_case_97"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x24, DI.genTerm x25, DI.genTerm x26,+                                           DI.genTerm x27, DI.genTerm x28]))+                                    (strict__case_97 x24 x25 x26 x27 x28)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x29])))+                           (strict__case_98 x1 x2 x5 x7)+                           x29)))+term_strict__case_98 x1 = DI.Term "_case_98" (DI.SrcID "XML" 0) x1+strict__case_97 x1 x2 x5 x7 x10+  = DM.eval+      (DM.funcDeclHook "_case_97"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo []+               [DI.genTerm x1, DI.genTerm x2, DI.genTerm x5, DI.genTerm x7,+                DI.genTerm x10]))+         (do x60 <- Prelude.return x10+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x60]))+               (case x60 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.letHook+                                 (DI.DebugInfo (DI.SrcID "DummyModule" 42) (DI.DynamicInfo [] []))+                                 (do x8 <- Prelude.return x7+                                     DM.eval+                                       (DM.letHook+                                          (DI.DebugInfo (DI.SrcID "DummyModule" 42)+                                             (DI.DynamicInfo [] []))+                                          (do x9 <- do x11 <- Prelude.return x8+                                                       DM.funcCallHook "showXmlExp._#selFP3#s"+                                                         (DI.DebugInfo (DI.SrcID "XML" 0)+                                                            (DI.DynamicInfo [] [DI.genTerm x11]))+                                                         (x'xstrict_showXmlExp46_35selFP335s x11)+                                              DM.eval+                                                (do x30 <- do x12 <- DM.litHook+                                                                       (DI.DebugInfo+                                                                          (DI.SrcID "XML" 0)+                                                                          (DI.DynamicInfo [] []))+                                                                       (Prelude.return+                                                                          (Curry.DebugModule.Prelude.Char+                                                                             '>'))+                                                              x13 <- DM.constructorHook+                                                                       (DI.DebugInfo+                                                                          (DI.SrcID "XML" 0)+                                                                          (DI.DynamicInfo [] []))+                                                                       (Prelude.return+                                                                          Curry.DebugModule.Prelude.Nil)+                                                              DM.constructorHook+                                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x12,+                                                                       DI.genTerm x13]))+                                                                (Prelude.return+                                                                   (Curry.DebugModule.Prelude.Cons+                                                                      x12+                                                                      x13))+                                                    x31 <- do x28 <- do x14 <- Prelude.return x2+                                                                        x15 <- Prelude.return x9+                                                                        DM.funcCallHook "apply"+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "XML" 0)+                                                                             (DI.DynamicInfo []+                                                                                [DI.genTerm x14,+                                                                                 DI.genTerm x15]))+                                                                          (Curry.DebugModule.Prelude.strict_apply+                                                                             x14+                                                                             x15)+                                                              x29 <- do x26 <- do x18 <- DM.litHook+                                                                                           (DI.DebugInfo+                                                                                              (DI.SrcID+                                                                                                 "XML"+                                                                                                 0)+                                                                                              (DI.DynamicInfo+                                                                                                 []+                                                                                                 []))+                                                                                           (Prelude.return+                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                 '<'))+                                                                                  x19 <- do x16 <- DM.litHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                           '/'))+                                                                                            x17 <- DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        Curry.DebugModule.Prelude.Nil)+                                                                                            DM.constructorHook+                                                                                              (DI.DebugInfo+                                                                                                 (DI.SrcID+                                                                                                    "XML"+                                                                                                    0)+                                                                                                 (DI.DynamicInfo+                                                                                                    []+                                                                                                    [DI.genTerm+                                                                                                       x16,+                                                                                                     DI.genTerm+                                                                                                       x17]))+                                                                                              (Prelude.return+                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                    x16+                                                                                                    x17))+                                                                                  DM.constructorHook+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "XML"+                                                                                          0)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          [DI.genTerm+                                                                                             x18,+                                                                                           DI.genTerm+                                                                                             x19]))+                                                                                    (Prelude.return+                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                          x18+                                                                                          x19))+                                                                        x27 <- do x24 <- Prelude.return+                                                                                           x5+                                                                                  x25 <- do x22 <- DM.litHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                           '>'))+                                                                                            x23 <- do x20 <- DM.litHook+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "XML"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     []))+                                                                                                               (Prelude.return+                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                     '\n'))+                                                                                                      x21 <- DM.constructorHook+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "XML"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     []))+                                                                                                               (Prelude.return+                                                                                                                  Curry.DebugModule.Prelude.Nil)+                                                                                                      DM.constructorHook+                                                                                                        (DI.DebugInfo+                                                                                                           (DI.SrcID+                                                                                                              "XML"+                                                                                                              0)+                                                                                                           (DI.DynamicInfo+                                                                                                              []+                                                                                                              [DI.genTerm+                                                                                                                 x20,+                                                                                                               DI.genTerm+                                                                                                                 x21]))+                                                                                                        (Prelude.return+                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                              x20+                                                                                                              x21))+                                                                                            DM.constructorHook+                                                                                              (DI.DebugInfo+                                                                                                 (DI.SrcID+                                                                                                    "XML"+                                                                                                    0)+                                                                                                 (DI.DynamicInfo+                                                                                                    []+                                                                                                    [DI.genTerm+                                                                                                       x22,+                                                                                                     DI.genTerm+                                                                                                       x23]))+                                                                                              (Prelude.return+                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                    x22+                                                                                                    x23))+                                                                                  DM.funcCallHook+                                                                                    "++"+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "XML"+                                                                                          0)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          [DI.genTerm+                                                                                             x24,+                                                                                           DI.genTerm+                                                                                             x25]))+                                                                                    (Curry.DebugModule.Prelude.op_PlusPlus+                                                                                       x24+                                                                                       x25)+                                                                        DM.funcCallHook "++"+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "XML" 0)+                                                                             (DI.DynamicInfo []+                                                                                [DI.genTerm x26,+                                                                                 DI.genTerm x27]))+                                                                          (Curry.DebugModule.Prelude.op_PlusPlus+                                                                             x26+                                                                             x27)+                                                              DM.funcCallHook "++"+                                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x28,+                                                                       DI.genTerm x29]))+                                                                (Curry.DebugModule.Prelude.op_PlusPlus+                                                                   x28+                                                                   x29)+                                                    DM.funcCallHook "++"+                                                      (DI.DebugInfo (DI.SrcID "XML" 0)+                                                         (DI.DynamicInfo []+                                                            [DI.genTerm x30, DI.genTerm x31]))+                                                      (Curry.DebugModule.Prelude.op_PlusPlus x30+                                                         x31)))))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x58 <- do x34 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '>'))+                                            x35 <- do x32 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '\n'))+                                                      x33 <- DM.constructorHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  Curry.DebugModule.Prelude.Nil)+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x32, DI.genTerm x33]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x32 x33))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x34, DI.genTerm x35]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x34 x35))+                                  x59 <- do x56 <- do x38 <- do x36 <- Prelude.return x1+                                                                x37 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Pos+                                                                               (Curry.DebugModule.Prelude.O+                                                                                  Curry.DebugModule.Prelude.IHi)))+                                                                DM.funcCallHook "+"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x36,+                                                                         DI.genTerm x37]))+                                                                  (Curry.DebugModule.Prelude.op_Plus+                                                                     x36+                                                                     x37)+                                                      x39 <- Prelude.return x7+                                                      x40 <- Prelude.return x2+                                                      DM.funcCallHook "showXmlExps"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x38, DI.genTerm x39,+                                                               DI.genTerm x40]))+                                                        (strict_showXmlExps x38 x39 x40)+                                            x57 <- do x54 <- do x41 <- Prelude.return x1+                                                                DM.funcCallHook "xtab"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x41]))+                                                                  (strict_xtab x41)+                                                      x55 <- do x52 <- do x44 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         '<'))+                                                                          x45 <- do x42 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   '/'))+                                                                                    x43 <- DM.constructorHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                Curry.DebugModule.Prelude.Nil)+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x42,+                                                                                             DI.genTerm+                                                                                               x43]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x42+                                                                                            x43))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x44,+                                                                                   DI.genTerm x45]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x44+                                                                                  x45))+                                                                x53 <- do x50 <- Prelude.return x5+                                                                          x51 <- do x48 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   '>'))+                                                                                    x49 <- do x46 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "XML"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             '\n'))+                                                                                              x47 <- DM.constructorHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "XML"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          Curry.DebugModule.Prelude.Nil)+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "XML"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x46,+                                                                                                       DI.genTerm+                                                                                                         x47]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x46+                                                                                                      x47))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x48,+                                                                                             DI.genTerm+                                                                                               x49]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x48+                                                                                            x49))+                                                                          DM.funcCallHook "++"+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x50,+                                                                                   DI.genTerm x51]))+                                                                            (Curry.DebugModule.Prelude.op_PlusPlus+                                                                               x50+                                                                               x51)+                                                                DM.funcCallHook "++"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x52,+                                                                         DI.genTerm x53]))+                                                                  (Curry.DebugModule.Prelude.op_PlusPlus+                                                                     x52+                                                                     x53)+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x54, DI.genTerm x55]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x54+                                                           x55)+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x56, DI.genTerm x57]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x56 x57)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x58, DI.genTerm x59]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x58 x59)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x60])))+                           (strict__case_97 x1 x2 x5 x7)+                           x60)))+term_strict__case_97 x1 = DI.Term "_case_97" (DI.SrcID "XML" 0) x1+strict__case_102 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_102"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x109 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x109]))+               (case x109 of+                    XElem x3 x4 x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x107 <- do x44 <- DM.litHook+                                                      (DI.DebugInfo (DI.SrcID "XML" 0)+                                                         (DI.DynamicInfo [] []))+                                                      (Prelude.return+                                                         (Curry.DebugModule.Prelude.Char '<'))+                                             x45 <- do x42 <- DM.litHook+                                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                   (DI.DynamicInfo [] []))+                                                                (Prelude.return+                                                                   (Curry.DebugModule.Prelude.Char+                                                                      '?'))+                                                       x43 <- do x40 <- DM.litHook+                                                                          (DI.DebugInfo+                                                                             (DI.SrcID "XML" 0)+                                                                             (DI.DynamicInfo [] []))+                                                                          (Prelude.return+                                                                             (Curry.DebugModule.Prelude.Char+                                                                                'x'))+                                                                 x41 <- do x38 <- DM.litHook+                                                                                    (DI.DebugInfo+                                                                                       (DI.SrcID+                                                                                          "XML"+                                                                                          0)+                                                                                       (DI.DynamicInfo+                                                                                          []+                                                                                          []))+                                                                                    (Prelude.return+                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                          'm'))+                                                                           x39 <- do x36 <- DM.litHook+                                                                                              (DI.DebugInfo+                                                                                                 (DI.SrcID+                                                                                                    "XML"+                                                                                                    0)+                                                                                                 (DI.DynamicInfo+                                                                                                    []+                                                                                                    []))+                                                                                              (Prelude.return+                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                    'l'))+                                                                                     x37 <- do x34 <- DM.litHook+                                                                                                        (DI.DebugInfo+                                                                                                           (DI.SrcID+                                                                                                              "XML"+                                                                                                              0)+                                                                                                           (DI.DynamicInfo+                                                                                                              []+                                                                                                              []))+                                                                                                        (Prelude.return+                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                              ' '))+                                                                                               x35 <- do x32 <- DM.litHook+                                                                                                                  (DI.DebugInfo+                                                                                                                     (DI.SrcID+                                                                                                                        "XML"+                                                                                                                        0)+                                                                                                                     (DI.DynamicInfo+                                                                                                                        []+                                                                                                                        []))+                                                                                                                  (Prelude.return+                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                        'v'))+                                                                                                         x33 <- do x30 <- DM.litHook+                                                                                                                            (DI.DebugInfo+                                                                                                                               (DI.SrcID+                                                                                                                                  "XML"+                                                                                                                                  0)+                                                                                                                               (DI.DynamicInfo+                                                                                                                                  []+                                                                                                                                  []))+                                                                                                                            (Prelude.return+                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                  'e'))+                                                                                                                   x31 <- do x28 <- DM.litHook+                                                                                                                                      (DI.DebugInfo+                                                                                                                                         (DI.SrcID+                                                                                                                                            "XML"+                                                                                                                                            0)+                                                                                                                                         (DI.DynamicInfo+                                                                                                                                            []+                                                                                                                                            []))+                                                                                                                                      (Prelude.return+                                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                                            'r'))+                                                                                                                             x29 <- do x26 <- DM.litHook+                                                                                                                                                (DI.DebugInfo+                                                                                                                                                   (DI.SrcID+                                                                                                                                                      "XML"+                                                                                                                                                      0)+                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                      []+                                                                                                                                                      []))+                                                                                                                                                (Prelude.return+                                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                                      's'))+                                                                                                                                       x27 <- do x24 <- DM.litHook+                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                             (DI.SrcID+                                                                                                                                                                "XML"+                                                                                                                                                                0)+                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                []+                                                                                                                                                                []))+                                                                                                                                                          (Prelude.return+                                                                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                                                                'i'))+                                                                                                                                                 x25 <- do x22 <- DM.litHook+                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                          "XML"+                                                                                                                                                                          0)+                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                          []+                                                                                                                                                                          []))+                                                                                                                                                                    (Prelude.return+                                                                                                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                                                                                                          'o'))+                                                                                                                                                           x23 <- do x20 <- DM.litHook+                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                    "XML"+                                                                                                                                                                                    0)+                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                    []+                                                                                                                                                                                    []))+                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                    'n'))+                                                                                                                                                                     x21 <- do x18 <- DM.litHook+                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                              "XML"+                                                                                                                                                                                              0)+                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                              []+                                                                                                                                                                                              []))+                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                              '='))+                                                                                                                                                                               x19 <- do x16 <- DM.litHook+                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                        0)+                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                        []+                                                                                                                                                                                                        []))+                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                        '"'))+                                                                                                                                                                                         x17 <- do x14 <- DM.litHook+                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                  0)+                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                  []+                                                                                                                                                                                                                  []))+                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                  '1'))+                                                                                                                                                                                                   x15 <- do x12 <- DM.litHook+                                                                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                                                                            "XML"+                                                                                                                                                                                                                            0)+                                                                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                                                                            []+                                                                                                                                                                                                                            []))+                                                                                                                                                                                                                      (Prelude.return+                                                                                                                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                            '.'))+                                                                                                                                                                                                             x13 <- do x10 <- DM.litHook+                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                      []))+                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                      '0'))+                                                                                                                                                                                                                       x11 <- do x8 <- DM.litHook+                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                               '"'))+                                                                                                                                                                                                                                 x9 <- do x6 <- DM.litHook+                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                        ' '))+                                                                                                                                                                                                                                          x7 <- DM.constructorHook+                                                                                                                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                                                                                                                     (DI.SrcID+                                                                                                                                                                                                                                                        "XML"+                                                                                                                                                                                                                                                        0)+                                                                                                                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                                                                                                                        []+                                                                                                                                                                                                                                                        []))+                                                                                                                                                                                                                                                  (Prelude.return+                                                                                                                                                                                                                                                     Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                          DM.constructorHook+                                                                                                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                                                                                                               (DI.SrcID+                                                                                                                                                                                                                                                  "XML"+                                                                                                                                                                                                                                                  0)+                                                                                                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                                                                                                  []+                                                                                                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                                                                                                     x6,+                                                                                                                                                                                                                                                   DI.genTerm+                                                                                                                                                                                                                                                     x7]))+                                                                                                                                                                                                                                            (Prelude.return+                                                                                                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                  x6+                                                                                                                                                                                                                                                  x7))+                                                                                                                                                                                                                                 DM.constructorHook+                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                         [DI.genTerm+                                                                                                                                                                                                                                            x8,+                                                                                                                                                                                                                                          DI.genTerm+                                                                                                                                                                                                                                            x9]))+                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                         x8+                                                                                                                                                                                                                                         x9))+                                                                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                               []+                                                                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                                                                  x10,+                                                                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                                                                  x11]))+                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                               x10+                                                                                                                                                                                                                               x11))+                                                                                                                                                                                                             DM.constructorHook+                                                                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                                                                     "XML"+                                                                                                                                                                                                                     0)+                                                                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                                                                     []+                                                                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                                                                        x12,+                                                                                                                                                                                                                      DI.genTerm+                                                                                                                                                                                                                        x13]))+                                                                                                                                                                                                               (Prelude.return+                                                                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                     x12+                                                                                                                                                                                                                     x13))+                                                                                                                                                                                                   DM.constructorHook+                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                           0)+                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                           []+                                                                                                                                                                                                           [DI.genTerm+                                                                                                                                                                                                              x14,+                                                                                                                                                                                                            DI.genTerm+                                                                                                                                                                                                              x15]))+                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                           x14+                                                                                                                                                                                                           x15))+                                                                                                                                                                                         DM.constructorHook+                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                 0)+                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                 []+                                                                                                                                                                                                 [DI.genTerm+                                                                                                                                                                                                    x16,+                                                                                                                                                                                                  DI.genTerm+                                                                                                                                                                                                    x17]))+                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                 x16+                                                                                                                                                                                                 x17))+                                                                                                                                                                               DM.constructorHook+                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                       "XML"+                                                                                                                                                                                       0)+                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                       []+                                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                                          x18,+                                                                                                                                                                                        DI.genTerm+                                                                                                                                                                                          x19]))+                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                       x18+                                                                                                                                                                                       x19))+                                                                                                                                                                     DM.constructorHook+                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                             "XML"+                                                                                                                                                                             0)+                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                             []+                                                                                                                                                                             [DI.genTerm+                                                                                                                                                                                x20,+                                                                                                                                                                              DI.genTerm+                                                                                                                                                                                x21]))+                                                                                                                                                                       (Prelude.return+                                                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                             x20+                                                                                                                                                                             x21))+                                                                                                                                                           DM.constructorHook+                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                (DI.SrcID+                                                                                                                                                                   "XML"+                                                                                                                                                                   0)+                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                   []+                                                                                                                                                                   [DI.genTerm+                                                                                                                                                                      x22,+                                                                                                                                                                    DI.genTerm+                                                                                                                                                                      x23]))+                                                                                                                                                             (Prelude.return+                                                                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                   x22+                                                                                                                                                                   x23))+                                                                                                                                                 DM.constructorHook+                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                      (DI.SrcID+                                                                                                                                                         "XML"+                                                                                                                                                         0)+                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                         []+                                                                                                                                                         [DI.genTerm+                                                                                                                                                            x24,+                                                                                                                                                          DI.genTerm+                                                                                                                                                            x25]))+                                                                                                                                                   (Prelude.return+                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                         x24+                                                                                                                                                         x25))+                                                                                                                                       DM.constructorHook+                                                                                                                                         (DI.DebugInfo+                                                                                                                                            (DI.SrcID+                                                                                                                                               "XML"+                                                                                                                                               0)+                                                                                                                                            (DI.DynamicInfo+                                                                                                                                               []+                                                                                                                                               [DI.genTerm+                                                                                                                                                  x26,+                                                                                                                                                DI.genTerm+                                                                                                                                                  x27]))+                                                                                                                                         (Prelude.return+                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                               x26+                                                                                                                                               x27))+                                                                                                                             DM.constructorHook+                                                                                                                               (DI.DebugInfo+                                                                                                                                  (DI.SrcID+                                                                                                                                     "XML"+                                                                                                                                     0)+                                                                                                                                  (DI.DynamicInfo+                                                                                                                                     []+                                                                                                                                     [DI.genTerm+                                                                                                                                        x28,+                                                                                                                                      DI.genTerm+                                                                                                                                        x29]))+                                                                                                                               (Prelude.return+                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                     x28+                                                                                                                                     x29))+                                                                                                                   DM.constructorHook+                                                                                                                     (DI.DebugInfo+                                                                                                                        (DI.SrcID+                                                                                                                           "XML"+                                                                                                                           0)+                                                                                                                        (DI.DynamicInfo+                                                                                                                           []+                                                                                                                           [DI.genTerm+                                                                                                                              x30,+                                                                                                                            DI.genTerm+                                                                                                                              x31]))+                                                                                                                     (Prelude.return+                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                           x30+                                                                                                                           x31))+                                                                                                         DM.constructorHook+                                                                                                           (DI.DebugInfo+                                                                                                              (DI.SrcID+                                                                                                                 "XML"+                                                                                                                 0)+                                                                                                              (DI.DynamicInfo+                                                                                                                 []+                                                                                                                 [DI.genTerm+                                                                                                                    x32,+                                                                                                                  DI.genTerm+                                                                                                                    x33]))+                                                                                                           (Prelude.return+                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                 x32+                                                                                                                 x33))+                                                                                               DM.constructorHook+                                                                                                 (DI.DebugInfo+                                                                                                    (DI.SrcID+                                                                                                       "XML"+                                                                                                       0)+                                                                                                    (DI.DynamicInfo+                                                                                                       []+                                                                                                       [DI.genTerm+                                                                                                          x34,+                                                                                                        DI.genTerm+                                                                                                          x35]))+                                                                                                 (Prelude.return+                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                       x34+                                                                                                       x35))+                                                                                     DM.constructorHook+                                                                                       (DI.DebugInfo+                                                                                          (DI.SrcID+                                                                                             "XML"+                                                                                             0)+                                                                                          (DI.DynamicInfo+                                                                                             []+                                                                                             [DI.genTerm+                                                                                                x36,+                                                                                              DI.genTerm+                                                                                                x37]))+                                                                                       (Prelude.return+                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                             x36+                                                                                             x37))+                                                                           DM.constructorHook+                                                                             (DI.DebugInfo+                                                                                (DI.SrcID "XML" 0)+                                                                                (DI.DynamicInfo []+                                                                                   [DI.genTerm x38,+                                                                                    DI.genTerm+                                                                                      x39]))+                                                                             (Prelude.return+                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                   x38+                                                                                   x39))+                                                                 DM.constructorHook+                                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                      (DI.DynamicInfo []+                                                                         [DI.genTerm x40,+                                                                          DI.genTerm x41]))+                                                                   (Prelude.return+                                                                      (Curry.DebugModule.Prelude.Cons+                                                                         x40+                                                                         x41))+                                                       DM.constructorHook+                                                         (DI.DebugInfo (DI.SrcID "XML" 0)+                                                            (DI.DynamicInfo []+                                                               [DI.genTerm x42, DI.genTerm x43]))+                                                         (Prelude.return+                                                            (Curry.DebugModule.Prelude.Cons x42+                                                               x43))+                                             DM.constructorHook+                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                  (DI.DynamicInfo []+                                                     [DI.genTerm x44, DI.genTerm x45]))+                                               (Prelude.return+                                                  (Curry.DebugModule.Prelude.Cons x44 x45))+                                  x108 <- do x105 <- do x47 <- do x46 <- Prelude.return x1+                                                                  DM.funcCallHook "lookupEncoding"+                                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                       (DI.DynamicInfo []+                                                                          [DI.genTerm x46]))+                                                                    (strict_lookupEncoding x46)+                                                        DM.funcCallHook "encoding2Attribute"+                                                          (DI.DebugInfo (DI.SrcID "XML" 0)+                                                             (DI.DynamicInfo [] [DI.genTerm x47]))+                                                          (strict_encoding2Attribute x47)+                                             x106 <- do x103 <- do x70 <- DM.litHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  []))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Char+                                                                                  's'))+                                                                   x71 <- do x68 <- DM.litHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            []))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                            't'))+                                                                             x69 <- do x66 <- DM.litHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "XML"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      []))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                      'a'))+                                                                                       x67 <- do x64 <- DM.litHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "XML"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                []))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                'n'))+                                                                                                 x65 <- do x62 <- DM.litHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "XML"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          []))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                                                          'd'))+                                                                                                           x63 <- do x60 <- DM.litHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "XML"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    []))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                    'a'))+                                                                                                                     x61 <- do x58 <- DM.litHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "XML"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              []))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Char+                                                                                                                                              'l'))+                                                                                                                               x59 <- do x56 <- DM.litHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "XML"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        []))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                                                                                        'o'))+                                                                                                                                         x57 <- do x54 <- DM.litHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "XML"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  []))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                                                                                  'n'))+                                                                                                                                                   x55 <- do x52 <- DM.litHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "XML"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            []))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Char+                                                                                                                                                                            'e'))+                                                                                                                                                             x53 <- do x50 <- DM.litHook+                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                      "XML"+                                                                                                                                                                                      0)+                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                      []+                                                                                                                                                                                      []))+                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                      '='))+                                                                                                                                                                       x51 <- do x48 <- DM.litHook+                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                "XML"+                                                                                                                                                                                                0)+                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                []+                                                                                                                                                                                                []))+                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                '"'))+                                                                                                                                                                                 x49 <- DM.constructorHook+                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                "XML"+                                                                                                                                                                                                0)+                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                []+                                                                                                                                                                                                []))+                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                             Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                 DM.constructorHook+                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                         "XML"+                                                                                                                                                                                         0)+                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                         []+                                                                                                                                                                                         [DI.genTerm+                                                                                                                                                                                            x48,+                                                                                                                                                                                          DI.genTerm+                                                                                                                                                                                            x49]))+                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                         x48+                                                                                                                                                                                         x49))+                                                                                                                                                                       DM.constructorHook+                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                               "XML"+                                                                                                                                                                               0)+                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                               []+                                                                                                                                                                               [DI.genTerm+                                                                                                                                                                                  x50,+                                                                                                                                                                                DI.genTerm+                                                                                                                                                                                  x51]))+                                                                                                                                                                         (Prelude.return+                                                                                                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                               x50+                                                                                                                                                                               x51))+                                                                                                                                                             DM.constructorHook+                                                                                                                                                               (DI.DebugInfo+                                                                                                                                                                  (DI.SrcID+                                                                                                                                                                     "XML"+                                                                                                                                                                     0)+                                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                                     []+                                                                                                                                                                     [DI.genTerm+                                                                                                                                                                        x52,+                                                                                                                                                                      DI.genTerm+                                                                                                                                                                        x53]))+                                                                                                                                                               (Prelude.return+                                                                                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                     x52+                                                                                                                                                                     x53))+                                                                                                                                                   DM.constructorHook+                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                        (DI.SrcID+                                                                                                                                                           "XML"+                                                                                                                                                           0)+                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                           []+                                                                                                                                                           [DI.genTerm+                                                                                                                                                              x54,+                                                                                                                                                            DI.genTerm+                                                                                                                                                              x55]))+                                                                                                                                                     (Prelude.return+                                                                                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                                                                                           x54+                                                                                                                                                           x55))+                                                                                                                                         DM.constructorHook+                                                                                                                                           (DI.DebugInfo+                                                                                                                                              (DI.SrcID+                                                                                                                                                 "XML"+                                                                                                                                                 0)+                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                 []+                                                                                                                                                 [DI.genTerm+                                                                                                                                                    x56,+                                                                                                                                                  DI.genTerm+                                                                                                                                                    x57]))+                                                                                                                                           (Prelude.return+                                                                                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                                                                                 x56+                                                                                                                                                 x57))+                                                                                                                               DM.constructorHook+                                                                                                                                 (DI.DebugInfo+                                                                                                                                    (DI.SrcID+                                                                                                                                       "XML"+                                                                                                                                       0)+                                                                                                                                    (DI.DynamicInfo+                                                                                                                                       []+                                                                                                                                       [DI.genTerm+                                                                                                                                          x58,+                                                                                                                                        DI.genTerm+                                                                                                                                          x59]))+                                                                                                                                 (Prelude.return+                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                       x58+                                                                                                                                       x59))+                                                                                                                     DM.constructorHook+                                                                                                                       (DI.DebugInfo+                                                                                                                          (DI.SrcID+                                                                                                                             "XML"+                                                                                                                             0)+                                                                                                                          (DI.DynamicInfo+                                                                                                                             []+                                                                                                                             [DI.genTerm+                                                                                                                                x60,+                                                                                                                              DI.genTerm+                                                                                                                                x61]))+                                                                                                                       (Prelude.return+                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                             x60+                                                                                                                             x61))+                                                                                                           DM.constructorHook+                                                                                                             (DI.DebugInfo+                                                                                                                (DI.SrcID+                                                                                                                   "XML"+                                                                                                                   0)+                                                                                                                (DI.DynamicInfo+                                                                                                                   []+                                                                                                                   [DI.genTerm+                                                                                                                      x62,+                                                                                                                    DI.genTerm+                                                                                                                      x63]))+                                                                                                             (Prelude.return+                                                                                                                (Curry.DebugModule.Prelude.Cons+                                                                                                                   x62+                                                                                                                   x63))+                                                                                                 DM.constructorHook+                                                                                                   (DI.DebugInfo+                                                                                                      (DI.SrcID+                                                                                                         "XML"+                                                                                                         0)+                                                                                                      (DI.DynamicInfo+                                                                                                         []+                                                                                                         [DI.genTerm+                                                                                                            x64,+                                                                                                          DI.genTerm+                                                                                                            x65]))+                                                                                                   (Prelude.return+                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                         x64+                                                                                                         x65))+                                                                                       DM.constructorHook+                                                                                         (DI.DebugInfo+                                                                                            (DI.SrcID+                                                                                               "XML"+                                                                                               0)+                                                                                            (DI.DynamicInfo+                                                                                               []+                                                                                               [DI.genTerm+                                                                                                  x66,+                                                                                                DI.genTerm+                                                                                                  x67]))+                                                                                         (Prelude.return+                                                                                            (Curry.DebugModule.Prelude.Cons+                                                                                               x66+                                                                                               x67))+                                                                             DM.constructorHook+                                                                               (DI.DebugInfo+                                                                                  (DI.SrcID "XML" 0)+                                                                                  (DI.DynamicInfo []+                                                                                     [DI.genTerm+                                                                                        x68,+                                                                                      DI.genTerm+                                                                                        x69]))+                                                                               (Prelude.return+                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                     x68+                                                                                     x69))+                                                                   DM.constructorHook+                                                                     (DI.DebugInfo+                                                                        (DI.SrcID "XML" 0)+                                                                        (DI.DynamicInfo []+                                                                           [DI.genTerm x70,+                                                                            DI.genTerm x71]))+                                                                     (Prelude.return+                                                                        (Curry.DebugModule.Prelude.Cons+                                                                           x70+                                                                           x71))+                                                        x104 <- do x101 <- do x73 <- Prelude.return+                                                                                       x1+                                                                              x74 <- do x72 <- Prelude.return+                                                                                                 x1+                                                                                        DM.funcCallHook+                                                                                          "hasDtdUrl"+                                                                                          (DI.DebugInfo+                                                                                             (DI.SrcID+                                                                                                "XML"+                                                                                                0)+                                                                                             (DI.DynamicInfo+                                                                                                []+                                                                                                [DI.genTerm+                                                                                                   x72]))+                                                                                          (strict_hasDtdUrl+                                                                                             x72)+                                                                              DM.funcCallHook+                                                                                "_case_101"+                                                                                (DI.DebugInfo+                                                                                   (DI.SrcID "XML"+                                                                                      0)+                                                                                   (DI.DynamicInfo+                                                                                      []+                                                                                      [DI.genTerm+                                                                                         x73,+                                                                                       DI.genTerm+                                                                                         x74]))+                                                                                (strict__case_101+                                                                                   x73+                                                                                   x74)+                                                                   x102 <- do x99 <- do x83 <- DM.litHook+                                                                                                 (DI.DebugInfo+                                                                                                    (DI.SrcID+                                                                                                       "XML"+                                                                                                       0)+                                                                                                    (DI.DynamicInfo+                                                                                                       []+                                                                                                       []))+                                                                                                 (Prelude.return+                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                       '"'))+                                                                                        x84 <- do x81 <- DM.litHook+                                                                                                           (DI.DebugInfo+                                                                                                              (DI.SrcID+                                                                                                                 "XML"+                                                                                                                 0)+                                                                                                              (DI.DynamicInfo+                                                                                                                 []+                                                                                                                 []))+                                                                                                           (Prelude.return+                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                 '?'))+                                                                                                  x82 <- do x79 <- DM.litHook+                                                                                                                     (DI.DebugInfo+                                                                                                                        (DI.SrcID+                                                                                                                           "XML"+                                                                                                                           0)+                                                                                                                        (DI.DynamicInfo+                                                                                                                           []+                                                                                                                           []))+                                                                                                                     (Prelude.return+                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                           '>'))+                                                                                                            x80 <- do x77 <- DM.litHook+                                                                                                                               (DI.DebugInfo+                                                                                                                                  (DI.SrcID+                                                                                                                                     "XML"+                                                                                                                                     0)+                                                                                                                                  (DI.DynamicInfo+                                                                                                                                     []+                                                                                                                                     []))+                                                                                                                               (Prelude.return+                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                     '\n'))+                                                                                                                      x78 <- do x75 <- DM.litHook+                                                                                                                                         (DI.DebugInfo+                                                                                                                                            (DI.SrcID+                                                                                                                                               "XML"+                                                                                                                                               0)+                                                                                                                                            (DI.DynamicInfo+                                                                                                                                               []+                                                                                                                                               []))+                                                                                                                                         (Prelude.return+                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                               '\n'))+                                                                                                                                x76 <- DM.constructorHook+                                                                                                                                         (DI.DebugInfo+                                                                                                                                            (DI.SrcID+                                                                                                                                               "XML"+                                                                                                                                               0)+                                                                                                                                            (DI.DynamicInfo+                                                                                                                                               []+                                                                                                                                               []))+                                                                                                                                         (Prelude.return+                                                                                                                                            Curry.DebugModule.Prelude.Nil)+                                                                                                                                DM.constructorHook+                                                                                                                                  (DI.DebugInfo+                                                                                                                                     (DI.SrcID+                                                                                                                                        "XML"+                                                                                                                                        0)+                                                                                                                                     (DI.DynamicInfo+                                                                                                                                        []+                                                                                                                                        [DI.genTerm+                                                                                                                                           x75,+                                                                                                                                         DI.genTerm+                                                                                                                                           x76]))+                                                                                                                                  (Prelude.return+                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                        x75+                                                                                                                                        x76))+                                                                                                                      DM.constructorHook+                                                                                                                        (DI.DebugInfo+                                                                                                                           (DI.SrcID+                                                                                                                              "XML"+                                                                                                                              0)+                                                                                                                           (DI.DynamicInfo+                                                                                                                              []+                                                                                                                              [DI.genTerm+                                                                                                                                 x77,+                                                                                                                               DI.genTerm+                                                                                                                                 x78]))+                                                                                                                        (Prelude.return+                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                              x77+                                                                                                                              x78))+                                                                                                            DM.constructorHook+                                                                                                              (DI.DebugInfo+                                                                                                                 (DI.SrcID+                                                                                                                    "XML"+                                                                                                                    0)+                                                                                                                 (DI.DynamicInfo+                                                                                                                    []+                                                                                                                    [DI.genTerm+                                                                                                                       x79,+                                                                                                                     DI.genTerm+                                                                                                                       x80]))+                                                                                                              (Prelude.return+                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                    x79+                                                                                                                    x80))+                                                                                                  DM.constructorHook+                                                                                                    (DI.DebugInfo+                                                                                                       (DI.SrcID+                                                                                                          "XML"+                                                                                                          0)+                                                                                                       (DI.DynamicInfo+                                                                                                          []+                                                                                                          [DI.genTerm+                                                                                                             x81,+                                                                                                           DI.genTerm+                                                                                                             x82]))+                                                                                                    (Prelude.return+                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                          x81+                                                                                                          x82))+                                                                                        DM.constructorHook+                                                                                          (DI.DebugInfo+                                                                                             (DI.SrcID+                                                                                                "XML"+                                                                                                0)+                                                                                             (DI.DynamicInfo+                                                                                                []+                                                                                                [DI.genTerm+                                                                                                   x83,+                                                                                                 DI.genTerm+                                                                                                   x84]))+                                                                                          (Prelude.return+                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                x83+                                                                                                x84))+                                                                              x100 <- do x97 <- do x86 <- Prelude.return+                                                                                                            x1+                                                                                                   x87 <- Prelude.return+                                                                                                            x3+                                                                                                   x88 <- do x85 <- Prelude.return+                                                                                                                      x1+                                                                                                             DM.funcCallHook+                                                                                                               "hasDtdUrl"+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "XML"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x85]))+                                                                                                               (strict_hasDtdUrl+                                                                                                                  x85)+                                                                                                   DM.funcCallHook+                                                                                                     "_case_100"+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           [DI.genTerm+                                                                                                              x86,+                                                                                                            DI.genTerm+                                                                                                              x87,+                                                                                                            DI.genTerm+                                                                                                              x88]))+                                                                                                     (strict__case_100+                                                                                                        x86+                                                                                                        x87+                                                                                                        x88)+                                                                                         x98 <- do x94 <- DM.litHook+                                                                                                            (DI.DebugInfo+                                                                                                               (DI.SrcID+                                                                                                                  "XML"+                                                                                                                  0)+                                                                                                               (DI.DynamicInfo+                                                                                                                  []+                                                                                                                  []))+                                                                                                            (Prelude.return+                                                                                                               Curry.DebugModule.Prelude.Zero)+                                                                                                   x95 <- do x90 <- do x89 <- Prelude.return+                                                                                                                                x1+                                                                                                                       DM.funcCallHook+                                                                                                                         "lookupEncoding"+                                                                                                                         (DI.DebugInfo+                                                                                                                            (DI.SrcID+                                                                                                                               "XML"+                                                                                                                               0)+                                                                                                                            (DI.DynamicInfo+                                                                                                                               []+                                                                                                                               [DI.genTerm+                                                                                                                                  x89]))+                                                                                                                         (strict_lookupEncoding+                                                                                                                            x89)+                                                                                                             DM.funcCallHook+                                                                                                               "encoding2EncFunc"+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "XML"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x90]))+                                                                                                               (strict_encoding2EncFunc+                                                                                                                  x90)+                                                                                                   x96 <- do x91 <- Prelude.return+                                                                                                                      x3+                                                                                                             x92 <- Prelude.return+                                                                                                                      x4+                                                                                                             x93 <- Prelude.return+                                                                                                                      x5+                                                                                                             DM.constructorHook+                                                                                                               (DI.DebugInfo+                                                                                                                  (DI.SrcID+                                                                                                                     "XML"+                                                                                                                     0)+                                                                                                                  (DI.DynamicInfo+                                                                                                                     []+                                                                                                                     [DI.genTerm+                                                                                                                        x91,+                                                                                                                      DI.genTerm+                                                                                                                        x92,+                                                                                                                      DI.genTerm+                                                                                                                        x93]))+                                                                                                               (Prelude.return+                                                                                                                  (XElem+                                                                                                                     x91+                                                                                                                     x92+                                                                                                                     x93))+                                                                                                   DM.funcCallHook+                                                                                                     "showXmlExp"+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           [DI.genTerm+                                                                                                              x94,+                                                                                                            DI.genTerm+                                                                                                              x95,+                                                                                                            DI.genTerm+                                                                                                              x96]))+                                                                                                     (strict_showXmlExp+                                                                                                        x94+                                                                                                        x95+                                                                                                        x96)+                                                                                         DM.funcCallHook+                                                                                           "++"+                                                                                           (DI.DebugInfo+                                                                                              (DI.SrcID+                                                                                                 "XML"+                                                                                                 0)+                                                                                              (DI.DynamicInfo+                                                                                                 []+                                                                                                 [DI.genTerm+                                                                                                    x97,+                                                                                                  DI.genTerm+                                                                                                    x98]))+                                                                                           (Curry.DebugModule.Prelude.op_PlusPlus+                                                                                              x97+                                                                                              x98)+                                                                              DM.funcCallHook "++"+                                                                                (DI.DebugInfo+                                                                                   (DI.SrcID "XML"+                                                                                      0)+                                                                                   (DI.DynamicInfo+                                                                                      []+                                                                                      [DI.genTerm+                                                                                         x99,+                                                                                       DI.genTerm+                                                                                         x100]))+                                                                                (Curry.DebugModule.Prelude.op_PlusPlus+                                                                                   x99+                                                                                   x100)+                                                                   DM.funcCallHook "++"+                                                                     (DI.DebugInfo+                                                                        (DI.SrcID "XML" 0)+                                                                        (DI.DynamicInfo []+                                                                           [DI.genTerm x101,+                                                                            DI.genTerm x102]))+                                                                     (Curry.DebugModule.Prelude.op_PlusPlus+                                                                        x101+                                                                        x102)+                                                        DM.funcCallHook "++"+                                                          (DI.DebugInfo (DI.SrcID "XML" 0)+                                                             (DI.DynamicInfo []+                                                                [DI.genTerm x103, DI.genTerm x104]))+                                                          (Curry.DebugModule.Prelude.op_PlusPlus+                                                             x103+                                                             x104)+                                             DM.funcCallHook "++"+                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                  (DI.DynamicInfo []+                                                     [DI.genTerm x105, DI.genTerm x106]))+                                               (Curry.DebugModule.Prelude.op_PlusPlus x105 x106)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x107, DI.genTerm x108]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x107 x108)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x109])))+                           (strict__case_102 x1)+                           x109)))+term_strict__case_102 x1+  = DI.Term "_case_102" (DI.SrcID "XML" 0) x1+strict__case_100 x1 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_100"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x3, DI.genTerm x4]))+         (do x60 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x60]))+               (case x60 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x58 <- do x23 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '<'))+                                            x24 <- do x21 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     '!'))+                                                      x22 <- do x19 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'D'))+                                                                x20 <- do x17 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'O'))+                                                                          x18 <- do x15 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   'C'))+                                                                                    x16 <- do x13 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "XML"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             'T'))+                                                                                              x14 <- do x11 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "XML"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       'Y'))+                                                                                                        x12 <- do x9 <- DM.litHook+                                                                                                                          (DI.DebugInfo+                                                                                                                             (DI.SrcID+                                                                                                                                "XML"+                                                                                                                                0)+                                                                                                                             (DI.DynamicInfo+                                                                                                                                []+                                                                                                                                []))+                                                                                                                          (Prelude.return+                                                                                                                             (Curry.DebugModule.Prelude.Char+                                                                                                                                'P'))+                                                                                                                  x10 <- do x7 <- DM.litHook+                                                                                                                                    (DI.DebugInfo+                                                                                                                                       (DI.SrcID+                                                                                                                                          "XML"+                                                                                                                                          0)+                                                                                                                                       (DI.DynamicInfo+                                                                                                                                          []+                                                                                                                                          []))+                                                                                                                                    (Prelude.return+                                                                                                                                       (Curry.DebugModule.Prelude.Char+                                                                                                                                          'E'))+                                                                                                                            x8 <- do x5 <- DM.litHook+                                                                                                                                             (DI.DebugInfo+                                                                                                                                                (DI.SrcID+                                                                                                                                                   "XML"+                                                                                                                                                   0)+                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                   []+                                                                                                                                                   []))+                                                                                                                                             (Prelude.return+                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                   ' '))+                                                                                                                                     x6 <- DM.constructorHook+                                                                                                                                             (DI.DebugInfo+                                                                                                                                                (DI.SrcID+                                                                                                                                                   "XML"+                                                                                                                                                   0)+                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                   []+                                                                                                                                                   []))+                                                                                                                                             (Prelude.return+                                                                                                                                                Curry.DebugModule.Prelude.Nil)+                                                                                                                                     DM.constructorHook+                                                                                                                                       (DI.DebugInfo+                                                                                                                                          (DI.SrcID+                                                                                                                                             "XML"+                                                                                                                                             0)+                                                                                                                                          (DI.DynamicInfo+                                                                                                                                             []+                                                                                                                                             [DI.genTerm+                                                                                                                                                x5,+                                                                                                                                              DI.genTerm+                                                                                                                                                x6]))+                                                                                                                                       (Prelude.return+                                                                                                                                          (Curry.DebugModule.Prelude.Cons+                                                                                                                                             x5+                                                                                                                                             x6))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "XML"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x7,+                                                                                                                                     DI.genTerm+                                                                                                                                       x8]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                    x7+                                                                                                                                    x8))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "XML"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x9,+                                                                                                                           DI.genTerm+                                                                                                                             x10]))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                          x9+                                                                                                                          x10))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "XML"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x11,+                                                                                                                 DI.genTerm+                                                                                                                   x12]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x11+                                                                                                                x12))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "XML"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x13,+                                                                                                       DI.genTerm+                                                                                                         x14]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x13+                                                                                                      x14))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x15,+                                                                                             DI.genTerm+                                                                                               x16]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x15+                                                                                            x16))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x17,+                                                                                   DI.genTerm x18]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x17+                                                                                  x18))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x19,+                                                                         DI.genTerm x20]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x19+                                                                        x20))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x21, DI.genTerm x22]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x21 x22))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x23, DI.genTerm x24]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x23 x24))+                                  x59 <- do x56 <- Prelude.return x3+                                            x57 <- do x54 <- do x41 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               ' '))+                                                                x42 <- do x39 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'S'))+                                                                          x40 <- do x37 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   'Y'))+                                                                                    x38 <- do x35 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "XML"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             'S'))+                                                                                              x36 <- do x33 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "XML"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       'T'))+                                                                                                        x34 <- do x31 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "XML"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                 'E'))+                                                                                                                  x32 <- do x29 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "XML"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                           'M'))+                                                                                                                            x30 <- do x27 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "XML"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                     ' '))+                                                                                                                                      x28 <- do x25 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "XML"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                               '"'))+                                                                                                                                                x26 <- DM.constructorHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "XML"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            Curry.DebugModule.Prelude.Nil)+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "XML"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x25,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x26]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                        x25+                                                                                                                                                        x26))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "XML"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x27,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x28]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x27+                                                                                                                                              x28))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "XML"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x29,+                                                                                                                                     DI.genTerm+                                                                                                                                       x30]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                    x29+                                                                                                                                    x30))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "XML"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x31,+                                                                                                                           DI.genTerm+                                                                                                                             x32]))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                          x31+                                                                                                                          x32))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "XML"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x33,+                                                                                                                 DI.genTerm+                                                                                                                   x34]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x33+                                                                                                                x34))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "XML"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x35,+                                                                                                       DI.genTerm+                                                                                                         x36]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x35+                                                                                                      x36))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x37,+                                                                                             DI.genTerm+                                                                                               x38]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x37+                                                                                            x38))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x39,+                                                                                   DI.genTerm x40]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x39+                                                                                  x40))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x41,+                                                                         DI.genTerm x42]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x41+                                                                        x42))+                                                      x55 <- do x52 <- do x43 <- Prelude.return x1+                                                                          DM.funcCallHook+                                                                            "lookupDtdUrl"+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x43]))+                                                                            (strict_lookupDtdUrl+                                                                               x43)+                                                                x53 <- do x50 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         '"'))+                                                                          x51 <- do x48 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   '>'))+                                                                                    x49 <- do x46 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "XML"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             '\n'))+                                                                                              x47 <- do x44 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "XML"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       '\n'))+                                                                                                        x45 <- DM.constructorHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "XML"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    Curry.DebugModule.Prelude.Nil)+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "XML"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x44,+                                                                                                                 DI.genTerm+                                                                                                                   x45]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x44+                                                                                                                x45))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "XML"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x46,+                                                                                                       DI.genTerm+                                                                                                         x47]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x46+                                                                                                      x47))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x48,+                                                                                             DI.genTerm+                                                                                               x49]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x48+                                                                                            x49))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x50,+                                                                                   DI.genTerm x51]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x50+                                                                                  x51))+                                                                DM.funcCallHook "++"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x52,+                                                                         DI.genTerm x53]))+                                                                  (Curry.DebugModule.Prelude.op_PlusPlus+                                                                     x52+                                                                     x53)+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x54, DI.genTerm x55]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x54+                                                           x55)+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x56, DI.genTerm x57]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x56 x57)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x58, DI.genTerm x59]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x58 x59)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x60])))+                           (strict__case_100 x1 x3)+                           x60)))+term_strict__case_100 x1+  = DI.Term "_case_100" (DI.SrcID "XML" 0) x1+strict__case_101 x1 x2+  = DM.eval+      (DM.funcDeclHook "_case_101"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1, DI.genTerm x2]))+         (do x13 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x13]))+               (case x13 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x5 <- DM.litHook+                                          (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                          (Prelude.return (Curry.DebugModule.Prelude.Char 'n'))+                                  x6 <- do x3 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char 'o'))+                                           x4 <- DM.constructorHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return Curry.DebugModule.Prelude.Nil)+                                           DM.constructorHook+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x4]))+                                             (Prelude.return (Curry.DebugModule.Prelude.Cons x3 x4))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x5, DI.genTerm x6]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x5 x6))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x11 <- DM.litHook+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return (Curry.DebugModule.Prelude.Char 'y'))+                                  x12 <- do x9 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Char 'e'))+                                            x10 <- do x7 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    's'))+                                                      x8 <- DM.constructorHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 Curry.DebugModule.Prelude.Nil)+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x7, DI.genTerm x8]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x7 x8))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x9, DI.genTerm x10]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x9 x10))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x11, DI.genTerm x12]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x11 x12))))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x13])))+                           (strict__case_101 x1)+                           x13)))+term_strict__case_101 x1+  = DI.Term "_case_101" (DI.SrcID "XML" 0) x1+strict__case_104 x1+  = DM.eval+      (DM.funcDeclHook "_case_104"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.False)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x3+                                  x5 <- Prelude.return x2+                                  DM.funcCallHook "_case_103"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (strict__case_103 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_104+                           x6)))+term_strict__case_104 x1+  = DI.Term "_case_104" (DI.SrcID "XML" 0) x1+strict__case_103 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_103"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    DtdUrl x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.True)))+                    Enc x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x3+                                  DM.funcCallHook "hasDtdUrl"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (strict_hasDtdUrl x6)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_103 x3)+                           x7)))+term_strict__case_103 x1+  = DI.Term "_case_103" (DI.SrcID "XML" 0) x1+strict__case_106 x1+  = DM.eval+      (DM.funcDeclHook "_case_106"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x3+                                  x5 <- Prelude.return x2+                                  DM.funcCallHook "_case_105"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (strict__case_105 x4 x5)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_106+                           x6)))+term_strict__case_106 x1+  = DI.Term "_case_106" (DI.SrcID "XML" 0) x1+strict__case_105 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_105"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Enc x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x3+                                  DM.funcCallHook "lookupDtdUrl"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (strict_lookupDtdUrl x6)))+                    DtdUrl x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x5))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_105 x3)+                           x7)))+term_strict__case_105 x1+  = DI.Term "_case_105" (DI.SrcID "XML" 0) x1+strict__case_108 x1+  = DM.eval+      (DM.funcDeclHook "_case_108"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x6 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x6]))+               (case x6 of+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x4 <- Prelude.return x3+                                  x5 <- Prelude.return x2+                                  DM.funcCallHook "_case_107"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                    (strict__case_107 x4 x5)))+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return StandardEnc)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x6])))+                           strict__case_108+                           x6)))+term_strict__case_108 x1+  = DI.Term "_case_108" (DI.SrcID "XML" 0) x1+strict__case_107 x3 x2+  = DM.eval+      (DM.funcDeclHook "_case_107"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x3, DI.genTerm x2]))+         (do x7 <- Prelude.return x2+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x7]))+               (case x7 of+                    Enc x4+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval (Prelude.return x4))+                    DtdUrl x5+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x3+                                  DM.funcCallHook "lookupEncoding"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6]))+                                    (strict_lookupEncoding x6)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x7])))+                           (strict__case_107 x3)+                           x7)))+term_strict__case_107 x1+  = DI.Term "_case_107" (DI.SrcID "XML" 0) x1+strict__case_110 x1+  = DM.eval+      (DM.funcDeclHook "_case_110"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x11 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x11]))+               (case x11 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x8 <- Prelude.return x2+                                  x9 <- Prelude.return x3+                                  x10 <- do x6 <- do x5 <- do x4 <- Prelude.return x2+                                                              DM.funcCallHook "ord"+                                                                (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                   (DI.DynamicInfo []+                                                                      [DI.genTerm x4]))+                                                                (Curry.DebugModule.Prelude.strict_ord+                                                                   x4)+                                                     DM.funcCallHook "elem"+                                                       (DI.DebugInfo (DI.SrcID "XML" 0)+                                                          (DI.DynamicInfo [] [DI.genTerm x5]))+                                                       (Curry.DebugModule.Prelude.strict_elem x5)+                                            x7 <- DM.funcCallHook "iso88591list"+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    strict_iso88591list+                                            DM.funcCallHook "apply"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                              (Curry.DebugModule.Prelude.strict_apply x6 x7)+                                  DM.funcCallHook "_case_109"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x8, DI.genTerm x9, DI.genTerm x10]))+                                    (strict__case_109 x8 x9 x10)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x11])))+                           strict__case_110+                           x11)))+term_strict__case_110 x1+  = DI.Term "_case_110" (DI.SrcID "XML" 0) x1+strict__case_109 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_109"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x14 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x14]))+               (case x14 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- do x5 <- Prelude.return x3+                                           DM.funcCallHook "iso88591Encoding"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_iso88591Encoding x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x12 <- do x10 <- do x8 <- Prelude.return x2+                                                      x9 <- DM.constructorHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 Curry.DebugModule.Prelude.Nil)+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x8, DI.genTerm x9]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x8 x9))+                                            DM.funcCallHook "standardEncoding"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x10]))+                                              (strict_standardEncoding x10)+                                  x13 <- do x11 <- Prelude.return x3+                                            DM.funcCallHook "iso88591Encoding"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x11]))+                                              (strict_iso88591Encoding x11)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x12, DI.genTerm x13]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x12 x13)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x14])))+                           (strict__case_109 x2 x3)+                           x14)))+term_strict__case_109 x1+  = DI.Term "_case_109" (DI.SrcID "XML" 0) x1+strict__case_119 x1+  = DM.eval+      (DM.funcDeclHook "_case_119"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x9 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x9]))+               (case x9 of+                    Curry.DebugModule.Prelude.Nil+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Curry.DebugModule.Prelude.Cons x2 x3+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- Prelude.return x3+                                  x8 <- do x4 <- Prelude.return x2+                                           x5 <- DM.litHook+                                                   (DI.DebugInfo (DI.SrcID "XML" 0)+                                                      (DI.DynamicInfo [] []))+                                                   (Prelude.return+                                                      (Curry.DebugModule.Prelude.Char '<'))+                                           DM.funcCallHook "=="+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x4, DI.genTerm x5]))+                                             (Curry.DebugModule.Prelude.op_EqEq x4 x5)+                                  DM.funcCallHook "_case_118"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x6, DI.genTerm x7, DI.genTerm x8]))+                                    (strict__case_118 x6 x7 x8)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x9])))+                           strict__case_119+                           x9)))+term_strict__case_119 x1+  = DI.Term "_case_119" (DI.SrcID "XML" 0) x1+strict__case_118 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_118"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x21 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- do x11 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '&'))+                                            x12 <- do x9 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    'l'))+                                                      x10 <- do x7 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "XML" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Char+                                                                              't'))+                                                                x8 <- do x5 <- DM.litHook+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID "XML"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       []))+                                                                                 (Prelude.return+                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                       ';'))+                                                                         x6 <- DM.constructorHook+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID "XML"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       []))+                                                                                 (Prelude.return+                                                                                    Curry.DebugModule.Prelude.Nil)+                                                                         DM.constructorHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "XML" 0)+                                                                              (DI.DynamicInfo []+                                                                                 [DI.genTerm x5,+                                                                                  DI.genTerm x6]))+                                                                           (Prelude.return+                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                 x5+                                                                                 x6))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x7,+                                                                         DI.genTerm x8]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x7+                                                                        x8))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x9 x10))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x11 x12))+                                  x15 <- do x13 <- Prelude.return x3+                                            DM.funcCallHook "standardEncoding"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x13]))+                                              (strict_standardEncoding x13)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x14 x15)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- Prelude.return x2+                                  x19 <- Prelude.return x3+                                  x20 <- do x16 <- Prelude.return x2+                                            x17 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '>'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x16, DI.genTerm x17]))+                                              (Curry.DebugModule.Prelude.op_EqEq x16 x17)+                                  DM.funcCallHook "_case_117"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20]))+                                    (strict__case_117 x18 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_118 x2 x3)+                           x21)))+term_strict__case_118 x1+  = DI.Term "_case_118" (DI.SrcID "XML" 0) x1+strict__case_117 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_117"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x21 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x21]))+               (case x21 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x14 <- do x11 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '&'))+                                            x12 <- do x9 <- DM.litHook+                                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                 (DI.DynamicInfo [] []))+                                                              (Prelude.return+                                                                 (Curry.DebugModule.Prelude.Char+                                                                    'g'))+                                                      x10 <- do x7 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "XML" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Char+                                                                              't'))+                                                                x8 <- do x5 <- DM.litHook+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID "XML"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       []))+                                                                                 (Prelude.return+                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                       ';'))+                                                                         x6 <- DM.constructorHook+                                                                                 (DI.DebugInfo+                                                                                    (DI.SrcID "XML"+                                                                                       0)+                                                                                    (DI.DynamicInfo+                                                                                       []+                                                                                       []))+                                                                                 (Prelude.return+                                                                                    Curry.DebugModule.Prelude.Nil)+                                                                         DM.constructorHook+                                                                           (DI.DebugInfo+                                                                              (DI.SrcID "XML" 0)+                                                                              (DI.DynamicInfo []+                                                                                 [DI.genTerm x5,+                                                                                  DI.genTerm x6]))+                                                                           (Prelude.return+                                                                              (Curry.DebugModule.Prelude.Cons+                                                                                 x5+                                                                                 x6))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x7,+                                                                         DI.genTerm x8]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x7+                                                                        x8))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x9, DI.genTerm x10]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x9 x10))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x11, DI.genTerm x12]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x11 x12))+                                  x15 <- do x13 <- Prelude.return x3+                                            DM.funcCallHook "standardEncoding"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x13]))+                                              (strict_standardEncoding x13)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x14, DI.genTerm x15]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x14 x15)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- Prelude.return x2+                                  x19 <- Prelude.return x3+                                  x20 <- do x16 <- Prelude.return x2+                                            x17 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '&'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x16, DI.genTerm x17]))+                                              (Curry.DebugModule.Prelude.op_EqEq x16 x17)+                                  DM.funcCallHook "_case_116"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x18, DI.genTerm x19, DI.genTerm x20]))+                                    (strict__case_116 x18 x19 x20)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x21])))+                           (strict__case_117 x2 x3)+                           x21)))+term_strict__case_117 x1+  = DI.Term "_case_117" (DI.SrcID "XML" 0) x1+strict__case_116 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_116"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x23 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x23]))+               (case x23 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x16 <- do x13 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '&'))+                                            x14 <- do x11 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'a'))+                                                      x12 <- do x9 <- DM.litHook+                                                                        (DI.DebugInfo+                                                                           (DI.SrcID "XML" 0)+                                                                           (DI.DynamicInfo [] []))+                                                                        (Prelude.return+                                                                           (Curry.DebugModule.Prelude.Char+                                                                              'm'))+                                                                x10 <- do x7 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        'p'))+                                                                          x8 <- do x5 <- DM.litHook+                                                                                           (DI.DebugInfo+                                                                                              (DI.SrcID+                                                                                                 "XML"+                                                                                                 0)+                                                                                              (DI.DynamicInfo+                                                                                                 []+                                                                                                 []))+                                                                                           (Prelude.return+                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                 ';'))+                                                                                   x6 <- DM.constructorHook+                                                                                           (DI.DebugInfo+                                                                                              (DI.SrcID+                                                                                                 "XML"+                                                                                                 0)+                                                                                              (DI.DynamicInfo+                                                                                                 []+                                                                                                 []))+                                                                                           (Prelude.return+                                                                                              Curry.DebugModule.Prelude.Nil)+                                                                                   DM.constructorHook+                                                                                     (DI.DebugInfo+                                                                                        (DI.SrcID+                                                                                           "XML"+                                                                                           0)+                                                                                        (DI.DynamicInfo+                                                                                           []+                                                                                           [DI.genTerm+                                                                                              x5,+                                                                                            DI.genTerm+                                                                                              x6]))+                                                                                     (Prelude.return+                                                                                        (Curry.DebugModule.Prelude.Cons+                                                                                           x5+                                                                                           x6))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x7,+                                                                                   DI.genTerm x8]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x7+                                                                                  x8))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x9,+                                                                         DI.genTerm x10]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x9+                                                                        x10))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x11, DI.genTerm x12]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x11 x12))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x13, DI.genTerm x14]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x13 x14))+                                  x17 <- do x15 <- Prelude.return x3+                                            DM.funcCallHook "standardEncoding"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x15]))+                                              (strict_standardEncoding x15)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x16, DI.genTerm x17]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x16 x17)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x20 <- Prelude.return x2+                                  x21 <- Prelude.return x3+                                  x22 <- do x18 <- Prelude.return x2+                                            x19 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '"'))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x18, DI.genTerm x19]))+                                              (Curry.DebugModule.Prelude.op_EqEq x18 x19)+                                  DM.funcCallHook "_case_115"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x20, DI.genTerm x21, DI.genTerm x22]))+                                    (strict__case_115 x20 x21 x22)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x23])))+                           (strict__case_116 x2 x3)+                           x23)))+term_strict__case_116 x1+  = DI.Term "_case_116" (DI.SrcID "XML" 0) x1+strict__case_115 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_115"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x25 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x25]))+               (case x25 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- do x15 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '&'))+                                            x16 <- do x13 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'q'))+                                                      x14 <- do x11 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'u'))+                                                                x12 <- do x9 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        'o'))+                                                                          x10 <- do x7 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  't'))+                                                                                    x8 <- do x5 <- DM.litHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                           ';'))+                                                                                             x6 <- DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        Curry.DebugModule.Prelude.Nil)+                                                                                             DM.constructorHook+                                                                                               (DI.DebugInfo+                                                                                                  (DI.SrcID+                                                                                                     "XML"+                                                                                                     0)+                                                                                                  (DI.DynamicInfo+                                                                                                     []+                                                                                                     [DI.genTerm+                                                                                                        x5,+                                                                                                      DI.genTerm+                                                                                                        x6]))+                                                                                               (Prelude.return+                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                     x5+                                                                                                     x6))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x7,+                                                                                             DI.genTerm+                                                                                               x8]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x7+                                                                                            x8))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x9,+                                                                                   DI.genTerm x10]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x9+                                                                                  x10))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x11+                                                                        x12))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x13 x14))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x15 x16))+                                  x19 <- do x17 <- Prelude.return x3+                                            DM.funcCallHook "standardEncoding"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x17]))+                                              (strict_standardEncoding x17)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x18 x19)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x22 <- Prelude.return x2+                                  x23 <- Prelude.return x3+                                  x24 <- do x20 <- Prelude.return x2+                                            x21 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '\''))+                                            DM.funcCallHook "=="+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x20, DI.genTerm x21]))+                                              (Curry.DebugModule.Prelude.op_EqEq x20 x21)+                                  DM.funcCallHook "_case_114"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x22, DI.genTerm x23, DI.genTerm x24]))+                                    (strict__case_114 x22 x23 x24)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x25])))+                           (strict__case_115 x2 x3)+                           x25)))+term_strict__case_115 x1+  = DI.Term "_case_115" (DI.SrcID "XML" 0) x1+strict__case_114 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_114"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x26 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x26]))+               (case x26 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- do x15 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char '&'))+                                            x16 <- do x13 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'a'))+                                                      x14 <- do x11 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'p'))+                                                                x12 <- do x9 <- DM.litHook+                                                                                  (DI.DebugInfo+                                                                                     (DI.SrcID "XML"+                                                                                        0)+                                                                                     (DI.DynamicInfo+                                                                                        []+                                                                                        []))+                                                                                  (Prelude.return+                                                                                     (Curry.DebugModule.Prelude.Char+                                                                                        'o'))+                                                                          x10 <- do x7 <- DM.litHook+                                                                                            (DI.DebugInfo+                                                                                               (DI.SrcID+                                                                                                  "XML"+                                                                                                  0)+                                                                                               (DI.DynamicInfo+                                                                                                  []+                                                                                                  []))+                                                                                            (Prelude.return+                                                                                               (Curry.DebugModule.Prelude.Char+                                                                                                  's'))+                                                                                    x8 <- do x5 <- DM.litHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                           ';'))+                                                                                             x6 <- DM.constructorHook+                                                                                                     (DI.DebugInfo+                                                                                                        (DI.SrcID+                                                                                                           "XML"+                                                                                                           0)+                                                                                                        (DI.DynamicInfo+                                                                                                           []+                                                                                                           []))+                                                                                                     (Prelude.return+                                                                                                        Curry.DebugModule.Prelude.Nil)+                                                                                             DM.constructorHook+                                                                                               (DI.DebugInfo+                                                                                                  (DI.SrcID+                                                                                                     "XML"+                                                                                                     0)+                                                                                                  (DI.DynamicInfo+                                                                                                     []+                                                                                                     [DI.genTerm+                                                                                                        x5,+                                                                                                      DI.genTerm+                                                                                                        x6]))+                                                                                               (Prelude.return+                                                                                                  (Curry.DebugModule.Prelude.Cons+                                                                                                     x5+                                                                                                     x6))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x7,+                                                                                             DI.genTerm+                                                                                               x8]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x7+                                                                                            x8))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x9,+                                                                                   DI.genTerm x10]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x9+                                                                                  x10))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x11+                                                                        x12))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x13, DI.genTerm x14]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x13 x14))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x15, DI.genTerm x16]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x15 x16))+                                  x19 <- do x17 <- Prelude.return x3+                                            DM.funcCallHook "standardEncoding"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x17]))+                                              (strict_standardEncoding x17)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x18 x19)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x23 <- Prelude.return x2+                                  x24 <- Prelude.return x3+                                  x25 <- do x21 <- do x20 <- Prelude.return x2+                                                      DM.funcCallHook "ord"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x20]))+                                                        (Curry.DebugModule.Prelude.strict_ord x20)+                                            x22 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Pos+                                                           (Curry.DebugModule.Prelude.O+                                                              (Curry.DebugModule.Prelude.O+                                                                 (Curry.DebugModule.Prelude.O+                                                                    (Curry.DebugModule.Prelude.O+                                                                       (Curry.DebugModule.Prelude.O+                                                                          Curry.DebugModule.Prelude.IHi)))))))+                                            DM.funcCallHook "<"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x21, DI.genTerm x22]))+                                              (Curry.DebugModule.Prelude.op_Lt x21 x22)+                                  DM.funcCallHook "_case_113"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x23, DI.genTerm x24, DI.genTerm x25]))+                                    (strict__case_113 x23 x24 x25)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x26])))+                           (strict__case_114 x2 x3)+                           x26)))+term_strict__case_114 x1+  = DI.Term "_case_114" (DI.SrcID "XML" 0) x1+strict__case_113 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_113"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x26 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x26]))+               (case x26 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- do x7 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Char '&'))+                                            x8 <- do x5 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   '#'))+                                                     x6 <- DM.constructorHook+                                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                Curry.DebugModule.Prelude.Nil)+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "XML" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x5, DI.genTerm x6]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x5 x6))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x7 x8))+                                  x19 <- do x16 <- do x10 <- do x9 <- Prelude.return x2+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x9]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x9)+                                                      DM.funcCallHook "show"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x10]))+                                                        (Curry.DebugModule.Prelude.strict_show x10)+                                            x17 <- do x14 <- do x11 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               ';'))+                                                                x12 <- DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            Curry.DebugModule.Prelude.Nil)+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x11+                                                                        x12))+                                                      x15 <- do x13 <- Prelude.return x3+                                                                DM.funcCallHook "standardEncoding"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x13]))+                                                                  (strict_standardEncoding x13)+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x14, DI.genTerm x15]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x14+                                                           x15)+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x16, DI.genTerm x17]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x16 x17)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x18 x19)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x23 <- Prelude.return x2+                                  x24 <- Prelude.return x3+                                  x25 <- do x21 <- do x20 <- Prelude.return x2+                                                      DM.funcCallHook "ord"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x20]))+                                                        (Curry.DebugModule.Prelude.strict_ord x20)+                                            x22 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Pos+                                                           (Curry.DebugModule.Prelude.I+                                                              (Curry.DebugModule.Prelude.I+                                                                 (Curry.DebugModule.Prelude.I+                                                                    (Curry.DebugModule.Prelude.I+                                                                       (Curry.DebugModule.Prelude.I+                                                                          (Curry.DebugModule.Prelude.I+                                                                             Curry.DebugModule.Prelude.IHi))))))))+                                            DM.funcCallHook ">"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x21, DI.genTerm x22]))+                                              (Curry.DebugModule.Prelude.op_Gt x21 x22)+                                  DM.funcCallHook "_case_112"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x23, DI.genTerm x24, DI.genTerm x25]))+                                    (strict__case_112 x23 x24 x25)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x26])))+                           (strict__case_113 x2 x3)+                           x26)))+term_strict__case_113 x1+  = DI.Term "_case_113" (DI.SrcID "XML" 0) x1+strict__case_112 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_112"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x23 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x23]))+               (case x23 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x18 <- do x7 <- DM.litHook+                                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                                       (DI.DynamicInfo [] []))+                                                    (Prelude.return+                                                       (Curry.DebugModule.Prelude.Char '&'))+                                            x8 <- do x5 <- DM.litHook+                                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                (Curry.DebugModule.Prelude.Char+                                                                   '#'))+                                                     x6 <- DM.constructorHook+                                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                (DI.DynamicInfo [] []))+                                                             (Prelude.return+                                                                Curry.DebugModule.Prelude.Nil)+                                                     DM.constructorHook+                                                       (DI.DebugInfo (DI.SrcID "XML" 0)+                                                          (DI.DynamicInfo []+                                                             [DI.genTerm x5, DI.genTerm x6]))+                                                       (Prelude.return+                                                          (Curry.DebugModule.Prelude.Cons x5 x6))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo [] [DI.genTerm x7, DI.genTerm x8]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x7 x8))+                                  x19 <- do x16 <- do x10 <- do x9 <- Prelude.return x2+                                                                DM.funcCallHook "ord"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x9]))+                                                                  (Curry.DebugModule.Prelude.strict_ord+                                                                     x9)+                                                      DM.funcCallHook "show"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo [] [DI.genTerm x10]))+                                                        (Curry.DebugModule.Prelude.strict_show x10)+                                            x17 <- do x14 <- do x11 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               ';'))+                                                                x12 <- DM.constructorHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            Curry.DebugModule.Prelude.Nil)+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x11,+                                                                         DI.genTerm x12]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x11+                                                                        x12))+                                                      x15 <- do x13 <- Prelude.return x3+                                                                DM.funcCallHook "standardEncoding"+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x13]))+                                                                  (strict_standardEncoding x13)+                                                      DM.funcCallHook "++"+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x14, DI.genTerm x15]))+                                                        (Curry.DebugModule.Prelude.op_PlusPlus x14+                                                           x15)+                                            DM.funcCallHook "++"+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x16, DI.genTerm x17]))+                                              (Curry.DebugModule.Prelude.op_PlusPlus x16 x17)+                                  DM.funcCallHook "++"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x18, DI.genTerm x19]))+                                    (Curry.DebugModule.Prelude.op_PlusPlus x18 x19)))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x20 <- Prelude.return x2+                                  x21 <- Prelude.return x3+                                  x22 <- DM.funcCallHook "otherwise"+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           Curry.DebugModule.Prelude.strict_otherwise+                                  DM.funcCallHook "_case_111"+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo []+                                          [DI.genTerm x20, DI.genTerm x21, DI.genTerm x22]))+                                    (strict__case_111 x20 x21 x22)))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x23])))+                           (strict__case_112 x2 x3)+                           x23)))+term_strict__case_112 x1+  = DI.Term "_case_112" (DI.SrcID "XML" 0) x1+strict__case_111 x2 x3 x4+  = DM.eval+      (DM.funcDeclHook "_case_111"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x2, DI.genTerm x3, DI.genTerm x4]))+         (do x8 <- Prelude.return x4+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" 0)+                  (DI.DynamicInfo [] [DI.genTerm x8]))+               (case x8 of+                    Curry.DebugModule.Prelude.True+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x6 <- Prelude.return x2+                                  x7 <- do x5 <- Prelude.return x3+                                           DM.funcCallHook "standardEncoding"+                                             (DI.DebugInfo (DI.SrcID "XML" 0)+                                                (DI.DynamicInfo [] [DI.genTerm x5]))+                                             (strict_standardEncoding x5)+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x6, DI.genTerm x7]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x6 x7))))+                    Curry.DebugModule.Prelude.False+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.funcCallHook "failed"+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 Curry.DebugModule.Prelude.strict_failed))+                    _+                      -> DM.treatCase+                           (DM.nepCaseHook+                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                 (DI.DynamicInfo [] [DI.genTerm x8])))+                           (strict__case_111 x2 x3)+                           x8)))+term_strict__case_111 x1+  = DI.Term "_case_111" (DI.SrcID "XML" 0) x1+strict__case_120 x1+  = DM.eval+      (DM.funcDeclHook "_case_120"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x2 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x2]))+               (case x2 of+                    StandardEnc+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (Prelude.return+                                 (PC.partCall1 (term_strict_standardEncoding [])+                                    strict_standardEncoding)))+                    Iso88591Enc+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (Prelude.return+                                 (PC.partCall1 (term_strict_iso88591Encoding [])+                                    strict_iso88591Encoding)))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x2])))+                           strict__case_120+                           x2)))+term_strict__case_120 x1+  = DI.Term "_case_120" (DI.SrcID "XML" 0) x1+strict__case_121 x1+  = DM.eval+      (DM.funcDeclHook "_case_121"+         (DI.DebugInfo (DI.SrcID "XML" 0)+            (DI.DynamicInfo [] [DI.genTerm x1]))+         (do x46 <- Prelude.return x1+             DM.caseHook+               (DI.DebugInfo (DI.SrcID "XML" (- 1))+                  (DI.DynamicInfo [] [DI.genTerm x46]))+               (case x46 of+                    StandardEnc+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (DM.constructorHook+                                 (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                 (Prelude.return Curry.DebugModule.Prelude.Nil)))+                    Iso88591Enc+                      -> DM.branchHook+                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                           (DM.eval+                              (do x44 <- DM.litHook+                                           (DI.DebugInfo (DI.SrcID "XML" 0) (DI.DynamicInfo [] []))+                                           (Prelude.return (Curry.DebugModule.Prelude.Char 'e'))+                                  x45 <- do x42 <- DM.litHook+                                                     (DI.DebugInfo (DI.SrcID "XML" 0)+                                                        (DI.DynamicInfo [] []))+                                                     (Prelude.return+                                                        (Curry.DebugModule.Prelude.Char 'n'))+                                            x43 <- do x40 <- DM.litHook+                                                               (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                  (DI.DynamicInfo [] []))+                                                               (Prelude.return+                                                                  (Curry.DebugModule.Prelude.Char+                                                                     'c'))+                                                      x41 <- do x38 <- DM.litHook+                                                                         (DI.DebugInfo+                                                                            (DI.SrcID "XML" 0)+                                                                            (DI.DynamicInfo [] []))+                                                                         (Prelude.return+                                                                            (Curry.DebugModule.Prelude.Char+                                                                               'o'))+                                                                x39 <- do x36 <- DM.litHook+                                                                                   (DI.DebugInfo+                                                                                      (DI.SrcID+                                                                                         "XML"+                                                                                         0)+                                                                                      (DI.DynamicInfo+                                                                                         []+                                                                                         []))+                                                                                   (Prelude.return+                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                         'd'))+                                                                          x37 <- do x34 <- DM.litHook+                                                                                             (DI.DebugInfo+                                                                                                (DI.SrcID+                                                                                                   "XML"+                                                                                                   0)+                                                                                                (DI.DynamicInfo+                                                                                                   []+                                                                                                   []))+                                                                                             (Prelude.return+                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                   'i'))+                                                                                    x35 <- do x32 <- DM.litHook+                                                                                                       (DI.DebugInfo+                                                                                                          (DI.SrcID+                                                                                                             "XML"+                                                                                                             0)+                                                                                                          (DI.DynamicInfo+                                                                                                             []+                                                                                                             []))+                                                                                                       (Prelude.return+                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                             'n'))+                                                                                              x33 <- do x30 <- DM.litHook+                                                                                                                 (DI.DebugInfo+                                                                                                                    (DI.SrcID+                                                                                                                       "XML"+                                                                                                                       0)+                                                                                                                    (DI.DynamicInfo+                                                                                                                       []+                                                                                                                       []))+                                                                                                                 (Prelude.return+                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                       'g'))+                                                                                                        x31 <- do x28 <- DM.litHook+                                                                                                                           (DI.DebugInfo+                                                                                                                              (DI.SrcID+                                                                                                                                 "XML"+                                                                                                                                 0)+                                                                                                                              (DI.DynamicInfo+                                                                                                                                 []+                                                                                                                                 []))+                                                                                                                           (Prelude.return+                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                 '='))+                                                                                                                  x29 <- do x26 <- DM.litHook+                                                                                                                                     (DI.DebugInfo+                                                                                                                                        (DI.SrcID+                                                                                                                                           "XML"+                                                                                                                                           0)+                                                                                                                                        (DI.DynamicInfo+                                                                                                                                           []+                                                                                                                                           []))+                                                                                                                                     (Prelude.return+                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                           '"'))+                                                                                                                            x27 <- do x24 <- DM.litHook+                                                                                                                                               (DI.DebugInfo+                                                                                                                                                  (DI.SrcID+                                                                                                                                                     "XML"+                                                                                                                                                     0)+                                                                                                                                                  (DI.DynamicInfo+                                                                                                                                                     []+                                                                                                                                                     []))+                                                                                                                                               (Prelude.return+                                                                                                                                                  (Curry.DebugModule.Prelude.Char+                                                                                                                                                     'i'))+                                                                                                                                      x25 <- do x22 <- DM.litHook+                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                            (DI.SrcID+                                                                                                                                                               "XML"+                                                                                                                                                               0)+                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                               []+                                                                                                                                                               []))+                                                                                                                                                         (Prelude.return+                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                               's'))+                                                                                                                                                x23 <- do x20 <- DM.litHook+                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                         "XML"+                                                                                                                                                                         0)+                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                         []+                                                                                                                                                                         []))+                                                                                                                                                                   (Prelude.return+                                                                                                                                                                      (Curry.DebugModule.Prelude.Char+                                                                                                                                                                         'o'))+                                                                                                                                                          x21 <- do x18 <- DM.litHook+                                                                                                                                                                             (DI.DebugInfo+                                                                                                                                                                                (DI.SrcID+                                                                                                                                                                                   "XML"+                                                                                                                                                                                   0)+                                                                                                                                                                                (DI.DynamicInfo+                                                                                                                                                                                   []+                                                                                                                                                                                   []))+                                                                                                                                                                             (Prelude.return+                                                                                                                                                                                (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                   '-'))+                                                                                                                                                                    x19 <- do x16 <- DM.litHook+                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                             "XML"+                                                                                                                                                                                             0)+                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                             []+                                                                                                                                                                                             []))+                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                             '8'))+                                                                                                                                                                              x17 <- do x14 <- DM.litHook+                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                       0)+                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                       []+                                                                                                                                                                                                       []))+                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                       '8'))+                                                                                                                                                                                        x15 <- do x12 <- DM.litHook+                                                                                                                                                                                                           (DI.DebugInfo+                                                                                                                                                                                                              (DI.SrcID+                                                                                                                                                                                                                 "XML"+                                                                                                                                                                                                                 0)+                                                                                                                                                                                                              (DI.DynamicInfo+                                                                                                                                                                                                                 []+                                                                                                                                                                                                                 []))+                                                                                                                                                                                                           (Prelude.return+                                                                                                                                                                                                              (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                 '5'))+                                                                                                                                                                                                  x13 <- do x10 <- DM.litHook+                                                                                                                                                                                                                     (DI.DebugInfo+                                                                                                                                                                                                                        (DI.SrcID+                                                                                                                                                                                                                           "XML"+                                                                                                                                                                                                                           0)+                                                                                                                                                                                                                        (DI.DynamicInfo+                                                                                                                                                                                                                           []+                                                                                                                                                                                                                           []))+                                                                                                                                                                                                                     (Prelude.return+                                                                                                                                                                                                                        (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                           '9'))+                                                                                                                                                                                                            x11 <- do x8 <- DM.litHook+                                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                                    []+                                                                                                                                                                                                                                    []))+                                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                    '-'))+                                                                                                                                                                                                                      x9 <- do x6 <- DM.litHook+                                                                                                                                                                                                                                       (DI.DebugInfo+                                                                                                                                                                                                                                          (DI.SrcID+                                                                                                                                                                                                                                             "XML"+                                                                                                                                                                                                                                             0)+                                                                                                                                                                                                                                          (DI.DynamicInfo+                                                                                                                                                                                                                                             []+                                                                                                                                                                                                                                             []))+                                                                                                                                                                                                                                       (Prelude.return+                                                                                                                                                                                                                                          (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                             '1'))+                                                                                                                                                                                                                               x7 <- do x4 <- DM.litHook+                                                                                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                                                                                      "XML"+                                                                                                                                                                                                                                                      0)+                                                                                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                                                                                      []+                                                                                                                                                                                                                                                      []))+                                                                                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                                                                                   (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                      '"'))+                                                                                                                                                                                                                                        x5 <- do x2 <- DM.litHook+                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                            (Curry.DebugModule.Prelude.Char+                                                                                                                                                                                                                                                               ' '))+                                                                                                                                                                                                                                                 x3 <- DM.constructorHook+                                                                                                                                                                                                                                                         (DI.DebugInfo+                                                                                                                                                                                                                                                            (DI.SrcID+                                                                                                                                                                                                                                                               "XML"+                                                                                                                                                                                                                                                               0)+                                                                                                                                                                                                                                                            (DI.DynamicInfo+                                                                                                                                                                                                                                                               []+                                                                                                                                                                                                                                                               []))+                                                                                                                                                                                                                                                         (Prelude.return+                                                                                                                                                                                                                                                            Curry.DebugModule.Prelude.Nil)+                                                                                                                                                                                                                                                 DM.constructorHook+                                                                                                                                                                                                                                                   (DI.DebugInfo+                                                                                                                                                                                                                                                      (DI.SrcID+                                                                                                                                                                                                                                                         "XML"+                                                                                                                                                                                                                                                         0)+                                                                                                                                                                                                                                                      (DI.DynamicInfo+                                                                                                                                                                                                                                                         []+                                                                                                                                                                                                                                                         [DI.genTerm+                                                                                                                                                                                                                                                            x2,+                                                                                                                                                                                                                                                          DI.genTerm+                                                                                                                                                                                                                                                            x3]))+                                                                                                                                                                                                                                                   (Prelude.return+                                                                                                                                                                                                                                                      (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                         x2+                                                                                                                                                                                                                                                         x3))+                                                                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                                                                "XML"+                                                                                                                                                                                                                                                0)+                                                                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                                                                []+                                                                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                                                                   x4,+                                                                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                                                                   x5]))+                                                                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                                x4+                                                                                                                                                                                                                                                x5))+                                                                                                                                                                                                                               DM.constructorHook+                                                                                                                                                                                                                                 (DI.DebugInfo+                                                                                                                                                                                                                                    (DI.SrcID+                                                                                                                                                                                                                                       "XML"+                                                                                                                                                                                                                                       0)+                                                                                                                                                                                                                                    (DI.DynamicInfo+                                                                                                                                                                                                                                       []+                                                                                                                                                                                                                                       [DI.genTerm+                                                                                                                                                                                                                                          x6,+                                                                                                                                                                                                                                        DI.genTerm+                                                                                                                                                                                                                                          x7]))+                                                                                                                                                                                                                                 (Prelude.return+                                                                                                                                                                                                                                    (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                                       x6+                                                                                                                                                                                                                                       x7))+                                                                                                                                                                                                                      DM.constructorHook+                                                                                                                                                                                                                        (DI.DebugInfo+                                                                                                                                                                                                                           (DI.SrcID+                                                                                                                                                                                                                              "XML"+                                                                                                                                                                                                                              0)+                                                                                                                                                                                                                           (DI.DynamicInfo+                                                                                                                                                                                                                              []+                                                                                                                                                                                                                              [DI.genTerm+                                                                                                                                                                                                                                 x8,+                                                                                                                                                                                                                               DI.genTerm+                                                                                                                                                                                                                                 x9]))+                                                                                                                                                                                                                        (Prelude.return+                                                                                                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                              x8+                                                                                                                                                                                                                              x9))+                                                                                                                                                                                                            DM.constructorHook+                                                                                                                                                                                                              (DI.DebugInfo+                                                                                                                                                                                                                 (DI.SrcID+                                                                                                                                                                                                                    "XML"+                                                                                                                                                                                                                    0)+                                                                                                                                                                                                                 (DI.DynamicInfo+                                                                                                                                                                                                                    []+                                                                                                                                                                                                                    [DI.genTerm+                                                                                                                                                                                                                       x10,+                                                                                                                                                                                                                     DI.genTerm+                                                                                                                                                                                                                       x11]))+                                                                                                                                                                                                              (Prelude.return+                                                                                                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                                    x10+                                                                                                                                                                                                                    x11))+                                                                                                                                                                                                  DM.constructorHook+                                                                                                                                                                                                    (DI.DebugInfo+                                                                                                                                                                                                       (DI.SrcID+                                                                                                                                                                                                          "XML"+                                                                                                                                                                                                          0)+                                                                                                                                                                                                       (DI.DynamicInfo+                                                                                                                                                                                                          []+                                                                                                                                                                                                          [DI.genTerm+                                                                                                                                                                                                             x12,+                                                                                                                                                                                                           DI.genTerm+                                                                                                                                                                                                             x13]))+                                                                                                                                                                                                    (Prelude.return+                                                                                                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                          x12+                                                                                                                                                                                                          x13))+                                                                                                                                                                                        DM.constructorHook+                                                                                                                                                                                          (DI.DebugInfo+                                                                                                                                                                                             (DI.SrcID+                                                                                                                                                                                                "XML"+                                                                                                                                                                                                0)+                                                                                                                                                                                             (DI.DynamicInfo+                                                                                                                                                                                                []+                                                                                                                                                                                                [DI.genTerm+                                                                                                                                                                                                   x14,+                                                                                                                                                                                                 DI.genTerm+                                                                                                                                                                                                   x15]))+                                                                                                                                                                                          (Prelude.return+                                                                                                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                                x14+                                                                                                                                                                                                x15))+                                                                                                                                                                              DM.constructorHook+                                                                                                                                                                                (DI.DebugInfo+                                                                                                                                                                                   (DI.SrcID+                                                                                                                                                                                      "XML"+                                                                                                                                                                                      0)+                                                                                                                                                                                   (DI.DynamicInfo+                                                                                                                                                                                      []+                                                                                                                                                                                      [DI.genTerm+                                                                                                                                                                                         x16,+                                                                                                                                                                                       DI.genTerm+                                                                                                                                                                                         x17]))+                                                                                                                                                                                (Prelude.return+                                                                                                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                                      x16+                                                                                                                                                                                      x17))+                                                                                                                                                                    DM.constructorHook+                                                                                                                                                                      (DI.DebugInfo+                                                                                                                                                                         (DI.SrcID+                                                                                                                                                                            "XML"+                                                                                                                                                                            0)+                                                                                                                                                                         (DI.DynamicInfo+                                                                                                                                                                            []+                                                                                                                                                                            [DI.genTerm+                                                                                                                                                                               x18,+                                                                                                                                                                             DI.genTerm+                                                                                                                                                                               x19]))+                                                                                                                                                                      (Prelude.return+                                                                                                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                            x18+                                                                                                                                                                            x19))+                                                                                                                                                          DM.constructorHook+                                                                                                                                                            (DI.DebugInfo+                                                                                                                                                               (DI.SrcID+                                                                                                                                                                  "XML"+                                                                                                                                                                  0)+                                                                                                                                                               (DI.DynamicInfo+                                                                                                                                                                  []+                                                                                                                                                                  [DI.genTerm+                                                                                                                                                                     x20,+                                                                                                                                                                   DI.genTerm+                                                                                                                                                                     x21]))+                                                                                                                                                            (Prelude.return+                                                                                                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                                                                                                  x20+                                                                                                                                                                  x21))+                                                                                                                                                DM.constructorHook+                                                                                                                                                  (DI.DebugInfo+                                                                                                                                                     (DI.SrcID+                                                                                                                                                        "XML"+                                                                                                                                                        0)+                                                                                                                                                     (DI.DynamicInfo+                                                                                                                                                        []+                                                                                                                                                        [DI.genTerm+                                                                                                                                                           x22,+                                                                                                                                                         DI.genTerm+                                                                                                                                                           x23]))+                                                                                                                                                  (Prelude.return+                                                                                                                                                     (Curry.DebugModule.Prelude.Cons+                                                                                                                                                        x22+                                                                                                                                                        x23))+                                                                                                                                      DM.constructorHook+                                                                                                                                        (DI.DebugInfo+                                                                                                                                           (DI.SrcID+                                                                                                                                              "XML"+                                                                                                                                              0)+                                                                                                                                           (DI.DynamicInfo+                                                                                                                                              []+                                                                                                                                              [DI.genTerm+                                                                                                                                                 x24,+                                                                                                                                               DI.genTerm+                                                                                                                                                 x25]))+                                                                                                                                        (Prelude.return+                                                                                                                                           (Curry.DebugModule.Prelude.Cons+                                                                                                                                              x24+                                                                                                                                              x25))+                                                                                                                            DM.constructorHook+                                                                                                                              (DI.DebugInfo+                                                                                                                                 (DI.SrcID+                                                                                                                                    "XML"+                                                                                                                                    0)+                                                                                                                                 (DI.DynamicInfo+                                                                                                                                    []+                                                                                                                                    [DI.genTerm+                                                                                                                                       x26,+                                                                                                                                     DI.genTerm+                                                                                                                                       x27]))+                                                                                                                              (Prelude.return+                                                                                                                                 (Curry.DebugModule.Prelude.Cons+                                                                                                                                    x26+                                                                                                                                    x27))+                                                                                                                  DM.constructorHook+                                                                                                                    (DI.DebugInfo+                                                                                                                       (DI.SrcID+                                                                                                                          "XML"+                                                                                                                          0)+                                                                                                                       (DI.DynamicInfo+                                                                                                                          []+                                                                                                                          [DI.genTerm+                                                                                                                             x28,+                                                                                                                           DI.genTerm+                                                                                                                             x29]))+                                                                                                                    (Prelude.return+                                                                                                                       (Curry.DebugModule.Prelude.Cons+                                                                                                                          x28+                                                                                                                          x29))+                                                                                                        DM.constructorHook+                                                                                                          (DI.DebugInfo+                                                                                                             (DI.SrcID+                                                                                                                "XML"+                                                                                                                0)+                                                                                                             (DI.DynamicInfo+                                                                                                                []+                                                                                                                [DI.genTerm+                                                                                                                   x30,+                                                                                                                 DI.genTerm+                                                                                                                   x31]))+                                                                                                          (Prelude.return+                                                                                                             (Curry.DebugModule.Prelude.Cons+                                                                                                                x30+                                                                                                                x31))+                                                                                              DM.constructorHook+                                                                                                (DI.DebugInfo+                                                                                                   (DI.SrcID+                                                                                                      "XML"+                                                                                                      0)+                                                                                                   (DI.DynamicInfo+                                                                                                      []+                                                                                                      [DI.genTerm+                                                                                                         x32,+                                                                                                       DI.genTerm+                                                                                                         x33]))+                                                                                                (Prelude.return+                                                                                                   (Curry.DebugModule.Prelude.Cons+                                                                                                      x32+                                                                                                      x33))+                                                                                    DM.constructorHook+                                                                                      (DI.DebugInfo+                                                                                         (DI.SrcID+                                                                                            "XML"+                                                                                            0)+                                                                                         (DI.DynamicInfo+                                                                                            []+                                                                                            [DI.genTerm+                                                                                               x34,+                                                                                             DI.genTerm+                                                                                               x35]))+                                                                                      (Prelude.return+                                                                                         (Curry.DebugModule.Prelude.Cons+                                                                                            x34+                                                                                            x35))+                                                                          DM.constructorHook+                                                                            (DI.DebugInfo+                                                                               (DI.SrcID "XML" 0)+                                                                               (DI.DynamicInfo []+                                                                                  [DI.genTerm x36,+                                                                                   DI.genTerm x37]))+                                                                            (Prelude.return+                                                                               (Curry.DebugModule.Prelude.Cons+                                                                                  x36+                                                                                  x37))+                                                                DM.constructorHook+                                                                  (DI.DebugInfo (DI.SrcID "XML" 0)+                                                                     (DI.DynamicInfo []+                                                                        [DI.genTerm x38,+                                                                         DI.genTerm x39]))+                                                                  (Prelude.return+                                                                     (Curry.DebugModule.Prelude.Cons+                                                                        x38+                                                                        x39))+                                                      DM.constructorHook+                                                        (DI.DebugInfo (DI.SrcID "XML" 0)+                                                           (DI.DynamicInfo []+                                                              [DI.genTerm x40, DI.genTerm x41]))+                                                        (Prelude.return+                                                           (Curry.DebugModule.Prelude.Cons x40 x41))+                                            DM.constructorHook+                                              (DI.DebugInfo (DI.SrcID "XML" 0)+                                                 (DI.DynamicInfo []+                                                    [DI.genTerm x42, DI.genTerm x43]))+                                              (Prelude.return+                                                 (Curry.DebugModule.Prelude.Cons x42 x43))+                                  DM.constructorHook+                                    (DI.DebugInfo (DI.SrcID "XML" 0)+                                       (DI.DynamicInfo [] [DI.genTerm x44, DI.genTerm x45]))+                                    (Prelude.return (Curry.DebugModule.Prelude.Cons x44 x45))))+                    _+                      -> DM.treatCase+                           (DM.nepRulesHook+                              (DI.DebugInfo (DI.SrcID "XML" (- 1))+                                 (DI.DynamicInfo [] [DI.genTerm x46])))+                           strict__case_121+                           x46)))+term_strict__case_121 x1+  = DI.Term "_case_121" (DI.SrcID "XML" 0) x1+term_XText x1 = DI.Term "XText" (DI.SrcID "XML" 0) x1+term_XElem x1 = DI.Term "XElem" (DI.SrcID "XML" 0) x1+term_Enc x1 = DI.Term "Enc" (DI.SrcID "XML" 0) x1+term_DtdUrl x1 = DI.Term "DtdUrl" (DI.SrcID "XML" 0) x1
+ dist/build/Curry/Module/OracleAbstractCurry.hs view
@@ -0,0 +1,163 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleAbstractCurry (module Curry.Module.OracleAbstractCurry) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.AbstractCurry+import Curry.Module.Directory+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.Prelude+import Curry.Module.ReadShowTerm+import Curry.Module.OracleDirectory+import Curry.Module.OracleDistribution+import Curry.Module.OracleFileGoodies+import Curry.Module.OraclePrelude+import Curry.Module.OracleReadShowTerm++++-- begin included++++-- end included++c_readCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readCurry x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleAbstractCurry.c_readCurryWithParseOptions(x2)(Curry.Module.OracleDistribution.c_setQuiet(Curry.Module.Prelude.C_True)(Curry.Module.OracleDistribution.c_defaultParams(x1)(st))(x3)(st))(x4)(st))(st)++++c_readUntypedCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readUntypedCurry x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleAbstractCurry.c_readUntypedCurryWithParseOptions(x2)(Curry.Module.OracleDistribution.c_setQuiet(Curry.Module.Prelude.C_True)(Curry.Module.OracleDistribution.c_defaultParams(x1)(st))(x3)(st))(x4)(st))(st)++++c_readCurryWithParseOptions :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readCurryWithParseOptions x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x1)(st))(x4)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurry.c_readCurryWithParseOptions'46_'35lambda2(x3)(x2)))))(x5)(st))(st)++++c_readCurryWithParseOptions'46_'35lambda2 :: Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readCurryWithParseOptions'46_'35lambda2 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(x1)(st))(x5)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurry.c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3(x4)(x2)(x3)))))(x6)(st))(st)++++c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleAbstractCurry.c__case_3(x2)(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_124_124(x2)(x5)(x1)(st))(x6)(st))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_findFileInLoadPath(Curry.Module.OraclePrelude.op_43_43(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(x7)(st))(x8)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurry.c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4))))(x9)(st))(x10)(st))(st)++++c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurry.c_readAbstractCurryFile(x2)(x1)(st))(st)++++c_readUntypedCurryWithParseOptions :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readUntypedCurryWithParseOptions x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x1)(st))(x4)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurry.c_readUntypedCurryWithParseOptions'46_'35lambda5(x3)(x2)))))(x5)(st))(st)++++c_readUntypedCurryWithParseOptions'46_'35lambda5 :: Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readUntypedCurryWithParseOptions'46_'35lambda5 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(x1)(st))(x5)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurry.c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6(x4)(x2)(x3)))))(x6)(st))(st)++++c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleAbstractCurry.c__case_2(x2)(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_124_124(x2)(x5)(x1)(st))(x6)(st))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_findFileInLoadPath(Curry.Module.OraclePrelude.op_43_43(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))(x7)(st))(x8)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurry.c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6'46_'35lambda7))))(x9)(st))(x10)(st))(st)++++c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6'46_'35lambda7 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readUntypedCurryWithParseOptions'46_'35lambda5'46_'35lambda6'46_'35lambda7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurry.c_readAbstractCurryFile(x2)(x1)(st))(st)++++c_abstractCurryFileName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_abstractCurryFileName x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OracleDistribution.c_inCurrySubdir(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(Curry.Module.OracleFileGoodies.c_stripSuffix(x1)(st))(x2)(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(x4)(st))(x5)(st))(st)++++c_untypedAbstractCurryFileName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_untypedAbstractCurryFileName x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OracleDistribution.c_inCurrySubdir(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(Curry.Module.OracleFileGoodies.c_stripSuffix(x1)(st))(x2)(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))(x4)(st))(x5)(st))(st)++++c_readAbstractCurryFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.AbstractCurry.C_CurryProg))+c_readAbstractCurryFile x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurry.c_readAbstractCurryFile'46_'35lambda9(x2)))))(x3)(st))(st)++++c_readAbstractCurryFile'46readExistingACY'4621 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_readAbstractCurryFile'46readExistingACY'4621 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurry.c_readAbstractCurryFile'46readExistingACY'4621'46_'35lambda8))))(x3)(st))(st)++++c_readAbstractCurryFile'46readExistingACY'4621'46_'35lambda8 :: (Curry t1) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1))+c_readAbstractCurryFile'46readExistingACY'4621'46_'35lambda8 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.OracleReadShowTerm.c_readUnqualifiedTerm((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.List)))(x2)(x1)(st))(x3)(st))(st)++++c_readAbstractCurryFile'46_'35lambda9 :: (Curry t2) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t2))+c_readAbstractCurryFile'46_'35lambda9 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurry.c__case_1(x2)(x3)(x1)(st))(st)++++c_readAbstractCurryFile'46_'35lambda9'46_'35lambda10 :: (Curry t3) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t3))+c_readAbstractCurryFile'46_'35lambda9'46_'35lambda10 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurry.c__case_0(x2)(x3)(x4)(x1)(st))(st)++++c_writeAbstractCurryFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.AbstractCurry.C_CurryProg -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeAbstractCurryFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_writeFile(x2)(Curry.Module.OracleReadShowTerm.c_showTerm(x3)(x1)(st))(x4)(st))(st)++++c__case_0 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurry.c__case_0_case__3(x1)(x2)(x3)(x4)(st))(st)++++c__case_1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurry.c__case_1_case__2(x1)(x2)(x3)(st))(st)++++c__case_2 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurry.c__case_2_case__1(x1)(x3)(x4)(x6)(st))(st)++++c__case_3 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurry.c__case_3_case__0(x1)(x3)(x4)(x6)(st))(st)++++c__case_3_case__0 x1 x3 x4 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c_callFrontendWithParams(Curry.Module.Distribution.C_ACY)(x3)(x4)(x1)(st))(st)+c__case_3_case__0 x1 x3 x4 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_done(x1)(st))(st)+c__case_3_case__0 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurry.c__case_3_case__0(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_3_case__0 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurry._case_3_case__0")(x)++++c__case_2_case__1 x1 x3 x4 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c_callFrontendWithParams(Curry.Module.Distribution.C_UACY)(x3)(x4)(x1)(st))(st)+c__case_2_case__1 x1 x3 x4 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_done(x1)(st))(st)+c__case_2_case__1 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurry.c__case_2_case__1(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_2_case__1 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurry._case_2_case__1")(x)++++c__case_1_case__2 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurry.c_readAbstractCurryFile'46readExistingACY'4621(x2)(x1)(st))(st)+c__case_1_case__2 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleDistribution.c_inCurrySubdir(x2)(x1)(st)} in let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(x4)(x5)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurry.c_readAbstractCurryFile'46_'35lambda9'46_'35lambda10(x2)(x4)))))(x6)(st))(st))(st)+c__case_1_case__2 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurry.c__case_1_case__2(x1)(x2)(x)(st))(i)(xs)(st)+c__case_1_case__2 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurry._case_1_case__2")(x)++++c__case_0_case__3 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurry.c_readAbstractCurryFile'46readExistingACY'4621(x3)(x1)(st))(st)+c__case_0_case__3 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('X'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.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('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))))))))))))(x1)(st))(x5)(st))(x6)(st))(st)+c__case_0_case__3 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurry.c__case_0_case__3(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_0_case__3 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurry._case_0_case__3")(x)++
+ dist/build/Curry/Module/OracleAbstractCurryPrinter.hs view
@@ -0,0 +1,3691 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleAbstractCurryPrinter (module Curry.Module.OracleAbstractCurryPrinter) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.AbstractCurryPrinter+import Curry.Module.AbstractCurry+import Curry.Module.Char+import Curry.Module.FiniteMap+import Curry.Module.List+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.Sort+import Curry.Module.Read+import Curry.Module.OracleAbstractCurry+import Curry.Module.OracleChar+import Curry.Module.OracleFiniteMap+import Curry.Module.OracleList+import Curry.Module.OracleMaybe+import Curry.Module.OraclePrelude+import Curry.Module.OracleSort+import Curry.Module.OracleRead++++-- begin included++++-- end included++type C_NameFM = Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0++type C_Options = Curry.Module.Prelude.T2 (Curry.Module.FiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)++c_showProg :: Curry.Module.AbstractCurry.C_CurryProg -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showProg x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_289(x2)(x1)(st))(st)++++c_defaultOptions :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_defaultOptions x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T2(Curry.Module.OracleFiniteMap.c_emptyFM(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleAbstractCurryPrinter.c_lessString))(st))(x1)(st))(Curry.Module.Prelude.List))(st)++++c_showExports :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CFuncDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showExports x2 x3 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleList.c_partition(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showExports'46allPublicCons'469))))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showExports'46isPublicType'469))))(x2)(x1)(st))(x8)(st)} in let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_43_43))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showExports'46getTypeName'469))))(x11)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showExports'46_'35selFP3'35withCons(x5)(x9)(st))(x12)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showExports'46getTypeName'469))))(Curry.Module.OracleAbstractCurryPrinter.c_showExports'46_'35selFP4'35withoutCons(x5)(x10)(st))(x13)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showExports'46getFuncName'469))))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showExports'46isPublicFunc'469))))(x3)(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(st))(st))(st))(st))(st)++++c_showExports'46isPublicType'469 :: Curry.Module.AbstractCurry.C_CTypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_showExports'46isPublicType'469 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_287(x2)(x1)(st))(st)++++c_showExports'46isPublicFunc'469 :: Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_showExports'46isPublicFunc'469 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_286(x2)(x1)(st))(st)++++c_showExports'46getTypeName'469 :: Curry.Module.AbstractCurry.C_CTypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showExports'46getTypeName'469 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_285(x2)(x1)(st))(st)++++c_showExports'46allPublicCons'469 :: Curry.Module.AbstractCurry.C_CTypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_showExports'46allPublicCons'469 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_282(x2)(x1)(st))(st)++++c_showExports'46allPublicCons'469'46isPublicCons'4649 :: Curry.Module.AbstractCurry.C_CConsDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_showExports'46allPublicCons'469'46isPublicCons'4649 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_281(x2)(x1)(st))(st)++++c_showExports'46getFuncName'469 :: Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showExports'46getFuncName'469 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_280(x2)(x1)(st))(st)++++c_showExports'46_'35selFP3'35withCons :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl+c_showExports'46_'35selFP3'35withCons x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_277(x2)(x1)(st))(st)++++c_showExports'46_'35selFP4'35withoutCons :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl) (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl+c_showExports'46_'35selFP4'35withoutCons x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_276(x2)(x1)(st))(st)++++c_showImports :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showImports x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_prefixInter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showImport))))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(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))))))))))))(x2)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x3)(st))(Curry.Module.OracleAbstractCurryPrinter.c__case_275(x2)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.List))(x4)(st))(x5)(st))(x6)(st))(st)++++c_showImport :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showImport x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_274(x2)(Curry.Module.OraclePrelude.op_47_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x1)(st))(x3)(st))(st)++++c_showOpDecls :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_COpDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showOpDecls x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_prefixInter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showOpDecl))))(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c__case_273(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.List)(x3)(st))(x4)(st))(x5)(st))(st)++++c_showOpDecl :: Curry.Module.AbstractCurry.C_COpDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showOpDecl x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_272(x2)(x1)(st))(st)++++c_showFixity :: Curry.Module.AbstractCurry.C_CFixity -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFixity x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_269(x2)(x1)(st))(st)++++c_showTypeDecls :: (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTypeDecls x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_prefixInter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showTypeDecl))))(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c__case_268(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.List)(x3)(st))(x4)(st))(x5)(st))(st)++++c_showTypeDecl :: Curry.Module.AbstractCurry.C_CTypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTypeDecl x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_267(x2)(x1)(st))(st)++++c_showConsDecl :: Curry.Module.AbstractCurry.C_CConsDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showConsDecl x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_264(x2)(x1)(st))(st)++++c_showTypeExpr :: Curry.Module.Prelude.C_Bool -> Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTypeExpr x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_262(x2)(x3)(x1)(st))(st)++++c_showTypeVar :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTypeVar x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_257(x2)(x1)(st))(st)++++c_showIdentifier :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_showIdentifier x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_not))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_elem))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.Prelude.List)))))))(x1)(st))))))(st)++++c_isCFuncType :: Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCFuncType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_255(x2)(x1)(st))(st)++++c_showFuncDecl :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_showFuncDecl x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showFuncDeclOpt(Curry.Module.OracleAbstractCurryPrinter.c_defaultOptions(x1)(st))))))(st)++++c_showFuncDeclOpt :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFuncDeclOpt x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_254(x2)(x3)(x1)(st))(st)++++c_showCmtFunc :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCmtFunc x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_253(x2)(x3)(x4)(x1)(st))(st)++++c_showCmtFunc'46insertName'46139 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCmtFunc'46insertName'46139 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_245(x2)(x3)(x1)(st))(st)++++c_funcComment :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_funcComment x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_unlines))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.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.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_lines))))(x1)(st))(x2)(st))(st)++++c_showLocalFuncDecl :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CFuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_showLocalFuncDecl x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showFuncDeclOpt(x2)))))(st)++++c_showRule :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CRule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showRule x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_244(x2)(x3)(x1)(st))(st)++++c_showEvalAnnot :: Curry.Module.AbstractCurry.C_CEvalAnnot -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showEvalAnnot x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_242(x2)(x1)(st))(st)++++c_showCrhsList :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.AbstractCurry.C_CExpr Curry.Module.AbstractCurry.C_CExpr)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCrhsList x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_241(x2)(x3)(x1)(st))(st)++++c_showCrhs :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 Curry.Module.AbstractCurry.C_CExpr Curry.Module.AbstractCurry.C_CExpr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCrhs x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_237(x2)(x3)(x1)(st))(st)++++c_showLocalDecl :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CLocalDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showLocalDecl x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_236(x2)(x3)(x1)(st))(st)++++c_showExpr :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.AbstractCurry.C_CExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_showExpr x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(Curry.Module.OracleAbstractCurryPrinter.c_defaultOptions(x1)(st))))))(st)++++c_showExprOpt :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showExprOpt x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_234(x2)(x3)(x1)(st))(st)++++c_showSymbol :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showSymbol x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_231(x3)(x2)(x1)(st))(st)++++c_showLambdaOrSection :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showLambdaOrSection x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_226(x2)(x4)(x3)(x1)(st))(st)++++c_showLambda :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showLambda x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showPattern))))(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x4)(x5)(st))(x6)(st))(x7)(st))(x8)(st))(st)++++c_showStatement :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CStatement -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showStatement x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_199(x2)(x3)(x1)(st))(st)++++c_showPattern :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showPattern x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_196(x2)(x1)(st))(st)++++c_showPreludeCons :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showPreludeCons x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleAbstractCurryPrinter.c_showPreludeCons'46_'35selFP6'35name(x2)(x1)(st)} in let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_189(x2)(x4)(Curry.Module.OracleAbstractCurryPrinter.c_showPreludeCons'46_'35selFP7'35pattlist(x2)(x6)(st))(Curry.Module.OraclePrelude.op_61_61(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(x7)(st))(x8)(st))(st))(st))(st))(st)++++c_showPreludeCons'46_'35selFP6'35name :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showPreludeCons'46_'35selFP6'35name x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_186(x2)(x1)(st))(st)++++c_showPreludeCons'46_'35selFP7'35pattlist :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CPattern+c_showPreludeCons'46_'35selFP7'35pattlist x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_184(x2)(x1)(st))(st)++++c_showPatternList :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showPatternList x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_182(x2)(Curry.Module.OracleAbstractCurryPrinter.c_isClosedStringPattern(x2)(x1)(st))(x3)(st))(st)++++c_showPatListElems :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showPatListElems x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_178(x2)(x1)(st))(st)++++c_isClosedPatternList :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isClosedPatternList x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_151(x2)(x1)(st))(st)++++c_isClosedStringPattern :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isClosedStringPattern x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_124(x2)(x1)(st))(st)++++c_isCharPattern :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCharPattern x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_97(x2)(x1)(st))(st)++++c_isAsPattern :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isAsPattern x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_95(x2)(x1)(st))(st)++++c_showAsPatternList :: Curry.Module.AbstractCurry.C_CPattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showAsPatternList x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_94(x2)(x1)(st))(st)++++c_showBranchExpr :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CBranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showBranchExpr x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_92(x2)(x3)(x1)(st))(st)++++c_showLiteral :: Curry.Module.AbstractCurry.C_CLiteral -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showLiteral x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_91(x2)(x1)(st))(st)++++c_showCCharc :: Curry.Module.AbstractCurry.C_CLiteral -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCCharc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_90(x2)(x1)(st))(st)++++c_showBlock :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showBlock x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.c_lines(x2)(x1)(st))(x3)(st))(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x5)(st))(st)++++c_showTypeCons :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeExpr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTypeCons x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_84(x2)(x3)(x4)(x1)(st))(st)++++c_showPreludeTypeCons :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CTypeExpr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showPreludeTypeCons x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))(Curry.Module.OracleAbstractCurryPrinter.c__case_81(x2)(x3)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_head(x3)(x4)(st))(Curry.Module.AbstractCurry.C_CTCons(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.List))(x5)(st))(x6)(st))(x7)(st))(st)++++c_showApplication :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showApplication x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_77(x2)(x3)(Curry.Module.OracleAbstractCurryPrinter.c_applicationHead(x3)(x1)(st))(x4)(st))(st)++++c_applicationHead :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.AbstractCurry.C_CExpr+c_applicationHead x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_76(x2)(x1)(st))(st)++++c_showSymbolApplication :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showSymbolApplication x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_75(x2)(x4)(x3)(x1)(st))(st)++++c_showListApplication :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showListApplication x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_70(x2)(x3)(Curry.Module.OracleAbstractCurryPrinter.c_isStringList(x3)(x1)(st))(x4)(st))(st)++++c_showCharListApplication :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCharListApplication x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_67(x2)(x3)(x1)(st))(st)++++c_showConsListApplication :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showConsListApplication x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_63(x2)(x3)(x1)(st))(st)++++c_showSimpleListApplication :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showSimpleListApplication x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_60(x2)(x3)(x1)(st))(st)++++c_showInfixApplication :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showInfixApplication x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_56(x2)(x3)(x4)(x1)(st))(st)++++c_showITEApplication :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showITEApplication x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_54(x2)(x3)(x1)(st))(st)++++c_showTupleApplication :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTupleApplication x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showTupleApplication'46p_showTuple'46386(x2)(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x4)(st))(x5)(st))(st)++++c_showTupleApplication'46p_showTuple'46386 :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTupleApplication'46p_showTuple'46386 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_50(x2)(x3)(x1)(st))(st)++++c_showSimpleApplication :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showSimpleApplication x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_48(x2)(x3)(x1)(st))(st)++++c_showBoxedExpr :: (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showBoxedExpr x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_47(x2)(x3)(Curry.Module.OracleAbstractCurryPrinter.c_isSimpleExpr(x3)(x1)(st))(x4)(st))(st)++++c_prefixMap :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prefixMap x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43(x4)))))(x1)(st))(Curry.Module.OraclePrelude.c_map(x2)(x3)(x5)(st))(x6)(st))(st)++++c_prefixInter :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prefixInter x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_concat))))(Curry.Module.OracleList.c_intersperse(x4)(Curry.Module.OraclePrelude.c_map(x2)(x3)(x1)(st))(x5)(st))(x6)(st))(st)++++c_combineMap :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_combineMap x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_45(x2)(x4)(x3)(x1)(st))(st)++++c_dropTags :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_dropTags x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_44(x2)(x1)(st))(st)++++c_isInfixOpName :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isInfixOpName x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_elem))))(Curry.Module.OracleAbstractCurryPrinter.c_infixIDs(x1)(st))))))(x2)(st))(st)++++c_isStringList :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isStringList x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_41(x2)(x1)(st))(st)++++c_isClosedList :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isClosedList x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_36(x2)(x1)(st))(st)++++c_isSimpleExpr :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isSimpleExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_31(x2)(x1)(st))(st)++++c_isAtom :: Curry.Module.AbstractCurry.C_CExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isAtom x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_12(x2)(x1)(st))(st)++++c_isUntyped :: Curry.Module.AbstractCurry.C_CTypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isUntyped x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_10(x2)(x1)(st))(st)++++c_isTuple :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTuple x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_7(x2)(x1)(st))(st)++++c_isTuple'46p1_isTuple'46492 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTuple'46p1_isTuple'46492 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_6(x2)(x1)(st))(st)++++c_infixIDs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_infixIDs x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('~'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('@'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('$'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('%'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('^'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('*'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('|'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))))))))))))))))))))(st)++++c_maybeShowBrackets :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_maybeShowBrackets x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c__case_4(x2)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.OracleAbstractCurryPrinter.c__case_3(x2)(x4)(st))(x5)(st))(x6)(st))(st)++++c_nameFM :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.AbstractCurry.C_CFuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0))+c_nameFM x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleAbstractCurryPrinter.c_addName))(st))(Curry.Module.OracleFiniteMap.c_emptyFM(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleAbstractCurryPrinter.c_lessString))(st))(x1)(st))))))(st)++++c_addName :: Curry.Module.AbstractCurry.C_CFuncDecl -> (Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.T0+c_addName x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_2(x3)(x2)(x1)(st))(st)++++c_lessString :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_lessString x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.Prelude.C_LT)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleSort.c_cmpString(x1)(st))(x2)(x4)(st))(x3)(x5)(st))(x6)(st))(st)++++c__case_2 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_2_case__289(x1)(x3)(x2)(st))(st)++++c__case_0 x3 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_0_case__288(x1)(x3)(x12)(st))(st)++++c__case_1 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_1_case__287(x1)(x3)(x4)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_3_case__286(x1)(x2)(st))(st)++++c__case_4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_4_case__285(x1)(x2)(st))(st)++++c__case_6 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_6_case__284(x1)(x2)(st))(st)++++c__case_5 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_5_case__283(x1)(x3)(x4)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_7_case__282(x1)(x2)(st))(st)++++c__case_10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_10_case__281(x1)(x2)(st))(st)++++c__case_9 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_9_case__280(x1)(x4)(x3)(st))(st)++++c__case_8 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_8_case__279(x1)(x5)(x6)(x4)(st))(st)++++c__case_12 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_12_case__278(x1)(x2)(st))(st)++++c__case_11 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_11_case__277(x1)(x5)(st))(st)++++c__case_31 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_31_case__276(x1)(x2)(st))(st)++++c__case_29 x8 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_29_case__275(x1)(x42)(st))(st)++++c__case_28 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_28_case__274(x1)(x10)(st))(st)++++c__case_27 x12 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_27_case__273(x1)(x12)(x11)(st))(st)++++c__case_26 x12 x13 x14 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_26_case__272(x1)(x12)(x14)(x15)(st))(st)++++c__case_25 x12 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_25_case__271(x1)(x12)(x14)(st))(st)++++c__case_24 x12 x15 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_24_case__270(x1)(x12)(x16)(x17)(st))(st)++++c__case_23 x12 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_23_case__269(x1)(x12)(x16)(st))(st)++++c__case_22 x12 x17 x18 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_22_case__268(x1)(x12)(x18)(x19)(st))(st)++++c__case_21 x12 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_21_case__267(x1)(x12)(x18)(st))(st)++++c__case_20 x12 x19 x20 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_20_case__266(x1)(x12)(x20)(x21)(st))(st)++++c__case_19 x12 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_19_case__265(x1)(x12)(x20)(st))(st)++++c__case_18 x12 x21 x22 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_18_case__264(x1)(x12)(x22)(x23)(st))(st)++++c__case_17 x12 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_17_case__263(x1)(x12)(x22)(st))(st)++++c__case_16 x12 x23 x24 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_16_case__262(x1)(x12)(x24)(x25)(st))(st)++++c__case_15 x12 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_15_case__261(x1)(x12)(x24)(st))(st)++++c__case_14 x12 x25 x26 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_14_case__260(x1)(x12)(x26)(x27)(st))(st)++++c__case_13 x12 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_13_case__259(x1)(x12)(x26)(st))(st)++++c__case_30 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_30_case__258(x1)(x5)(st))(st)++++c__case_36 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_36_case__257(x1)(x2)(st))(st)++++c__case_32 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_32_case__256(x1)(x35)(st))(st)++++c__case_35 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_35_case__255(x1)(x4)(x3)(st))(st)++++c__case_34 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_34_case__254(x1)(x4)(x5)(st))(st)++++c__case_33 x4 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_33_case__253(x1)(x4)(x7)(st))(st)++++c__case_41 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_41_case__252(x1)(x2)(st))(st)++++c__case_39 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_39_case__251(x1)(x8)(x7)(st))(st)++++c__case_38 x8 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_38_case__250(x1)(x8)(x10)(st))(st)++++c__case_37 x8 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_37_case__249(x1)(x8)(x11)(st))(st)++++c__case_40 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_40_case__248(x1)(x3)(st))(st)++++c__case_44 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_44_case__247(x1)(x2)(st))(st)++++c__case_43 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_43_case__246(x1)(x3)(x4)(x5)(st))(st)++++c__case_42 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_42_case__245(x1)(x4)(x5)(st))(st)++++c__case_45 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_45_case__244(x1)(x2)(x4)(x3)(st))(st)++++c__case_47 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_47_case__243(x1)(x2)(x3)(x4)(st))(st)++++c__case_46 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_46_case__242(x1)(x2)(x3)(x4)(st))(st)++++c__case_48 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_48_case__241(x1)(x2)(x3)(st))(st)++++c__case_50 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_50_case__240(x1)(x2)(x3)(st))(st)++++c__case_49 x2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_49_case__239(x1)(x2)(x5)(x4)(st))(st)++++c__case_54 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_54_case__238(x1)(x2)(x3)(st))(st)++++c__case_53 x2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_53_case__237(x1)(x2)(x5)(x4)(st))(st)++++c__case_52 x2 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_52_case__236(x1)(x2)(x4)(x5)(x7)(x6)(st))(st)++++c__case_51 x2 x4 x5 x7 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_51_case__235(x1)(x2)(x4)(x5)(x7)(x9)(x8)(st))(st)++++c__case_56 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_56_case__234(x1)(x2)(x3)(x4)(st))(st)++++c__case_55 x2 x3 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_55_case__233(x1)(x2)(x3)(x6)(x5)(st))(st)++++c__case_60 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_60_case__232(x1)(x2)(x3)(st))(st)++++c__case_59 x2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_59_case__231(x1)(x2)(x5)(x4)(st))(st)++++c__case_57 x2 x5 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_57_case__230(x1)(x2)(x5)(x22)(st))(st)++++c__case_58 x2 x7 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_58_case__229(x1)(x2)(x7)(x5)(st))(st)++++c__case_63 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_63_case__228(x1)(x2)(x3)(st))(st)++++c__case_62 x2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_62_case__227(x1)(x2)(x5)(x4)(st))(st)++++c__case_61 x2 x7 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_61_case__226(x1)(x2)(x7)(x5)(st))(st)++++c__case_67 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_67_case__225(x1)(x2)(x3)(st))(st)++++c__case_66 x2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_66_case__224(x1)(x2)(x5)(x4)(st))(st)++++c__case_65 x2 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_65_case__223(x1)(x2)(x5)(x7)(st))(st)++++c__case_64 x2 x8 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_64_case__222(x1)(x2)(x8)(x5)(st))(st)++++c__case_70 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_70_case__221(x1)(x2)(x3)(x4)(st))(st)++++c__case_69 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_69_case__220(x1)(x2)(x3)(x4)(st))(st)++++c__case_68 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_68_case__219(x1)(x2)(x3)(x4)(st))(st)++++c__case_75 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_75_case__218(x1)(x2)(x4)(x3)(st))(st)++++c__case_74 x2 x4 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_74_case__217(x1)(x2)(x4)(x5)(x6)(x7)(st))(st)++++c__case_73 x2 x4 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_73_case__216(x1)(x2)(x4)(x6)(x7)(st))(st)++++c__case_72 x2 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_72_case__215(x1)(x2)(x4)(x7)(st))(st)++++c__case_71 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_71_case__214(x1)(x2)(x4)(x5)(st))(st)++++c__case_76 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_76_case__213(x1)(x2)(st))(st)++++c__case_77 x2 x3 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_77_case__212(x1)(x2)(x3)(x18)(st))(st)++++c__case_81 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_81_case__211(x1)(x2)(x3)(x4)(st))(st)++++c__case_80 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_80_case__210(x1)(x2)(x3)(x4)(st))(st)++++c__case_79 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_79_case__209(x1)(x2)(x3)(x4)(st))(st)++++c__case_78 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_78_case__208(x1)(x2)(x3)(x4)(st))(st)++++c__case_84 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_84_case__207(x1)(x2)(x3)(x4)(st))(st)++++c__case_83 x2 x3 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_83_case__206(x1)(x3)(x5)(x6)(x7)(st))(st)++++c__case_82 x3 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_82_case__205(x1)(x3)(x5)(x6)(x7)(st))(st)++++c__case_90 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_90_case__204(x1)(x2)(st))(st)++++c__case_89 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_89_case__203(x1)(x3)(x4)(st))(st)++++c__case_88 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_88_case__202(x1)(x3)(x4)(st))(st)++++c__case_87 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_87_case__201(x1)(x3)(x4)(st))(st)++++c__case_86 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_86_case__200(x1)(x3)(x4)(st))(st)++++c__case_85 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_85_case__199(x1)(x3)(x4)(st))(st)++++c__case_91 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_91_case__198(x1)(x2)(st))(st)++++c__case_92 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_92_case__197(x1)(x2)(x3)(st))(st)++++c__case_94 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_94_case__196(x1)(x2)(st))(st)++++c__case_93 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_93_case__195(x1)(x4)(x3)(st))(st)++++c__case_95 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_95_case__194(x1)(x2)(st))(st)++++c__case_97 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_97_case__193(x1)(x2)(st))(st)++++c__case_96 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_96_case__192(x1)(x3)(st))(st)++++c__case_124 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_124_case__191(x1)(x2)(st))(st)++++c__case_123 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_123_case__190(x1)(x4)(x3)(st))(st)++++c__case_122 x4 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_122_case__189(x1)(x4)(x6)(x5)(st))(st)++++c__case_121 x4 x6 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_121_case__188(x1)(x4)(x6)(x8)(x7)(st))(st)++++c__case_120 x4 x6 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_120_case__187(x1)(x4)(x6)(x8)(st))(st)++++c__case_119 x4 x6 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_119_case__186(x1)(x4)(x6)(x10)(x9)(st))(st)++++c__case_118 x4 x6 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_118_case__185(x1)(x4)(x6)(x10)(st))(st)++++c__case_117 x4 x6 x12 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_117_case__184(x1)(x4)(x6)(x12)(x11)(st))(st)++++c__case_116 x4 x6 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_116_case__183(x1)(x4)(x6)(x12)(st))(st)++++c__case_115 x4 x6 x14 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_115_case__182(x1)(x4)(x6)(x14)(x13)(st))(st)++++c__case_114 x4 x6 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_114_case__181(x1)(x4)(x6)(x14)(st))(st)++++c__case_113 x4 x6 x16 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_113_case__180(x1)(x4)(x6)(x16)(x15)(st))(st)++++c__case_112 x4 x6 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_112_case__179(x1)(x4)(x6)(x16)(st))(st)++++c__case_111 x4 x6 x18 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_111_case__178(x1)(x4)(x6)(x18)(x17)(st))(st)++++c__case_110 x4 x6 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_110_case__177(x1)(x4)(x6)(x18)(st))(st)++++c__case_109 x4 x6 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_109_case__176(x1)(x4)(x6)(x20)(x19)(st))(st)++++c__case_108 x4 x6 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_108_case__175(x1)(x4)(x6)(x20)(st))(st)++++c__case_107 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_107_case__174(x1)(x4)(x6)(st))(st)++++c__case_106 x4 x22 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_106_case__173(x1)(x4)(x22)(x21)(st))(st)++++c__case_101 x4 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_101_case__172(x1)(x4)(x22)(st))(st)++++c__case_100 x4 x28 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_100_case__171(x1)(x4)(x28)(x27)(st))(st)++++c__case_99 x4 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_99_case__170(x1)(x4)(x28)(st))(st)++++c__case_98 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_98_case__169(x1)(x4)(st))(st)++++c__case_105 x4 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_105_case__168(x1)(x4)(x22)(st))(st)++++c__case_104 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_104_case__167(x1)(x4)(st))(st)++++c__case_103 x23 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_103_case__166(x1)(x23)(x24)(st))(st)++++c__case_102 x23 x25 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_102_case__165(x1)(x23)(x25)(x26)(st))(st)++++c__case_151 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_151_case__164(x1)(x2)(st))(st)++++c__case_150 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_150_case__163(x1)(x4)(x3)(st))(st)++++c__case_149 x4 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_149_case__162(x1)(x4)(x6)(x5)(st))(st)++++c__case_148 x4 x6 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_148_case__161(x1)(x4)(x6)(x8)(x7)(st))(st)++++c__case_147 x4 x6 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_147_case__160(x1)(x4)(x6)(x8)(st))(st)++++c__case_146 x4 x6 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_146_case__159(x1)(x4)(x6)(x10)(x9)(st))(st)++++c__case_145 x4 x6 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_145_case__158(x1)(x4)(x6)(x10)(st))(st)++++c__case_144 x4 x6 x12 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_144_case__157(x1)(x4)(x6)(x12)(x11)(st))(st)++++c__case_143 x4 x6 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_143_case__156(x1)(x4)(x6)(x12)(st))(st)++++c__case_142 x4 x6 x14 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_142_case__155(x1)(x4)(x6)(x14)(x13)(st))(st)++++c__case_141 x4 x6 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_141_case__154(x1)(x4)(x6)(x14)(st))(st)++++c__case_140 x4 x6 x16 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_140_case__153(x1)(x4)(x6)(x16)(x15)(st))(st)++++c__case_139 x4 x6 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_139_case__152(x1)(x4)(x6)(x16)(st))(st)++++c__case_138 x4 x6 x18 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_138_case__151(x1)(x4)(x6)(x18)(x17)(st))(st)++++c__case_137 x4 x6 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_137_case__150(x1)(x4)(x6)(x18)(st))(st)++++c__case_136 x4 x6 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_136_case__149(x1)(x4)(x6)(x20)(x19)(st))(st)++++c__case_135 x4 x6 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_135_case__148(x1)(x4)(x6)(x20)(st))(st)++++c__case_134 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_134_case__147(x1)(x4)(x6)(st))(st)++++c__case_133 x4 x22 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_133_case__146(x1)(x4)(x22)(x21)(st))(st)++++c__case_128 x4 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_128_case__145(x1)(x4)(x22)(st))(st)++++c__case_127 x4 x28 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_127_case__144(x1)(x4)(x28)(x27)(st))(st)++++c__case_126 x4 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_126_case__143(x1)(x4)(x28)(st))(st)++++c__case_125 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_125_case__142(x1)(x4)(st))(st)++++c__case_132 x4 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_132_case__141(x1)(x4)(x22)(st))(st)++++c__case_131 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_131_case__140(x1)(x4)(st))(st)++++c__case_130 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_130_case__139(x1)(x24)(st))(st)++++c__case_129 x25 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_129_case__138(x1)(x25)(x26)(st))(st)++++c__case_178 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_178_case__137(x1)(x2)(st))(st)++++c__case_177 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_177_case__136(x1)(x4)(x3)(st))(st)++++c__case_176 x4 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_176_case__135(x1)(x4)(x6)(x5)(st))(st)++++c__case_175 x4 x6 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_175_case__134(x1)(x4)(x6)(x8)(x7)(st))(st)++++c__case_174 x4 x6 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_174_case__133(x1)(x4)(x6)(x8)(st))(st)++++c__case_173 x4 x6 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_173_case__132(x1)(x4)(x6)(x10)(x9)(st))(st)++++c__case_172 x4 x6 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_172_case__131(x1)(x4)(x6)(x10)(st))(st)++++c__case_171 x4 x6 x12 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_171_case__130(x1)(x4)(x6)(x12)(x11)(st))(st)++++c__case_170 x4 x6 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_170_case__129(x1)(x4)(x6)(x12)(st))(st)++++c__case_169 x4 x6 x14 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_169_case__128(x1)(x4)(x6)(x14)(x13)(st))(st)++++c__case_168 x4 x6 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_168_case__127(x1)(x4)(x6)(x14)(st))(st)++++c__case_167 x4 x6 x16 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_167_case__126(x1)(x4)(x6)(x16)(x15)(st))(st)++++c__case_166 x4 x6 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_166_case__125(x1)(x4)(x6)(x16)(st))(st)++++c__case_165 x4 x6 x18 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_165_case__124(x1)(x4)(x6)(x18)(x17)(st))(st)++++c__case_164 x4 x6 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_164_case__123(x1)(x4)(x6)(x18)(st))(st)++++c__case_163 x4 x6 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_163_case__122(x1)(x4)(x6)(x20)(x19)(st))(st)++++c__case_162 x4 x6 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_162_case__121(x1)(x4)(x6)(x20)(st))(st)++++c__case_161 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_161_case__120(x1)(x4)(x6)(st))(st)++++c__case_160 x4 x22 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_160_case__119(x1)(x4)(x22)(x21)(st))(st)++++c__case_155 x4 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_155_case__118(x1)(x4)(x22)(st))(st)++++c__case_154 x4 x28 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_154_case__117(x1)(x4)(x28)(x27)(st))(st)++++c__case_153 x4 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_153_case__116(x1)(x4)(x28)(st))(st)++++c__case_152 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_152_case__115(x1)(x4)(st))(st)++++c__case_159 x4 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_159_case__114(x1)(x4)(x22)(st))(st)++++c__case_158 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_158_case__113(x1)(x4)(st))(st)++++c__case_157 x23 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_157_case__112(x1)(x23)(x24)(st))(st)++++c__case_156 x23 x25 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_156_case__111(x1)(x23)(x25)(x26)(st))(st)++++c__case_182 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_182_case__110(x1)(x2)(x3)(st))(st)++++c__case_181 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_181_case__109(x1)(x2)(x3)(st))(st)++++c__case_180 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_180_case__108(x1)(x2)(x3)(st))(st)++++c__case_179 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_179_case__107(x1)(x2)(x3)(st))(st)++++c__case_184 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_184_case__106(x1)(x2)(st))(st)++++c__case_183 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_183_case__105(x1)(x4)(x3)(st))(st)++++c__case_186 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_186_case__104(x1)(x2)(st))(st)++++c__case_185 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_185_case__103(x1)(x3)(st))(st)++++c__case_189 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_189_case__102(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_188 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_188_case__101(x1)(x4)(x5)(x6)(st))(st)++++c__case_187 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_187_case__100(x1)(x4)(x5)(x6)(st))(st)++++c__case_196 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_196_case__99(x1)(x2)(st))(st)++++c__case_190 x14 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_190_case__98(x1)(x14)(x13)(st))(st)++++c__case_194 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_194_case__97(x1)(x8)(x7)(st))(st)++++c__case_193 x9 x10 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_193_case__96(x1)(x9)(x10)(x8)(st))(st)++++c__case_192 x9 x10 x11 x12 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_192_case__95(x1)(x9)(x10)(x11)(x12)(x13)(st))(st)++++c__case_191 x10 x11 x12 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_191_case__94(x1)(x10)(x11)(x12)(x13)(st))(st)++++c__case_195 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_195_case__93(x1)(x3)(st))(st)++++c__case_199 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_199_case__92(x1)(x2)(x3)(st))(st)++++c__case_198 x2 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_198_case__91(x1)(x2)(x7)(st))(st)++++c__case_197 x2 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_197_case__90(x1)(x2)(x7)(x8)(x9)(st))(st)++++c__case_226 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_226_case__89(x1)(x2)(x4)(x3)(st))(st)++++c__case_225 x2 x3 x4 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_225_case__88(x1)(x2)(x3)(x4)(x6)(x5)(st))(st)++++c__case_224 x2 x3 x4 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_224_case__87(x1)(x2)(x3)(x4)(x7)(x6)(st))(st)++++c__case_223 x2 x3 x7 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_223_case__86(x1)(x2)(x3)(x7)(x4)(st))(st)++++c__case_222 x2 x3 x4 x7 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_222_case__85(x1)(x2)(x3)(x4)(x7)(x9)(x8)(st))(st)++++c__case_221 x2 x3 x4 x7 x9 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_221_case__84(x1)(x2)(x3)(x4)(x7)(x9)(x11)(x10)(st))(st)++++c__case_220 x2 x3 x4 x7 x9 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_220_case__83(x1)(x2)(x3)(x4)(x7)(x9)(x11)(x12)(st))(st)++++c__case_219 x2 x3 x4 x7 x11 x14 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_219_case__82(x1)(x2)(x3)(x4)(x7)(x11)(x14)(x9)(st))(st)++++c__case_201 x2 x3 x4 x7 x14 x125 x126 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_201_case__81(x1)(x2)(x3)(x4)(x7)(x14)(x125)(x126)(x11)(st))(st)++++c__case_200 x2 x3 x4 x7 x14 x125 x126 x127 x128 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_200_case__80(x1)(x2)(x3)(x4)(x14)(x125)(x126)(x128)(st))(st)++++c__case_203 x2 x3 x4 x7 x14 x109 x110 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_203_case__79(x1)(x2)(x3)(x4)(x7)(x14)(x109)(x110)(x11)(st))(st)++++c__case_202 x2 x3 x4 x7 x14 x109 x110 x111 x112 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_202_case__78(x1)(x2)(x3)(x4)(x14)(x109)(x110)(x112)(st))(st)++++c__case_205 x2 x3 x4 x7 x14 x94 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_205_case__77(x1)(x2)(x3)(x4)(x7)(x14)(x94)(x11)(st))(st)++++c__case_204 x2 x3 x4 x7 x14 x94 x95 x96 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_204_case__76(x1)(x2)(x3)(x4)(x14)(x94)(x96)(st))(st)++++c__case_207 x2 x3 x4 x7 x14 x78 x79 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_207_case__75(x1)(x2)(x3)(x4)(x7)(x14)(x78)(x79)(x11)(st))(st)++++c__case_206 x2 x3 x4 x7 x14 x78 x79 x80 x81 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_206_case__74(x1)(x2)(x3)(x4)(x14)(x78)(x79)(x81)(st))(st)++++c__case_209 x2 x3 x4 x7 x14 x62 x63 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_209_case__73(x1)(x2)(x3)(x4)(x7)(x14)(x62)(x63)(x11)(st))(st)++++c__case_208 x2 x3 x4 x7 x14 x62 x63 x64 x65 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_208_case__72(x1)(x2)(x3)(x4)(x14)(x62)(x63)(x65)(st))(st)++++c__case_211 x2 x3 x4 x7 x14 x46 x47 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_211_case__71(x1)(x2)(x3)(x4)(x7)(x14)(x46)(x47)(x11)(st))(st)++++c__case_210 x2 x3 x4 x7 x14 x46 x47 x48 x49 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_210_case__70(x1)(x2)(x3)(x4)(x14)(x46)(x47)(x49)(st))(st)++++c__case_213 x2 x3 x4 x7 x14 x31 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_213_case__69(x1)(x2)(x3)(x4)(x7)(x14)(x31)(x11)(st))(st)++++c__case_212 x2 x3 x4 x7 x14 x31 x32 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_212_case__68(x1)(x2)(x3)(x4)(x14)(x31)(x33)(st))(st)++++c__case_215 x2 x3 x4 x7 x14 x16 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_215_case__67(x1)(x2)(x3)(x4)(x7)(x14)(x16)(x11)(st))(st)++++c__case_214 x2 x3 x4 x7 x14 x16 x17 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_214_case__66(x1)(x2)(x3)(x4)(x14)(x16)(x18)(st))(st)++++c__case_218 x2 x3 x4 x7 x11 x14 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_218_case__65(x1)(x2)(x3)(x4)(x7)(x11)(x14)(x15)(x16)(st))(st)++++c__case_217 x2 x3 x4 x7 x11 x14 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_217_case__64(x1)(x2)(x3)(x4)(x7)(x11)(x14)(x15)(x16)(st))(st)++++c__case_216 x2 x3 x4 x7 x11 x14 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_216_case__63(x1)(x2)(x3)(x4)(x14)(x15)(x16)(st))(st)++++c__case_231 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_231_case__62(x1)(x3)(x2)(st))(st)++++c__case_230 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_230_case__61(x1)(x4)(x5)(x3)(st))(st)++++c__case_229 x4 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_229_case__60(x1)(x4)(x6)(x7)(x8)(st))(st)++++c__case_228 x4 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_228_case__59(x1)(x6)(x7)(x8)(st))(st)++++c__case_227 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_227_case__58(x1)(x7)(x8)(st))(st)++++c__case_234 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_234_case__57(x1)(x2)(x3)(st))(st)++++c__case_232 x2 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_232_case__56(x1)(x2)(x8)(x9)(st))(st)++++c__case_233 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_233_case__55(x1)(x4)(st))(st)++++c__case_236 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_236_case__54(x1)(x2)(x3)(st))(st)++++c__case_235 x2 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_235_case__53(x1)(x2)(x7)(x8)(st))(st)++++c__case_237 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_237_case__52(x1)(x2)(x3)(st))(st)++++c__case_241 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_241_case__51(x1)(x2)(x3)(st))(st)++++c__case_240 x2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_240_case__50(x1)(x2)(x5)(x4)(st))(st)++++c__case_239 x2 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_239_case__49(x1)(x2)(x5)(x6)(x7)(x8)(st))(st)++++c__case_238 x2 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_238_case__48(x1)(x2)(x5)(x6)(x7)(x8)(st))(st)++++c__case_242 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_242_case__47(x1)(x2)(st))(st)++++c__case_244 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_244_case__46(x1)(x2)(x3)(st))(st)++++c__case_243 x2 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_243_case__45(x1)(x2)(x6)(x7)(st))(st)++++c__case_245 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_245_case__44(x1)(x2)(x3)(st))(st)++++c__case_253 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_253_case__43(x1)(x2)(x3)(x4)(st))(st)++++c__case_252 x2 x3 x8 x9 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_252_case__42(x1)(x2)(x3)(x8)(x9)(x5)(st))(st)++++c__case_251 x2 x3 x8 x11 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_251_case__41(x1)(x2)(x3)(x8)(x11)(x9)(st))(st)++++c__case_246 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_246_case__40(x1)(x11)(x12)(st))(st)++++c__case_247 x11 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_247_case__39(x1)(x11)(x14)(st))(st)++++c__case_248 x2 x11 x13 x16 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_248_case__38(x1)(x2)(x11)(x13)(x16)(x14)(st))(st)++++c__case_249 x8 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_249_case__37(x1)(x8)(x15)(x16)(st))(st)++++c__case_250 x12 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_250_case__36(x1)(x12)(x15)(x16)(st))(st)++++c__case_254 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_254_case__35(x1)(x2)(x3)(st))(st)++++c__case_255 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_255_case__34(x1)(x2)(st))(st)++++c__case_257 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_257_case__33(x1)(x2)(st))(st)++++c__case_256 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_256_case__32(x1)(x3)(x4)(x5)(st))(st)++++c__case_262 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_262_case__31(x1)(x2)(x3)(st))(st)++++c__case_260 x2 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_260_case__30(x1)(x2)(x10)(x9)(st))(st)++++c__case_259 x2 x10 x11 x12 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_259_case__29(x1)(x2)(x10)(x11)(x12)(x13)(st))(st)++++c__case_258 x2 x10 x11 x12 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_258_case__28(x1)(x2)(x10)(x11)(x12)(x13)(st))(st)++++c__case_261 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_261_case__27(x1)(x4)(st))(st)++++c__case_264 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_264_case__26(x1)(x2)(st))(st)++++c__case_263 x6 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_263_case__25(x1)(x6)(x3)(st))(st)++++c__case_267 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_267_case__24(x1)(x2)(st))(st)++++c__case_265 x11 x12 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_265_case__23(x1)(x11)(x12)(x9)(st))(st)++++c__case_266 x5 x6 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_266_case__22(x1)(x5)(x6)(x3)(st))(st)++++c__case_268 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_268_case__21(x1)(x3)(st))(st)++++c__case_269 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_269_case__20(x1)(x2)(st))(st)++++c__case_272 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_272_case__19(x1)(x2)(st))(st)++++c__case_271 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_271_case__18(x1)(x4)(x5)(x3)(st))(st)++++c__case_270 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_270_case__17(x1)(x7)(x8)(st))(st)++++c__case_273 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_273_case__16(x1)(x3)(st))(st)++++c__case_274 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_274_case__15(x1)(x2)(x3)(st))(st)++++c__case_275 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_275_case__14(x1)(x3)(st))(st)++++c__case_276 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_276_case__13(x1)(x2)(st))(st)++++c__case_277 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_277_case__12(x1)(x2)(st))(st)++++c__case_280 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_280_case__11(x1)(x2)(st))(st)++++c__case_278 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_278_case__10(x1)(x11)(st))(st)++++c__case_279 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_279_case__9(x1)(x3)(st))(st)++++c__case_281 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_281_case__8(x1)(x2)(st))(st)++++c__case_282 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_282_case__7(x1)(x2)(st))(st)++++c__case_285 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_285_case__6(x1)(x2)(st))(st)++++c__case_283 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_283_case__5(x1)(x9)(st))(st)++++c__case_284 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_284_case__4(x1)(x3)(st))(st)++++c__case_286 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_286_case__3(x1)(x2)(st))(st)++++c__case_287 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_287_case__2(x1)(x2)(st))(st)++++c__case_289 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_289_case__1(x1)(x2)(st))(st)++++c__case_288 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_288_case__0(x1)(x8)(x9)(st))(st)++++c__case_288_case__0 x1 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_288_case__0 x1 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x8)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x1)(st))(x10)(st))(st)+c__case_288_case__0 x1 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_288_case__0(x1)(x8)(x)(st))(i)(xs)(st)+c__case_288_case__0 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_288_case__0")(x)++++c__case_289_case__1 x1 x2@(Curry.Module.AbstractCurry.C_CurryProg x3 x4 x5 x6 x7) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x8 = Curry.Module.OracleAbstractCurryPrinter.c_showExports(x5)(x6)(x1)(st)} in let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c__case_288(x8)(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.Prelude.List)(x9)(st))(x10)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showImports(x4)(x11)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showOpDecls(x7)(x12)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showTypeDecls(x5)(x13)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_prefixInter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showFuncDeclOpt(Curry.Module.Prelude.T2(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_nameFM(x14)(st))(x6)(x15)(st))(x3))))))(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(x16)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(x23)(st))(x24)(st))(st))(st)+c__case_289_case__1 x1 (Curry.Module.AbstractCurry.C_CurryProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_289_case__1(x1)(x)(st))(i)(xs)(st)+c__case_289_case__1 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_289_case__1")(x)++++c__case_287_case__2 x1 x2@(Curry.Module.AbstractCurry.C_CType x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.AbstractCurry.C_Public)(x1)(st))(st)+c__case_287_case__2 x1 x2@(Curry.Module.AbstractCurry.C_CTypeSyn x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.AbstractCurry.C_Public)(x1)(st))(st)+c__case_287_case__2 x1 (Curry.Module.AbstractCurry.C_CTypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_287_case__2(x1)(x)(st))(i)(xs)(st)+c__case_287_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_287_case__2")(x)++++c__case_286_case__3 x1 x2@(Curry.Module.AbstractCurry.C_CFunc x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.AbstractCurry.C_Public)(x1)(st))(st)+c__case_286_case__3 x1 x2@(Curry.Module.AbstractCurry.C_CmtFunc x8 x9 x10 x11 x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x11)(Curry.Module.AbstractCurry.C_Public)(x1)(st))(st)+c__case_286_case__3 x1 (Curry.Module.AbstractCurry.C_CFuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_286_case__3(x1)(x)(st))(i)(xs)(st)+c__case_286_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_286_case__3")(x)++++c__case_284_case__4 x1 x3@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_284_case__4 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_284_case__4(x1)(x)(st))(i)(xs)(st)+c__case_284_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_284_case__4")(x)++++c__case_283_case__5 x1 x9@(Curry.Module.Prelude.T2 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x14)(st)+c__case_283_case__5 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_283_case__5(x1)(x)(st))(i)(xs)(st)+c__case_283_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_283_case__5")(x)++++c__case_285_case__6 x1 x2@(Curry.Module.AbstractCurry.C_CType x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_284(x3)(x1)(st))(st)+c__case_285_case__6 x1 x2@(Curry.Module.AbstractCurry.C_CTypeSyn x9 x10 x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_283(x9)(x1)(st))(st)+c__case_285_case__6 x1 (Curry.Module.AbstractCurry.C_CTypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_285_case__6(x1)(x)(st))(i)(xs)(st)+c__case_285_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_285_case__6")(x)++++c__case_282_case__7 x1 x2@(Curry.Module.AbstractCurry.C_CType x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_length(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showExports'46allPublicCons'469'46isPublicCons'4649))))(x6)(x1)(st))(x7)(st))(Curry.Module.OraclePrelude.c_length(x6)(x8)(st))(x9)(st))(st)+c__case_282_case__7 x1 (Curry.Module.AbstractCurry.C_CTypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_282_case__7(x1)(x)(st))(i)(xs)(st)+c__case_282_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_282_case__7")(x)++++c__case_281_case__8 x1 x2@(Curry.Module.AbstractCurry.C_CCons x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.AbstractCurry.C_Public)(x1)(st))(st)+c__case_281_case__8 x1 (Curry.Module.AbstractCurry.C_CConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_281_case__8(x1)(x)(st))(i)(xs)(st)+c__case_281_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_281_case__8")(x)++++c__case_279_case__9 x1 x3@(Curry.Module.Prelude.T2 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_279_case__9 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_279_case__9(x1)(x)(st))(i)(xs)(st)+c__case_279_case__9 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_279_case__9")(x)++++c__case_278_case__10 x1 x11@(Curry.Module.Prelude.T2 x16 x17) st = Curry.Module.CEventOracle.c_collapse(x1)(x17)(st)+c__case_278_case__10 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_278_case__10(x1)(x)(st))(i)(xs)(st)+c__case_278_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_278_case__10")(x)++++c__case_280_case__11 x1 x2@(Curry.Module.AbstractCurry.C_CFunc x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_279(x3)(x1)(st))(st)+c__case_280_case__11 x1 x2@(Curry.Module.AbstractCurry.C_CmtFunc x10 x11 x12 x13 x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_278(x11)(x1)(st))(st)+c__case_280_case__11 x1 (Curry.Module.AbstractCurry.C_CFuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_280_case__11(x1)(x)(st))(i)(xs)(st)+c__case_280_case__11 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_280_case__11")(x)++++c__case_277_case__12 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_277_case__12 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_277_case__12(x1)(x)(st))(i)(xs)(st)+c__case_277_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_277_case__12")(x)++++c__case_276_case__13 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_276_case__13 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_276_case__13(x1)(x)(st))(i)(xs)(st)+c__case_276_case__13 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_276_case__13")(x)++++c__case_275_case__14 x1 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_275_case__14 x1 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(st)+c__case_275_case__14 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_275_case__14(x1)(x)(st))(i)(xs)(st)+c__case_275_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_275_case__14")(x)++++c__case_274_case__15 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(x2)(x1)(st))(st)+c__case_274_case__15 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_274_case__15 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_274_case__15(x1)(x2)(x)(st))(i)(xs)(st)+c__case_274_case__15 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_274_case__15")(x)++++c__case_273_case__16 x1 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_273_case__16 x1 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(st)+c__case_273_case__16 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_273_case__16(x1)(x)(st))(i)(xs)(st)+c__case_273_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_273_case__16")(x)++++c__case_270_case__17 x1 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_270_case__17 x1 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('`'))(Curry.Module.OraclePrelude.op_43_43(x7)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('`'))(Curry.Module.Prelude.List))(x1)(st)))(st)+c__case_270_case__17 x1 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_270_case__17(x1)(x7)(x)(st))(i)(xs)(st)+c__case_270_case__17 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_270_case__17")(x)++++c__case_271_case__18 x1 x4 x5 x3@(Curry.Module.Prelude.T2 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showFixity(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x8)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_270(x7)(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x9)(st))(x7)(x10)(st))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_271_case__18 x1 x4 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_271_case__18(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_271_case__18 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_271_case__18")(x)++++c__case_272_case__19 x1 x2@(Curry.Module.AbstractCurry.C_COp x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_271(x4)(x5)(x3)(x1)(st))(st)+c__case_272_case__19 x1 (Curry.Module.AbstractCurry.C_COpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_272_case__19(x1)(x)(st))(i)(xs)(st)+c__case_272_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_272_case__19")(x)++++c__case_269_case__20 x1 x2@Curry.Module.AbstractCurry.C_CInfixOp st = Curry.Module.CEventOracle.c_collapse(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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))))))(st)+c__case_269_case__20 x1 x2@Curry.Module.AbstractCurry.C_CInfixlOp st = Curry.Module.CEventOracle.c_collapse(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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))(st)+c__case_269_case__20 x1 x2@Curry.Module.AbstractCurry.C_CInfixrOp st = Curry.Module.CEventOracle.c_collapse(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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))(st)+c__case_269_case__20 x1 (Curry.Module.AbstractCurry.C_CFixityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_269_case__20(x1)(x)(st))(i)(xs)(st)+c__case_269_case__20 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_269_case__20")(x)++++c__case_268_case__21 x1 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_268_case__21 x1 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(st)+c__case_268_case__21 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_268_case__21(x1)(x)(st))(i)(xs)(st)+c__case_268_case__21 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_268_case__21")(x)++++c__case_266_case__22 x1 x5 x6 x3@(Curry.Module.Prelude.T2 x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(x8)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))))(x5)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x9)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)(x6)(x10)(st))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(st)+c__case_266_case__22 x1 x5 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_266_case__22(x1)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_266_case__22 x1 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_266_case__22")(x)++++c__case_265_case__23 x1 x11 x12 x9@(Curry.Module.Prelude.T2 x13 x14) st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(x14)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.AbstractCurry.C_CTVar))))(x11)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x15)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBlock(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showConsDecl))))(x12)((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))))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(st)+c__case_265_case__23 x1 x11 x12 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_265_case__23(x1)(x11)(x12)(x)(st))(i)(xs)(st)+c__case_265_case__23 x1 x11 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_265_case__23")(x)++++c__case_267_case__24 x1 x2@(Curry.Module.AbstractCurry.C_CTypeSyn x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_266(x5)(x6)(x3)(x1)(st))(st)+c__case_267_case__24 x1 x2@(Curry.Module.AbstractCurry.C_CType x9 x10 x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_265(x11)(x12)(x9)(x1)(st))(st)+c__case_267_case__24 x1 (Curry.Module.AbstractCurry.C_CTypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_267_case__24(x1)(x)(st))(i)(xs)(st)+c__case_267_case__24 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_267_case__24")(x)++++c__case_263_case__25 x1 x6 x3@(Curry.Module.Prelude.T2 x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x8)(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_True)))))(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x1)(st))(x9)(st))(st)+c__case_263_case__25 x1 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_263_case__25(x1)(x6)(x)(st))(i)(xs)(st)+c__case_263_case__25 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_263_case__25")(x)++++c__case_264_case__26 x1 x2@(Curry.Module.AbstractCurry.C_CCons x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_263(x6)(x3)(x1)(st))(st)+c__case_264_case__26 x1 (Curry.Module.AbstractCurry.C_CConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_264_case__26(x1)(x)(st))(i)(xs)(st)+c__case_264_case__26 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_264_case__26")(x)++++c__case_261_case__27 x1 x4@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OracleAbstractCurryPrinter.c_showTypeVar(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_showIdentifier(x1)(st))(x6)(x7)(st))(x8)(st))(st)+c__case_261_case__27 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_261_case__27(x1)(x)(st))(i)(xs)(st)+c__case_261_case__27 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_261_case__27")(x)++++c__case_258_case__28 x1 x2 x10 x11 x12 x13@Curry.Module.Prelude.C_True st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))))(Curry.Module.OracleAbstractCurryPrinter.c_maybeShowBrackets(Curry.Module.OraclePrelude.op_38_38(x2)(Curry.Module.OraclePrelude.c_not(Curry.Module.OraclePrelude.c_null(x10)(x1)(st))(x14)(st))(x15)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showTypeCons(x11)(x12)(x10)(x16)(st))(x17)(st))(st)+c__case_258_case__28 x1 x2 x10 x11 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_258_case__28 x1 x2 x10 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_258_case__28(x1)(x2)(x10)(x11)(x12)(x)(st))(i)(xs)(st)+c__case_258_case__28 x1 x2 x10 x11 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_258_case__28")(x)++++c__case_259_case__29 x1 x2 x10 x11 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))(Curry.Module.Prelude.List))(st)+c__case_259_case__29 x1 x2 x10 x11 x12 x13@Curry.Module.Prelude.C_False st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_258(x2)(x10)(x11)(x12)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x14)(st))(st)+c__case_259_case__29 x1 x2 x10 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_259_case__29(x1)(x2)(x10)(x11)(x12)(x)(st))(i)(xs)(st)+c__case_259_case__29 x1 x2 x10 x11 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_259_case__29")(x)++++c__case_260_case__30 x1 x2 x10 x9@(Curry.Module.Prelude.T2 x11 x12) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))(Curry.Module.OracleAbstractCurryPrinter.c__case_259(x2)(x10)(x11)(x12)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x11)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x12)((Curry.Module.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))))))))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_260_case__30 x1 x2 x10 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_260_case__30(x1)(x2)(x10)(x)(st))(i)(xs)(st)+c__case_260_case__30 x1 x2 x10 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_260_case__30")(x)++++c__case_262_case__31 x1 x2 x3@(Curry.Module.AbstractCurry.C_CTVar x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_261(x4)(x1)(st))(st)+c__case_262_case__31 x1 x2 x3@(Curry.Module.AbstractCurry.C_CFuncType x7 x8) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))(Curry.Module.OracleAbstractCurryPrinter.c_maybeShowBrackets(x2)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.OracleAbstractCurryPrinter.c_isCFuncType(x7)(x1)(st))(x7)(x11)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)(x8)(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_262_case__31 x1 x2 x3@(Curry.Module.AbstractCurry.C_CTCons x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_260(x2)(x10)(x9)(x1)(st))(st)+c__case_262_case__31 x1 x2 (Curry.Module.AbstractCurry.C_CTypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_262_case__31(x1)(x2)(x)(st))(i)(xs)(st)+c__case_262_case__31 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_262_case__31")(x)++++c__case_256_case__32 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))(x4)))(st)+c__case_256_case__32 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x3)(x4))(st)+c__case_256_case__32 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_256_case__32(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_256_case__32 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_256_case__32")(x)++++c__case_257_case__33 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))))))(Curry.Module.OracleAbstractCurryPrinter.c__case_256(x3)(x4)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('a'))(x1)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.c_not(Curry.Module.OraclePrelude.c_null(x4)(x5)(st))(x6)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleChar.c_isDigit))))(x7)(st))(x4)(x8)(st))(x9)(st))(x10)(st))(x11)(st))(st)+c__case_257_case__33 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_257_case__33(x1)(x)(st))(i)(xs)(st)+c__case_257_case__33 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_257_case__33")(x)++++c__case_255_case__34 x1 x2@(Curry.Module.AbstractCurry.C_CFuncType x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_255_case__34 x1 x2@(Curry.Module.AbstractCurry.C_CTVar x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_255_case__34 x1 x2@(Curry.Module.AbstractCurry.C_CTCons x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_255_case__34 x1 (Curry.Module.AbstractCurry.C_CTypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_255_case__34(x1)(x)(st))(i)(xs)(st)+c__case_255_case__34 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_255_case__34")(x)++++c__case_254_case__35 x1 x2 x3@(Curry.Module.AbstractCurry.C_CmtFunc x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showCmtFunc(x2)(x4)(Curry.Module.AbstractCurry.C_CFunc(x5)(x6)(x7)(x8)(x9))(x1)(st))(st)+c__case_254_case__35 x1 x2 x3@(Curry.Module.AbstractCurry.C_CFunc x10 x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showCmtFunc(x2)(Curry.Module.Prelude.List)(x3)(x1)(st))(st)+c__case_254_case__35 x1 x2 (Curry.Module.AbstractCurry.C_CFuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_254_case__35(x1)(x2)(x)(st))(i)(xs)(st)+c__case_254_case__35 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_254_case__35")(x)++++c__case_250_case__36 x1 x12 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_250_case__36 x1 x12 x15 x16@Curry.Module.Prelude.C_False st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(x15)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showEvalAnnot(x12)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x17)(st))(x18)(st))(x19)(st))(st)+c__case_250_case__36 x1 x12 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_250_case__36(x1)(x12)(x15)(x)(st))(i)(xs)(st)+c__case_250_case__36 x1 x12 x15 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_250_case__36")(x)++++c__case_249_case__37 x1 x8 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(st)+c__case_249_case__37 x1 x8 x15 x16@Curry.Module.Prelude.C_False st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(x15)(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)(x8)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x17)(st))(x18)(st))(x19)(st))(st)+c__case_249_case__37 x1 x8 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_249_case__37(x1)(x8)(x15)(x)(st))(i)(xs)(st)+c__case_249_case__37 x1 x8 x15 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_249_case__37")(x)++++c__case_248_case__38 x1 x2 x11 x13 x16 x14@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x16)(st)+c__case_248_case__38 x1 x2 x11 x13 x16 x14@Curry.Module.Prelude.C_False st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(x11)(Curry.Module.OracleAbstractCurryPrinter.c_prefixInter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showRule(x2)))))(x13)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x11)(x1)(st))(x17)(st))(x18)(st))(st)+c__case_248_case__38 x1 x2 x11 x13 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_248_case__38(x1)(x2)(x11)(x13)(x16)(x)(st))(i)(xs)(st)+c__case_248_case__38 x1 x2 x11 x13 x16 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_248_case__38")(x)++++c__case_247_case__39 x1 x11 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x11)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x1)(st))(x15)(st))(st)+c__case_247_case__39 x1 x11 x14@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x11)(st)+c__case_247_case__39 x1 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_247_case__39(x1)(x11)(x)(st))(i)(xs)(st)+c__case_247_case__39 x1 x11 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_247_case__39")(x)++++c__case_246_case__40 x1 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x11)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x1)(st))(x13)(st))(st)+c__case_246_case__40 x1 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x11)(st)+c__case_246_case__40 x1 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_246_case__40(x1)(x11)(x)(st))(i)(xs)(st)+c__case_246_case__40 x1 x11 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_246_case__40")(x)++++c__case_251_case__41 x1 x2 x3 x8 x11 x9@(Curry.Module.AbstractCurry.C_CRules x12 x13) st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))(let {x14 = Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x11)(x19)(st)} in let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.OracleAbstractCurryPrinter.c__case_247(x11)(x14)(x20)(st)} in let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))))))(let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_funcComment(x27)(st))(x3)(x28)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c__case_250(x12)(x15)(Curry.Module.OraclePrelude.op_61_61(x12)(Curry.Module.AbstractCurry.C_CFlex)(x29)(st))(x30)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c__case_249(x8)(x15)(Curry.Module.OracleAbstractCurryPrinter.c_isUntyped(x8)(x31)(st))(x32)(st))(Curry.Module.OracleAbstractCurryPrinter.c__case_248(x2)(x11)(x13)(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_concat))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showCmtFunc'46insertName'46139(x11)))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_span(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(Curry.Module.Prelude.C_Char(' '))))))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_tail))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showRule(x2)))))(x21)(st))(x22)(st))(x23)(st))(x13)(x24)(st))(x25)(st))(x26)(st))(x14)(x33)(st))(x34)(st))(x35)(st))(x36)(st))(st))(st))(st))(st)+c__case_251_case__41 x1 x2 x3 x8 x11 x9@(Curry.Module.AbstractCurry.C_CExternal x17) st = let {x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)(Curry.Module.Prelude.List))))(let {x18 = Curry.Module.OracleAbstractCurryPrinter.c__case_246(x11)(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x11)(x37)(st))(x38)(st)} in let {x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x45 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x46 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x47 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x39)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)((Curry.Module.Prelude.:<)(x43)((Curry.Module.Prelude.:<)(x44)((Curry.Module.Prelude.:<)(x45)((Curry.Module.Prelude.:<)(x46)((Curry.Module.Prelude.:<)(x47)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_funcComment(x39)(st))(x3)(x40)(st))(Curry.Module.OraclePrelude.op_43_43(x18)(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)(x8)(x41)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x18)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))))))(x42)(st))(x43)(st))(x44)(st))(x45)(st))(x46)(st))(x47)(st))(st))(st)+c__case_251_case__41 x1 x2 x3 x8 x11 (Curry.Module.AbstractCurry.C_CRulesOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_251_case__41(x1)(x2)(x3)(x8)(x11)(x)(st))(i)(xs)(st)+c__case_251_case__41 x1 x2 x3 x8 x11 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_251_case__41")(x)++++c__case_252_case__42 x1 x2 x3 x8 x9 x5@(Curry.Module.Prelude.T2 x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_251(x2)(x3)(x8)(x11)(x9)(x1)(st))(st)+c__case_252_case__42 x1 x2 x3 x8 x9 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_252_case__42(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_252_case__42 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_252_case__42")(x)++++c__case_253_case__43 x1 x2 x3 x4@(Curry.Module.AbstractCurry.C_CFunc x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_252(x2)(x3)(x8)(x9)(x5)(x1)(st))(st)+c__case_253_case__43 x1 x2 x3 (Curry.Module.AbstractCurry.C_CFuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_253_case__43(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_253_case__43 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_253_case__43")(x)++++c__case_245_case__44 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(x4)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x2)(x5)(x1)(st))(x6)(st))(x7)(st))(st)+c__case_245_case__44 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_245_case__44(x1)(x2)(x)(st))(i)(xs)(st)+c__case_245_case__44 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_245_case__44")(x)++++c__case_243_case__45 x1 x2 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_243_case__45 x1 x2 x6 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))))(Curry.Module.OracleAbstractCurryPrinter.c_showBlock(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showLocalDecl(x2)))))(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x8)(st))(x9)(st))(st)+c__case_243_case__45 x1 x2 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_243_case__45(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c__case_243_case__45 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_243_case__45")(x)++++c__case_244_case__46 x1 x2 x3@(Curry.Module.AbstractCurry.C_CRule x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showPattern))))(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCrhsList(x2)(x5)(x7)(st))(Curry.Module.OracleAbstractCurryPrinter.c__case_243(x2)(x6)(Curry.Module.OraclePrelude.c_null(x6)(x8)(st))(x9)(st))(x10)(st))(x11)(st))(st)+c__case_244_case__46 x1 x2 (Curry.Module.AbstractCurry.C_CRuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_244_case__46(x1)(x2)(x)(st))(i)(xs)(st)+c__case_244_case__46 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_244_case__46")(x)++++c__case_242_case__47 x1 x2@Curry.Module.AbstractCurry.C_CFlex st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List)))))(st)+c__case_242_case__47 x1 x2@Curry.Module.AbstractCurry.C_CRigid st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))(st)+c__case_242_case__47 x1 x2@Curry.Module.AbstractCurry.C_CChoice st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))(st)+c__case_242_case__47 x1 (Curry.Module.AbstractCurry.C_CEvalAnnotOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_242_case__47(x1)(x)(st))(i)(xs)(st)+c__case_242_case__47 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_242_case__47")(x)++++c__case_238_case__48 x1 x2 x5 x6 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBlock(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showCrhs(x2)))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x6)(x7))(x5))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x9)(st))(x10)(st))(st)+c__case_238_case__48 x1 x2 x5 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_238_case__48 x1 x2 x5 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_238_case__48(x1)(x2)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_238_case__48 x1 x2 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_238_case__48")(x)++++c__case_239_case__49 x1 x2 x5 x6 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x7)(x1)(st))(x9)(st))(st)+c__case_239_case__49 x1 x2 x5 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_238(x2)(x5)(x6)(x7)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x10)(st))(st)+c__case_239_case__49 x1 x2 x5 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_239_case__49(x1)(x2)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_239_case__49 x1 x2 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_239_case__49")(x)++++c__case_240_case__50 x1 x2 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.OracleAbstractCurryPrinter.c__case_239(x2)(x5)(x6)(x7)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.List)(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.AbstractCurry.C_CSymbol(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))(x8)(st))(x9)(st))(x10)(st))(st)+c__case_240_case__50 x1 x2 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_240_case__50(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_240_case__50 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_240_case__50")(x)++++c__case_241_case__51 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_241_case__51 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_240(x2)(x5)(x4)(x1)(st))(st)+c__case_241_case__51 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_241_case__51(x1)(x2)(x)(st))(i)(xs)(st)+c__case_241_case__51 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_241_case__51")(x)++++c__case_237_case__52 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x5)(x6)(st))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_237_case__52 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_237_case__52(x1)(x2)(x)(st))(i)(xs)(st)+c__case_237_case__52 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_237_case__52")(x)++++c__case_235_case__53 x1 x2 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_235_case__53 x1 x2 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))))(Curry.Module.OracleAbstractCurryPrinter.c_showBlock(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showLocalDecl(x2)))))(x7)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x9)(st))(x10)(st))(st)+c__case_235_case__53 x1 x2 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_235_case__53(x1)(x2)(x7)(x)(st))(i)(xs)(st)+c__case_235_case__53 x1 x2 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_235_case__53")(x)++++c__case_236_case__54 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLocalFunc x4) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_showLocalFuncDecl(x2)(x1)(st))(x4)(x9)(st))(st)+c__case_236_case__54 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLocalPat x5 x6 x7) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showPattern(x5)(x1)(st))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x6)(x10)(st))(Curry.Module.OracleAbstractCurryPrinter.c__case_235(x2)(x7)(Curry.Module.OraclePrelude.c_null(x7)(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_236_case__54 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLocalVar x8) st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showPattern(Curry.Module.AbstractCurry.C_CPVar(x8))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))(x16)(st))(st)+c__case_236_case__54 x1 x2 (Curry.Module.AbstractCurry.C_CLocalDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_236_case__54(x1)(x2)(x)(st))(i)(xs)(st)+c__case_236_case__54 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_236_case__54")(x)++++c__case_233_case__55 x1 x4@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_showIdentifier(x1)(st))(x6)(x7)(st))(st)+c__case_233_case__55 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_233_case__55(x1)(x)(st))(i)(xs)(st)+c__case_233_case__55 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_233_case__55")(x)++++c__case_232_case__56 x1 x2 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x8)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(st)+c__case_232_case__56 x1 x2 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x8)(x1)(st))(st)+c__case_232_case__56 x1 x2 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_232_case__56(x1)(x2)(x8)(x)(st))(i)(xs)(st)+c__case_232_case__56 x1 x2 x8 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_232_case__56")(x)++++c__case_234_case__57 x1 x2 x3@(Curry.Module.AbstractCurry.C_CVar x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_233(x4)(x1)(st))(st)+c__case_234_case__57 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLit x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLiteral(x7)(x1)(st))(st)+c__case_234_case__57 x1 x2 x3@(Curry.Module.AbstractCurry.C_CSymbol x8) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))))(Curry.Module.OracleAbstractCurryPrinter.c__case_232(x2)(x8)(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(Curry.Module.OraclePrelude.c_snd(x8)(x20)(st))(x21)(st))(x22)(st))(st)+c__case_234_case__57 x1 x2 x3@(Curry.Module.AbstractCurry.C_CApply x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showApplication(x2)(Curry.Module.AbstractCurry.C_CApply(x9)(x10))(x1)(st))(st)+c__case_234_case__57 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLambda x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambdaOrSection(x2)(x11)(x12)(x1)(st))(st)+c__case_234_case__57 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLetDecl x13 x14) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(Curry.Module.OracleAbstractCurryPrinter.c_showBlock(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showLocalDecl(x2)))))(x13)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x14)(x23)(st))(x24)(st))(x25)(st))(x26)(st))(x27)(st))(st)+c__case_234_case__57 x1 x2 x3@(Curry.Module.AbstractCurry.C_CDoExpr x15) st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleAbstractCurryPrinter.c_showBlock(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showStatement(x2)))))(x15)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x28)(st))(x29)(st))(st)+c__case_234_case__57 x1 x2 x3@(Curry.Module.AbstractCurry.C_CListComp x16 x17) st = let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x16)(x1)(st))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showStatement(x2)))))(x17)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(x30)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(x31)(st))(x32)(st))(x33)(st))(x34)(st))(st)+c__case_234_case__57 x1 x2 x3@(Curry.Module.AbstractCurry.C_CCase x18 x19) st = let {x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x18)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(Curry.Module.OracleAbstractCurryPrinter.c_showBlock(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showBranchExpr(x2)))))(x19)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x35)(st))(x36)(st))(x37)(st))(x38)(st))(x39)(st))(st)+c__case_234_case__57 x1 x2 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_234_case__57(x1)(x2)(x)(st))(i)(xs)(st)+c__case_234_case__57 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_234_case__57")(x)++++c__case_227_case__58 x1 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_227_case__58 x1 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_227_case__58 x1 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_227_case__58(x1)(x7)(x)(st))(i)(xs)(st)+c__case_227_case__58 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_227_case__58")(x)++++c__case_228_case__59 x1 x6 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x6)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))(x7)(x1)(st))(x9)(st))(st)+c__case_228_case__59 x1 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_227(x7)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x10)(st))(st)+c__case_228_case__59 x1 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_228_case__59(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_228_case__59 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_228_case__59")(x)++++c__case_229_case__60 x1 x4 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_229_case__60 x1 x4 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.OracleAbstractCurryPrinter.c__case_228(x4)(x6)(x7)(Curry.Module.OracleMaybe.c_isJust(Curry.Module.OracleFiniteMap.c_lookupFM(x4)(x7)(x1)(st))(x9)(st))(x10)(st))(st)+c__case_229_case__60 x1 x4 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_229_case__60(x1)(x4)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_229_case__60 x1 x4 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_229_case__60")(x)++++c__case_230_case__61 x1 x4 x5 x3@(Curry.Module.Prelude.T2 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_229(x4)(x5)(x6)(x7)(Curry.Module.OraclePrelude.op_61_61(x5)(x6)(x1)(st))(x8)(st))(st)+c__case_230_case__61 x1 x4 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_230_case__61(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_230_case__61 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_230_case__61")(x)++++c__case_231_case__62 x1 x3 x2@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_230(x4)(x5)(x3)(x1)(st))(st)+c__case_231_case__62 x1 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_231_case__62(x1)(x3)(x)(st))(i)(xs)(st)+c__case_231_case__62 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_231_case__62")(x)++++c__case_216_case__63 x1 x2 x3 x4 x14 x15 x16@Curry.Module.Prelude.C_True st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x14)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(Curry.Module.AbstractCurry.C_CVar(x15))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(st)+c__case_216_case__63 x1 x2 x3 x4 x14 x15 x16@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_216_case__63 x1 x2 x3 x4 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_216_case__63(x1)(x2)(x3)(x4)(x14)(x15)(x)(st))(i)(xs)(st)+c__case_216_case__63 x1 x2 x3 x4 x14 x15 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_216_case__63")(x)++++c__case_217_case__64 x1 x2 x3 x4 x7 x11 x14 x15 x16@Curry.Module.Prelude.C_True st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x11)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x14)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(st)+c__case_217_case__64 x1 x2 x3 x4 x7 x11 x14 x15 x16@Curry.Module.Prelude.C_False st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_216(x2)(x3)(x4)(x7)(x11)(x14)(x15)(Curry.Module.OraclePrelude.op_61_61(x11)(Curry.Module.AbstractCurry.C_CVar(x7))(x1)(st))(x21)(st))(st)+c__case_217_case__64 x1 x2 x3 x4 x7 x11 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_217_case__64(x1)(x2)(x3)(x4)(x7)(x11)(x14)(x15)(x)(st))(i)(xs)(st)+c__case_217_case__64 x1 x2 x3 x4 x7 x11 x14 x15 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_217_case__64")(x)++++c__case_218_case__65 x1 x2 x3 x4 x7 x11 x14 x15 x16@Curry.Module.Prelude.C_True st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_217(x2)(x3)(x4)(x7)(x11)(x14)(x15)(Curry.Module.OraclePrelude.op_61_61(x7)(x15)(x1)(st))(x17)(st))(st)+c__case_218_case__65 x1 x2 x3 x4 x7 x11 x14 x15 x16@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_218_case__65 x1 x2 x3 x4 x7 x11 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_218_case__65(x1)(x2)(x3)(x4)(x7)(x11)(x14)(x15)(x)(st))(i)(xs)(st)+c__case_218_case__65 x1 x2 x3 x4 x7 x11 x14 x15 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_218_case__65")(x)++++c__case_214_case__66 x1 x2 x3 x4 x14 x16 x18@Curry.Module.Prelude.C_True st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x14)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(Curry.Module.AbstractCurry.C_CLit(x16))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(st)+c__case_214_case__66 x1 x2 x3 x4 x14 x16 x18@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_214_case__66 x1 x2 x3 x4 x14 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_214_case__66(x1)(x2)(x3)(x4)(x14)(x16)(x)(st))(i)(xs)(st)+c__case_214_case__66 x1 x2 x3 x4 x14 x16 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_214_case__66")(x)++++c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 x11@(Curry.Module.AbstractCurry.C_CVar x17) st = let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleAbstractCurryPrinter.c__case_214(x2)(x3)(x4)(x7)(x14)(x16)(x17)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x14)(x31)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x7)(x17)(x32)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleAbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CLit(x16))(x33)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x17))(Curry.Module.AbstractCurry.C_CLit(x16))(x34)(st))(x35)(st))(x36)(st))(x37)(st))(x38)(st))(st)+c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 x11@(Curry.Module.AbstractCurry.C_CLit x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 x11@(Curry.Module.AbstractCurry.C_CSymbol x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 x11@(Curry.Module.AbstractCurry.C_CApply x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 x11@(Curry.Module.AbstractCurry.C_CLambda x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 x11@(Curry.Module.AbstractCurry.C_CLetDecl x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 x11@(Curry.Module.AbstractCurry.C_CDoExpr x26) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 x11@(Curry.Module.AbstractCurry.C_CListComp x27 x28) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 x11@(Curry.Module.AbstractCurry.C_CCase x29 x30) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_215_case__67(x1)(x2)(x3)(x4)(x7)(x14)(x16)(x)(st))(i)(xs)(st)+c__case_215_case__67 x1 x2 x3 x4 x7 x14 x16 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_215_case__67")(x)++++c__case_212_case__68 x1 x2 x3 x4 x14 x31 x33@Curry.Module.Prelude.C_True st = let {x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x14)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(Curry.Module.AbstractCurry.C_CSymbol(x31))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x34)(st))(x35)(st))(x36)(st))(x37)(st))(st)+c__case_212_case__68 x1 x2 x3 x4 x14 x31 x33@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_212_case__68 x1 x2 x3 x4 x14 x31 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_212_case__68(x1)(x2)(x3)(x4)(x14)(x31)(x)(st))(i)(xs)(st)+c__case_212_case__68 x1 x2 x3 x4 x14 x31 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_212_case__68")(x)++++c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 x11@(Curry.Module.AbstractCurry.C_CVar x32) st = let {x46 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x47 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x48 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x49 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x50 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x51 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x52 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x53 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x46)((Curry.Module.Prelude.:<)(x47)((Curry.Module.Prelude.:<)(x48)((Curry.Module.Prelude.:<)(x49)((Curry.Module.Prelude.:<)(x50)((Curry.Module.Prelude.:<)(x51)((Curry.Module.Prelude.:<)(x52)((Curry.Module.Prelude.:<)(x53)(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleAbstractCurryPrinter.c__case_212(x2)(x3)(x4)(x7)(x14)(x31)(x32)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x14)(x46)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x7)(x32)(x47)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleAbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CSymbol(x31))(x48)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x32))(Curry.Module.AbstractCurry.C_CSymbol(x31))(x49)(st))(x50)(st))(x51)(st))(x52)(st))(x53)(st))(st)+c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 x11@(Curry.Module.AbstractCurry.C_CLit x33) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 x11@(Curry.Module.AbstractCurry.C_CSymbol x34) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 x11@(Curry.Module.AbstractCurry.C_CApply x35 x36) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 x11@(Curry.Module.AbstractCurry.C_CLambda x37 x38) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 x11@(Curry.Module.AbstractCurry.C_CLetDecl x39 x40) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 x11@(Curry.Module.AbstractCurry.C_CDoExpr x41) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 x11@(Curry.Module.AbstractCurry.C_CListComp x42 x43) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 x11@(Curry.Module.AbstractCurry.C_CCase x44 x45) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_213_case__69(x1)(x2)(x3)(x4)(x7)(x14)(x31)(x)(st))(i)(xs)(st)+c__case_213_case__69 x1 x2 x3 x4 x7 x14 x31 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_213_case__69")(x)++++c__case_210_case__70 x1 x2 x3 x4 x14 x46 x47 x49@Curry.Module.Prelude.C_True st = let {x50 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x51 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x52 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x53 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x50)((Curry.Module.Prelude.:<)(x51)((Curry.Module.Prelude.:<)(x52)((Curry.Module.Prelude.:<)(x53)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x14)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(Curry.Module.AbstractCurry.C_CApply(x46)(x47))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x50)(st))(x51)(st))(x52)(st))(x53)(st))(st)+c__case_210_case__70 x1 x2 x3 x4 x14 x46 x47 x49@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_210_case__70 x1 x2 x3 x4 x14 x46 x47 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_210_case__70(x1)(x2)(x3)(x4)(x14)(x46)(x47)(x)(st))(i)(xs)(st)+c__case_210_case__70 x1 x2 x3 x4 x14 x46 x47 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_210_case__70")(x)++++c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 x11@(Curry.Module.AbstractCurry.C_CVar x48) st = let {x62 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x63 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x64 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x65 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x66 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x67 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x68 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x69 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x62)((Curry.Module.Prelude.:<)(x63)((Curry.Module.Prelude.:<)(x64)((Curry.Module.Prelude.:<)(x65)((Curry.Module.Prelude.:<)(x66)((Curry.Module.Prelude.:<)(x67)((Curry.Module.Prelude.:<)(x68)((Curry.Module.Prelude.:<)(x69)(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleAbstractCurryPrinter.c__case_210(x2)(x3)(x4)(x7)(x14)(x46)(x47)(x48)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x14)(x62)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x7)(x48)(x63)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleAbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CApply(x46)(x47))(x64)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x48))(Curry.Module.AbstractCurry.C_CApply(x46)(x47))(x65)(st))(x66)(st))(x67)(st))(x68)(st))(x69)(st))(st)+c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 x11@(Curry.Module.AbstractCurry.C_CLit x49) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 x11@(Curry.Module.AbstractCurry.C_CSymbol x50) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 x11@(Curry.Module.AbstractCurry.C_CApply x51 x52) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 x11@(Curry.Module.AbstractCurry.C_CLambda x53 x54) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 x11@(Curry.Module.AbstractCurry.C_CLetDecl x55 x56) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 x11@(Curry.Module.AbstractCurry.C_CDoExpr x57) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 x11@(Curry.Module.AbstractCurry.C_CListComp x58 x59) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 x11@(Curry.Module.AbstractCurry.C_CCase x60 x61) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_211_case__71(x1)(x2)(x3)(x4)(x7)(x14)(x46)(x47)(x)(st))(i)(xs)(st)+c__case_211_case__71 x1 x2 x3 x4 x7 x14 x46 x47 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_211_case__71")(x)++++c__case_208_case__72 x1 x2 x3 x4 x14 x62 x63 x65@Curry.Module.Prelude.C_True st = let {x66 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x67 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x68 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x69 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x66)((Curry.Module.Prelude.:<)(x67)((Curry.Module.Prelude.:<)(x68)((Curry.Module.Prelude.:<)(x69)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x14)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(Curry.Module.AbstractCurry.C_CLambda(x62)(x63))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x66)(st))(x67)(st))(x68)(st))(x69)(st))(st)+c__case_208_case__72 x1 x2 x3 x4 x14 x62 x63 x65@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_208_case__72 x1 x2 x3 x4 x14 x62 x63 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_208_case__72(x1)(x2)(x3)(x4)(x14)(x62)(x63)(x)(st))(i)(xs)(st)+c__case_208_case__72 x1 x2 x3 x4 x14 x62 x63 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_208_case__72")(x)++++c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 x11@(Curry.Module.AbstractCurry.C_CVar x64) st = let {x78 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x79 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x80 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x81 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x82 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x83 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x84 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x85 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x78)((Curry.Module.Prelude.:<)(x79)((Curry.Module.Prelude.:<)(x80)((Curry.Module.Prelude.:<)(x81)((Curry.Module.Prelude.:<)(x82)((Curry.Module.Prelude.:<)(x83)((Curry.Module.Prelude.:<)(x84)((Curry.Module.Prelude.:<)(x85)(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleAbstractCurryPrinter.c__case_208(x2)(x3)(x4)(x7)(x14)(x62)(x63)(x64)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x14)(x78)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x7)(x64)(x79)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleAbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CLambda(x62)(x63))(x80)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x64))(Curry.Module.AbstractCurry.C_CLambda(x62)(x63))(x81)(st))(x82)(st))(x83)(st))(x84)(st))(x85)(st))(st)+c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 x11@(Curry.Module.AbstractCurry.C_CLit x65) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 x11@(Curry.Module.AbstractCurry.C_CSymbol x66) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 x11@(Curry.Module.AbstractCurry.C_CApply x67 x68) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 x11@(Curry.Module.AbstractCurry.C_CLambda x69 x70) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 x11@(Curry.Module.AbstractCurry.C_CLetDecl x71 x72) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 x11@(Curry.Module.AbstractCurry.C_CDoExpr x73) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 x11@(Curry.Module.AbstractCurry.C_CListComp x74 x75) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 x11@(Curry.Module.AbstractCurry.C_CCase x76 x77) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_209_case__73(x1)(x2)(x3)(x4)(x7)(x14)(x62)(x63)(x)(st))(i)(xs)(st)+c__case_209_case__73 x1 x2 x3 x4 x7 x14 x62 x63 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_209_case__73")(x)++++c__case_206_case__74 x1 x2 x3 x4 x14 x78 x79 x81@Curry.Module.Prelude.C_True st = let {x82 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x83 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x84 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x85 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x82)((Curry.Module.Prelude.:<)(x83)((Curry.Module.Prelude.:<)(x84)((Curry.Module.Prelude.:<)(x85)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x14)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(Curry.Module.AbstractCurry.C_CLetDecl(x78)(x79))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x82)(st))(x83)(st))(x84)(st))(x85)(st))(st)+c__case_206_case__74 x1 x2 x3 x4 x14 x78 x79 x81@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_206_case__74 x1 x2 x3 x4 x14 x78 x79 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_206_case__74(x1)(x2)(x3)(x4)(x14)(x78)(x79)(x)(st))(i)(xs)(st)+c__case_206_case__74 x1 x2 x3 x4 x14 x78 x79 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_206_case__74")(x)++++c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 x11@(Curry.Module.AbstractCurry.C_CVar x80) st = let {x94 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x95 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x96 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x97 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x98 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x99 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x100 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x101 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x94)((Curry.Module.Prelude.:<)(x95)((Curry.Module.Prelude.:<)(x96)((Curry.Module.Prelude.:<)(x97)((Curry.Module.Prelude.:<)(x98)((Curry.Module.Prelude.:<)(x99)((Curry.Module.Prelude.:<)(x100)((Curry.Module.Prelude.:<)(x101)(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleAbstractCurryPrinter.c__case_206(x2)(x3)(x4)(x7)(x14)(x78)(x79)(x80)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x14)(x94)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x7)(x80)(x95)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleAbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CLetDecl(x78)(x79))(x96)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x80))(Curry.Module.AbstractCurry.C_CLetDecl(x78)(x79))(x97)(st))(x98)(st))(x99)(st))(x100)(st))(x101)(st))(st)+c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 x11@(Curry.Module.AbstractCurry.C_CLit x81) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 x11@(Curry.Module.AbstractCurry.C_CSymbol x82) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 x11@(Curry.Module.AbstractCurry.C_CApply x83 x84) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 x11@(Curry.Module.AbstractCurry.C_CLambda x85 x86) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 x11@(Curry.Module.AbstractCurry.C_CLetDecl x87 x88) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 x11@(Curry.Module.AbstractCurry.C_CDoExpr x89) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 x11@(Curry.Module.AbstractCurry.C_CListComp x90 x91) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 x11@(Curry.Module.AbstractCurry.C_CCase x92 x93) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_207_case__75(x1)(x2)(x3)(x4)(x7)(x14)(x78)(x79)(x)(st))(i)(xs)(st)+c__case_207_case__75 x1 x2 x3 x4 x7 x14 x78 x79 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_207_case__75")(x)++++c__case_204_case__76 x1 x2 x3 x4 x14 x94 x96@Curry.Module.Prelude.C_True st = let {x97 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x98 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x99 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x100 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x97)((Curry.Module.Prelude.:<)(x98)((Curry.Module.Prelude.:<)(x99)((Curry.Module.Prelude.:<)(x100)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x14)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(Curry.Module.AbstractCurry.C_CDoExpr(x94))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x97)(st))(x98)(st))(x99)(st))(x100)(st))(st)+c__case_204_case__76 x1 x2 x3 x4 x14 x94 x96@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_204_case__76 x1 x2 x3 x4 x14 x94 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_204_case__76(x1)(x2)(x3)(x4)(x14)(x94)(x)(st))(i)(xs)(st)+c__case_204_case__76 x1 x2 x3 x4 x14 x94 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_204_case__76")(x)++++c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 x11@(Curry.Module.AbstractCurry.C_CVar x95) st = let {x109 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x110 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x111 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x112 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x113 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x114 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x115 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x116 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x109)((Curry.Module.Prelude.:<)(x110)((Curry.Module.Prelude.:<)(x111)((Curry.Module.Prelude.:<)(x112)((Curry.Module.Prelude.:<)(x113)((Curry.Module.Prelude.:<)(x114)((Curry.Module.Prelude.:<)(x115)((Curry.Module.Prelude.:<)(x116)(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleAbstractCurryPrinter.c__case_204(x2)(x3)(x4)(x7)(x14)(x94)(x95)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x14)(x109)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x7)(x95)(x110)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleAbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CDoExpr(x94))(x111)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x95))(Curry.Module.AbstractCurry.C_CDoExpr(x94))(x112)(st))(x113)(st))(x114)(st))(x115)(st))(x116)(st))(st)+c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 x11@(Curry.Module.AbstractCurry.C_CLit x96) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 x11@(Curry.Module.AbstractCurry.C_CSymbol x97) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 x11@(Curry.Module.AbstractCurry.C_CApply x98 x99) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 x11@(Curry.Module.AbstractCurry.C_CLambda x100 x101) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 x11@(Curry.Module.AbstractCurry.C_CLetDecl x102 x103) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 x11@(Curry.Module.AbstractCurry.C_CDoExpr x104) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 x11@(Curry.Module.AbstractCurry.C_CListComp x105 x106) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 x11@(Curry.Module.AbstractCurry.C_CCase x107 x108) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_205_case__77(x1)(x2)(x3)(x4)(x7)(x14)(x94)(x)(st))(i)(xs)(st)+c__case_205_case__77 x1 x2 x3 x4 x7 x14 x94 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_205_case__77")(x)++++c__case_202_case__78 x1 x2 x3 x4 x14 x109 x110 x112@Curry.Module.Prelude.C_True st = let {x113 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x114 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x115 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x116 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x113)((Curry.Module.Prelude.:<)(x114)((Curry.Module.Prelude.:<)(x115)((Curry.Module.Prelude.:<)(x116)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x14)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(Curry.Module.AbstractCurry.C_CListComp(x109)(x110))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x113)(st))(x114)(st))(x115)(st))(x116)(st))(st)+c__case_202_case__78 x1 x2 x3 x4 x14 x109 x110 x112@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_202_case__78 x1 x2 x3 x4 x14 x109 x110 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_202_case__78(x1)(x2)(x3)(x4)(x14)(x109)(x110)(x)(st))(i)(xs)(st)+c__case_202_case__78 x1 x2 x3 x4 x14 x109 x110 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_202_case__78")(x)++++c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 x11@(Curry.Module.AbstractCurry.C_CVar x111) st = let {x125 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x126 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x127 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x128 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x129 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x130 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x131 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x132 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x125)((Curry.Module.Prelude.:<)(x126)((Curry.Module.Prelude.:<)(x127)((Curry.Module.Prelude.:<)(x128)((Curry.Module.Prelude.:<)(x129)((Curry.Module.Prelude.:<)(x130)((Curry.Module.Prelude.:<)(x131)((Curry.Module.Prelude.:<)(x132)(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleAbstractCurryPrinter.c__case_202(x2)(x3)(x4)(x7)(x14)(x109)(x110)(x111)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x14)(x125)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x7)(x111)(x126)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleAbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CListComp(x109)(x110))(x127)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x111))(Curry.Module.AbstractCurry.C_CListComp(x109)(x110))(x128)(st))(x129)(st))(x130)(st))(x131)(st))(x132)(st))(st)+c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 x11@(Curry.Module.AbstractCurry.C_CLit x112) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 x11@(Curry.Module.AbstractCurry.C_CSymbol x113) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 x11@(Curry.Module.AbstractCurry.C_CApply x114 x115) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 x11@(Curry.Module.AbstractCurry.C_CLambda x116 x117) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 x11@(Curry.Module.AbstractCurry.C_CLetDecl x118 x119) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 x11@(Curry.Module.AbstractCurry.C_CDoExpr x120) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 x11@(Curry.Module.AbstractCurry.C_CListComp x121 x122) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 x11@(Curry.Module.AbstractCurry.C_CCase x123 x124) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_203_case__79(x1)(x2)(x3)(x4)(x7)(x14)(x109)(x110)(x)(st))(i)(xs)(st)+c__case_203_case__79 x1 x2 x3 x4 x7 x14 x109 x110 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_203_case__79")(x)++++c__case_200_case__80 x1 x2 x3 x4 x14 x125 x126 x128@Curry.Module.Prelude.C_True st = let {x129 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x130 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x131 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x132 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x129)((Curry.Module.Prelude.:<)(x130)((Curry.Module.Prelude.:<)(x131)((Curry.Module.Prelude.:<)(x132)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x14)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(Curry.Module.AbstractCurry.C_CCase(x125)(x126))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x129)(st))(x130)(st))(x131)(st))(x132)(st))(st)+c__case_200_case__80 x1 x2 x3 x4 x14 x125 x126 x128@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_200_case__80 x1 x2 x3 x4 x14 x125 x126 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_200_case__80(x1)(x2)(x3)(x4)(x14)(x125)(x126)(x)(st))(i)(xs)(st)+c__case_200_case__80 x1 x2 x3 x4 x14 x125 x126 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_200_case__80")(x)++++c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 x11@(Curry.Module.AbstractCurry.C_CVar x127) st = let {x141 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x142 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x143 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x144 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x145 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x146 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x147 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x148 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x141)((Curry.Module.Prelude.:<)(x142)((Curry.Module.Prelude.:<)(x143)((Curry.Module.Prelude.:<)(x144)((Curry.Module.Prelude.:<)(x145)((Curry.Module.Prelude.:<)(x146)((Curry.Module.Prelude.:<)(x147)((Curry.Module.Prelude.:<)(x148)(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleAbstractCurryPrinter.c__case_200(x2)(x3)(x4)(x7)(x14)(x125)(x126)(x127)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x14)(x141)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x7)(x127)(x142)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleAbstractCurryPrinter.c_isAtom(Curry.Module.AbstractCurry.C_CCase(x125)(x126))(x143)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x127))(Curry.Module.AbstractCurry.C_CCase(x125)(x126))(x144)(st))(x145)(st))(x146)(st))(x147)(st))(x148)(st))(st)+c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 x11@(Curry.Module.AbstractCurry.C_CLit x128) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 x11@(Curry.Module.AbstractCurry.C_CSymbol x129) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 x11@(Curry.Module.AbstractCurry.C_CApply x130 x131) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 x11@(Curry.Module.AbstractCurry.C_CLambda x132 x133) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 x11@(Curry.Module.AbstractCurry.C_CLetDecl x134 x135) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 x11@(Curry.Module.AbstractCurry.C_CDoExpr x136) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 x11@(Curry.Module.AbstractCurry.C_CListComp x137 x138) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 x11@(Curry.Module.AbstractCurry.C_CCase x139 x140) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_201_case__81(x1)(x2)(x3)(x4)(x7)(x14)(x125)(x126)(x)(st))(i)(xs)(st)+c__case_201_case__81 x1 x2 x3 x4 x7 x14 x125 x126 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_201_case__81")(x)++++c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 x9@(Curry.Module.AbstractCurry.C_CVar x15) st = let {x127 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x128 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x129 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x130 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x131 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x132 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x127)((Curry.Module.Prelude.:<)(x128)((Curry.Module.Prelude.:<)(x129)((Curry.Module.Prelude.:<)(x130)((Curry.Module.Prelude.:<)(x131)((Curry.Module.Prelude.:<)(x132)(Curry.Module.Prelude.List)))))))(Curry.Module.OracleAbstractCurryPrinter.c__case_218(x2)(x3)(x4)(x7)(x11)(x14)(x15)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x14)(x127)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleAbstractCurryPrinter.c_isAtom(x11)(x128)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.AbstractCurry.C_CVar(x15))(x11)(x129)(st))(x130)(st))(x131)(st))(x132)(st))(st)+c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 x9@(Curry.Module.AbstractCurry.C_CLit x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_215(x2)(x3)(x4)(x7)(x14)(x16)(x11)(x1)(st))(st)+c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 x9@(Curry.Module.AbstractCurry.C_CSymbol x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_213(x2)(x3)(x4)(x7)(x14)(x31)(x11)(x1)(st))(st)+c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 x9@(Curry.Module.AbstractCurry.C_CApply x46 x47) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_211(x2)(x3)(x4)(x7)(x14)(x46)(x47)(x11)(x1)(st))(st)+c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 x9@(Curry.Module.AbstractCurry.C_CLambda x62 x63) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_209(x2)(x3)(x4)(x7)(x14)(x62)(x63)(x11)(x1)(st))(st)+c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 x9@(Curry.Module.AbstractCurry.C_CLetDecl x78 x79) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_207(x2)(x3)(x4)(x7)(x14)(x78)(x79)(x11)(x1)(st))(st)+c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 x9@(Curry.Module.AbstractCurry.C_CDoExpr x94) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_205(x2)(x3)(x4)(x7)(x14)(x94)(x11)(x1)(st))(st)+c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 x9@(Curry.Module.AbstractCurry.C_CListComp x109 x110) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_203(x2)(x3)(x4)(x7)(x14)(x109)(x110)(x11)(x1)(st))(st)+c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 x9@(Curry.Module.AbstractCurry.C_CCase x125 x126) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_201(x2)(x3)(x4)(x7)(x14)(x125)(x126)(x11)(x1)(st))(st)+c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_219_case__82(x1)(x2)(x3)(x4)(x7)(x11)(x14)(x)(st))(i)(xs)(st)+c__case_219_case__82 x1 x2 x3 x4 x7 x11 x14 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_219_case__82")(x)++++c__case_220_case__83 x1 x2 x3 x4 x7 x9 x11 x12@(Curry.Module.Prelude.T2 x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_219(x2)(x3)(x4)(x7)(x11)(x14)(x9)(x1)(st))(st)+c__case_220_case__83 x1 x2 x3 x4 x7 x9 x11 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_220_case__83(x1)(x2)(x3)(x4)(x7)(x9)(x11)(x)(st))(i)(xs)(st)+c__case_220_case__83 x1 x2 x3 x4 x7 x9 x11 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_220_case__83")(x)++++c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 x10@(Curry.Module.AbstractCurry.C_CSymbol x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_220(x2)(x3)(x4)(x7)(x9)(x11)(x12)(x1)(st))(st)+c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 x10@(Curry.Module.AbstractCurry.C_CVar x141) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 x10@(Curry.Module.AbstractCurry.C_CLit x142) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 x10@(Curry.Module.AbstractCurry.C_CApply x143 x144) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 x10@(Curry.Module.AbstractCurry.C_CLambda x145 x146) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 x10@(Curry.Module.AbstractCurry.C_CLetDecl x147 x148) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 x10@(Curry.Module.AbstractCurry.C_CDoExpr x149) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 x10@(Curry.Module.AbstractCurry.C_CListComp x150 x151) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 x10@(Curry.Module.AbstractCurry.C_CCase x152 x153) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_221_case__84(x1)(x2)(x3)(x4)(x7)(x9)(x11)(x)(st))(i)(xs)(st)+c__case_221_case__84 x1 x2 x3 x4 x7 x9 x11 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_221_case__84")(x)++++c__case_222_case__85 x1 x2 x3 x4 x7 x9 x8@(Curry.Module.AbstractCurry.C_CApply x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_221(x2)(x3)(x4)(x7)(x9)(x11)(x10)(x1)(st))(st)+c__case_222_case__85 x1 x2 x3 x4 x7 x9 x8@(Curry.Module.AbstractCurry.C_CVar x154) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_222_case__85 x1 x2 x3 x4 x7 x9 x8@(Curry.Module.AbstractCurry.C_CLit x155) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_222_case__85 x1 x2 x3 x4 x7 x9 x8@(Curry.Module.AbstractCurry.C_CSymbol x156) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_222_case__85 x1 x2 x3 x4 x7 x9 x8@(Curry.Module.AbstractCurry.C_CLambda x157 x158) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_222_case__85 x1 x2 x3 x4 x7 x9 x8@(Curry.Module.AbstractCurry.C_CLetDecl x159 x160) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_222_case__85 x1 x2 x3 x4 x7 x9 x8@(Curry.Module.AbstractCurry.C_CDoExpr x161) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_222_case__85 x1 x2 x3 x4 x7 x9 x8@(Curry.Module.AbstractCurry.C_CListComp x162 x163) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_222_case__85 x1 x2 x3 x4 x7 x9 x8@(Curry.Module.AbstractCurry.C_CCase x164 x165) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_222_case__85 x1 x2 x3 x4 x7 x9 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_222_case__85(x1)(x2)(x3)(x4)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_222_case__85 x1 x2 x3 x4 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_222_case__85")(x)++++c__case_223_case__86 x1 x2 x3 x7 x4@(Curry.Module.AbstractCurry.C_CApply x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_222(x2)(x3)(x4)(x7)(x9)(x8)(x1)(st))(st)+c__case_223_case__86 x1 x2 x3 x7 x4@(Curry.Module.AbstractCurry.C_CVar x166) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_223_case__86 x1 x2 x3 x7 x4@(Curry.Module.AbstractCurry.C_CLit x167) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_223_case__86 x1 x2 x3 x7 x4@(Curry.Module.AbstractCurry.C_CSymbol x168) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_223_case__86 x1 x2 x3 x7 x4@(Curry.Module.AbstractCurry.C_CLambda x169 x170) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_223_case__86 x1 x2 x3 x7 x4@(Curry.Module.AbstractCurry.C_CLetDecl x171 x172) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_223_case__86 x1 x2 x3 x7 x4@(Curry.Module.AbstractCurry.C_CDoExpr x173) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_223_case__86 x1 x2 x3 x7 x4@(Curry.Module.AbstractCurry.C_CListComp x174 x175) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_223_case__86 x1 x2 x3 x7 x4@(Curry.Module.AbstractCurry.C_CCase x176 x177) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_223_case__86 x1 x2 x3 x7 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_223_case__86(x1)(x2)(x3)(x7)(x)(st))(i)(xs)(st)+c__case_223_case__86 x1 x2 x3 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_223_case__86")(x)++++c__case_224_case__87 x1 x2 x3 x4 x7 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_223(x2)(x3)(x7)(x4)(x1)(st))(st)+c__case_224_case__87 x1 x2 x3 x4 x7 x6@((Curry.Module.Prelude.:<) x178 x179) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_224_case__87 x1 x2 x3 x4 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_224_case__87(x1)(x2)(x3)(x4)(x7)(x)(st))(i)(xs)(st)+c__case_224_case__87 x1 x2 x3 x4 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_224_case__87")(x)++++c__case_225_case__88 x1 x2 x3 x4 x6 x5@(Curry.Module.AbstractCurry.C_CPVar x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_224(x2)(x3)(x4)(x7)(x6)(x1)(st))(st)+c__case_225_case__88 x1 x2 x3 x4 x6 x5@(Curry.Module.AbstractCurry.C_CPLit x180) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_225_case__88 x1 x2 x3 x4 x6 x5@(Curry.Module.AbstractCurry.C_CPComb x181 x182) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_225_case__88 x1 x2 x3 x4 x6 x5@(Curry.Module.AbstractCurry.C_CPAs x183 x184) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_225_case__88 x1 x2 x3 x4 x6 x5@(Curry.Module.AbstractCurry.C_CPFuncComb x185 x186) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_225_case__88 x1 x2 x3 x4 x6 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_225_case__88(x1)(x2)(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_225_case__88 x1 x2 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_225_case__88")(x)++++c__case_226_case__89 x1 x2 x4 x3@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_225(x2)(x3)(x4)(x6)(x5)(x1)(st))(st)+c__case_226_case__89 x1 x2 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLambda(x2)(x3)(x4)(x1)(st))(st)+c__case_226_case__89 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_226_case__89(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_226_case__89 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_226_case__89")(x)++++c__case_197_case__90 x1 x2 x7 x8 x9@Curry.Module.Prelude.List st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OracleAbstractCurryPrinter.c_showLocalDecl(x2)(x8)(x1)(st))(x12)(st))(st)+c__case_197_case__90 x1 x2 x7 x8 x9@((Curry.Module.Prelude.:<) x10 x11) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(Curry.Module.OracleAbstractCurryPrinter.c_showBlock(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showLocalDecl(x2)))))(x7)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x13)(st))(x14)(st))(st)+c__case_197_case__90 x1 x2 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_197_case__90(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_197_case__90 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_197_case__90")(x)++++c__case_198_case__91 x1 x2 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_197(x2)(x7)(x8)(x9)(x1)(st))(st)+c__case_198_case__91 x1 x2 x7@Curry.Module.Prelude.List st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(Curry.Module.OracleAbstractCurryPrinter.c_showBlock(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showLocalDecl(x2)))))(x7)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x10)(st))(x11)(st))(st)+c__case_198_case__91 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_198_case__91(x1)(x2)(x)(st))(i)(xs)(st)+c__case_198_case__91 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_198_case__91")(x)++++c__case_199_case__92 x1 x2 x3@(Curry.Module.AbstractCurry.C_CSExpr x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x4)(x1)(st))(st)+c__case_199_case__92 x1 x2 x3@(Curry.Module.AbstractCurry.C_CSPat x5 x6) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showPattern(x5)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x6)(x8)(st))(x9)(st))(x10)(st))(st)+c__case_199_case__92 x1 x2 x3@(Curry.Module.AbstractCurry.C_CSLet x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_198(x2)(x7)(x1)(st))(st)+c__case_199_case__92 x1 x2 (Curry.Module.AbstractCurry.C_CStatementOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_199_case__92(x1)(x2)(x)(st))(i)(xs)(st)+c__case_199_case__92 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_199_case__92")(x)++++c__case_195_case__93 x1 x3@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_showIdentifier(x1)(st))(x5)(x6)(st))(st)+c__case_195_case__93 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_195_case__93(x1)(x)(st))(i)(xs)(st)+c__case_195_case__93 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_195_case__93")(x)++++c__case_191_case__94 x1 x10 x11 x12 x13@Curry.Module.Prelude.C_True st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x10)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showPattern))))((Curry.Module.Prelude.:<)(x11)(x12))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x14)(st))(x15)(st))(x16)(st))(st)+c__case_191_case__94 x1 x10 x11 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_191_case__94 x1 x10 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_191_case__94(x1)(x10)(x11)(x12)(x)(st))(i)(xs)(st)+c__case_191_case__94 x1 x10 x11 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_191_case__94")(x)++++c__case_192_case__95 x1 x9 x10 x11 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showPreludeCons(Curry.Module.AbstractCurry.C_CPComb(Curry.Module.Prelude.T2(x9)(x10))((Curry.Module.Prelude.:<)(x11)(x12)))(x1)(st))(st)+c__case_192_case__95 x1 x9 x10 x11 x12 x13@Curry.Module.Prelude.C_False st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_191(x10)(x11)(x12)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x14)(st))(st)+c__case_192_case__95 x1 x9 x10 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_192_case__95(x1)(x9)(x10)(x11)(x12)(x)(st))(i)(xs)(st)+c__case_192_case__95 x1 x9 x10 x11 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_192_case__95")(x)++++c__case_193_case__96 x1 x9 x10 x8@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x10)(st)+c__case_193_case__96 x1 x9 x10 x8@((Curry.Module.Prelude.:<) x11 x12) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_192(x9)(x10)(x11)(x12)(Curry.Module.OraclePrelude.op_61_61(x9)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x1)(st))(x13)(st))(st)+c__case_193_case__96 x1 x9 x10 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_193_case__96(x1)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_193_case__96 x1 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_193_case__96")(x)++++c__case_194_case__97 x1 x8 x7@(Curry.Module.Prelude.T2 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_193(x9)(x10)(x8)(x1)(st))(st)+c__case_194_case__97 x1 x8 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_194_case__97(x1)(x8)(x)(st))(i)(xs)(st)+c__case_194_case__97 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_194_case__97")(x)++++c__case_190_case__98 x1 x14 x13@(Curry.Module.Prelude.T2 x15 x16) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_showIdentifier(x1)(st))(x16)(x17)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('@'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showPattern(x14)(x18)(st))(x19)(st))(x20)(st))(st)+c__case_190_case__98 x1 x14 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_190_case__98(x1)(x14)(x)(st))(i)(xs)(st)+c__case_190_case__98 x1 x14 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_190_case__98")(x)++++c__case_196_case__99 x1 x2@(Curry.Module.AbstractCurry.C_CPVar x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_195(x3)(x1)(st))(st)+c__case_196_case__99 x1 x2@(Curry.Module.AbstractCurry.C_CPLit x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showLiteral(x6)(x1)(st))(st)+c__case_196_case__99 x1 x2@(Curry.Module.AbstractCurry.C_CPComb x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_194(x8)(x7)(x1)(st))(st)+c__case_196_case__99 x1 x2@(Curry.Module.AbstractCurry.C_CPAs x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_190(x14)(x13)(x1)(st))(st)+c__case_196_case__99 x1 x2@(Curry.Module.AbstractCurry.C_CPFuncComb x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showPattern(Curry.Module.AbstractCurry.C_CPComb(x17)(x18))(x1)(st))(st)+c__case_196_case__99 x1 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_196_case__99(x1)(x)(st))(i)(xs)(st)+c__case_196_case__99 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_196_case__99")(x)++++c__case_187_case__100 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x4)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showPattern))))(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_187_case__100 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_187_case__100 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_187_case__100(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_187_case__100 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_187_case__100")(x)++++c__case_188_case__101 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showPattern))))(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x7)(st))(x8)(st))(st)+c__case_188_case__101 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_187(x4)(x5)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x9)(st))(st)+c__case_188_case__101 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_188_case__101(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_188_case__101 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_188_case__101")(x)++++c__case_189_case__102 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showPatternList(x2)(x1)(st))(st)+c__case_189_case__102 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_188(x4)(x5)(Curry.Module.OracleAbstractCurryPrinter.c_isTuple(x4)(x1)(st))(x7)(st))(st)+c__case_189_case__102 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_189_case__102(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_189_case__102 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_189_case__102")(x)++++c__case_185_case__103 x1 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_185_case__103 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_185_case__103(x1)(x)(st))(i)(xs)(st)+c__case_185_case__103 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_185_case__103")(x)++++c__case_186_case__104 x1 x2@(Curry.Module.AbstractCurry.C_CPComb x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_185(x3)(x1)(st))(st)+c__case_186_case__104 x1 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_186_case__104(x1)(x)(st))(i)(xs)(st)+c__case_186_case__104 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_186_case__104")(x)++++c__case_183_case__105 x1 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_183_case__105 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_183_case__105(x1)(x4)(x)(st))(i)(xs)(st)+c__case_183_case__105 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_183_case__105")(x)++++c__case_184_case__106 x1 x2@(Curry.Module.AbstractCurry.C_CPComb x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_183(x4)(x3)(x1)(st))(st)+c__case_184_case__106 x1 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_184_case__106(x1)(x)(st))(i)(xs)(st)+c__case_184_case__106 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_184_case__106")(x)++++c__case_179_case__107 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showPatListElems(x2)(x1)(st))(x4)(st))(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(st)+c__case_179_case__107 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_179_case__107 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_179_case__107(x1)(x2)(x)(st))(i)(xs)(st)+c__case_179_case__107 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_179_case__107")(x)++++c__case_180_case__108 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showAsPatternList(x2)(x1)(st))(st)+c__case_180_case__108 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_179(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x4)(st))(st)+c__case_180_case__108 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_180_case__108(x1)(x2)(x)(st))(i)(xs)(st)+c__case_180_case__108 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_180_case__108")(x)++++c__case_181_case__109 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showPatListElems(x2)(x1)(st))(x4)(st))(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(st)+c__case_181_case__109 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_180(x2)(Curry.Module.OracleAbstractCurryPrinter.c_isAsPattern(x2)(x1)(st))(x8)(st))(st)+c__case_181_case__109 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_181_case__109(x1)(x2)(x)(st))(i)(xs)(st)+c__case_181_case__109 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_181_case__109")(x)++++c__case_182_case__110 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(Curry.Module.Prelude.C_Char('\''))))))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleAbstractCurryPrinter.c_showPatListElems(x2)(x1)(st))(x4)(st))(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(x6)(st)))(st)+c__case_182_case__110 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_181(x2)(Curry.Module.OracleAbstractCurryPrinter.c_isClosedPatternList(x2)(x1)(st))(x7)(st))(st)+c__case_182_case__110 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_182_case__110(x1)(x2)(x)(st))(i)(xs)(st)+c__case_182_case__110 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_182_case__110")(x)++++c__case_156_case__111 x1 x23 x25 x26@Curry.Module.Prelude.List st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OracleAbstractCurryPrinter.c_showPattern(x23)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showPatListElems(x25)(x27)(st)))(st)+c__case_156_case__111 x1 x23 x25 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_156_case__111(x1)(x23)(x25)(x)(st))(i)(xs)(st)+c__case_156_case__111 x1 x23 x25 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_156_case__111")(x)++++c__case_157_case__112 x1 x23 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_156(x23)(x25)(x26)(x1)(st))(st)+c__case_157_case__112 x1 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_157_case__112(x1)(x23)(x)(st))(i)(xs)(st)+c__case_157_case__112 x1 x23 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_157_case__112")(x)++++c__case_158_case__113 x1 x4@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_157(x23)(x24)(x1)(st))(st)+c__case_158_case__113 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_158_case__113(x1)(x)(st))(i)(xs)(st)+c__case_158_case__113 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_158_case__113")(x)++++c__case_159_case__114 x1 x4 x22@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_158(x4)(x1)(st))(st)+c__case_159_case__114 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_159_case__114(x1)(x4)(x)(st))(i)(xs)(st)+c__case_159_case__114 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_159_case__114")(x)++++c__case_152_case__115 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_152_case__115 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_152_case__115(x1)(x)(st))(i)(xs)(st)+c__case_152_case__115 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_152_case__115")(x)++++c__case_153_case__116 x1 x4 x28@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_152(x4)(x1)(st))(st)+c__case_153_case__116 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_153_case__116(x1)(x4)(x)(st))(i)(xs)(st)+c__case_153_case__116 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_153_case__116")(x)++++c__case_154_case__117 x1 x4 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_153(x4)(x28)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_155_case__118 x1 x4 x22@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_154(x4)(x28)(x27)(x1)(st))(st)+c__case_155_case__118 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_155_case__118(x1)(x4)(x)(st))(i)(xs)(st)+c__case_155_case__118 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_155_case__118")(x)++++c__case_160_case__119 x1 x4 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_159(x4)(x22)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_155(x4)(x22)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_161_case__120 x1 x4 x6@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_160(x4)(x22)(x21)(x1)(st))(st)+c__case_161_case__120 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_161_case__120(x1)(x4)(x)(st))(i)(xs)(st)+c__case_161_case__120 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_161_case__120")(x)++++c__case_162_case__121 x1 x4 x6 x20@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_161(x4)(x6)(x1)(st))(st)+c__case_162_case__121 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_162_case__121(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_162_case__121 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_162_case__121")(x)++++c__case_163_case__122 x1 x4 x6 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_162(x4)(x6)(x20)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_164_case__123 x1 x4 x6 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_163(x4)(x6)(x20)(x19)(x1)(st))(st)+c__case_164_case__123 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_164_case__123(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_164_case__123 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_164_case__123")(x)++++c__case_165_case__124 x1 x4 x6 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_164(x4)(x6)(x18)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_166_case__125 x1 x4 x6 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_165(x4)(x6)(x18)(x17)(x1)(st))(st)+c__case_166_case__125 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_166_case__125(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_166_case__125 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_166_case__125")(x)++++c__case_167_case__126 x1 x4 x6 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_166(x4)(x6)(x16)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_168_case__127 x1 x4 x6 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_167(x4)(x6)(x16)(x15)(x1)(st))(st)+c__case_168_case__127 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_168_case__127(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_168_case__127 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_168_case__127")(x)++++c__case_169_case__128 x1 x4 x6 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_168(x4)(x6)(x14)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_170_case__129 x1 x4 x6 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_169(x4)(x6)(x14)(x13)(x1)(st))(st)+c__case_170_case__129 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_170_case__129(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_170_case__129 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_170_case__129")(x)++++c__case_171_case__130 x1 x4 x6 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_170(x4)(x6)(x12)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_172_case__131 x1 x4 x6 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_171(x4)(x6)(x12)(x11)(x1)(st))(st)+c__case_172_case__131 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_172_case__131(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_172_case__131 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_172_case__131")(x)++++c__case_173_case__132 x1 x4 x6 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_172(x4)(x6)(x10)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_174_case__133 x1 x4 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_173(x4)(x6)(x10)(x9)(x1)(st))(st)+c__case_174_case__133 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_174_case__133(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_174_case__133 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_174_case__133")(x)++++c__case_175_case__134 x1 x4 x6 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('P'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_174(x4)(x6)(x8)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_176_case__135 x1 x4 x6 x5@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_175(x4)(x6)(x8)(x7)(x1)(st))(st)+c__case_176_case__135 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_176_case__135(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_176_case__135 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_176_case__135")(x)++++c__case_177_case__136 x1 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_176(x4)(x6)(x5)(x1)(st))(st)+c__case_177_case__136 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_177_case__136(x1)(x4)(x)(st))(i)(xs)(st)+c__case_177_case__136 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_177_case__136")(x)++++c__case_178_case__137 x1 x2@(Curry.Module.AbstractCurry.C_CPComb x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_177(x4)(x3)(x1)(st))(st)+c__case_178_case__137 x1 x2@(Curry.Module.AbstractCurry.C_CPVar x29) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.OracleAbstractCurryPrinter.c_showPattern(Curry.Module.AbstractCurry.C_CPVar(x29))(x1)(st))(Curry.Module.Prelude.List))(st)+c__case_178_case__137 x1 x2@(Curry.Module.AbstractCurry.C_CPAs x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.OracleAbstractCurryPrinter.c_showPattern(Curry.Module.AbstractCurry.C_CPAs(x30)(x31))(x1)(st))(Curry.Module.Prelude.List))(st)+c__case_178_case__137 x1 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_178_case__137(x1)(x)(st))(i)(xs)(st)+c__case_178_case__137 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_178_case__137")(x)++++c__case_129_case__138 x1 x25 x26@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_isClosedPatternList(x25)(x1)(st))(st)+c__case_129_case__138 x1 x25 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_129_case__138(x1)(x25)(x)(st))(i)(xs)(st)+c__case_129_case__138 x1 x25 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_129_case__138")(x)++++c__case_130_case__139 x1 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_129(x25)(x26)(x1)(st))(st)+c__case_130_case__139 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_130_case__139(x1)(x)(st))(i)(xs)(st)+c__case_130_case__139 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_130_case__139")(x)++++c__case_131_case__140 x1 x4@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_130(x24)(x1)(st))(st)+c__case_131_case__140 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_131_case__140(x1)(x)(st))(i)(xs)(st)+c__case_131_case__140 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_131_case__140")(x)++++c__case_132_case__141 x1 x4 x22@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_131(x4)(x1)(st))(st)+c__case_132_case__141 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_132_case__141(x1)(x4)(x)(st))(i)(xs)(st)+c__case_132_case__141 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_132_case__141")(x)++++c__case_125_case__142 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_125_case__142 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_125_case__142(x1)(x)(st))(i)(xs)(st)+c__case_125_case__142 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_125_case__142")(x)++++c__case_126_case__143 x1 x4 x28@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_125(x4)(x1)(st))(st)+c__case_126_case__143 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_126_case__143(x1)(x4)(x)(st))(i)(xs)(st)+c__case_126_case__143 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_126_case__143")(x)++++c__case_127_case__144 x1 x4 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_126(x4)(x28)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_128_case__145 x1 x4 x22@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_127(x4)(x28)(x27)(x1)(st))(st)+c__case_128_case__145 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_128_case__145(x1)(x4)(x)(st))(i)(xs)(st)+c__case_128_case__145 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_128_case__145")(x)++++c__case_133_case__146 x1 x4 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_132(x4)(x22)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_128(x4)(x22)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_134_case__147 x1 x4 x6@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_133(x4)(x22)(x21)(x1)(st))(st)+c__case_134_case__147 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_134_case__147(x1)(x4)(x)(st))(i)(xs)(st)+c__case_134_case__147 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_134_case__147")(x)++++c__case_135_case__148 x1 x4 x6 x20@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_134(x4)(x6)(x1)(st))(st)+c__case_135_case__148 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_135_case__148(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_135_case__148 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_135_case__148")(x)++++c__case_136_case__149 x1 x4 x6 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_135(x4)(x6)(x20)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_137_case__150 x1 x4 x6 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_136(x4)(x6)(x20)(x19)(x1)(st))(st)+c__case_137_case__150 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_137_case__150(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_137_case__150 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_137_case__150")(x)++++c__case_138_case__151 x1 x4 x6 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_137(x4)(x6)(x18)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_139_case__152 x1 x4 x6 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_138(x4)(x6)(x18)(x17)(x1)(st))(st)+c__case_139_case__152 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_139_case__152(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_139_case__152 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_139_case__152")(x)++++c__case_140_case__153 x1 x4 x6 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_139(x4)(x6)(x16)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_141_case__154 x1 x4 x6 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_140(x4)(x6)(x16)(x15)(x1)(st))(st)+c__case_141_case__154 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_141_case__154(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_141_case__154 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_141_case__154")(x)++++c__case_142_case__155 x1 x4 x6 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_141(x4)(x6)(x14)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_143_case__156 x1 x4 x6 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_142(x4)(x6)(x14)(x13)(x1)(st))(st)+c__case_143_case__156 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_143_case__156(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_143_case__156 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_143_case__156")(x)++++c__case_144_case__157 x1 x4 x6 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_143(x4)(x6)(x12)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_145_case__158 x1 x4 x6 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_144(x4)(x6)(x12)(x11)(x1)(st))(st)+c__case_145_case__158 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_145_case__158(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_145_case__158 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_145_case__158")(x)++++c__case_146_case__159 x1 x4 x6 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_145(x4)(x6)(x10)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_147_case__160 x1 x4 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_146(x4)(x6)(x10)(x9)(x1)(st))(st)+c__case_147_case__160 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_147_case__160(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_147_case__160 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_147_case__160")(x)++++c__case_148_case__161 x1 x4 x6 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('P'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_147(x4)(x6)(x8)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_149_case__162 x1 x4 x6 x5@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_148(x4)(x6)(x8)(x7)(x1)(st))(st)+c__case_149_case__162 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_149_case__162(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_149_case__162 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_149_case__162")(x)++++c__case_150_case__163 x1 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_149(x4)(x6)(x5)(x1)(st))(st)+c__case_150_case__163 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_150_case__163(x1)(x4)(x)(st))(i)(xs)(st)+c__case_150_case__163 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_150_case__163")(x)++++c__case_151_case__164 x1 x2@(Curry.Module.AbstractCurry.C_CPComb x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_150(x4)(x3)(x1)(st))(st)+c__case_151_case__164 x1 x2@(Curry.Module.AbstractCurry.C_CPVar x29) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_151_case__164 x1 x2@(Curry.Module.AbstractCurry.C_CPAs x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_isClosedPatternList(x31)(x1)(st))(st)+c__case_151_case__164 x1 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_151_case__164(x1)(x)(st))(i)(xs)(st)+c__case_151_case__164 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_151_case__164")(x)++++c__case_102_case__165 x1 x23 x25 x26@Curry.Module.Prelude.List st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleAbstractCurryPrinter.c_isCharPattern(x23)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_isClosedStringPattern(x25)(x27)(st))(x28)(st))(st)+c__case_102_case__165 x1 x23 x25 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_102_case__165(x1)(x23)(x25)(x)(st))(i)(xs)(st)+c__case_102_case__165 x1 x23 x25 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_102_case__165")(x)++++c__case_103_case__166 x1 x23 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_102(x23)(x25)(x26)(x1)(st))(st)+c__case_103_case__166 x1 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_103_case__166(x1)(x23)(x)(st))(i)(xs)(st)+c__case_103_case__166 x1 x23 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_103_case__166")(x)++++c__case_104_case__167 x1 x4@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_103(x23)(x24)(x1)(st))(st)+c__case_104_case__167 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_104_case__167(x1)(x)(st))(i)(xs)(st)+c__case_104_case__167 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_104_case__167")(x)++++c__case_105_case__168 x1 x4 x22@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_104(x4)(x1)(st))(st)+c__case_105_case__168 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_105_case__168(x1)(x4)(x)(st))(i)(xs)(st)+c__case_105_case__168 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_105_case__168")(x)++++c__case_98_case__169 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_98_case__169 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_98_case__169(x1)(x)(st))(i)(xs)(st)+c__case_98_case__169 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_98_case__169")(x)++++c__case_99_case__170 x1 x4 x28@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_98(x4)(x1)(st))(st)+c__case_99_case__170 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_99_case__170(x1)(x4)(x)(st))(i)(xs)(st)+c__case_99_case__170 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_99_case__170")(x)++++c__case_100_case__171 x1 x4 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_99(x4)(x28)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_101_case__172 x1 x4 x22@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_100(x4)(x28)(x27)(x1)(st))(st)+c__case_101_case__172 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_101_case__172(x1)(x4)(x)(st))(i)(xs)(st)+c__case_101_case__172 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_101_case__172")(x)++++c__case_106_case__173 x1 x4 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_105(x4)(x22)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_101(x4)(x22)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_107_case__174 x1 x4 x6@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_106(x4)(x22)(x21)(x1)(st))(st)+c__case_107_case__174 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_107_case__174(x1)(x4)(x)(st))(i)(xs)(st)+c__case_107_case__174 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_107_case__174")(x)++++c__case_108_case__175 x1 x4 x6 x20@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_107(x4)(x6)(x1)(st))(st)+c__case_108_case__175 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_108_case__175(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_108_case__175 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_108_case__175")(x)++++c__case_109_case__176 x1 x4 x6 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_108(x4)(x6)(x20)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_110_case__177 x1 x4 x6 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_109(x4)(x6)(x20)(x19)(x1)(st))(st)+c__case_110_case__177 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_110_case__177(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_110_case__177 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_110_case__177")(x)++++c__case_111_case__178 x1 x4 x6 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_110(x4)(x6)(x18)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_112_case__179 x1 x4 x6 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_111(x4)(x6)(x18)(x17)(x1)(st))(st)+c__case_112_case__179 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_112_case__179(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_112_case__179 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_112_case__179")(x)++++c__case_113_case__180 x1 x4 x6 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_112(x4)(x6)(x16)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_114_case__181 x1 x4 x6 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_113(x4)(x6)(x16)(x15)(x1)(st))(st)+c__case_114_case__181 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_114_case__181(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_114_case__181 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_114_case__181")(x)++++c__case_115_case__182 x1 x4 x6 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_114(x4)(x6)(x14)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_116_case__183 x1 x4 x6 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_115(x4)(x6)(x14)(x13)(x1)(st))(st)+c__case_116_case__183 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_116_case__183(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_116_case__183 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_116_case__183")(x)++++c__case_117_case__184 x1 x4 x6 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_116(x4)(x6)(x12)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_118_case__185 x1 x4 x6 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_117(x4)(x6)(x12)(x11)(x1)(st))(st)+c__case_118_case__185 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_118_case__185(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_118_case__185 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_118_case__185")(x)++++c__case_119_case__186 x1 x4 x6 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_118(x4)(x6)(x10)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_120_case__187 x1 x4 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_119(x4)(x6)(x10)(x9)(x1)(st))(st)+c__case_120_case__187 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_120_case__187(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_120_case__187 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_120_case__187")(x)++++c__case_121_case__188 x1 x4 x6 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('P'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_120(x4)(x6)(x8)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_122_case__189 x1 x4 x6 x5@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_121(x4)(x6)(x8)(x7)(x1)(st))(st)+c__case_122_case__189 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_122_case__189(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_122_case__189 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_122_case__189")(x)++++c__case_123_case__190 x1 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_122(x4)(x6)(x5)(x1)(st))(st)+c__case_123_case__190 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_123_case__190(x1)(x4)(x)(st))(i)(xs)(st)+c__case_123_case__190 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_123_case__190")(x)++++c__case_124_case__191 x1 x2@(Curry.Module.AbstractCurry.C_CPComb x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_123(x4)(x3)(x1)(st))(st)+c__case_124_case__191 x1 x2@(Curry.Module.AbstractCurry.C_CPVar x29) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_124_case__191 x1 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_124_case__191(x1)(x)(st))(i)(xs)(st)+c__case_124_case__191 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_124_case__191")(x)++++c__case_96_case__192 x1 x3@(Curry.Module.AbstractCurry.C_CCharc x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_96_case__192 x1 x3@(Curry.Module.AbstractCurry.C_CIntc x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_96_case__192 x1 x3@(Curry.Module.AbstractCurry.C_CFloatc x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_96_case__192 x1 (Curry.Module.AbstractCurry.C_CLiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_96_case__192(x1)(x)(st))(i)(xs)(st)+c__case_96_case__192 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_96_case__192")(x)++++c__case_97_case__193 x1 x2@(Curry.Module.AbstractCurry.C_CPLit x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_96(x3)(x1)(st))(st)+c__case_97_case__193 x1 x2@(Curry.Module.AbstractCurry.C_CPVar x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_97_case__193 x1 x2@(Curry.Module.AbstractCurry.C_CPComb x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_97_case__193 x1 x2@(Curry.Module.AbstractCurry.C_CPAs x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_97_case__193 x1 x2@(Curry.Module.AbstractCurry.C_CPFuncComb x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_97_case__193 x1 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_97_case__193(x1)(x)(st))(i)(xs)(st)+c__case_97_case__193 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_97_case__193")(x)++++c__case_95_case__194 x1 x2@(Curry.Module.AbstractCurry.C_CPAs x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_95_case__194 x1 x2@(Curry.Module.AbstractCurry.C_CPVar x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_95_case__194 x1 x2@(Curry.Module.AbstractCurry.C_CPLit x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_95_case__194 x1 x2@(Curry.Module.AbstractCurry.C_CPComb x7 x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_95_case__194 x1 x2@(Curry.Module.AbstractCurry.C_CPFuncComb x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_95_case__194 x1 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_95_case__194(x1)(x)(st))(i)(xs)(st)+c__case_95_case__194 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_95_case__194")(x)++++c__case_93_case__195 x1 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(x6)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('@'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showPatListElems(x4)(x1)(st))(x7)(st))(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_93_case__195 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_93_case__195(x1)(x4)(x)(st))(i)(xs)(st)+c__case_93_case__195 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_93_case__195")(x)++++c__case_94_case__196 x1 x2@(Curry.Module.AbstractCurry.C_CPAs x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_93(x4)(x3)(x1)(st))(st)+c__case_94_case__196 x1 (Curry.Module.AbstractCurry.C_CPatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_94_case__196(x1)(x)(st))(i)(xs)(st)+c__case_94_case__196 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_94_case__196")(x)++++c__case_92_case__197 x1 x2 x3@(Curry.Module.AbstractCurry.C_CBranch x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showPattern(x4)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x5)(x6)(st))(x7)(st))(x8)(st))(st)+c__case_92_case__197 x1 x2 (Curry.Module.AbstractCurry.C_CBranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_92_case__197(x1)(x2)(x)(st))(i)(xs)(st)+c__case_92_case__197 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_92_case__197")(x)++++c__case_91_case__198 x1 x2@(Curry.Module.AbstractCurry.C_CIntc x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(st)+c__case_91_case__198 x1 x2@(Curry.Module.AbstractCurry.C_CFloatc x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_show(x4)(x1)(st))(st)+c__case_91_case__198 x1 x2@(Curry.Module.AbstractCurry.C_CCharc x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCCharc(Curry.Module.AbstractCurry.C_CCharc(x5))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(st)+c__case_91_case__198 x1 (Curry.Module.AbstractCurry.C_CLiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_91_case__198(x1)(x)(st))(i)(xs)(st)+c__case_91_case__198 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_91_case__198")(x)++++c__case_85_case__199 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(st)+c__case_85_case__199 x1 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_85_case__199 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_85_case__199(x1)(x3)(x)(st))(i)(xs)(st)+c__case_85_case__199 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_85_case__199")(x)++++c__case_86_case__200 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))(st)+c__case_86_case__200 x1 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_85(x3)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x5)(st))(st)+c__case_86_case__200 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_86_case__200(x1)(x3)(x)(st))(i)(xs)(st)+c__case_86_case__200 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_86_case__200")(x)++++c__case_87_case__201 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))(Curry.Module.Prelude.List)))(st)+c__case_87_case__201 x1 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_86(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\"'))(x1)(st))(x5)(st))(st)+c__case_87_case__201 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_87_case__201(x1)(x3)(x)(st))(i)(xs)(st)+c__case_87_case__201 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_87_case__201")(x)++++c__case_88_case__202 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))(st)+c__case_88_case__202 x1 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_87(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\\'))(x1)(st))(x5)(st))(st)+c__case_88_case__202 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_88_case__202(x1)(x3)(x)(st))(i)(xs)(st)+c__case_88_case__202 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_88_case__202")(x)++++c__case_89_case__203 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List)))(st)+c__case_89_case__203 x1 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_88(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\r'))(x1)(st))(x5)(st))(st)+c__case_89_case__203 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_89_case__203(x1)(x3)(x)(st))(i)(xs)(st)+c__case_89_case__203 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_89_case__203")(x)++++c__case_90_case__204 x1 x2@(Curry.Module.AbstractCurry.C_CCharc x3) st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_89(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(x4)(st))(st)+c__case_90_case__204 x1 (Curry.Module.AbstractCurry.C_CLiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_90_case__204(x1)(x)(st))(i)(xs)(st)+c__case_90_case__204 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_90_case__204")(x)++++c__case_82_case__205 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_True)))))((Curry.Module.Prelude.:<)(x5)(x6))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x1)(st))(x8)(st))(st)+c__case_82_case__205 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_82_case__205 x1 x3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_82_case__205(x1)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_82_case__205 x1 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_82_case__205")(x)++++c__case_83_case__206 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showPreludeTypeCons(x3)((Curry.Module.Prelude.:<)(x5)(x6))(x1)(st))(st)+c__case_83_case__206 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_82(x3)(x5)(x6)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x8)(st))(st)+c__case_83_case__206 x1 x3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_83_case__206(x1)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_83_case__206 x1 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_83_case__206")(x)++++c__case_84_case__207 x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_84_case__207 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_83(x2)(x3)(x5)(x6)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x1)(st))(x7)(st))(st)+c__case_84_case__207 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_84_case__207(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_84_case__207 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_84_case__207")(x)++++c__case_78_case__208 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_True)))))(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x1)(st))(x5)(st))(st)+c__case_78_case__208 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_78_case__208 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_78_case__208(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_78_case__208 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_78_case__208")(x)++++c__case_79_case__209 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_combineMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)))))(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x5)(st))(x6)(st))(st)+c__case_79_case__209 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_78(x2)(x3)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x7)(st))(st)+c__case_79_case__209 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_79_case__209(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_79_case__209 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_79_case__209")(x)++++c__case_80_case__210 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showTypeExpr(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.c_head(x3)(x1)(st))(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(st)+c__case_80_case__210 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_79(x2)(x3)(Curry.Module.OracleAbstractCurryPrinter.c_isTuple(x2)(x1)(st))(x8)(st))(st)+c__case_80_case__210 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_80_case__210(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_80_case__210 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_80_case__210")(x)++++c__case_81_case__211 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List)))))))(st)+c__case_81_case__211 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_80(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(x1)(st))(x5)(st))(st)+c__case_81_case__211 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_81_case__211(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_81_case__211 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_81_case__211")(x)++++c__case_77_case__212 x1 x2 x3 x18@(Curry.Module.AbstractCurry.C_CSymbol x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSymbolApplication(x2)(x4)(x3)(x1)(st))(st)+c__case_77_case__212 x1 x2 x3 x18@(Curry.Module.AbstractCurry.C_CVar x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleApplication(x2)(x3)(x1)(st))(st)+c__case_77_case__212 x1 x2 x3 x18@(Curry.Module.AbstractCurry.C_CLit x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleApplication(x2)(x3)(x1)(st))(st)+c__case_77_case__212 x1 x2 x3 x18@(Curry.Module.AbstractCurry.C_CApply x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleApplication(x2)(x3)(x1)(st))(st)+c__case_77_case__212 x1 x2 x3 x18@(Curry.Module.AbstractCurry.C_CLambda x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleApplication(x2)(x3)(x1)(st))(st)+c__case_77_case__212 x1 x2 x3 x18@(Curry.Module.AbstractCurry.C_CLetDecl x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleApplication(x2)(x3)(x1)(st))(st)+c__case_77_case__212 x1 x2 x3 x18@(Curry.Module.AbstractCurry.C_CDoExpr x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleApplication(x2)(x3)(x1)(st))(st)+c__case_77_case__212 x1 x2 x3 x18@(Curry.Module.AbstractCurry.C_CListComp x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleApplication(x2)(x3)(x1)(st))(st)+c__case_77_case__212 x1 x2 x3 x18@(Curry.Module.AbstractCurry.C_CCase x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleApplication(x2)(x3)(x1)(st))(st)+c__case_77_case__212 x1 x2 x3 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_77_case__212(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_77_case__212 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_77_case__212")(x)++++c__case_76_case__213 x1 x2@(Curry.Module.AbstractCurry.C_CApply x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_applicationHead(x3)(x1)(st))(st)+c__case_76_case__213 x1 x2@(Curry.Module.AbstractCurry.C_CVar x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_76_case__213 x1 x2@(Curry.Module.AbstractCurry.C_CLit x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_76_case__213 x1 x2@(Curry.Module.AbstractCurry.C_CSymbol x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_76_case__213 x1 x2@(Curry.Module.AbstractCurry.C_CLambda x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_76_case__213 x1 x2@(Curry.Module.AbstractCurry.C_CLetDecl x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_76_case__213 x1 x2@(Curry.Module.AbstractCurry.C_CDoExpr x12) st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_76_case__213 x1 x2@(Curry.Module.AbstractCurry.C_CListComp x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_76_case__213 x1 x2@(Curry.Module.AbstractCurry.C_CCase x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_76_case__213 x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_76_case__213(x1)(x)(st))(i)(xs)(st)+c__case_76_case__213 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_76_case__213")(x)++++c__case_71_case__214 x1 x2 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleApplication(x2)(x4)(x1)(st))(st)+c__case_71_case__214 x1 x2 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_71_case__214 x1 x2 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_71_case__214(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_71_case__214 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_71_case__214")(x)++++c__case_72_case__215 x1 x2 x4 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showTupleApplication(x2)(x4)(x1)(st))(st)+c__case_72_case__215 x1 x2 x4 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_71(x2)(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x8)(st))(st)+c__case_72_case__215 x1 x2 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_72_case__215(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_72_case__215 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_72_case__215")(x)++++c__case_73_case__216 x1 x2 x4 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showITEApplication(x2)(x4)(x1)(st))(st)+c__case_73_case__216 x1 x2 x4 x6 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_72(x2)(x4)(x6)(Curry.Module.OracleAbstractCurryPrinter.c_isTuple(x6)(x1)(st))(x8)(st))(st)+c__case_73_case__216 x1 x2 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_73_case__216(x1)(x2)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_73_case__216 x1 x2 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_73_case__216")(x)++++c__case_74_case__217 x1 x2 x4 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showListApplication(x2)(x4)(x1)(st))(st)+c__case_74_case__217 x1 x2 x4 x5 x6 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.OracleAbstractCurryPrinter.c__case_73(x2)(x4)(x5)(x6)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))(x8)(st))(x9)(st))(x10)(st))(st)+c__case_74_case__217 x1 x2 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_74_case__217(x1)(x2)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_74_case__217 x1 x2 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_74_case__217")(x)++++c__case_75_case__218 x1 x2 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.OracleAbstractCurryPrinter.c__case_74(x2)(x4)(x5)(x6)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_75_case__218 x1 x2 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_75_case__218(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_75_case__218 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_75_case__218")(x)++++c__case_68_case__219 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleListApplication(x2)(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x5)(st))(x6)(st))(st)+c__case_68_case__219 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_68_case__219 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_68_case__219(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_68_case__219 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_68_case__219")(x)++++c__case_69_case__220 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showConsListApplication(x2)(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(x5)(st))(x6)(st))(st)+c__case_69_case__220 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_68(x2)(x3)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x7)(st))(st)+c__case_69_case__220 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_69_case__220(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_69_case__220 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_69_case__220")(x)++++c__case_70_case__221 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCharListApplication(x2)(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(x5)(st))(x6)(st))(st)+c__case_70_case__221 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_69(x2)(x3)(Curry.Module.OracleAbstractCurryPrinter.c_isClosedList(x3)(x1)(st))(x7)(st))(st)+c__case_70_case__221 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_70_case__221(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_70_case__221 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_70_case__221")(x)++++c__case_64_case__222 x1 x2 x8 x5@(Curry.Module.AbstractCurry.C_CSymbol x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showCCharc(x8)(x1)(st))(st)+c__case_64_case__222 x1 x2 x8 x5@(Curry.Module.AbstractCurry.C_CVar x10) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCCharc(x8)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showCharListApplication(x2)(x5)(x23)(st))(x24)(st))(st)+c__case_64_case__222 x1 x2 x8 x5@(Curry.Module.AbstractCurry.C_CLit x11) st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCCharc(x8)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showCharListApplication(x2)(x5)(x25)(st))(x26)(st))(st)+c__case_64_case__222 x1 x2 x8 x5@(Curry.Module.AbstractCurry.C_CApply x12 x13) st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCCharc(x8)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showCharListApplication(x2)(x5)(x27)(st))(x28)(st))(st)+c__case_64_case__222 x1 x2 x8 x5@(Curry.Module.AbstractCurry.C_CLambda x14 x15) st = let {x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCCharc(x8)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showCharListApplication(x2)(x5)(x29)(st))(x30)(st))(st)+c__case_64_case__222 x1 x2 x8 x5@(Curry.Module.AbstractCurry.C_CLetDecl x16 x17) st = let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCCharc(x8)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showCharListApplication(x2)(x5)(x31)(st))(x32)(st))(st)+c__case_64_case__222 x1 x2 x8 x5@(Curry.Module.AbstractCurry.C_CDoExpr x18) st = let {x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCCharc(x8)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showCharListApplication(x2)(x5)(x33)(st))(x34)(st))(st)+c__case_64_case__222 x1 x2 x8 x5@(Curry.Module.AbstractCurry.C_CListComp x19 x20) st = let {x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCCharc(x8)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showCharListApplication(x2)(x5)(x35)(st))(x36)(st))(st)+c__case_64_case__222 x1 x2 x8 x5@(Curry.Module.AbstractCurry.C_CCase x21 x22) st = let {x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showCCharc(x8)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_showCharListApplication(x2)(x5)(x37)(st))(x38)(st))(st)+c__case_64_case__222 x1 x2 x8 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_64_case__222(x1)(x2)(x8)(x)(st))(i)(xs)(st)+c__case_64_case__222 x1 x2 x8 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_64_case__222")(x)++++c__case_65_case__223 x1 x2 x5 x7@(Curry.Module.AbstractCurry.C_CLit x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_64(x2)(x8)(x5)(x1)(st))(st)+c__case_65_case__223 x1 x2 x5 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_65_case__223(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_65_case__223 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_65_case__223")(x)++++c__case_66_case__224 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CApply x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_65(x2)(x5)(x7)(x1)(st))(st)+c__case_66_case__224 x1 x2 x5 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_66_case__224(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_66_case__224 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_66_case__224")(x)++++c__case_67_case__225 x1 x2 x3@(Curry.Module.AbstractCurry.C_CApply x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_66(x2)(x5)(x4)(x1)(st))(st)+c__case_67_case__225 x1 x2 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_67_case__225(x1)(x2)(x)(st))(i)(xs)(st)+c__case_67_case__225 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_67_case__225")(x)++++c__case_61_case__226 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CSymbol x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(st)+c__case_61_case__226 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CVar x9) st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showConsListApplication(x2)(x5)(x22)(st))(x23)(st))(x24)(st))(st)+c__case_61_case__226 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CLit x10) st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showConsListApplication(x2)(x5)(x25)(st))(x26)(st))(x27)(st))(st)+c__case_61_case__226 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CApply x11 x12) st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showConsListApplication(x2)(x5)(x28)(st))(x29)(st))(x30)(st))(st)+c__case_61_case__226 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CLambda x13 x14) st = let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showConsListApplication(x2)(x5)(x31)(st))(x32)(st))(x33)(st))(st)+c__case_61_case__226 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CLetDecl x15 x16) st = let {x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showConsListApplication(x2)(x5)(x34)(st))(x35)(st))(x36)(st))(st)+c__case_61_case__226 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CDoExpr x17) st = let {x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showConsListApplication(x2)(x5)(x37)(st))(x38)(st))(x39)(st))(st)+c__case_61_case__226 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CListComp x18 x19) st = let {x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showConsListApplication(x2)(x5)(x40)(st))(x41)(st))(x42)(st))(st)+c__case_61_case__226 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CCase x20 x21) st = let {x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x45 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x43)((Curry.Module.Prelude.:<)(x44)((Curry.Module.Prelude.:<)(x45)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showConsListApplication(x2)(x5)(x43)(st))(x44)(st))(x45)(st))(st)+c__case_61_case__226 x1 x2 x7 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_61_case__226(x1)(x2)(x7)(x)(st))(i)(xs)(st)+c__case_61_case__226 x1 x2 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_61_case__226")(x)++++c__case_62_case__227 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CApply x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_61(x2)(x7)(x5)(x1)(st))(st)+c__case_62_case__227 x1 x2 x5 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_62_case__227(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_62_case__227 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_62_case__227")(x)++++c__case_63_case__228 x1 x2 x3@(Curry.Module.AbstractCurry.C_CApply x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_62(x2)(x5)(x4)(x1)(st))(st)+c__case_63_case__228 x1 x2 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_63_case__228(x1)(x2)(x)(st))(i)(xs)(st)+c__case_63_case__228 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_63_case__228")(x)++++c__case_58_case__229 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CSymbol x8) st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x22)(st))(st)+c__case_58_case__229 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CVar x9) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x23)(st))(x24)(st))(x25)(st))(st)+c__case_58_case__229 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CLit x10) st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x26)(st))(x27)(st))(x28)(st))(st)+c__case_58_case__229 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CApply x11 x12) st = let {x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x29)(st))(x30)(st))(x31)(st))(st)+c__case_58_case__229 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CLambda x13 x14) st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x32)(st))(x33)(st))(x34)(st))(st)+c__case_58_case__229 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CLetDecl x15 x16) st = let {x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x35)(st))(x36)(st))(x37)(st))(st)+c__case_58_case__229 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CDoExpr x17) st = let {x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x38)(st))(x39)(st))(x40)(st))(st)+c__case_58_case__229 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CListComp x18 x19) st = let {x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)((Curry.Module.Prelude.:<)(x43)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x41)(st))(x42)(st))(x43)(st))(st)+c__case_58_case__229 x1 x2 x7 x5@(Curry.Module.AbstractCurry.C_CCase x20 x21) st = let {x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x45 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x46 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x44)((Curry.Module.Prelude.:<)(x45)((Curry.Module.Prelude.:<)(x46)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x44)(st))(x45)(st))(x46)(st))(st)+c__case_58_case__229 x1 x2 x7 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_58_case__229(x1)(x2)(x7)(x)(st))(i)(xs)(st)+c__case_58_case__229 x1 x2 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_58_case__229")(x)++++c__case_57_case__230 x1 x2 x5 x22@(Curry.Module.Prelude.T2 x23 x24) st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x1)(st))(x24)(x25)(st))(st)+c__case_57_case__230 x1 x2 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_57_case__230(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_57_case__230 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_57_case__230")(x)++++c__case_59_case__231 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CApply x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_58(x2)(x7)(x5)(x1)(st))(st)+c__case_59_case__231 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CSymbol x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_57(x2)(x5)(x22)(x1)(st))(st)+c__case_59_case__231 x1 x2 x5 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_59_case__231(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_59_case__231 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_59_case__231")(x)++++c__case_60_case__232 x1 x2 x3@(Curry.Module.AbstractCurry.C_CApply x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_59(x2)(x5)(x4)(x1)(st))(st)+c__case_60_case__232 x1 x2 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_60_case__232(x1)(x2)(x)(st))(i)(xs)(st)+c__case_60_case__232 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_60_case__232")(x)++++c__case_55_case__233 x1 x2 x3 x6 x5@(Curry.Module.AbstractCurry.C_CApply x7 x8) st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x8)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x3)(x21)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x6)(x22)(st))(x23)(st))(x24)(st))(x25)(st))(x26)(st))(st)+c__case_55_case__233 x1 x2 x3 x6 x5@(Curry.Module.AbstractCurry.C_CVar x9) st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x6)(x27)(st))(x28)(st))(x29)(st))(x30)(st))(st)+c__case_55_case__233 x1 x2 x3 x6 x5@(Curry.Module.AbstractCurry.C_CLit x10) st = let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x6)(x31)(st))(x32)(st))(x33)(st))(x34)(st))(st)+c__case_55_case__233 x1 x2 x3 x6 x5@(Curry.Module.AbstractCurry.C_CSymbol x11) st = let {x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x6)(x35)(st))(x36)(st))(x37)(st))(x38)(st))(st)+c__case_55_case__233 x1 x2 x3 x6 x5@(Curry.Module.AbstractCurry.C_CLambda x12 x13) st = let {x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x6)(x39)(st))(x40)(st))(x41)(st))(x42)(st))(st)+c__case_55_case__233 x1 x2 x3 x6 x5@(Curry.Module.AbstractCurry.C_CLetDecl x14 x15) st = let {x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x45 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x46 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x43)((Curry.Module.Prelude.:<)(x44)((Curry.Module.Prelude.:<)(x45)((Curry.Module.Prelude.:<)(x46)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x6)(x43)(st))(x44)(st))(x45)(st))(x46)(st))(st)+c__case_55_case__233 x1 x2 x3 x6 x5@(Curry.Module.AbstractCurry.C_CDoExpr x16) st = let {x47 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x48 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x49 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x50 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x47)((Curry.Module.Prelude.:<)(x48)((Curry.Module.Prelude.:<)(x49)((Curry.Module.Prelude.:<)(x50)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x6)(x47)(st))(x48)(st))(x49)(st))(x50)(st))(st)+c__case_55_case__233 x1 x2 x3 x6 x5@(Curry.Module.AbstractCurry.C_CListComp x17 x18) st = let {x51 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x52 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x53 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x54 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x51)((Curry.Module.Prelude.:<)(x52)((Curry.Module.Prelude.:<)(x53)((Curry.Module.Prelude.:<)(x54)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x6)(x51)(st))(x52)(st))(x53)(st))(x54)(st))(st)+c__case_55_case__233 x1 x2 x3 x6 x5@(Curry.Module.AbstractCurry.C_CCase x19 x20) st = let {x55 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x56 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x57 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x58 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x55)((Curry.Module.Prelude.:<)(x56)((Curry.Module.Prelude.:<)(x57)((Curry.Module.Prelude.:<)(x58)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSymbol(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x6)(x55)(st))(x56)(st))(x57)(st))(x58)(st))(st)+c__case_55_case__233 x1 x2 x3 x6 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_55_case__233(x1)(x2)(x3)(x6)(x)(st))(i)(xs)(st)+c__case_55_case__233 x1 x2 x3 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_55_case__233")(x)++++c__case_56_case__234 x1 x2 x3 x4@(Curry.Module.AbstractCurry.C_CApply x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_55(x2)(x3)(x6)(x5)(x1)(st))(st)+c__case_56_case__234 x1 x2 x3 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_56_case__234(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_56_case__234 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_56_case__234")(x)++++c__case_51_case__235 x1 x2 x4 x5 x7 x9 x8@(Curry.Module.AbstractCurry.C_CSymbol x10) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x9)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x7)(x13)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x5)(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(st)+c__case_51_case__235 x1 x2 x4 x5 x7 x9 x8@(Curry.Module.AbstractCurry.C_CApply x11 x12) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showITEApplication(x2)(x4)(x1)(st))(Curry.Module.OraclePrelude.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.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x20)(st))(x21)(st))(x22)(st))(x23)(st))(st)+c__case_51_case__235 x1 x2 x4 x5 x7 x9 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_51_case__235(x1)(x2)(x4)(x5)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_51_case__235 x1 x2 x4 x5 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_51_case__235")(x)++++c__case_52_case__236 x1 x2 x4 x5 x7 x6@(Curry.Module.AbstractCurry.C_CApply x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_51(x2)(x4)(x5)(x7)(x9)(x8)(x1)(st))(st)+c__case_52_case__236 x1 x2 x4 x5 x7 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_52_case__236(x1)(x2)(x4)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_52_case__236 x1 x2 x4 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_52_case__236")(x)++++c__case_53_case__237 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CApply x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_52(x2)(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_53_case__237 x1 x2 x5 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_53_case__237(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_53_case__237 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_53_case__237")(x)++++c__case_54_case__238 x1 x2 x3@(Curry.Module.AbstractCurry.C_CApply x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_53(x2)(x5)(x4)(x1)(st))(st)+c__case_54_case__238 x1 x2 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_54_case__238(x1)(x2)(x)(st))(i)(xs)(st)+c__case_54_case__238 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_54_case__238")(x)++++c__case_49_case__239 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CSymbol x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x5)(x1)(st))(st)+c__case_49_case__239 x1 x2 x5 x4@(Curry.Module.AbstractCurry.C_CApply x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showTupleApplication'46p_showTuple'46386(x2)(Curry.Module.AbstractCurry.C_CApply(x7)(x8))(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x5)(x9)(st))(x10)(st))(x11)(st))(st)+c__case_49_case__239 x1 x2 x5 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_49_case__239(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_49_case__239 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_49_case__239")(x)++++c__case_50_case__240 x1 x2 x3@(Curry.Module.AbstractCurry.C_CApply x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_49(x2)(x5)(x4)(x1)(st))(st)+c__case_50_case__240 x1 x2 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_50_case__240(x1)(x2)(x)(st))(i)(xs)(st)+c__case_50_case__240 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_50_case__240")(x)++++c__case_48_case__241 x1 x2 x3@(Curry.Module.AbstractCurry.C_CApply x4 x5) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showSimpleApplication(x2)(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x5)(x18)(st))(x19)(st))(x20)(st))(st)+c__case_48_case__241 x1 x2 x3@(Curry.Module.AbstractCurry.C_CVar x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x3)(x1)(st))(st)+c__case_48_case__241 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLit x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x3)(x1)(st))(st)+c__case_48_case__241 x1 x2 x3@(Curry.Module.AbstractCurry.C_CSymbol x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x3)(x1)(st))(st)+c__case_48_case__241 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLambda x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x3)(x1)(st))(st)+c__case_48_case__241 x1 x2 x3@(Curry.Module.AbstractCurry.C_CLetDecl x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x3)(x1)(st))(st)+c__case_48_case__241 x1 x2 x3@(Curry.Module.AbstractCurry.C_CDoExpr x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x3)(x1)(st))(st)+c__case_48_case__241 x1 x2 x3@(Curry.Module.AbstractCurry.C_CListComp x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x3)(x1)(st))(st)+c__case_48_case__241 x1 x2 x3@(Curry.Module.AbstractCurry.C_CCase x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showBoxedExpr(x2)(x3)(x1)(st))(st)+c__case_48_case__241 x1 x2 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_48_case__241(x1)(x2)(x)(st))(i)(xs)(st)+c__case_48_case__241 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_48_case__241")(x)++++c__case_46_case__242 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x5)(st))(x6)(st))(st)+c__case_46_case__242 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_46_case__242 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_46_case__242(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_46_case__242 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_46_case__242")(x)++++c__case_47_case__243 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_showExprOpt(x2)(x3)(x1)(st))(st)+c__case_47_case__243 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_46(x2)(x3)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x5)(st))(st)+c__case_47_case__243 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_47_case__243(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_47_case__243 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_47_case__243")(x)++++c__case_45_case__244 x1 x2 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_45_case__244 x1 x2 x4 x3@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_prefixMap(x2)(x6)(x4)(x7)(st))(x8)(st))(st)+c__case_45_case__244 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_45_case__244(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_45_case__244 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_45_case__244")(x)++++c__case_42_case__245 x1 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_42_case__245 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_dropTags(x4)(x1)(st))(st)+c__case_42_case__245 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_42_case__245(x1)(x4)(x)(st))(i)(xs)(st)+c__case_42_case__245 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_42_case__245")(x)++++c__case_43_case__246 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAbstractCurryPrinter.c_dropTags))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_tail))))(Curry.Module.OraclePrelude.c_dropWhile(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(Curry.Module.Prelude.C_Char('\"'))))))(x4)(x1)(st))(x6)(st))(x7)(st))(st)+c__case_43_case__246 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_42(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('>'))(x1)(st))(x8)(st))(st)+c__case_43_case__246 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_43_case__246(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_43_case__246 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_43_case__246")(x)++++c__case_44_case__247 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_43(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\"'))(x1)(st))(x5)(st))(st)+c__case_44_case__247 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_44_case__247(x1)(x)(st))(i)(xs)(st)+c__case_44_case__247 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_44_case__247")(x)++++c__case_40_case__248 x1 x3@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(x6)(st))(x7)(st))(st)+c__case_40_case__248 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_40_case__248(x1)(x)(st))(i)(xs)(st)+c__case_40_case__248 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_40_case__248")(x)++++c__case_37_case__249 x1 x8 x11@(Curry.Module.AbstractCurry.C_CCharc x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c_isStringList(x8)(x1)(st))(st)+c__case_37_case__249 x1 x8 x11@(Curry.Module.AbstractCurry.C_CIntc x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_37_case__249 x1 x8 x11@(Curry.Module.AbstractCurry.C_CFloatc x14) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_37_case__249 x1 x8 (Curry.Module.AbstractCurry.C_CLiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_37_case__249(x1)(x8)(x)(st))(i)(xs)(st)+c__case_37_case__249 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_37_case__249")(x)++++c__case_38_case__250 x1 x8 x10@(Curry.Module.AbstractCurry.C_CLit x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_37(x8)(x11)(x1)(st))(st)+c__case_38_case__250 x1 x8 x10@(Curry.Module.AbstractCurry.C_CVar x15) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_38_case__250 x1 x8 x10@(Curry.Module.AbstractCurry.C_CSymbol x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_38_case__250 x1 x8 x10@(Curry.Module.AbstractCurry.C_CApply x17 x18) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_38_case__250 x1 x8 x10@(Curry.Module.AbstractCurry.C_CLambda x19 x20) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_38_case__250 x1 x8 x10@(Curry.Module.AbstractCurry.C_CLetDecl x21 x22) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_38_case__250 x1 x8 x10@(Curry.Module.AbstractCurry.C_CDoExpr x23) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_38_case__250 x1 x8 x10@(Curry.Module.AbstractCurry.C_CListComp x24 x25) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_38_case__250 x1 x8 x10@(Curry.Module.AbstractCurry.C_CCase x26 x27) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_38_case__250 x1 x8 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_38_case__250(x1)(x8)(x)(st))(i)(xs)(st)+c__case_38_case__250 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_38_case__250")(x)++++c__case_39_case__251 x1 x8 x7@(Curry.Module.AbstractCurry.C_CApply x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_38(x8)(x10)(x1)(st))(st)+c__case_39_case__251 x1 x8 x7@(Curry.Module.AbstractCurry.C_CVar x28) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_39_case__251 x1 x8 x7@(Curry.Module.AbstractCurry.C_CLit x29) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_39_case__251 x1 x8 x7@(Curry.Module.AbstractCurry.C_CSymbol x30) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_39_case__251 x1 x8 x7@(Curry.Module.AbstractCurry.C_CLambda x31 x32) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_39_case__251 x1 x8 x7@(Curry.Module.AbstractCurry.C_CLetDecl x33 x34) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_39_case__251 x1 x8 x7@(Curry.Module.AbstractCurry.C_CDoExpr x35) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_39_case__251 x1 x8 x7@(Curry.Module.AbstractCurry.C_CListComp x36 x37) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_39_case__251 x1 x8 x7@(Curry.Module.AbstractCurry.C_CCase x38 x39) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_39_case__251 x1 x8 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_39_case__251(x1)(x8)(x)(st))(i)(xs)(st)+c__case_39_case__251 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_39_case__251")(x)++++c__case_41_case__252 x1 x2@(Curry.Module.AbstractCurry.C_CSymbol x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_40(x3)(x1)(st))(st)+c__case_41_case__252 x1 x2@(Curry.Module.AbstractCurry.C_CVar x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_41_case__252 x1 x2@(Curry.Module.AbstractCurry.C_CApply x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_39(x8)(x7)(x1)(st))(st)+c__case_41_case__252 x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_41_case__252(x1)(x)(st))(i)(xs)(st)+c__case_41_case__252 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_41_case__252")(x)++++c__case_33_case__253 x1 x4 x7@(Curry.Module.Prelude.T2 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x8)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x1)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x9)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(x10)(st))(Curry.Module.OracleAbstractCurryPrinter.c_isClosedList(x4)(x11)(st))(x12)(st))(x13)(st))(st)+c__case_33_case__253 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_33_case__253(x1)(x4)(x)(st))(i)(xs)(st)+c__case_33_case__253 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_33_case__253")(x)++++c__case_34_case__254 x1 x4 x5@(Curry.Module.AbstractCurry.C_CSymbol x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_33(x4)(x7)(x1)(st))(st)+c__case_34_case__254 x1 x4 x5@(Curry.Module.AbstractCurry.C_CVar x10) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_34_case__254 x1 x4 x5@(Curry.Module.AbstractCurry.C_CLit x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_34_case__254 x1 x4 x5@(Curry.Module.AbstractCurry.C_CApply x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_34_case__254 x1 x4 x5@(Curry.Module.AbstractCurry.C_CLambda x14 x15) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_34_case__254 x1 x4 x5@(Curry.Module.AbstractCurry.C_CLetDecl x16 x17) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_34_case__254 x1 x4 x5@(Curry.Module.AbstractCurry.C_CDoExpr x18) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_34_case__254 x1 x4 x5@(Curry.Module.AbstractCurry.C_CListComp x19 x20) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_34_case__254 x1 x4 x5@(Curry.Module.AbstractCurry.C_CCase x21 x22) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_34_case__254 x1 x4 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_34_case__254(x1)(x4)(x)(st))(i)(xs)(st)+c__case_34_case__254 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_34_case__254")(x)++++c__case_35_case__255 x1 x4 x3@(Curry.Module.AbstractCurry.C_CApply x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_34(x4)(x5)(x1)(st))(st)+c__case_35_case__255 x1 x4 x3@(Curry.Module.AbstractCurry.C_CVar x23) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_35_case__255 x1 x4 x3@(Curry.Module.AbstractCurry.C_CLit x24) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_35_case__255 x1 x4 x3@(Curry.Module.AbstractCurry.C_CSymbol x25) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_35_case__255 x1 x4 x3@(Curry.Module.AbstractCurry.C_CLambda x26 x27) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_35_case__255 x1 x4 x3@(Curry.Module.AbstractCurry.C_CLetDecl x28 x29) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_35_case__255 x1 x4 x3@(Curry.Module.AbstractCurry.C_CDoExpr x30) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_35_case__255 x1 x4 x3@(Curry.Module.AbstractCurry.C_CListComp x31 x32) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_35_case__255 x1 x4 x3@(Curry.Module.AbstractCurry.C_CCase x33 x34) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_35_case__255 x1 x4 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_35_case__255(x1)(x4)(x)(st))(i)(xs)(st)+c__case_35_case__255 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_35_case__255")(x)++++c__case_32_case__256 x1 x35@(Curry.Module.Prelude.T2 x36 x37) st = let {x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x36)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x37)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(x38)(st))(x39)(st))(st)+c__case_32_case__256 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_32_case__256(x1)(x)(st))(i)(xs)(st)+c__case_32_case__256 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_32_case__256")(x)++++c__case_36_case__257 x1 x2@(Curry.Module.AbstractCurry.C_CApply x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_35(x4)(x3)(x1)(st))(st)+c__case_36_case__257 x1 x2@(Curry.Module.AbstractCurry.C_CSymbol x35) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_32(x35)(x1)(st))(st)+c__case_36_case__257 x1 x2@(Curry.Module.AbstractCurry.C_CVar x38) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_36_case__257 x1 x2@(Curry.Module.AbstractCurry.C_CLit x39) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_36_case__257 x1 x2@(Curry.Module.AbstractCurry.C_CLambda x40 x41) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_36_case__257 x1 x2@(Curry.Module.AbstractCurry.C_CLetDecl x42 x43) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_36_case__257 x1 x2@(Curry.Module.AbstractCurry.C_CDoExpr x44) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_36_case__257 x1 x2@(Curry.Module.AbstractCurry.C_CListComp x45 x46) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_36_case__257 x1 x2@(Curry.Module.AbstractCurry.C_CCase x47 x48) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_36_case__257 x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_36_case__257(x1)(x)(st))(i)(xs)(st)+c__case_36_case__257 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_36_case__257")(x)++++c__case_30_case__258 x1 x5@(Curry.Module.Prelude.T2 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_not))))(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x7)(x8)(st))(x9)(st))(st)+c__case_30_case__258 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_30_case__258(x1)(x)(st))(i)(xs)(st)+c__case_30_case__258 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_30_case__258")(x)++++c__case_13_case__259 x1 x12 x26@Curry.Module.Prelude.List st = let {x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x12)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(x1)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x12)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(x29)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x12)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))(x30)(st))(Curry.Module.OracleAbstractCurryPrinter.c_isTuple(x12)(x31)(st))(x32)(st))(x33)(st))(x34)(st))(st)+c__case_13_case__259 x1 x12 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_13_case__259 x1 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_13_case__259(x1)(x12)(x)(st))(i)(xs)(st)+c__case_13_case__259 x1 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_13_case__259")(x)++++c__case_14_case__260 x1 x12 x26 x27@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_13(x12)(x26)(x1)(st))(st)+c__case_14_case__260 x1 x12 x26 x27@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_14_case__260 x1 x12 x26 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_14_case__260(x1)(x12)(x26)(x)(st))(i)(xs)(st)+c__case_14_case__260 x1 x12 x26 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_14_case__260")(x)++++c__case_15_case__261 x1 x12 x24@((Curry.Module.Prelude.:<) x25 x26) st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_14(x12)(x25)(x26)(Curry.Module.OraclePrelude.op_61_61(x25)(Curry.Module.Prelude.C_Char('e'))(x1)(st))(x27)(st))(st)+c__case_15_case__261 x1 x12 x24@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_15_case__261 x1 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_15_case__261(x1)(x12)(x)(st))(i)(xs)(st)+c__case_15_case__261 x1 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_15_case__261")(x)++++c__case_16_case__262 x1 x12 x24 x25@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_15(x12)(x24)(x1)(st))(st)+c__case_16_case__262 x1 x12 x24 x25@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_16_case__262 x1 x12 x24 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_16_case__262(x1)(x12)(x24)(x)(st))(i)(xs)(st)+c__case_16_case__262 x1 x12 x24 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_16_case__262")(x)++++c__case_17_case__263 x1 x12 x22@((Curry.Module.Prelude.:<) x23 x24) st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_16(x12)(x23)(x24)(Curry.Module.OraclePrelude.op_61_61(x23)(Curry.Module.Prelude.C_Char('d'))(x1)(st))(x25)(st))(st)+c__case_17_case__263 x1 x12 x22@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_17_case__263 x1 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_17_case__263(x1)(x12)(x)(st))(i)(xs)(st)+c__case_17_case__263 x1 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_17_case__263")(x)++++c__case_18_case__264 x1 x12 x22 x23@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_17(x12)(x22)(x1)(st))(st)+c__case_18_case__264 x1 x12 x22 x23@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_18_case__264 x1 x12 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_18_case__264(x1)(x12)(x22)(x)(st))(i)(xs)(st)+c__case_18_case__264 x1 x12 x22 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_18_case__264")(x)++++c__case_19_case__265 x1 x12 x20@((Curry.Module.Prelude.:<) x21 x22) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_18(x12)(x21)(x22)(Curry.Module.OraclePrelude.op_61_61(x21)(Curry.Module.Prelude.C_Char('u'))(x1)(st))(x23)(st))(st)+c__case_19_case__265 x1 x12 x20@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_19_case__265 x1 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_19_case__265(x1)(x12)(x)(st))(i)(xs)(st)+c__case_19_case__265 x1 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_19_case__265")(x)++++c__case_20_case__266 x1 x12 x20 x21@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_19(x12)(x20)(x1)(st))(st)+c__case_20_case__266 x1 x12 x20 x21@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_20_case__266 x1 x12 x20 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_20_case__266(x1)(x12)(x20)(x)(st))(i)(xs)(st)+c__case_20_case__266 x1 x12 x20 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_20_case__266")(x)++++c__case_21_case__267 x1 x12 x18@((Curry.Module.Prelude.:<) x19 x20) st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_20(x12)(x19)(x20)(Curry.Module.OraclePrelude.op_61_61(x19)(Curry.Module.Prelude.C_Char('l'))(x1)(st))(x21)(st))(st)+c__case_21_case__267 x1 x12 x18@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_21_case__267 x1 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_21_case__267(x1)(x12)(x)(st))(i)(xs)(st)+c__case_21_case__267 x1 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_21_case__267")(x)++++c__case_22_case__268 x1 x12 x18 x19@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_21(x12)(x18)(x1)(st))(st)+c__case_22_case__268 x1 x12 x18 x19@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_22_case__268 x1 x12 x18 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_22_case__268(x1)(x12)(x18)(x)(st))(i)(xs)(st)+c__case_22_case__268 x1 x12 x18 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_22_case__268")(x)++++c__case_23_case__269 x1 x12 x16@((Curry.Module.Prelude.:<) x17 x18) st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_22(x12)(x17)(x18)(Curry.Module.OraclePrelude.op_61_61(x17)(Curry.Module.Prelude.C_Char('e'))(x1)(st))(x19)(st))(st)+c__case_23_case__269 x1 x12 x16@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_23_case__269 x1 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_23_case__269(x1)(x12)(x)(st))(i)(xs)(st)+c__case_23_case__269 x1 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_23_case__269")(x)++++c__case_24_case__270 x1 x12 x16 x17@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_23(x12)(x16)(x1)(st))(st)+c__case_24_case__270 x1 x12 x16 x17@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_24_case__270 x1 x12 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_24_case__270(x1)(x12)(x16)(x)(st))(i)(xs)(st)+c__case_24_case__270 x1 x12 x16 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_24_case__270")(x)++++c__case_25_case__271 x1 x12 x14@((Curry.Module.Prelude.:<) x15 x16) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_24(x12)(x15)(x16)(Curry.Module.OraclePrelude.op_61_61(x15)(Curry.Module.Prelude.C_Char('r'))(x1)(st))(x17)(st))(st)+c__case_25_case__271 x1 x12 x14@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_25_case__271 x1 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_25_case__271(x1)(x12)(x)(st))(i)(xs)(st)+c__case_25_case__271 x1 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_25_case__271")(x)++++c__case_26_case__272 x1 x12 x14 x15@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_25(x12)(x14)(x1)(st))(st)+c__case_26_case__272 x1 x12 x14 x15@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_26_case__272 x1 x12 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_26_case__272(x1)(x12)(x14)(x)(st))(i)(xs)(st)+c__case_26_case__272 x1 x12 x14 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_26_case__272")(x)++++c__case_27_case__273 x1 x12 x11@((Curry.Module.Prelude.:<) x13 x14) st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_26(x12)(x13)(x14)(Curry.Module.OraclePrelude.op_61_61(x13)(Curry.Module.Prelude.C_Char('P'))(x1)(st))(x15)(st))(st)+c__case_27_case__273 x1 x12 x11@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_27_case__273 x1 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_27_case__273(x1)(x12)(x)(st))(i)(xs)(st)+c__case_27_case__273 x1 x12 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_27_case__273")(x)++++c__case_28_case__274 x1 x10@(Curry.Module.Prelude.T2 x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_27(x12)(x11)(x1)(st))(st)+c__case_28_case__274 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_28_case__274(x1)(x)(st))(i)(xs)(st)+c__case_28_case__274 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_28_case__274")(x)++++c__case_29_case__275 x1 x42@(Curry.Module.AbstractCurry.C_CSymbol x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_28(x10)(x1)(st))(st)+c__case_29_case__275 x1 x42@(Curry.Module.AbstractCurry.C_CVar x29) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_29_case__275 x1 x42@(Curry.Module.AbstractCurry.C_CLit x30) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_29_case__275 x1 x42@(Curry.Module.AbstractCurry.C_CApply x31 x32) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_29_case__275 x1 x42@(Curry.Module.AbstractCurry.C_CLambda x33 x34) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_29_case__275 x1 x42@(Curry.Module.AbstractCurry.C_CLetDecl x35 x36) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_29_case__275 x1 x42@(Curry.Module.AbstractCurry.C_CDoExpr x37) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_29_case__275 x1 x42@(Curry.Module.AbstractCurry.C_CListComp x38 x39) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_29_case__275 x1 x42@(Curry.Module.AbstractCurry.C_CCase x40 x41) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_29_case__275 x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_29_case__275(x1)(x)(st))(i)(xs)(st)+c__case_29_case__275 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_29_case__275")(x)++++c__case_31_case__276 x1 x2@(Curry.Module.AbstractCurry.C_CVar x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_31_case__276 x1 x2@(Curry.Module.AbstractCurry.C_CLit x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_31_case__276 x1 x2@(Curry.Module.AbstractCurry.C_CSymbol x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_30(x5)(x1)(st))(st)+c__case_31_case__276 x1 x2@(Curry.Module.AbstractCurry.C_CApply x8 x9) st = let {x51 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x51)(Curry.Module.Prelude.List))(Curry.Module.OracleAbstractCurryPrinter.c__case_29(x8)(Curry.Module.OracleAbstractCurryPrinter.c_applicationHead(x8)(x1)(st))(x51)(st))(st)+c__case_31_case__276 x1 x2@(Curry.Module.AbstractCurry.C_CLambda x42 x43) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_31_case__276 x1 x2@(Curry.Module.AbstractCurry.C_CLetDecl x44 x45) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_31_case__276 x1 x2@(Curry.Module.AbstractCurry.C_CDoExpr x46) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_31_case__276 x1 x2@(Curry.Module.AbstractCurry.C_CListComp x47 x48) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_31_case__276 x1 x2@(Curry.Module.AbstractCurry.C_CCase x49 x50) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_31_case__276 x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_31_case__276(x1)(x)(st))(i)(xs)(st)+c__case_31_case__276 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_31_case__276")(x)++++c__case_11_case__277 x1 x5@(Curry.Module.Prelude.T2 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_not))))(Curry.Module.Oracle.c_apply(Curry.Module.OracleAbstractCurryPrinter.c_isInfixOpName(x1)(st))(x7)(x8)(st))(x9)(st))(st)+c__case_11_case__277 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_11_case__277(x1)(x)(st))(i)(xs)(st)+c__case_11_case__277 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_11_case__277")(x)++++c__case_12_case__278 x1 x2@(Curry.Module.AbstractCurry.C_CVar x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_12_case__278 x1 x2@(Curry.Module.AbstractCurry.C_CLit x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_12_case__278 x1 x2@(Curry.Module.AbstractCurry.C_CSymbol x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_11(x5)(x1)(st))(st)+c__case_12_case__278 x1 x2@(Curry.Module.AbstractCurry.C_CApply x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__278 x1 x2@(Curry.Module.AbstractCurry.C_CLambda x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__278 x1 x2@(Curry.Module.AbstractCurry.C_CLetDecl x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__278 x1 x2@(Curry.Module.AbstractCurry.C_CDoExpr x14) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__278 x1 x2@(Curry.Module.AbstractCurry.C_CListComp x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__278 x1 x2@(Curry.Module.AbstractCurry.C_CCase x17 x18) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__278 x1 (Curry.Module.AbstractCurry.C_CExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_12_case__278(x1)(x)(st))(i)(xs)(st)+c__case_12_case__278 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_12_case__278")(x)++++c__case_8_case__279 x1 x5 x6 x4@Curry.Module.Prelude.List st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x6)((Curry.Module.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))))))))(x9)(st))(x10)(st))(st)+c__case_8_case__279 x1 x5 x6 x4@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_8_case__279 x1 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_8_case__279(x1)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_8_case__279 x1 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_8_case__279")(x)++++c__case_9_case__280 x1 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_8(x5)(x6)(x4)(x1)(st))(st)+c__case_9_case__280 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_9_case__280(x1)(x4)(x)(st))(i)(xs)(st)+c__case_9_case__280 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_9_case__280")(x)++++c__case_10_case__281 x1 x2@(Curry.Module.AbstractCurry.C_CTCons x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_9(x4)(x3)(x1)(st))(st)+c__case_10_case__281 x1 x2@(Curry.Module.AbstractCurry.C_CTVar x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_10_case__281 x1 x2@(Curry.Module.AbstractCurry.C_CFuncType x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_10_case__281 x1 (Curry.Module.AbstractCurry.C_CTypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_10_case__281(x1)(x)(st))(i)(xs)(st)+c__case_10_case__281 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_10_case__281")(x)++++c__case_7_case__282 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_7_case__282 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('('))(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_isTuple'46p1_isTuple'46492(x4)(x5)(st))(x6)(st))(st)+c__case_7_case__282 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_7_case__282(x1)(x)(st))(i)(xs)(st)+c__case_7_case__282 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_7_case__282")(x)++++c__case_5_case__283 x1 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char(')'))(x1)(st))(st)+c__case_5_case__283 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char(','))(x1)(st))(Curry.Module.OracleAbstractCurryPrinter.c_isTuple'46p1_isTuple'46492((Curry.Module.Prelude.:<)(x5)(x6))(x7)(st))(x8)(st))(st)+c__case_5_case__283 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_5_case__283(x1)(x3)(x)(st))(i)(xs)(st)+c__case_5_case__283 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_5_case__283")(x)++++c__case_6_case__284 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__284 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_5(x3)(x4)(x1)(st))(st)+c__case_6_case__284 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_6_case__284(x1)(x)(st))(i)(xs)(st)+c__case_6_case__284 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_6_case__284")(x)++++c__case_4_case__285 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(st)+c__case_4_case__285 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_4_case__285 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_4_case__285(x1)(x)(st))(i)(xs)(st)+c__case_4_case__285 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_4_case__285")(x)++++c__case_3_case__286 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(st)+c__case_3_case__286 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_3_case__286 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_3_case__286(x1)(x)(st))(i)(xs)(st)+c__case_3_case__286 x1 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_3_case__286")(x)++++c__case_1_case__287 x1 x3 x4@(Curry.Module.Prelude.T2 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_addToFM(x3)(x10)(Curry.Module.Prelude.T0)(x1)(st))(st)+c__case_1_case__287 x1 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_1_case__287(x1)(x3)(x)(st))(i)(xs)(st)+c__case_1_case__287 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_1_case__287")(x)++++c__case_0_case__288 x1 x3 x12@(Curry.Module.Prelude.T2 x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_addToFM(x3)(x18)(Curry.Module.Prelude.T0)(x1)(st))(st)+c__case_0_case__288 x1 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_0_case__288(x1)(x3)(x)(st))(i)(xs)(st)+c__case_0_case__288 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_0_case__288")(x)++++c__case_2_case__289 x1 x3 x2@(Curry.Module.AbstractCurry.C_CFunc x4 x5 x6 x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_1(x3)(x4)(x1)(st))(st)+c__case_2_case__289 x1 x3 x2@(Curry.Module.AbstractCurry.C_CmtFunc x11 x12 x13 x14 x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAbstractCurryPrinter.c__case_0(x3)(x12)(x1)(st))(st)+c__case_2_case__289 x1 x3 (Curry.Module.AbstractCurry.C_CFuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAbstractCurryPrinter.c__case_2_case__289(x1)(x3)(x)(st))(i)(xs)(st)+c__case_2_case__289 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAbstractCurryPrinter._case_2_case__289")(x)++
+ dist/build/Curry/Module/OracleAnsiCodes.hs view
@@ -0,0 +1,265 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleAnsiCodes (module Curry.Module.OracleAnsiCodes) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.AnsiCodes+import Curry.Module.Char+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.OracleChar+import Curry.Module.OracleList+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_esc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_esc x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_cmd :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_cmd x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_esc(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(x2)(x3)(st)))(st)++++c_cursorPos :: (Curry t0,Curry t1) => t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_cursorPos x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))))(Curry.Module.OracleAnsiCodes.c_cmd(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))(Curry.Module.Prelude.List))(x5)(st))(x6)(st))(x7)(st))(x8)(st))(st)++++c_cursorHome :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_cursorHome x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c_cmd((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))(Curry.Module.Prelude.List))(x1)(st))(st)++++c_moveCursor :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_moveCursor x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleAnsiCodes.c_cmd(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(x2)(x4)(st))(x5)(st))(st)++++c_cursorUp :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_cursorUp x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_moveCursor((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))(Curry.Module.Prelude.List))))))(st)++++c_cursorDown :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_cursorDown x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_moveCursor((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('B'))(Curry.Module.Prelude.List))))))(st)++++c_cursorFwd :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_cursorFwd x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_moveCursor((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))(Curry.Module.Prelude.List))))))(st)++++c_cursorBack :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_cursorBack x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_moveCursor((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))(Curry.Module.Prelude.List))))))(st)++++c_saveCursor :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_saveCursor x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c_cmd((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))(x1)(st))(st)++++c_restoreCursor :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_restoreCursor x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c_cmd((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))(Curry.Module.Prelude.List))(x1)(st))(st)++++c_clear :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_clear x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c_cmd((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('J'))(Curry.Module.Prelude.List)))(x1)(st))(st)++++c_eraseLine :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_eraseLine x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c_cmd((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('K'))(Curry.Module.Prelude.List))(x1)(st))(st)++++c_mode :: (Curry t0) => t0 -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_mode x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleAnsiCodes.c_cmd((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))(Curry.Module.Prelude.List)))(x1)(st)} in let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))))(Curry.Module.OracleAnsiCodes.c_cmd(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x2)(x5)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.OracleAnsiCodes.c__case_4(x3)(x4)(Curry.Module.Oracle.c_apply(Curry.Module.OracleAnsiCodes.c_isSuffixOf(x4)(x6)(st))(x3)(x7)(st))(x8)(st))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st))(st)++++c_isSuffixOf :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isSuffixOf x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleList.c_isPrefixOf(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_reverse(x1)(st))(x2)(x3)(st))))))(Curry.Module.OraclePrelude.c_reverse(x4)(st))(x5)(st))(st)++++c_bold :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bold x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))))))(st)++++c_underline :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_underline x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))(st)++++c_revColors :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_revColors x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(st)++++c_concealed :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_concealed x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(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)++++c_black :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_black x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))))(st)++++c_red :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_red x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))))(st)++++c_green :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_green x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_yellow :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_yellow x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_blue :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_blue x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_magenta :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_magenta x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_cyan :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_cyan x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_white :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_white x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_bgBlack :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgBlack x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_bgRed :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgRed x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_bgGreen :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgGreen x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(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)))))))))))(st)++++c_bgYellow :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgYellow x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_bgBlue :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgBlue x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_bgMagenta :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgMagenta x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_bgCyan :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgCyan x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_bgWhite :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgWhite x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAnsiCodes.c_mode(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))(st)++++c_ansiLength :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ansiLength x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleAnsiCodes.c_ansiLength'46aux'4695(x2)(Curry.Module.OraclePrelude.c_length(x2)(x1)(st))(x3)(st))(st)++++c_ansiLength'46aux'4695 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ansiLength'46aux'4695 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c__case_3(x3)(x2)(x1)(st))(st)++++c__case_3 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c__case_3_case__4(x1)(x3)(x2)(st))(st)++++c__case_2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c__case_2_case__3(x1)(x3)(x4)(x5)(x6)(st))(st)++++c__case_1 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c__case_1_case__2(x1)(x3)(x5)(x6)(st))(st)++++c__case_0 x3 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c__case_0_case__1(x1)(x3)(x5)(x6)(st))(st)++++c__case_4 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c__case_4_case__0(x1)(x4)(x5)(st))(st)++++c__case_4_case__0 x1 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_4_case__0 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_4_case__0 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAnsiCodes.c__case_4_case__0(x1)(x4)(x)(st))(i)(xs)(st)+c__case_4_case__0 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleAnsiCodes._case_4_case__0")(x)++++c__case_0_case__1 x1 x3 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAnsiCodes.c_ansiLength'46aux'4695(x5)(x3)(x1)(st))(st)+c__case_0_case__1 x1 x3 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_0_case__1 x1 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAnsiCodes.c__case_0_case__1(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_0_case__1 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleAnsiCodes._case_0_case__1")(x)++++c__case_1_case__2 x1 x3 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.OracleAnsiCodes.c_ansiLength'46aux'4695(Curry.Module.OraclePrelude.c_tail(Curry.Module.OraclePrelude.c_tail(Curry.Module.OraclePrelude.c_tail(x5)(x1)(st))(x7)(st))(x8)(st))(Curry.Module.OraclePrelude.op_45(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x9)(st))(x10)(st))(st)+c__case_1_case__2 x1 x3 x5 x6@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleAnsiCodes.c__case_0(x3)(x5)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x11)(st))(st)+c__case_1_case__2 x1 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAnsiCodes.c__case_1_case__2(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_1_case__2 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleAnsiCodes._case_1_case__2")(x)++++c__case_2_case__3 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))))(Curry.Module.OracleAnsiCodes.c_ansiLength'46aux'4695(Curry.Module.OraclePrelude.c_tail(Curry.Module.OraclePrelude.c_tail(Curry.Module.OraclePrelude.c_tail(Curry.Module.OraclePrelude.c_tail(x5)(x1)(st))(x7)(st))(x8)(st))(x9)(st))(Curry.Module.OraclePrelude.op_45(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x10)(st))(x11)(st))(st)+c__case_2_case__3 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OracleAnsiCodes.c__case_1(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.OracleAnsiCodes.c_esc(x1)(st))(x12)(st))(x13)(st))(st)+c__case_2_case__3 x1 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAnsiCodes.c__case_2_case__3(x1)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_2_case__3 x1 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleAnsiCodes._case_2_case__3")(x)++++c__case_3_case__4 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_3_case__4 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))))(Curry.Module.OracleAnsiCodes.c__case_2(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.OracleAnsiCodes.c_esc(x1)(st))(x6)(st))(Curry.Module.OracleChar.c_isDigit(Curry.Module.OraclePrelude.op_33_33(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(st))(x8)(st))(x9)(st))(x10)(st))(st)+c__case_3_case__4 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAnsiCodes.c__case_3_case__4(x1)(x3)(x)(st))(i)(xs)(st)+c__case_3_case__4 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAnsiCodes._case_3_case__4")(x)++
+ dist/build/Curry/Module/OracleArray.hs view
@@ -0,0 +1,592 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleArray (module Curry.Module.OracleArray) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Array+import Curry.Module.Integer+import Curry.Module.Prelude+import Curry.Module.OracleInteger+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++data C_Array t0 = C_Array (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0))) (Curry.Module.Array.C_Entry t0)+  | C_ArrayFail Curry.RunTimeSystem.C_Exceptions+  | C_ArrayOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.OracleArray.C_Array t0))++instance (BaseCurry t0) => BaseCurry (Curry.Module.OracleArray.C_Array t0) where+  nf f (Curry.Module.OracleArray.C_Array x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.OracleArray.C_Array(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.OracleArray.C_Array x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.OracleArray.C_Array(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.OracleArray.C_ArrayOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.OracleArray.C_Array(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.OracleArray.C_ArrayFail++  branching  = Curry.Module.OracleArray.C_ArrayOr++  consKind (Curry.Module.OracleArray.C_ArrayOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.OracleArray.C_ArrayFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.OracleArray.C_ArrayFail x) = x++  orRef (Curry.Module.OracleArray.C_ArrayOr x _) = x++  branches (Curry.Module.OracleArray.C_ArrayOr _ x) = x++++++instance (Curry t0) => Curry (Curry.Module.OracleArray.C_Array t0) where+  strEq (Curry.Module.OracleArray.C_Array x1 x2) (Curry.Module.OracleArray.C_Array 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.OracleArray.C_Array x1 x2) (Curry.Module.OracleArray.C_Array 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.OracleArray.C_Array x1 x2) st = Curry.Module.OracleArray.C_Array(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.OracleArray.C_Array x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "Array"++  showQ d (Curry.Module.OracleArray.C_Array x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleArray.Array "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.OracleArray.C_ArrayOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.OracleArray.C_Array t0) where+  showsPrec d (Curry.Module.OracleArray.C_Array x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Array "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.OracleArray.C_ArrayOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Read t0) => Read (Curry.Module.OracleArray.C_Array t0) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.OracleArray.C_Array(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleArray")("Array")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)++++++c_emptyErrorArray :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleArray.C_Array t0+c_emptyErrorArray x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c_emptyDefaultArray(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleArray.c_errorArray))))(x1)(st))(st)++++c_errorArray :: (Curry t0) => Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_errorArray x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.op_43_43((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((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('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.List)))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x2)(x1)(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('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('a'))((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('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List)))))))))))))))))(x3)(st))(x4)(st))(x5)(st))(st)++++c_emptyDefaultArray :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleArray.C_Array t0+c_emptyDefaultArray x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OracleArray.C_Array(x2)(Curry.Module.Array.C_Empty))(st)++++op_47_47 :: (Curry t0) => (Curry.Module.OracleArray.C_Array t0) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleArray.C_Array t0+op_47_47 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_33(x3)(x2)(x1)(st))(st)++++c_'47'47'46_'35lambda2 :: (Curry t72) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t72))) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t72) -> (Curry.Module.Array.C_Entry t72) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Array.C_Entry t72+c_'47'47'46_'35lambda2 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_32(x2)(x4)(x3)(x1)(st))(st)++++c_update :: (Curry t0) => (Curry.Module.OracleArray.C_Array t0) -> Curry.Module.Prelude.C_Int -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleArray.C_Array t0+c_update x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_31(x3)(x4)(x2)(x1)(st))(st)++++c_applyAt :: (Curry t0) => (Curry.Module.OracleArray.C_Array t0) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleArray.C_Array t0+c_applyAt x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_30(x3)(x4)(x2)(x1)(st))(st)++++c_at :: (Curry t0) => t0 -> (Curry.Module.Array.C_Entry t0) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Array.C_Entry t0+c_at x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_29(x2)(x4)(x5)(x3)(x1)(st))(st)++++op_33 :: (Curry t0) => (Curry.Module.OracleArray.C_Array t0) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+op_33 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_22(x3)(x2)(x1)(st))(st)++++c_from :: (Curry t0) => t0 -> (Curry.Module.Array.C_Entry t0) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_from x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_21(x2)(x4)(x3)(x1)(st))(st)++++c_split :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t0)+c_split x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_17(x2)(x1)(st))(st)++++c_split'46_'35selFP3'35xs :: (Curry t126) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t126) (Curry.Module.Prelude.List t126)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t126+c_split'46_'35selFP3'35xs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_15(x2)(x1)(st))(st)++++c_split'46_'35selFP4'35ys :: (Curry t126) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t126) (Curry.Module.Prelude.List t126)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t126+c_split'46_'35selFP4'35ys x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_14(x2)(x1)(st))(st)++++c_listToDefaultArray :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.OracleArray.C_Array t0))+c_listToDefaultArray x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OracleArray.C_Array(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleArray.c_listToArray))))(x1)(st))(st)++++c_listToErrorArray :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.OracleArray.C_Array t0))+c_listToErrorArray x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c_listToDefaultArray(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleArray.c_errorArray))))(x1)(st))(st)++++c_listToArray :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Array.C_Entry t0+c_listToArray x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_13(x2)(x1)(st))(st)++++c_listToArray'46_'35selFP6'35ys :: (Curry t137) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t137) (Curry.Module.Prelude.List t137)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t137+c_listToArray'46_'35selFP6'35ys x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_12(x2)(x1)(st))(st)++++c_listToArray'46_'35selFP7'35zs :: (Curry t137) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t137) (Curry.Module.Prelude.List t137)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t137+c_listToArray'46_'35selFP7'35zs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_11(x2)(x1)(st))(st)++++c_combine :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2))))) -> (Curry.Module.OracleArray.C_Array t0) -> (Curry.Module.OracleArray.C_Array t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleArray.C_Array t2+c_combine x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_10(x2)(x4)(x3)(x1)(st))(st)++++c_combine'46_'35lambda3 :: (Curry t252,Curry t255,Curry t263) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t252))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t255))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t252 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t255 -> Curry.RunTimeSystem.State -> t263))))) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t263+c_combine'46_'35lambda3 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x4)(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x6)(st))(Curry.Module.Oracle.c_apply(x3)(x5)(x7)(st))(x8)(st))(st)++++c_comb :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t1))) -> (Curry.Module.Array.C_Entry t0) -> (Curry.Module.Array.C_Entry t1) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Array.C_Entry t2+c_comb x2 x3 x4 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_8(x2)(x3)(x4)(x6)(x7)(x8)(x5)(x1)(st))(st)++++c_combineSimilar :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.OracleArray.C_Array t0) -> (Curry.Module.OracleArray.C_Array t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleArray.C_Array t0+c_combineSimilar x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_5(x2)(x4)(x3)(x1)(st))(st)++++c_combSim :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Array.C_Entry t0) -> (Curry.Module.Array.C_Entry t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Array.C_Entry t0+c_combSim x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_3(x2)(x4)(x3)(x1)(st))(st)++++c_foldArray :: (Curry t0,Curry t1) => t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))))) -> (Curry.Module.OracleArray.C_Array t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_foldArray x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_1(x2)(x3)(x4)(x1)(st))(st)++++c_foldEntries :: (Curry t0,Curry t1) => t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))))) -> (Curry.Module.Array.C_Entry t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_foldEntries x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_0(x2)(x3)(x4)(x1)(st))(st)++++c_arrayToList :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleArray.C_Array t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_arrayToList x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleArray.c_foldArray(Curry.Module.Prelude.List)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleArray.c_arrayToList'46_'35lambda4))(st))))))(st)++++c_arrayToList'46_'35lambda4 :: (Curry t345) => t345 -> (Curry.Module.Prelude.List t345) -> (Curry.Module.Prelude.List t345) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t345+c_arrayToList'46_'35lambda4 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.OraclePrelude.op_43_43(x3)(x4)(x1)(st)))(st)++++c__case_0 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_0_case__33(x1)(x2)(x3)(x4)(st))(st)++++c__case_1 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_1_case__32(x1)(x2)(x3)(x4)(st))(st)++++c__case_3 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_3_case__31(x1)(x2)(x4)(x3)(st))(st)++++c__case_2 x2 x3 x5 x6 x7 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_2_case__30(x1)(x2)(x3)(x5)(x6)(x7)(x4)(st))(st)++++c__case_5 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_5_case__29(x1)(x2)(x4)(x3)(st))(st)++++c__case_4 x2 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_4_case__28(x1)(x2)(x5)(x6)(x4)(st))(st)++++c__case_8 x2 x3 x4 x6 x7 x8 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_8_case__27(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x5)(st))(st)++++c__case_6 x2 x3 x4 x7 x8 x12 x13 x14 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_6_case__26(x1)(x2)(x3)(x4)(x7)(x8)(x12)(x13)(x14)(x6)(st))(st)++++c__case_7 x2 x3 x4 x7 x8 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_7_case__25(x1)(x2)(x3)(x4)(x7)(x8)(x6)(st))(st)++++c__case_10 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_10_case__24(x1)(x2)(x4)(x3)(st))(st)++++c__case_9 x2 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_9_case__23(x1)(x2)(x5)(x6)(x4)(st))(st)++++c__case_11 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_11_case__22(x1)(x2)(st))(st)++++c__case_12 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_12_case__21(x1)(x2)(st))(st)++++c__case_13 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_13_case__20(x1)(x2)(st))(st)++++c__case_14 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_14_case__19(x1)(x2)(st))(st)++++c__case_15 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_15_case__18(x1)(x2)(st))(st)++++c__case_17 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_17_case__17(x1)(x2)(st))(st)++++c__case_16 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_16_case__16(x1)(x3)(x4)(st))(st)++++c__case_21 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_21_case__15(x1)(x2)(x4)(x3)(st))(st)++++c__case_20 x2 x4 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_20_case__14(x1)(x2)(x4)(x5)(x6)(x7)(x8)(st))(st)++++c__case_19 x2 x4 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_19_case__13(x1)(x2)(x4)(x6)(x7)(x8)(st))(st)++++c__case_18 x2 x4 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_18_case__12(x1)(x2)(x4)(x7)(x8)(st))(st)++++c__case_22 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_22_case__11(x1)(x3)(x2)(st))(st)++++c__case_29 x2 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_29_case__10(x1)(x2)(x4)(x5)(x3)(st))(st)++++c__case_25 x2 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_25_case__9(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_24 x2 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_24_case__8(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_23 x2 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_23_case__7(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_28 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_28_case__6(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_27 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_27_case__5(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_26 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_26_case__4(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_30 x3 x4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_30_case__3(x1)(x3)(x4)(x2)(st))(st)++++c__case_31 x3 x4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_31_case__2(x1)(x3)(x4)(x2)(st))(st)++++c__case_32 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_32_case__1(x1)(x2)(x4)(x3)(st))(st)++++c__case_33 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_33_case__0(x1)(x3)(x2)(st))(st)++++c__case_33_case__0 x1 x3 x2@(Curry.Module.OracleArray.C_Array x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.C_Array(x4)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleArray.c_'47'47'46_'35lambda2(x4)))(st))(x5)(x3)(x1)(st)))(st)+c__case_33_case__0 x1 x3 (Curry.Module.OracleArray.C_ArrayOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_33_case__0(x1)(x3)(x)(st))(i)(xs)(st)+c__case_33_case__0 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_33_case__0")(x)++++c__case_32_case__1 x1 x2 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c_at(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x4)(x5)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(x6)))))(x7)(st))(st)+c__case_32_case__1 x1 x2 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_32_case__1(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_32_case__1 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_32_case__1")(x)++++c__case_31_case__2 x1 x3 x4 x2@(Curry.Module.OracleArray.C_Array x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.C_Array(x5)(Curry.Module.OracleArray.c_at(Curry.Module.Oracle.c_apply(x5)(x3)(x1)(st))(x6)(x3)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(x4)))))(x7)(st)))(st)+c__case_31_case__2 x1 x3 x4 (Curry.Module.OracleArray.C_ArrayOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_31_case__2(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_31_case__2 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_31_case__2")(x)++++c__case_30_case__3 x1 x3 x4 x2@(Curry.Module.OracleArray.C_Array x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.C_Array(x5)(Curry.Module.OracleArray.c_at(Curry.Module.Oracle.c_apply(x5)(x3)(x1)(st))(x6)(x3)(x4)(x7)(st)))(st)+c__case_30_case__3 x1 x3 x4 (Curry.Module.OracleArray.C_ArrayOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_30_case__3(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_30_case__3 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_30_case__3")(x)++++c__case_26_case__4 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.Array.C_Entry(x2)(Curry.Module.Array.C_Empty)(Curry.Module.OracleArray.c_at(x2)(Curry.Module.Array.C_Empty)(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_div(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x7)(st))(x5)(x8)(st)))(st)+c__case_26_case__4 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_26_case__4 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_26_case__4(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_26_case__4 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_26_case__4")(x)++++c__case_27_case__5 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.Array.C_Entry(x2)(Curry.Module.OracleArray.c_at(x2)(Curry.Module.Array.C_Empty)(Curry.Module.OraclePrelude.c_div(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(x5)(x7)(st))(Curry.Module.Array.C_Empty))(st)+c__case_27_case__5 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c__case_26(x2)(x4)(x5)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x8)(st))(st)+c__case_27_case__5 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_27_case__5(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_27_case__5 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_27_case__5")(x)++++c__case_28_case__6 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Array.C_Entry(Curry.Module.Oracle.c_apply(x5)(x2)(x1)(st))(Curry.Module.Array.C_Empty)(Curry.Module.Array.C_Empty))(st)+c__case_28_case__6 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c__case_27(x2)(x4)(x5)(Curry.Module.OracleInteger.c_odd(x4)(x1)(st))(x7)(st))(st)+c__case_28_case__6 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_28_case__6(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_28_case__6 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_28_case__6")(x)++++c__case_23_case__7 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.Array.C_Entry(x6)(x7)(Curry.Module.OracleArray.c_at(x2)(x8)(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_div(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x10)(st))(x5)(x11)(st)))(st)+c__case_23_case__7 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_23_case__7 x1 x2 x4 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_23_case__7(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_23_case__7 x1 x2 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_23_case__7")(x)++++c__case_24_case__8 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.Array.C_Entry(x6)(Curry.Module.OracleArray.c_at(x2)(x7)(Curry.Module.OraclePrelude.c_div(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(x5)(x10)(st))(x8))(st)+c__case_24_case__8 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c__case_23(x2)(x4)(x5)(x6)(x7)(x8)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x11)(st))(st)+c__case_24_case__8 x1 x2 x4 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_24_case__8(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_24_case__8 x1 x2 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_24_case__8")(x)++++c__case_25_case__9 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Array.C_Entry(Curry.Module.Oracle.c_apply(x5)(x6)(x1)(st))(x7)(x8))(st)+c__case_25_case__9 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c__case_24(x2)(x4)(x5)(x6)(x7)(x8)(Curry.Module.OracleInteger.c_odd(x4)(x1)(st))(x10)(st))(st)+c__case_25_case__9 x1 x2 x4 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_25_case__9(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_25_case__9 x1 x2 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_25_case__9")(x)++++c__case_29_case__10 x1 x2 x4 x5 x3@Curry.Module.Array.C_Empty st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c__case_28(x2)(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Zero)(x1)(st))(x9)(st))(st)+c__case_29_case__10 x1 x2 x4 x5 x3@(Curry.Module.Array.C_Entry x6 x7 x8) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c__case_25(x2)(x4)(x5)(x6)(x7)(x8)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Zero)(x1)(st))(x10)(st))(st)+c__case_29_case__10 x1 x2 x4 x5 (Curry.Module.Array.C_EntryOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_29_case__10(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_29_case__10 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_29_case__10")(x)++++c__case_22_case__11 x1 x3 x2@(Curry.Module.OracleArray.C_Array x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c_from(Curry.Module.Oracle.c_apply(x4)(x3)(x1)(st))(x5)(x3)(x6)(st))(st)+c__case_22_case__11 x1 x3 (Curry.Module.OracleArray.C_ArrayOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_22_case__11(x1)(x3)(x)(st))(i)(xs)(st)+c__case_22_case__11 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_22_case__11")(x)++++c__case_18_case__12 x1 x2 x4 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.OracleArray.c_from(x2)(x7)(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_div(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x9)(st))(x10)(st))(st)+c__case_18_case__12 x1 x2 x4 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_18_case__12 x1 x2 x4 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_18_case__12(x1)(x2)(x4)(x7)(x)(st))(i)(xs)(st)+c__case_18_case__12 x1 x2 x4 x7 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_18_case__12")(x)++++c__case_19_case__13 x1 x2 x4 x6 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c_from(x2)(x6)(Curry.Module.OraclePrelude.c_div(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(x9)(st))(st)+c__case_19_case__13 x1 x2 x4 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c__case_18(x2)(x4)(x7)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x10)(st))(st)+c__case_19_case__13 x1 x2 x4 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_19_case__13(x1)(x2)(x4)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_19_case__13 x1 x2 x4 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_19_case__13")(x)++++c__case_20_case__14 x1 x2 x4 x5 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_20_case__14 x1 x2 x4 x5 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c__case_19(x2)(x4)(x6)(x7)(Curry.Module.OracleInteger.c_odd(x4)(x1)(st))(x9)(st))(st)+c__case_20_case__14 x1 x2 x4 x5 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_20_case__14(x1)(x2)(x4)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_20_case__14 x1 x2 x4 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_20_case__14")(x)++++c__case_21_case__15 x1 x2 x4 x3@Curry.Module.Array.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_21_case__15 x1 x2 x4 x3@(Curry.Module.Array.C_Entry x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleArray.c__case_20(x2)(x4)(x5)(x6)(x7)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Zero)(x1)(st))(x8)(st))(st)+c__case_21_case__15 x1 x2 x4 (Curry.Module.Array.C_EntryOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_21_case__15(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_21_case__15 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_21_case__15")(x)++++c__case_16_case__16 x1 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(st)+c__case_16_case__16 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OracleArray.c_split(x6)(x1)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x12)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x3)(Curry.Module.OracleArray.c_split'46_'35selFP3'35xs(x7)(x10)(st)))((Curry.Module.Prelude.:<)(x5)(Curry.Module.OracleArray.c_split'46_'35selFP4'35ys(x7)(x11)(st))))(st))(st))(st))(st)+c__case_16_case__16 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_16_case__16(x1)(x3)(x)(st))(i)(xs)(st)+c__case_16_case__16 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_16_case__16")(x)++++c__case_17_case__17 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_17_case__17 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_16(x3)(x4)(x1)(st))(st)+c__case_17_case__17 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_17_case__17(x1)(x)(st))(i)(xs)(st)+c__case_17_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_17_case__17")(x)++++c__case_15_case__18 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_15_case__18 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_15_case__18(x1)(x)(st))(i)(xs)(st)+c__case_15_case__18 x1 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_15_case__18")(x)++++c__case_14_case__19 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_14_case__19 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_14_case__19(x1)(x)(st))(i)(xs)(st)+c__case_14_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_14_case__19")(x)++++c__case_13_case__20 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Array.C_Empty)(st)+c__case_13_case__20 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleArray.c_split(x4)(x1)(st)} in let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.Array.C_Entry(x3)(Curry.Module.OracleArray.c_listToArray(Curry.Module.OracleArray.c_listToArray'46_'35selFP6'35ys(x5)(x8)(st))(x10)(st))(Curry.Module.OracleArray.c_listToArray(Curry.Module.OracleArray.c_listToArray'46_'35selFP7'35zs(x5)(x9)(st))(x11)(st)))(st))(st))(st))(st)+c__case_13_case__20 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_13_case__20(x1)(x)(st))(i)(xs)(st)+c__case_13_case__20 x1 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_13_case__20")(x)++++c__case_12_case__21 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_12_case__21 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_12_case__21(x1)(x)(st))(i)(xs)(st)+c__case_12_case__21 x1 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_12_case__21")(x)++++c__case_11_case__22 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_11_case__22 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_11_case__22(x1)(x)(st))(i)(xs)(st)+c__case_11_case__22 x1 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_11_case__22")(x)++++c__case_9_case__23 x1 x2 x5 x6 x4@(Curry.Module.OracleArray.C_Array x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.C_Array(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleArray.c_combine'46_'35lambda3(x5)(x7)(x2)))))(Curry.Module.OracleArray.c_comb(x2)(x5)(x7)(x6)(x8)(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st)))(st)+c__case_9_case__23 x1 x2 x5 x6 (Curry.Module.OracleArray.C_ArrayOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_9_case__23(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_9_case__23 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_9_case__23")(x)++++c__case_10_case__24 x1 x2 x4 x3@(Curry.Module.OracleArray.C_Array x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_9(x2)(x5)(x6)(x4)(x1)(st))(st)+c__case_10_case__24 x1 x2 x4 (Curry.Module.OracleArray.C_ArrayOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_10_case__24(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_10_case__24 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_10_case__24")(x)++++c__case_7_case__25 x1 x2 x3 x4 x7 x8 x6@Curry.Module.Array.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Array.C_Empty)(st)+c__case_7_case__25 x1 x2 x3 x4 x7 x8 x6@(Curry.Module.Array.C_Entry x9 x10 x11) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))))))))))(Curry.Module.Array.C_Entry(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Oracle.c_apply(x3)(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.op_43(x7)(x8)(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x12)(st))(x13)(st))(x14)(st))(x9)(x15)(st))(Curry.Module.OracleArray.c_comb(x2)(x3)(x4)(Curry.Module.Array.C_Empty)(x10)(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(x16)(st))(x8)(x17)(st))(Curry.Module.OracleArray.c_comb(x2)(x3)(x4)(Curry.Module.Array.C_Empty)(x11)(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(x18)(st))(Curry.Module.OraclePrelude.op_43(x8)(x7)(x19)(st))(x20)(st)))(st)+c__case_7_case__25 x1 x2 x3 x4 x7 x8 (Curry.Module.Array.C_EntryOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_7_case__25(x1)(x2)(x3)(x4)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_7_case__25 x1 x2 x3 x4 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_7_case__25")(x)++++c__case_6_case__26 x1 x2 x3 x4 x7 x8 x12 x13 x14 x6@Curry.Module.Array.C_Empty st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))))))))))(Curry.Module.Array.C_Entry(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x12)(x1)(st))(Curry.Module.Oracle.c_apply(x4)(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.op_43(x7)(x8)(x18)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x19)(st))(x20)(st))(x21)(st))(Curry.Module.OracleArray.c_comb(x2)(x3)(x4)(x13)(Curry.Module.Array.C_Empty)(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(x22)(st))(x8)(x23)(st))(Curry.Module.OracleArray.c_comb(x2)(x3)(x4)(x14)(Curry.Module.Array.C_Empty)(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(x24)(st))(Curry.Module.OraclePrelude.op_43(x8)(x7)(x25)(st))(x26)(st)))(st)+c__case_6_case__26 x1 x2 x3 x4 x7 x8 x12 x13 x14 x6@(Curry.Module.Array.C_Entry x15 x16 x17) st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List)))))))(Curry.Module.Array.C_Entry(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x12)(x1)(st))(x15)(x27)(st))(Curry.Module.OracleArray.c_comb(x2)(x3)(x4)(x13)(x16)(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(x28)(st))(x8)(x29)(st))(Curry.Module.OracleArray.c_comb(x2)(x3)(x4)(x14)(x17)(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(x30)(st))(Curry.Module.OraclePrelude.op_43(x8)(x7)(x31)(st))(x32)(st)))(st)+c__case_6_case__26 x1 x2 x3 x4 x7 x8 x12 x13 x14 (Curry.Module.Array.C_EntryOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_6_case__26(x1)(x2)(x3)(x4)(x7)(x8)(x12)(x13)(x14)(x)(st))(i)(xs)(st)+c__case_6_case__26 x1 x2 x3 x4 x7 x8 x12 x13 x14 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_6_case__26")(x)++++c__case_8_case__27 x1 x2 x3 x4 x6 x7 x8 x5@Curry.Module.Array.C_Empty st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_7(x2)(x3)(x4)(x7)(x8)(x6)(x1)(st))(st)+c__case_8_case__27 x1 x2 x3 x4 x6 x7 x8 x5@(Curry.Module.Array.C_Entry x12 x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_6(x2)(x3)(x4)(x7)(x8)(x12)(x13)(x14)(x6)(x1)(st))(st)+c__case_8_case__27 x1 x2 x3 x4 x6 x7 x8 (Curry.Module.Array.C_EntryOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_8_case__27(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_8_case__27 x1 x2 x3 x4 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_8_case__27")(x)++++c__case_4_case__28 x1 x2 x5 x6 x4@(Curry.Module.OracleArray.C_Array x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.C_Array(x5)(Curry.Module.OracleArray.c_combSim(x2)(x6)(x8)(x1)(st)))(st)+c__case_4_case__28 x1 x2 x5 x6 (Curry.Module.OracleArray.C_ArrayOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_4_case__28(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_4_case__28 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_4_case__28")(x)++++c__case_5_case__29 x1 x2 x4 x3@(Curry.Module.OracleArray.C_Array x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_4(x2)(x5)(x6)(x4)(x1)(st))(st)+c__case_5_case__29 x1 x2 x4 (Curry.Module.OracleArray.C_ArrayOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_5_case__29(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_5_case__29 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_5_case__29")(x)++++c__case_2_case__30 x1 x2 x3 x5 x6 x7 x4@Curry.Module.Array.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_2_case__30 x1 x2 x3 x5 x6 x7 x4@(Curry.Module.Array.C_Entry x8 x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(Curry.Module.Array.C_Entry(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x8)(x11)(st))(Curry.Module.OracleArray.c_combSim(x2)(x6)(x9)(x12)(st))(Curry.Module.OracleArray.c_combSim(x2)(x7)(x10)(x13)(st)))(st)+c__case_2_case__30 x1 x2 x3 x5 x6 x7 (Curry.Module.Array.C_EntryOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_2_case__30(x1)(x2)(x3)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_2_case__30 x1 x2 x3 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_2_case__30")(x)++++c__case_3_case__31 x1 x2 x4 x3@Curry.Module.Array.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_3_case__31 x1 x2 x4 x3@(Curry.Module.Array.C_Entry x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c__case_2(x2)(x3)(x5)(x6)(x7)(x4)(x1)(st))(st)+c__case_3_case__31 x1 x2 x4 (Curry.Module.Array.C_EntryOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_3_case__31(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_3_case__31 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_3_case__31")(x)++++c__case_1_case__32 x1 x2 x3 x4@(Curry.Module.OracleArray.C_Array x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleArray.c_foldEntries(x2)(x3)(x6)(x1)(st))(st)+c__case_1_case__32 x1 x2 x3 (Curry.Module.OracleArray.C_ArrayOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_1_case__32(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_1_case__32 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_1_case__32")(x)++++c__case_0_case__33 x1 x2 x3 x4@Curry.Module.Array.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_0_case__33 x1 x2 x3 x4@(Curry.Module.Array.C_Entry x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x5)(x1)(st))(Curry.Module.OracleArray.c_foldEntries(x2)(x3)(x6)(x8)(st))(x9)(st))(Curry.Module.OracleArray.c_foldEntries(x2)(x3)(x7)(x10)(st))(x11)(st))(st)+c__case_0_case__33 x1 x2 x3 (Curry.Module.Array.C_EntryOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleArray.c__case_0_case__33(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_0_case__33 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleArray._case_0_case__33")(x)++
+ dist/build/Curry/Module/OracleAssertion.hs view
@@ -0,0 +1,421 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleAssertion (module Curry.Module.OracleAssertion) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Assertion+import Curry.Module.IO+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.OracleIO+import Curry.Module.OracleList+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++data C_Assertion t0 = C_AssertTrue (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool+  | C_AssertEqual (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0 t0+  | C_AssertValues (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0 (Curry.Module.Prelude.List t0)+  | C_AssertSolutions (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success))) (Curry.Module.Prelude.List t0)+  | C_AssertIO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))) t0+  | C_AssertEqualIO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0)))+  | C_AssertionFail Curry.RunTimeSystem.C_Exceptions+  | C_AssertionOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.OracleAssertion.C_Assertion t0))++instance (BaseCurry t0) => BaseCurry (Curry.Module.OracleAssertion.C_Assertion t0) where+  nf f (Curry.Module.OracleAssertion.C_AssertTrue x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.OracleAssertion.C_AssertTrue(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.OracleAssertion.C_AssertEqual x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.OracleAssertion.C_AssertEqual(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.OracleAssertion.C_AssertValues x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.OracleAssertion.C_AssertValues(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.OracleAssertion.C_AssertSolutions x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.OracleAssertion.C_AssertSolutions(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.OracleAssertion.C_AssertIO x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.OracleAssertion.C_AssertIO(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.OracleAssertion.C_AssertEqualIO x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.OracleAssertion.C_AssertEqualIO(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.OracleAssertion.C_AssertTrue x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.OracleAssertion.C_AssertTrue(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.OracleAssertion.C_AssertEqual x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.OracleAssertion.C_AssertEqual(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.OracleAssertion.C_AssertValues x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.OracleAssertion.C_AssertValues(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.OracleAssertion.C_AssertSolutions x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.OracleAssertion.C_AssertSolutions(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.OracleAssertion.C_AssertIO x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.OracleAssertion.C_AssertIO(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.OracleAssertion.C_AssertEqualIO x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.OracleAssertion.C_AssertEqualIO(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.OracleAssertion.C_AssertionOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.OracleAssertion.C_AssertTrue(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.OracleAssertion.C_AssertEqual(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.OracleAssertion.C_AssertValues(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.OracleAssertion.C_AssertSolutions(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.OracleAssertion.C_AssertIO(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.OracleAssertion.C_AssertEqualIO(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.OracleAssertion.C_AssertionFail++  branching  = Curry.Module.OracleAssertion.C_AssertionOr++  consKind (Curry.Module.OracleAssertion.C_AssertionOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.OracleAssertion.C_AssertionFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.OracleAssertion.C_AssertionFail x) = x++  orRef (Curry.Module.OracleAssertion.C_AssertionOr x _) = x++  branches (Curry.Module.OracleAssertion.C_AssertionOr _ x) = x++++++instance (Curry t0) => Curry (Curry.Module.OracleAssertion.C_Assertion t0) where+  strEq (Curry.Module.OracleAssertion.C_AssertTrue x1 x2) (Curry.Module.OracleAssertion.C_AssertTrue 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.OracleAssertion.C_AssertEqual x1 x2 x3) (Curry.Module.OracleAssertion.C_AssertEqual 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.OracleAssertion.C_AssertValues x1 x2 x3) (Curry.Module.OracleAssertion.C_AssertValues 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.OracleAssertion.C_AssertSolutions x1 x2 x3) (Curry.Module.OracleAssertion.C_AssertSolutions 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.OracleAssertion.C_AssertIO x1 x2 x3) (Curry.Module.OracleAssertion.C_AssertIO 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.OracleAssertion.C_AssertEqualIO x1 x2 x3) (Curry.Module.OracleAssertion.C_AssertEqualIO 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.OracleAssertion.C_AssertTrue x1 x2) (Curry.Module.OracleAssertion.C_AssertTrue 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.OracleAssertion.C_AssertEqual x1 x2 x3) (Curry.Module.OracleAssertion.C_AssertEqual 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.OracleAssertion.C_AssertValues x1 x2 x3) (Curry.Module.OracleAssertion.C_AssertValues 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.OracleAssertion.C_AssertSolutions x1 x2 x3) (Curry.Module.OracleAssertion.C_AssertSolutions 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.OracleAssertion.C_AssertIO x1 x2 x3) (Curry.Module.OracleAssertion.C_AssertIO 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.OracleAssertion.C_AssertEqualIO x1 x2 x3) (Curry.Module.OracleAssertion.C_AssertEqualIO 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.OracleAssertion.C_AssertTrue x1 x2) st = Curry.Module.OracleAssertion.C_AssertTrue(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.OracleAssertion.C_AssertEqual x1 x2 x3) st = Curry.Module.OracleAssertion.C_AssertEqual(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.OracleAssertion.C_AssertValues x1 x2 x3) st = Curry.Module.OracleAssertion.C_AssertValues(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.OracleAssertion.C_AssertSolutions x1 x2 x3) st = Curry.Module.OracleAssertion.C_AssertSolutions(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.OracleAssertion.C_AssertIO x1 x2 x3) st = Curry.Module.OracleAssertion.C_AssertIO(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))+  propagate f (Curry.Module.OracleAssertion.C_AssertEqualIO x1 x2 x3) st = Curry.Module.OracleAssertion.C_AssertEqualIO(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.OracleAssertion.C_AssertTrue x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.OracleAssertion.C_AssertEqual x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.OracleAssertion.C_AssertValues x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.OracleAssertion.C_AssertSolutions x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.OracleAssertion.C_AssertIO x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)+  foldCurry f c (Curry.Module.OracleAssertion.C_AssertEqualIO x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "Assertion"++  showQ d (Curry.Module.OracleAssertion.C_AssertTrue x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleAssertion.AssertTrue "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.OracleAssertion.C_AssertEqual x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleAssertion.AssertEqual "))((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.OracleAssertion.C_AssertValues x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleAssertion.AssertValues "))((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.OracleAssertion.C_AssertSolutions x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleAssertion.AssertSolutions "))((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.OracleAssertion.C_AssertIO x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleAssertion.AssertIO "))((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.OracleAssertion.C_AssertEqualIO x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleAssertion.AssertEqualIO "))((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.OracleAssertion.C_AssertionOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.OracleAssertion.C_Assertion t0) where+  showsPrec d (Curry.Module.OracleAssertion.C_AssertTrue x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AssertTrue "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.OracleAssertion.C_AssertEqual x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AssertEqual "))((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.OracleAssertion.C_AssertValues x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AssertValues "))((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.OracleAssertion.C_AssertSolutions x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AssertSolutions "))((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.OracleAssertion.C_AssertIO x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AssertIO "))((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.OracleAssertion.C_AssertEqualIO x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("AssertEqualIO "))((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.OracleAssertion.C_AssertionOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Read t0) => Read (Curry.Module.OracleAssertion.C_Assertion t0) where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.OracleAssertion.C_AssertTrue(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleAssertion")("AssertTrue")(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.OracleAssertion.C_AssertEqual(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleAssertion")("AssertEqual")(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.OracleAssertion.C_AssertValues(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleAssertion")("AssertValues")(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.OracleAssertion.C_AssertSolutions(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleAssertion")("AssertSolutions")(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.OracleAssertion.C_AssertIO(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleAssertion")("AssertIO")(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.OracleAssertion.C_AssertEqualIO(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleAssertion")("AssertEqualIO")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r))))))++++++c_seqStrActions :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_seqStrActions x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_62_62_61(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAssertion.c_seqStrActions'46_'35lambda2(x3)))))(x1)(st))(st)++++c_seqStrActions'46_'35lambda2 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_seqStrActions'46_'35lambda2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_11(x2)(x3)(x1)(st))(st)++++c_seqStrActions'46_'35lambda2'46_'35lambda3 :: Curry.Module.Prelude.C_Bool -> (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.C_Bool) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_seqStrActions'46_'35lambda2'46_'35lambda3 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_10(x2)(x3)(x4)(x1)(st))(st)++++c_checkAssertion :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))))) -> (Curry.Module.OracleAssertion.C_Assertion t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertion x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_9(x2)(x3)(x1)(st))(st)++++c_checkAssertTrue :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertTrue x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_8(x2)(x3)(x1)(st))(st)++++c_checkAssertEqual :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertEqual x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleAssertion.c__case_7(x2)(x4)(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(x4)(x1)(st))(x6)(st))(st))(st)++++c_checkAssertValues :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t0 -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertValues x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_getSearchTree(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAssertion.c_checkAssertValues'46_'35lambda4(x2)(x4)))))(x5)(st))(st)++++c_checkAssertValues'46_'35lambda4 :: (Curry t42) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List t42) -> (Curry.Module.Prelude.C_SearchTree t42) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertValues'46_'35lambda4 x2 x3 x4 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OraclePrelude.c_allValuesB(x4)(x1)(st)} in let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))))(Curry.Module.OracleAssertion.c__case_6(x2)(x3)(x5)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.c_null(Curry.Module.OracleList.op_92_92(x5)(x3)(x6)(st))(x7)(st))(Curry.Module.OraclePrelude.c_null(Curry.Module.OracleList.op_92_92(x3)(x5)(x8)(st))(x9)(st))(x10)(st))(x11)(st))(st))(st)++++c_checkAssertSolutions :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertSolutions x2 x3 x4 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_getSearchTree(let {x5 = Curry.Module.Oracle.c_unknown(x1)(st)} in Curry.Module.Prelude.T2(x5)(Curry.Module.Oracle.c_apply(x3)(x5)(x6)(st)))(x7)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAssertion.c_checkAssertSolutions'46_'35lambda5(x2)(x4)))))(x8)(st))(st)++++c_checkAssertSolutions'46_'35lambda5 :: (Curry t73) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List t73) -> (Curry.Module.Prelude.C_SearchTree (Curry.Module.Prelude.T2 t73 Curry.Module.Prelude.C_Success)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertSolutions'46_'35lambda5 x2 x3 x4 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(let {x5 = Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_fst))))(Curry.Module.OraclePrelude.c_allValuesB(x4)(x1)(st))(x6)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.OracleAssertion.c__case_5(x2)(x3)(x5)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.c_null(Curry.Module.OracleList.op_92_92(x5)(x3)(x7)(st))(x8)(st))(Curry.Module.OraclePrelude.c_null(Curry.Module.OracleList.op_92_92(x3)(x5)(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st))(st)++++c_checkAssertIO :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertIO x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_62_62_61(x3)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAssertion.c_checkAssertIO'46_'35lambda6(x2)(x4)))))(x1)(st))(st)++++c_checkAssertIO'46_'35lambda6 :: (Curry t104) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t104 -> t104 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertIO'46_'35lambda6 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleAssertion.c__case_4(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x4)(x3)(x1)(st))(x5)(st))(st)++++c_checkAssertEqualIO :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertEqualIO x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_62_62_61(x3)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAssertion.c_checkAssertEqualIO'46_'35lambda7(x4)(x2)))))(x1)(st))(st)++++c_checkAssertEqualIO'46_'35lambda7 :: (Curry t127) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t127))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t127 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertEqualIO'46_'35lambda7 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_62_62_61(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAssertion.c_checkAssertEqualIO'46_'35lambda7'46_'35lambda8(x3)(x4)))))(x1)(st))(st)++++c_checkAssertEqualIO'46_'35lambda7'46_'35lambda8 :: (Curry t127) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t127 -> t127 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_checkAssertEqualIO'46_'35lambda7'46_'35lambda8 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleAssertion.c__case_3(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(x4)(x1)(st))(x5)(st))(st)++++c_writeAssertResult :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeAssertResult x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_2(x2)(x1)(st))(st)++++c_doSend :: (Curry t0) => Curry.Module.IO.C_Handle -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_doSend x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleIO.c_hPutStrLn(x2)(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(x4)(st))(st)++++c_showTestMod :: Curry.Module.IO.C_Handle -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_showTestMod x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c_doSend(x2)(Curry.Module.Assertion.C_TestModule(x3))(x1)(st))(st)++++c_showTestCase :: Curry.Module.IO.C_Handle -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.Prelude.C_Bool)))+c_showTestCase x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_0(x2)(x3)(x1)(st))(st)++++c_showTestEnd :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_showTestEnd x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c_doSend(x2)(Curry.Module.Assertion.C_TestFinished)(x1)(st))(st)++++c_showTestCompileError :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_showTestCompileError x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c_doSend(x2)(Curry.Module.Assertion.C_TestCompileError)(x1)(st))(st)++++c__case_0 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_0_case__11(x1)(x2)(x3)(st))(st)++++c__case_2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_2_case__10(x1)(x2)(st))(st)++++c__case_1 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_1_case__9(x1)(x3)(x4)(st))(st)++++c__case_3 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_3_case__8(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_4 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_4_case__7(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_5 x2 x3 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_5_case__6(x1)(x2)(x3)(x5)(x6)(st))(st)++++c__case_6 x2 x3 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_6_case__5(x1)(x2)(x3)(x5)(x6)(st))(st)++++c__case_7 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_7_case__4(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_8 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_8_case__3(x1)(x2)(x3)(st))(st)++++c__case_9 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_9_case__2(x1)(x2)(x3)(st))(st)++++c__case_10 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_10_case__1(x1)(x2)(x3)(x4)(st))(st)++++c__case_11 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_11_case__0(x1)(x2)(x3)(st))(st)++++c__case_11_case__0 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_62_62_61(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleAssertion.c_seqStrActions'46_'35lambda2'46_'35lambda3(x5)(x4)))))(x1)(st))(st)+c__case_11_case__0 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_11_case__0(x1)(x2)(x)(st))(i)(xs)(st)+c__case_11_case__0 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_11_case__0")(x)++++c__case_10_case__1 x1 x2 x3 x4@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43(x3)(x5)(x1)(st))(Curry.Module.OraclePrelude.op_38_38(x2)(x6)(x7)(st)))(x8)(st))(st)+c__case_10_case__1 x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_10_case__1(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_10_case__1 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_10_case__1")(x)++++c__case_9_case__2 x1 x2 x3@(Curry.Module.OracleAssertion.C_AssertTrue x4 x5) st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_catchFail(Curry.Module.OracleAssertion.c_checkAssertTrue(x4)(x5)(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))))))))))))))))))))(x21)(st))(x22)(st))(Curry.Module.Prelude.C_False))(x23)(st))(x24)(st))(x2)(x25)(st))(st)+c__case_9_case__2 x1 x2 x3@(Curry.Module.OracleAssertion.C_AssertEqual x6 x7 x8) st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_catchFail(Curry.Module.OracleAssertion.c_checkAssertEqual(x6)(x7)(x8)(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))))))))))))))))))))(x26)(st))(x27)(st))(Curry.Module.Prelude.C_False))(x28)(st))(x29)(st))(x2)(x30)(st))(st)+c__case_9_case__2 x1 x2 x3@(Curry.Module.OracleAssertion.C_AssertValues x9 x10 x11) st = let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_catchFail(Curry.Module.OracleAssertion.c_checkAssertValues(x9)(x10)(x11)(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x9)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))))))))))))))))))))(x31)(st))(x32)(st))(Curry.Module.Prelude.C_False))(x33)(st))(x34)(st))(x2)(x35)(st))(st)+c__case_9_case__2 x1 x2 x3@(Curry.Module.OracleAssertion.C_AssertSolutions x12 x13 x14) st = let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_catchFail(Curry.Module.OracleAssertion.c_checkAssertSolutions(x12)(x13)(x14)(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x12)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))))))))))))))))))))(x36)(st))(x37)(st))(Curry.Module.Prelude.C_False))(x38)(st))(x39)(st))(x2)(x40)(st))(st)+c__case_9_case__2 x1 x2 x3@(Curry.Module.OracleAssertion.C_AssertIO x15 x16 x17) st = let {x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x45 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)((Curry.Module.Prelude.:<)(x43)((Curry.Module.Prelude.:<)(x44)((Curry.Module.Prelude.:<)(x45)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_catchFail(Curry.Module.OracleAssertion.c_checkAssertIO(x15)(x16)(x17)(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x15)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))))))))))))))))))))(x41)(st))(x42)(st))(Curry.Module.Prelude.C_False))(x43)(st))(x44)(st))(x2)(x45)(st))(st)+c__case_9_case__2 x1 x2 x3@(Curry.Module.OracleAssertion.C_AssertEqualIO x18 x19 x20) st = let {x46 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x47 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x48 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x49 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x50 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x46)((Curry.Module.Prelude.:<)(x47)((Curry.Module.Prelude.:<)(x48)((Curry.Module.Prelude.:<)(x49)((Curry.Module.Prelude.:<)(x50)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_catchFail(Curry.Module.OracleAssertion.c_checkAssertEqualIO(x18)(x19)(x20)(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x18)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))))))))))))))))))))(x46)(st))(x47)(st))(Curry.Module.Prelude.C_False))(x48)(st))(x49)(st))(x2)(x50)(st))(st)+c__case_9_case__2 x1 x2 (Curry.Module.OracleAssertion.C_AssertionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_9_case__2(x1)(x2)(x)(st))(i)(xs)(st)+c__case_9_case__2 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_9_case__2")(x)++++c__case_8_case__3 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((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(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x4)(st))(Curry.Module.Prelude.C_True))(x5)(st))(st)+c__case_8_case__3 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.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('a'))((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('e'))((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('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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('s'))((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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(x1)(st))(x6)(st))(Curry.Module.Prelude.C_False))(x7)(st))(st)+c__case_8_case__3 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_8_case__3(x1)(x2)(x)(st))(i)(xs)(st)+c__case_8_case__3 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_8_case__3")(x)++++c__case_7_case__4 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((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(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x7)(st))(Curry.Module.Prelude.C_True))(x8)(st))(st)+c__case_7_case__4 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('q'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('s'))((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('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('\n'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.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('a'))((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('w'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('a'))((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('w'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(Curry.Module.Prelude.C_False))(x18)(st))(st)+c__case_7_case__4 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_7_case__4(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_7_case__4 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_7_case__4")(x)++++c__case_6_case__5 x1 x2 x3 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((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(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x7)(st))(Curry.Module.Prelude.C_True))(x8)(st))(st)+c__case_6_case__5 x1 x2 x3 x5 x6@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.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('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.:<)(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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('s'))((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('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('\n'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.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('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.:<)(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.List))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('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.:<)(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.List))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(Curry.Module.Prelude.C_False))(x18)(st))(st)+c__case_6_case__5 x1 x2 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_6_case__5(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_6_case__5 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_6_case__5")(x)++++c__case_5_case__6 x1 x2 x3 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((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(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x7)(st))(Curry.Module.Prelude.C_True))(x8)(st))(st)+c__case_5_case__6 x1 x2 x3 x5 x6@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.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('s'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('s'))((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('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('\n'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.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('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.:<)(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.List))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('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.:<)(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.List))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(Curry.Module.Prelude.C_False))(x18)(st))(st)+c__case_5_case__6 x1 x2 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_5_case__6(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_5_case__6 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_5_case__6")(x)++++c__case_4_case__7 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((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(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x6)(st))(Curry.Module.Prelude.C_True))(x7)(st))(st)+c__case_4_case__7 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.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('O'))((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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('s'))((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('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('\n'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.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('a'))((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('w'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('a'))((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('w'))((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(' '))(Curry.Module.Prelude.List))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(Curry.Module.Prelude.C_False))(x17)(st))(st)+c__case_4_case__7 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_4_case__7(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_4_case__7 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_4_case__7")(x)++++c__case_3_case__8 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((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(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x6)(st))(Curry.Module.Prelude.C_True))(x7)(st))(st)+c__case_3_case__8 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(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.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.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('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('q'))((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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('s'))((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('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('\n'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.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('a'))((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('w'))((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.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.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('a'))((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('w'))((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.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(Curry.Module.Prelude.C_False))(x17)(st))(st)+c__case_3_case__8 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_3_case__8(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_3_case__8 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_3_case__8")(x)++++c__case_1_case__9 x1 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_putStrLn(Curry.Module.OraclePrelude.op_43_43(x3)((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('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('s'))((Curry.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('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.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))(x1)(st))(x5)(st))(st)+c__case_1_case__9 x1 x3 x4@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_putStrLn(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((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('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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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(' '))((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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('\n'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(x1)(st))(x6)(st))(st)+c__case_1_case__9 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_1_case__9(x1)(x3)(x)(st))(i)(xs)(st)+c__case_1_case__9 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_1_case__9")(x)++++c__case_2_case__10 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleAssertion.c__case_1(x3)(x4)(x1)(st))(st)+c__case_2_case__10 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_2_case__10(x1)(x)(st))(i)(xs)(st)+c__case_2_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_2_case__10")(x)++++c__case_0_case__11 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleAssertion.c_doSend(x2)(Curry.Module.Assertion.C_TestCase(x4)(x5))(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T2(x4)(x5))(x6)(st))(x7)(st))(st)+c__case_0_case__11 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleAssertion.c__case_0_case__11(x1)(x2)(x)(st))(i)(xs)(st)+c__case_0_case__11 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleAssertion._case_0_case__11")(x)++
+ dist/build/Curry/Module/OracleCSV.hs view
@@ -0,0 +1,299 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleCSV (module Curry.Module.OracleCSV) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.CSV+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.OracleList+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_writeCSVFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeCSVFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_writeFile(x2)(Curry.Module.OracleCSV.c_showCSV(x3)(x1)(st))(x4)(st))(st)++++c_showCSV :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCSV x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCSV.c_showCSVLine))))(x1)(st))(x2)(x3)(st))(st)++++c_showCSVLine :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCSVLine x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCSV.c_showCSVLine'46convert'467))))(x2)(x1)(st))(x3)(st))(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x5)(st))(st)++++c_showCSVLine'46convert'467 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCSVLine'46convert'467 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleCSV.c__case_16(x2)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_any(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCSV.c_showCSVLine'46convert'467'46_'35lambda2))))(x1)(st))(x2)(x3)(st))(x4)(st))(st)++++c_showCSVLine'46convert'467'46_'35lambda2 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_showCSVLine'46convert'467'46_'35lambda2 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x2)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))))(x3)(st))(st)++++c_showCSVLine'46convert'467'46_'35lambda3 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCSVLine'46convert'467'46_'35lambda3 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleCSV.c__case_15(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\"'))(x1)(st))(x3)(st))(st)++++c_readCSVFile :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))))))+c_readCSVFile x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCSV.c_readCSVFileWithDelims((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))))))(st)++++c_readCSVFileWithDelims :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))))+c_readCSVFileWithDelims x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCSV.c_readCSVFileWithDelims'46_'35lambda4(x2)))))(x4)(st))(st)++++c_readCSVFileWithDelims'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))))+c_readCSVFileWithDelims'46_'35lambda4 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.OracleCSV.c_readCSVWithDelims(x2)(x3)(x1)(st))(x4)(st))(st)++++c_readCSV :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_readCSV x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCSV.c_readCSVWithDelims((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))))))(st)++++c_readCSVWithDelims :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_readCSVWithDelims x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCSV.c_components(x2)))))(Curry.Module.OraclePrelude.c_lines(x3)(x1)(st))(x4)(st))(st)++++c_components :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_components x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_14(x2)(x3)(x1)(st))(st)++++c_components'46breakString'4625 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_components'46breakString'4625 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_11(x2)(x3)(x4)(x1)(st))(st)++++c_components'46breakString'4625'46_'35selFP3'35b :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_components'46breakString'4625'46_'35selFP3'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_5(x2)(x1)(st))(st)++++c_components'46breakString'4625'46_'35selFP4'35bs :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_components'46breakString'4625'46_'35selFP4'35bs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_4(x2)(x1)(st))(st)++++c_components'46breakString'4625'46_'35selFP6'35b :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_components'46breakString'4625'46_'35selFP6'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_3(x2)(x1)(st))(st)++++c_components'46breakString'4625'46_'35selFP7'35bs :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_components'46breakString'4625'46_'35selFP7'35bs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_2(x2)(x1)(st))(st)++++c_components'46_'35selFP9'35e :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_components'46_'35selFP9'35e x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_1(x2)(x1)(st))(st)++++c_components'46_'35selFP10'35s :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_components'46_'35selFP10'35s x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_0(x2)(x1)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_0_case__16(x1)(x2)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_1_case__15(x1)(x2)(st))(st)++++c__case_2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_2_case__14(x1)(x2)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_3_case__13(x1)(x2)(st))(st)++++c__case_4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_4_case__12(x1)(x2)(st))(st)++++c__case_5 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_5_case__11(x1)(x2)(st))(st)++++c__case_11 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_11_case__10(x1)(x2)(x3)(x4)(st))(st)++++c__case_10 x2 x3 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_10_case__9(x1)(x2)(x3)(x5)(x6)(st))(st)++++c__case_8 x2 x3 x5 x7 x8 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_8_case__8(x1)(x2)(x3)(x5)(x7)(x8)(x12)(st))(st)++++c__case_7 x2 x3 x5 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_7_case__7(x1)(x2)(x3)(x5)(x7)(x8)(x9)(st))(st)++++c__case_6 x2 x3 x5 x7 x8 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_6_case__6(x1)(x2)(x3)(x5)(x7)(x8)(x15)(st))(st)++++c__case_9 x2 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_9_case__5(x1)(x2)(x6)(st))(st)++++c__case_14 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_14_case__4(x1)(x2)(x3)(st))(st)++++c__case_13 x2 x4 x5 x6 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_13_case__3(x1)(x2)(x4)(x5)(x6)(x10)(st))(st)++++c__case_12 x2 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_12_case__2(x1)(x2)(x9)(x10)(st))(st)++++c__case_15 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_15_case__1(x1)(x2)(x3)(st))(st)++++c__case_16 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_16_case__0(x1)(x2)(x3)(st))(st)++++c__case_16_case__0 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCSV.c_showCSVLine'46convert'467'46_'35lambda3))))(x1)(st))(x2)(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(x5)(st)))(st)+c__case_16_case__0 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_16_case__0 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_16_case__0(x1)(x2)(x)(st))(i)(xs)(st)+c__case_16_case__0 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_16_case__0")(x)++++c__case_15_case__1 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List)))(st)+c__case_15_case__1 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(st)+c__case_15_case__1 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_15_case__1(x1)(x2)(x)(st))(i)(xs)(st)+c__case_15_case__1 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_15_case__1")(x)++++c__case_12_case__2 x1 x2 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_12_case__2 x1 x2 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleCSV.c_components(x2)(Curry.Module.OraclePrelude.c_tail(x9)(x1)(st))(x11)(st))(st)+c__case_12_case__2 x1 x2 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_12_case__2(x1)(x2)(x9)(x)(st))(i)(xs)(st)+c__case_12_case__2 x1 x2 x9 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_12_case__2")(x)++++c__case_13_case__3 x1 x2 x4 x5 x6 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c_components'46breakString'4625(x6)(x2)(x5)(x1)(st))(st)+c__case_13_case__3 x1 x2 x4 x5 x6 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(let {x7 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_break(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_elem))))(x2)))))(x1)(st))((Curry.Module.Prelude.:<)(x4)(x5))(x11)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.OracleCSV.c_components'46_'35selFP10'35s(x7)(x13)(st)} in let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OracleCSV.c_components'46_'35selFP9'35e(x7)(x12)(st))(Curry.Module.OracleCSV.c__case_12(x2)(x9)(Curry.Module.OraclePrelude.c_null(x9)(x14)(st))(x15)(st)))(st))(st))(st))(st)+c__case_13_case__3 x1 x2 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_13_case__3(x1)(x2)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_13_case__3 x1 x2 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_13_case__3")(x)++++c__case_14_case__4 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_14_case__4 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleCSV.c__case_13(x2)(x4)(x5)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((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('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('n'))((Curry.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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((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('!'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('\"'))(x7)(st))(x8)(st))(st))(st)+c__case_14_case__4 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_14_case__4(x1)(x2)(x)(st))(i)(xs)(st)+c__case_14_case__4 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_14_case__4")(x)++++c__case_9_case__5 x1 x2 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_9_case__5 x1 x2 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_9_case__5 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_9_case__5(x1)(x2)(x)(st))(i)(xs)(st)+c__case_9_case__5 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_9_case__5")(x)++++c__case_6_case__6 x1 x2 x3 x5 x7 x8 x15@Curry.Module.Prelude.C_True st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.OracleCSV.c_components'46breakString'4625(x2)(x3)((Curry.Module.Prelude.:<)(x7)(x8))(x1)(st)} in let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x18)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(x5)(Curry.Module.OracleCSV.c_components'46breakString'4625'46_'35selFP6'35b(x12)(x16)(st)))(Curry.Module.OracleCSV.c_components'46breakString'4625'46_'35selFP7'35bs(x12)(x17)(st)))(st))(st))(st))(st)+c__case_6_case__6 x1 x2 x3 x5 x7 x8 x15@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_6_case__6 x1 x2 x3 x5 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_6_case__6(x1)(x2)(x3)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_6_case__6 x1 x2 x3 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_6_case__6")(x)++++c__case_7_case__7 x1 x2 x3 x5 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.List)(Curry.Module.OracleCSV.c_components(x3)(x8)(x1)(st)))(st)+c__case_7_case__7 x1 x2 x3 x5 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleCSV.c__case_6(x2)(x3)(x5)(x7)(x8)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x10)(st))(st)+c__case_7_case__7 x1 x2 x3 x5 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_7_case__7(x1)(x2)(x3)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_7_case__7 x1 x2 x3 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_7_case__7")(x)++++c__case_8_case__8 x1 x2 x3 x5 x7 x8 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.OracleCSV.c_components'46breakString'4625(x2)(x3)(x8)(x1)(st)} in let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x15)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(x5)(Curry.Module.OracleCSV.c_components'46breakString'4625'46_'35selFP3'35b(x9)(x13)(st)))(Curry.Module.OracleCSV.c_components'46breakString'4625'46_'35selFP4'35bs(x9)(x14)(st)))(st))(st))(st))(st)+c__case_8_case__8 x1 x2 x3 x5 x7 x8 x12@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))))(Curry.Module.OracleCSV.c__case_7(x2)(x3)(x5)(x7)(x8)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('\"'))(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x7)(x16)(st))(x3)(x17)(st))(x18)(st))(x19)(st))(st)+c__case_8_case__8 x1 x2 x3 x5 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_8_case__8(x1)(x2)(x3)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_8_case__8 x1 x2 x3 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_8_case__8")(x)++++c__case_10_case__9 x1 x2 x3 x5 x6@Curry.Module.Prelude.List st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleCSV.c__case_9(x2)(x5)(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('\"'))(x1)(st))(x9)(st))(st)+c__case_10_case__9 x1 x2 x3 x5 x6@((Curry.Module.Prelude.:<) x7 x8) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(Curry.Module.OracleCSV.c__case_8(x2)(x3)(x5)(x7)(x8)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('\"'))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x7)(Curry.Module.Prelude.C_Char('\"'))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_10_case__9 x1 x2 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_10_case__9(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_10_case__9 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_10_case__9")(x)++++c__case_11_case__10 x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_11_case__10 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCSV.c__case_10(x2)(x3)(x5)(x6)(x1)(st))(st)+c__case_11_case__10 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_11_case__10(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_11_case__10 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_11_case__10")(x)++++c__case_5_case__11 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_5_case__11 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_5_case__11(x1)(x)(st))(i)(xs)(st)+c__case_5_case__11 x1 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_5_case__11")(x)++++c__case_4_case__12 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_4_case__12 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_4_case__12(x1)(x)(st))(i)(xs)(st)+c__case_4_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_4_case__12")(x)++++c__case_3_case__13 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_3_case__13 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_3_case__13(x1)(x)(st))(i)(xs)(st)+c__case_3_case__13 x1 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_3_case__13")(x)++++c__case_2_case__14 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_2_case__14 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_2_case__14(x1)(x)(st))(i)(xs)(st)+c__case_2_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_2_case__14")(x)++++c__case_1_case__15 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_1_case__15 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_1_case__15(x1)(x)(st))(i)(xs)(st)+c__case_1_case__15 x1 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_1_case__15")(x)++++c__case_0_case__16 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_0_case__16 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCSV.c__case_0_case__16(x1)(x)(st))(i)(xs)(st)+c__case_0_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleCSV._case_0_case__16")(x)++
+ dist/build/Curry/Module/OracleChar.hs view
@@ -0,0 +1,202 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleChar (module Curry.Module.OracleChar) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Char+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_isUpper :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isUpper x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x3)(st))(x4)(st))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(x2)(x5)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('Z'))(x6)(st))(x7)(st))(x8)(st))(st)++++c_isLower :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isLower x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('a'))(x3)(st))(x4)(st))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(x2)(x5)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('z'))(x6)(st))(x7)(st))(x8)(st))(st)++++c_isAlpha :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isAlpha x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OracleChar.c_isUpper(x2)(x1)(st))(Curry.Module.OracleChar.c_isLower(x2)(x3)(st))(x4)(st))(st)++++c_isDigit :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isDigit x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('0'))(x1)(st))(Curry.Module.OraclePrelude.c_ord(x2)(x3)(st))(x4)(st))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(x2)(x5)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('9'))(x6)(st))(x7)(st))(x8)(st))(st)++++c_isAlphaNum :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isAlphaNum x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OracleChar.c_isAlpha(x2)(x1)(st))(Curry.Module.OracleChar.c_isDigit(x2)(x3)(st))(x4)(st))(st)++++c_isOctDigit :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isOctDigit x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('0'))(x3)(st))(x4)(st))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(x2)(x5)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('7'))(x6)(st))(x7)(st))(x8)(st))(st)++++c_isHexDigit :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isHexDigit x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))))))))))))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OracleChar.c_isDigit(x2)(x1)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(Curry.Module.OraclePrelude.c_ord(x2)(x3)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x4)(st))(x5)(st))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(x2)(x6)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('F'))(x7)(st))(x8)(st))(x9)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(Curry.Module.OraclePrelude.c_ord(x2)(x10)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('a'))(x11)(st))(x12)(st))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(x2)(x13)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('f'))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(st)++++c_isSpace :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isSpace x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char(' '))(x1)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\t'))(x3)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\n'))(x4)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\r'))(x5)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_ord(x2)(x6)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))(x7)(st))(x8)(st))(x9)(st))(x10)(st))(x11)(st))(st)++++c_toUpper :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_toUpper x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleChar.c__case_10(x2)(Curry.Module.OracleChar.c_isLower(x2)(x1)(st))(x3)(st))(st)++++c_toLower :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_toLower x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleChar.c__case_8(x2)(Curry.Module.OracleChar.c_isUpper(x2)(x1)(st))(x3)(st))(st)++++c_digitToInt :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_digitToInt x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleChar.c__case_6(x2)(Curry.Module.OracleChar.c_isDigit(x2)(x1)(st))(x3)(st))(st)++++c_intToDigit :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_intToDigit x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OracleChar.c__case_2(x2)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(Curry.Module.OraclePrelude.op_60_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))(x3)(st))(x4)(st))(x5)(st))(st)++++c__case_2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_2_case__10(x1)(x2)(x3)(st))(st)++++c__case_1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_1_case__9(x1)(x2)(x3)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_0_case__8(x1)(x2)(st))(st)++++c__case_6 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_6_case__7(x1)(x2)(x3)(st))(st)++++c__case_5 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_5_case__6(x1)(x2)(x3)(st))(st)++++c__case_4 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_4_case__5(x1)(x2)(x3)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_3_case__4(x1)(x2)(st))(st)++++c__case_8 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_8_case__3(x1)(x2)(x3)(st))(st)++++c__case_7 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_7_case__2(x1)(x2)(x3)(st))(st)++++c__case_10 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_10_case__1(x1)(x2)(x3)(st))(st)++++c__case_9 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleChar.c__case_9_case__0(x1)(x2)(x3)(st))(st)++++c__case_9_case__0 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_9_case__0 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_9_case__0 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_9_case__0(x1)(x2)(x)(st))(i)(xs)(st)+c__case_9_case__0 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_9_case__0")(x)++++c__case_10_case__1 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('a'))(x4)(st))(x5)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_10_case__1 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleChar.c__case_9(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x9)(st))(st)+c__case_10_case__1 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_10_case__1(x1)(x2)(x)(st))(i)(xs)(st)+c__case_10_case__1 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_10_case__1")(x)++++c__case_7_case__2 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_7_case__2 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_7_case__2 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_7_case__2(x1)(x2)(x)(st))(i)(xs)(st)+c__case_7_case__2 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_7_case__2")(x)++++c__case_8_case__3 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x4)(st))(x5)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('a'))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_8_case__3 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleChar.c__case_7(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x9)(st))(st)+c__case_8_case__3 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_8_case__3(x1)(x2)(x)(st))(i)(xs)(st)+c__case_8_case__3 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_8_case__3")(x)++++c__case_3_case__4 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((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('g'))((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('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.:<)(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('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(' '))((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('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(' '))((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('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_3_case__4 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_3_case__4 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_3_case__4(x1)(x)(st))(i)(xs)(st)+c__case_3_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_3_case__4")(x)++++c__case_4_case__5 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('a'))(x4)(st))(x5)(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)))))(x6)(st))(st)+c__case_4_case__5 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleChar.c__case_3(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x7)(st))(st)+c__case_4_case__5 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_4_case__5(x1)(x2)(x)(st))(i)(xs)(st)+c__case_4_case__5 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_4_case__5")(x)++++c__case_5_case__6 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x4)(st))(x5)(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)))))(x6)(st))(st)+c__case_5_case__6 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))))))(Curry.Module.OracleChar.c__case_4(x2)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('a'))(x7)(st))(x8)(st))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(x2)(x9)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('f'))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(st)+c__case_5_case__6 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_5_case__6(x1)(x2)(x)(st))(i)(xs)(st)+c__case_5_case__6 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_5_case__6")(x)++++c__case_6_case__7 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('0'))(x4)(st))(x5)(st))(st)+c__case_6_case__7 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))))(Curry.Module.OracleChar.c__case_5(x2)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x6)(st))(x7)(st))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(x2)(x8)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('F'))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_6_case__7 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_6_case__7(x1)(x2)(x)(st))(i)(xs)(st)+c__case_6_case__7 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_6_case__7")(x)++++c__case_0_case__8 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(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(' '))((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(' '))((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('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(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))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_0_case__8 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_0_case__8 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_0_case__8(x1)(x)(st))(i)(xs)(st)+c__case_0_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_0_case__8")(x)++++c__case_1_case__9 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x1)(st))(x2)(x4)(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)))))(x5)(st))(x6)(st))(st)+c__case_1_case__9 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleChar.c__case_0(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x7)(st))(st)+c__case_1_case__9 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_1_case__9(x1)(x2)(x)(st))(i)(xs)(st)+c__case_1_case__9 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_1_case__9")(x)++++c__case_2_case__10 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('0'))(x1)(st))(x2)(x4)(st))(x5)(st))(st)+c__case_2_case__10 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.OracleChar.c__case_1(x2)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(x2)(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)))))(x1)(st))(Curry.Module.OraclePrelude.op_60_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_2_case__10 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleChar.c__case_2_case__10(x1)(x2)(x)(st))(i)(xs)(st)+c__case_2_case__10 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleChar._case_2_case__10")(x)++
+ dist/build/Curry/Module/OracleCompactFlatCurry.hs view
@@ -0,0 +1,2309 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleCompactFlatCurry (module Curry.Module.OracleCompactFlatCurry) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.CompactFlatCurry+import Curry.Module.Directory+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.FlatCurry+import Curry.Module.List+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.RedBlackTree+import Curry.Module.SetRBT+import Curry.Module.Sort+import Curry.Module.TableRBT+import Curry.Module.Time+import Curry.Module.XML+import Curry.Module.OracleDirectory+import Curry.Module.OracleDistribution+import Curry.Module.OracleFileGoodies+import Curry.Module.OracleFlatCurry+import Curry.Module.OracleList+import Curry.Module.OracleMaybe+import Curry.Module.OraclePrelude+import Curry.Module.OracleRedBlackTree+import Curry.Module.OracleSetRBT+import Curry.Module.OracleSort+import Curry.Module.OracleTableRBT+import Curry.Module.OracleTime+import Curry.Module.OracleXML++++-- begin included++++-- end included++c_isMainOption :: Curry.Module.CompactFlatCurry.C_Option -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isMainOption x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_182(x2)(x1)(st))(st)++++c_getMainFuncFromOptions :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_getMainFuncFromOptions x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_181(x2)(x1)(st))(st)++++c_getRequiredFromOptions :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec+c_getRequiredFromOptions x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleCompactFlatCurry.c_getRequiredFromOptions'46_'35lambda6))(st))(Curry.Module.Prelude.List)(x2)(x1)(st))(x3)(st))(st)++++c_getRequiredFromOptions'46_'35lambda6 :: Curry.Module.CompactFlatCurry.C_Option -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec)+c_getRequiredFromOptions'46_'35lambda6 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_179(x3)(x2)(x1)(st))(st)++++c_addImport2Options :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option+c_addImport2Options x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.CompactFlatCurry.C_Import))))(Curry.Module.OracleList.c_nub(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_addImport2Options'46alwaysReqMod'4621))))(x1)(st))(Curry.Module.OracleCompactFlatCurry.c_getRequiredFromOptions(x2)(x3)(st))(x4)(st))(x5)(st))(x6)(st))(x7)(st))(st)++++c_addImport2Options'46alwaysReqMod'4621 :: Curry.Module.CompactFlatCurry.C_RequiredSpec -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_addImport2Options'46alwaysReqMod'4621 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_178(x2)(x1)(st))(st)++++c_requires :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.CompactFlatCurry.C_RequiredSpec+c_requires x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.CompactFlatCurry.C_Requires(x2)(x3))(st)++++c_alwaysRequired :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.CompactFlatCurry.C_RequiredSpec+c_alwaysRequired x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.CompactFlatCurry.C_AlwaysReq(x2))(st)++++c_defaultRequired :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec+c_defaultRequired x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_alwaysRequired(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_alwaysRequired(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))))))(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_alwaysRequired(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_alwaysRequired(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x7)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x10)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))(Curry.Module.Prelude.List))))(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x13)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))(Curry.Module.Prelude.List)))(x14)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x15)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x16)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))(x17)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x18)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x19)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List)))))(x20)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x21)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x22)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.Prelude.List))))(x23)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x24)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x25)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))(Curry.Module.Prelude.List)))(x26)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x27)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('$'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x28)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))(x29)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x30)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x31)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))))))))))))))))))(x32)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List)))))))))))))))))(x33)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))(Curry.Module.Prelude.List))))))))))))))))))))))(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List)))))))))))))))))(x34)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))(Curry.Module.Prelude.List)))))))))))))))))(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List)))))))))))))))))(x35)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleCompactFlatCurry.c_requires(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('K'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('K'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))(x36)(st))(Curry.Module.Prelude.List)))))))))))))))))(st)++++c_prelude :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prelude x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st)++++c_getRequiredInModule :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getRequiredInModule x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_getRequiredInModule'46getImpReq'4638(x3)))))(x1)(st))(x2)(x4)(st))(st)++++c_getRequiredInModule'46getImpReq'4638 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CompactFlatCurry.C_RequiredSpec -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getRequiredInModule'46getImpReq'4638 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_176(x2)(x3)(x1)(st))(st)++++c_getImplicitlyRequired :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getImplicitlyRequired x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_getImplicitlyRequired'46getImpReq'4646(x3)))))(x1)(st))(x2)(x4)(st))(st)++++c_getImplicitlyRequired'46getImpReq'4646 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CompactFlatCurry.C_RequiredSpec -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_getImplicitlyRequired'46getImpReq'4646 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_173(x2)(x3)(x1)(st))(st)++++c_defaultRequiredTypes :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_defaultRequiredTypes x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.OracleCompactFlatCurry.c_prelude(x6)(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_generateCompactFlatCurryFile :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_generateCompactFlatCurryFile x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCompactFlatCurry.c_computeCompactFlatCurry(x2)(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_generateCompactFlatCurryFile'46_'35lambda8(x4)))))(x5)(st))(st)++++c_generateCompactFlatCurryFile'46_'35lambda8 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_generateCompactFlatCurryFile'46_'35lambda8 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleFlatCurry.c_writeFCY(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.c_done(x4)(st))(x5)(st))(st)++++c_computeCompactFlatCurry :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_computeCompactFlatCurry x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleCompactFlatCurry.c_addImport2Options(x2)(x1)(st)} in let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))))(Curry.Module.OracleCompactFlatCurry.c__case_171(x3)(x4)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(Curry.Module.CompactFlatCurry.C_Exports)(x5)(st))(x4)(x6)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_any(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_isMainOption))))(x7)(st))(x4)(x8)(st))(x9)(st))(x10)(st))(st))(st)++++c_computeCompactFlatCurry'46_'35lambda9 :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_computeCompactFlatCurry'46_'35lambda9 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCompactFlatCurry.c_makeCompactFlatCurry(x3)(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_computeCompactFlatCurry'46_'35lambda9'46_'35lambda10))))(x4)(st))(st)++++c_computeCompactFlatCurry'46_'35lambda9'46_'35lambda10 :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_computeCompactFlatCurry'46_'35lambda9'46_'35lambda10 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStrLn(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(Curry.Module.OraclePrelude.c_length(Curry.Module.OracleCompactFlatCurry.c_moduleFuns(x2)(x1)(st))(x3)(st))(x4)(st))(x5)(st))(x6)(st))(Curry.Module.OraclePrelude.c_return(x2)(x7)(st))(x8)(st))(st)++++c_makeCompactFlatCurry :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_makeCompactFlatCurry x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCompactFlatCurry.c_requiredInCompactProg(x2)(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11(x2)(x3)))))(x4)(st))(st)++++c_makeCompactFlatCurry'46_'35lambda11 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_makeCompactFlatCurry'46_'35lambda11 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_170(x2)(x3)(x4)(x1)(st))(st)++++c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_169(x2)(x3)(x1)(st))(st)++++c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda13 :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_TypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda13 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_elemRBT(Curry.Module.OracleCompactFlatCurry.c_tconsName(x3)(x1)(st))(x4)(st))(x2)(x5)(st))(st)++++c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda14 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_OpDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda14 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_168(x2)(x3)(x1)(st))(st)++++c_requiredDatatypes :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_requiredDatatypes x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(let {x4 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_newTypeConsOfTDecl(x2)))))(x1)(st))(x3)(x5)(st)} in let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleCompactFlatCurry.c__case_167(x2)(x3)(x4)(Curry.Module.OraclePrelude.c_null(x4)(x6)(st))(x7)(st))(st))(st)++++c_newTypeConsOfTDecl :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_TypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_newTypeConsOfTDecl x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_166(x2)(x3)(x1)(st))(st)++++c_newTypeConsOfTDecl'46_'35lambda15 :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_newTypeConsOfTDecl'46_'35lambda15 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_not(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_elemRBT(x3)(x1)(st))(x2)(x4)(st))(x5)(st))(st)++++c_newTypeConsOfTDecl'46_'35lambda16 :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_newTypeConsOfTDecl'46_'35lambda16 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_not(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_elemRBT(x3)(x1)(st))(x2)(x4)(st))(x5)(st))(st)++++c_newTypeConsOfTDecl'46_'35lambda17 :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_newTypeConsOfTDecl'46_'35lambda17 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_163(x2)(x1)(st))(st)++++c_extendTConsWithConsType :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_extendTConsWithConsType x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_162(x2)(x3)(x4)(x1)(st))(st)++++c_extendTConsWithConsType'46_'35lambda18 :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_ConsDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_extendTConsWithConsType'46_'35lambda18 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_elemRBT(Curry.Module.OracleCompactFlatCurry.c_consName(x3)(x1)(st))(x4)(st))(x2)(x5)(st))(st)++++c_extendFuncTable :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)+c_extendFuncTable x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleCompactFlatCurry.c_extendFuncTable'46_'35lambda19))(st))(x2)(x3)(x1)(st))(st)++++c_extendFuncTable'46_'35lambda19 :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)+c_extendFuncTable'46_'35lambda19 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OracleTableRBT.c_updateRBT(Curry.Module.OracleCompactFlatCurry.c_functionName(x2)(x1)(st))(x2)(x4)(st))(x3)(x5)(st))(st)++++c_requiredInCompactProg :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_Option) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))))+c_requiredInCompactProg x2 x3 x1 st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleCompactFlatCurry.c_moduleName(x2)(x10)(st)} in let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleCompactFlatCurry.c_requiredInCompactProg'46_'35lambda26))(st))(Curry.Module.Prelude.List)(x3)(x11)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))))(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List)))(Curry.Module.OracleCompactFlatCurry.c__case_159(x2)(x3)(Curry.Module.OracleList.c_nub(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleCompactFlatCurry.c_requiredInCompactProg'46_'35lambda22))(st))(Curry.Module.Prelude.List)(x3)(x1)(st))(x9)(st))(x5)(x6)(Curry.Module.OracleCompactFlatCurry.c_exportedFuncNames(Curry.Module.OracleCompactFlatCurry.c_moduleFuns(x2)(x12)(st))(x13)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_insertRBT(x14)(st))(x5)(x15)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_emptySetRBT(x16)(st))(Curry.Module.OracleSort.c_leqString(x17)(st))(x18)(st))(x19)(st))(Curry.Module.OraclePrelude.c_not(Curry.Module.OraclePrelude.c_null(x6)(x20)(st))(x21)(st))(x22)(st))(st))(st))(st))(st))(st))(st)++++c_requiredInCompactProg'46_'35lambda22 :: Curry.Module.CompactFlatCurry.C_Option -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_requiredInCompactProg'46_'35lambda22 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_154(x3)(x2)(x1)(st))(st)++++c_requiredInCompactProg'46_'35lambda26 :: Curry.Module.CompactFlatCurry.C_Option -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_requiredInCompactProg'46_'35lambda26 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_153(x3)(x2)(x1)(st))(st)++++c_requiredInCompactProg'46add2mainmodset'46118 :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_requiredInCompactProg'46add2mainmodset'46118 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.OracleSetRBT.c_insertRBT(x1)(st))(x2)(x3)(x4)(st))(st)++++c_requiredInCompactProg'46_'35lambda28 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.FlatCurry.C_Prog -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))))+c_requiredInCompactProg'46_'35lambda28 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T3(Curry.Module.OraclePrelude.c_concat(x3)(x1)(st))(Curry.Module.OracleCompactFlatCurry.c_requiredInCompactProg'46add2mainmodset'46118(x5)(x2)(x7)(st))((Curry.Module.Prelude.:<)(x4)(x6)))(x8)(st))(st)++++c_requiredInCompactProg'46_'35lambda29 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_Prog -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))))+c_requiredInCompactProg'46_'35lambda29 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T3(Curry.Module.OracleList.c_nub(x3)(x1)(st))(Curry.Module.OracleCompactFlatCurry.c_requiredInCompactProg'46add2mainmodset'46118(x5)(x2)(x7)(st))((Curry.Module.Prelude.:<)(x4)(x6)))(x8)(st))(st)++++c_requiredInCompactProg'46_'35lambda30 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))))+c_requiredInCompactProg'46_'35lambda30 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T3((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x5)(x2))(Curry.Module.Prelude.List))(Curry.Module.OracleCompactFlatCurry.c_requiredInCompactProg'46add2mainmodset'46118(x6)(x3)(x1)(st))((Curry.Module.Prelude.:<)(x4)(x7)))(x8)(st))(st)++++c_requiredInCompactProg'46_'35lambda31 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_Prog -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))))+c_requiredInCompactProg'46_'35lambda31 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T3(Curry.Module.OracleList.c_nub(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_exportedFuncNames))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_moduleFuns))))(x1)(st))(x6)(st))(x5)(x7)(st))(x8)(st))(x9)(st))(Curry.Module.OracleCompactFlatCurry.c_requiredInCompactProg'46add2mainmodset'46118(x4)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_moduleName))))(x5)(x10)(st))(x11)(st))((Curry.Module.Prelude.:<)(x3)(x5)))(x12)(st))(st)++++c_exportedFuncNames :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_exportedFuncNames x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_exportedFuncNames'46_'35lambda32))))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_exportedFuncNames'46_'35lambda33))))(x2)(x1)(st))(x3)(st))(st)++++c_exportedFuncNames'46_'35lambda32 :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_exportedFuncNames'46_'35lambda32 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_152(x2)(x1)(st))(st)++++c_exportedFuncNames'46_'35lambda33 :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_exportedFuncNames'46_'35lambda33 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_151(x2)(x1)(st))(st)++++c_getCalledFuncs :: (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))+c_getCalledFuncs x2 x3 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_150(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x1)(st))(st)++++c_getCalledFuncs'46_'35lambda34 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.FlatCurry.C_FuncDecl)) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> (Curry.Module.Prelude.List Curry.Module.CompactFlatCurry.C_RequiredSpec) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))+c_getCalledFuncs'46_'35lambda34 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x1 st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x13 = Curry.Module.OracleCompactFlatCurry.c_getRequiredInModule(x11)(x9)(x1)(st)} in let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleCompactFlatCurry.c_getCalledFuncs(x11)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_insertRBT(x14)(st))(x9)(x15)(st))(x7)(x16)(st))((Curry.Module.Prelude.:<)(x12)(x10))(Curry.Module.OracleCompactFlatCurry.c_extendFuncTable(x4)(Curry.Module.OracleCompactFlatCurry.c_moduleFuns(x12)(x17)(st))(x18)(st))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.OracleSetRBT.c_insertRBT(x19)(st))(x6)(x13)(x20)(st))(x5)(x8)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x9)(x2))(Curry.Module.OraclePrelude.op_43_43(x3)(x13)(x21)(st)))(x22)(st))(st))(st)++++c_getCalledFuncs'46_'35lambda35 :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_getCalledFuncs'46_'35lambda35 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_not(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_elemRBT(x3)(x1)(st))(x2)(x4)(st))(x5)(st))(st)++++c_getCalledFuncs'46_'35lambda36 :: (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_getCalledFuncs'46_'35lambda36 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_not(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_elemRBT(x3)(x1)(st))(x2)(x4)(st))(x5)(st))(st)++++c_getCalledFuncs'46_'35lambda37 :: Curry.Module.FlatCurry.C_FuncDecl -> (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))+c_getCalledFuncs'46_'35lambda37 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_145(x2)(x3)(x1)(st))(st)++++c_allFuncCalls :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allFuncCalls x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_144(x2)(x1)(st))(st)++++c_allFuncCallsOfExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allFuncCallsOfExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_142(x2)(x1)(st))(st)++++c_allFuncCallsOfBranchExpr :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allFuncCallsOfBranchExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_140(x2)(x1)(st))(st)++++c_allConstructorsOfFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allConstructorsOfFunc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_139(x2)(x1)(st))(st)++++c_allConsOfExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allConsOfExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_137(x2)(x1)(st))(st)++++c_allConsOfExpr'46consOfBranch'46252 :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allConsOfExpr'46consOfBranch'46252 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_135(x2)(x1)(st))(st)++++c_allTypesOfFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allTypesOfFunc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_133(x2)(x1)(st))(st)++++c_allTypesOfTExpr :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_allTypesOfTExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_132(x2)(x1)(st))(st)++++c_unionMap :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))+c_unionMap x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleList.c_union))(st))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(x1)(st))(st)++++c_functionName :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_functionName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_131(x2)(x1)(st))(st)++++c_consName :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_consName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_130(x2)(x1)(st))(st)++++c_tconsName :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_tconsName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_129(x2)(x1)(st))(st)++++c_moduleImports :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_moduleImports x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_128(x2)(x1)(st))(st)++++c_moduleTypes :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl+c_moduleTypes x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_127(x2)(x1)(st))(st)++++c_moduleOps :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl+c_moduleOps x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_126(x2)(x1)(st))(st)++++c_moduleName :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_moduleName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_125(x2)(x1)(st))(st)++++c_moduleFuns :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl+c_moduleFuns x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_124(x2)(x1)(st))(st)++++c_leqQName :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_leqQName x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_123(x3)(x2)(x1)(st))(st)++++c_readCurrentFlatCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readCurrentFlatCurry x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStr(Curry.Module.OraclePrelude.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))))(x1)(st))(x3)(st))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCompactFlatCurry.c_findSourceFileInLoadPath(x2)(x4)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40))))(x5)(st))(x6)(st))(st)++++c_readCurrentFlatCurry'46_'35lambda40 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readCurrentFlatCurry'46_'35lambda40 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(Curry.Module.OracleFlatCurry.c_flatCurryFileName(x2)(x1)(st))(x3)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41(x2)))))(x4)(st))(st)++++c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleCompactFlatCurry.c__case_121(x2)(x3)(Curry.Module.OraclePrelude.c_not(x3)(x1)(st))(x4)(st))(st)++++c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_getModificationTime(Curry.Module.OracleFlatCurry.c_flatCurryFileName(x2)(x1)(st))(x4)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43(x3)(x2)))))(x5)(st))(st)++++c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43 :: Curry.Module.Time.C_ClockTime -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42'46_'35lambda43 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.OracleCompactFlatCurry.c__case_120(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_62(Curry.Module.OracleTime.c_clockTimeToInt(x2)(x1)(st))(Curry.Module.OracleTime.c_clockTimeToInt(x4)(x5)(st))(x6)(st))(x7)(st))(st)++++c_getSourceModificationTime :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_ClockTime))+c_getSourceModificationTime x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(x1)(st))(x3)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_getSourceModificationTime'46_'35lambda44(x2)))))(x4)(st))(st)++++c_getSourceModificationTime'46_'35lambda44 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_ClockTime))+c_getSourceModificationTime'46_'35lambda44 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_119(x2)(x3)(x1)(st))(st)++++c_findSourceFileInLoadPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_findSourceFileInLoadPath x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_getLoadPathForFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_findSourceFileInLoadPath'46_'35lambda45(x2)))))(x3)(st))(st)++++c_findSourceFileInLoadPath'46_'35lambda45 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_findSourceFileInLoadPath'46_'35lambda45 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFileGoodies.c_lookupFileInPath(Curry.Module.OracleFileGoodies.c_baseName(x2)(x1)(st))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.List)))(x3)(x4)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_findSourceFileInLoadPath'46_'35lambda45'46_'35lambda46(x2)))))(x5)(st))(st)++++c_findSourceFileInLoadPath'46_'35lambda45'46_'35lambda46 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_findSourceFileInLoadPath'46_'35lambda45'46_'35lambda46 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))))))))))))))))))))))))(Curry.Module.OraclePrelude.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('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)))))))))))))(x1)(st))(x4)(st))(x5)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.OracleFileGoodies.c_stripSuffix(x6)(st))(x7)(st))(x3)(x8)(st))(st)++++c_processPrimitives :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_processPrimitives x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCompactFlatCurry.c_readPrimSpec(Curry.Module.OracleCompactFlatCurry.c_moduleName(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List))))))))))(x4)(st))(x5)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_processPrimitives'46_'35lambda47(x3)))))(x6)(st))(st)++++c_processPrimitives'46_'35lambda47 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_processPrimitives'46_'35lambda47 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.OracleCompactFlatCurry.c_mergePrimSpecIntoModule(x3)(x2)(x1)(st))(x4)(st))(st)++++c_mergePrimSpecIntoModule :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog+c_mergePrimSpecIntoModule x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_118(x2)(x3)(x1)(st))(st)++++c_mergePrimSpecIntoFunc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl+c_mergePrimSpecIntoFunc x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_117(x2)(x3)(x1)(st))(st)++++c_mergePrimSpecIntoFunc'46_'35selFP3'35lib :: (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_mergePrimSpecIntoFunc'46_'35selFP3'35lib x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_114(x2)(x1)(st))(st)++++c_mergePrimSpecIntoFunc'46_'35selFP4'35entry :: (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_mergePrimSpecIntoFunc'46_'35selFP4'35entry x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_112(x2)(x1)(st))(st)++++c_readPrimSpec :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))+c_readPrimSpec x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_readPrimSpec'46_'35lambda48(x2)(x3)))))(x4)(st))(st)++++c_readPrimSpec'46_'35lambda48 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))+c_readPrimSpec'46_'35lambda48 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_110(x2)(x3)(x4)(x1)(st))(st)++++c_readPrimSpec'46_'35lambda48'46_'35lambda49 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))+c_readPrimSpec'46_'35lambda48'46_'35lambda49 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.OracleCompactFlatCurry.c_xml2primtrans(x2)(x3)(x1)(st))(x4)(st))(st)++++c_xml2primtrans :: (Curry t0) => t0 -> Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_xml2primtrans x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_109(x2)(x3)(x1)(st))(st)++++c_xml2primtrans'46xml2prim'46358 :: (Curry t248) => t248 -> Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 t248 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_xml2primtrans'46xml2prim'46358 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_86(x2)(x3)(x1)(st))(st)++++c__case_86 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_86_case__182(x1)(x2)(x3)(st))(st)++++c__case_85 x2 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_85_case__181(x1)(x2)(x5)(x6)(x4)(st))(st)++++c__case_84 x2 x5 x6 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_84_case__180(x1)(x2)(x5)(x6)(x8)(x7)(st))(st)++++c__case_22 x2 x5 x6 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_22_case__179(x1)(x2)(x5)(x6)(x8)(st))(st)++++c__case_21 x2 x5 x6 x72 x71 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_21_case__178(x1)(x2)(x5)(x6)(x72)(x71)(st))(st)++++c__case_20 x2 x5 x6 x72 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_20_case__177(x1)(x2)(x5)(x6)(x72)(st))(st)++++c__case_19 x2 x5 x6 x74 x73 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_19_case__176(x1)(x2)(x5)(x6)(x74)(x73)(st))(st)++++c__case_18 x2 x5 x6 x74 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_18_case__175(x1)(x2)(x5)(x6)(x74)(st))(st)++++c__case_17 x2 x5 x6 x76 x75 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_17_case__174(x1)(x2)(x5)(x6)(x76)(x75)(st))(st)++++c__case_16 x2 x5 x6 x76 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_16_case__173(x1)(x2)(x5)(x6)(x76)(st))(st)++++c__case_15 x2 x5 x6 x78 x77 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_15_case__172(x1)(x2)(x5)(x6)(x78)(x77)(st))(st)++++c__case_14 x2 x5 x6 x78 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_14_case__171(x1)(x2)(x5)(x6)(x78)(st))(st)++++c__case_13 x2 x5 x6 x80 x79 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_13_case__170(x1)(x2)(x5)(x6)(x80)(x79)(st))(st)++++c__case_12 x2 x5 x6 x80 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_12_case__169(x1)(x2)(x5)(x6)(x80)(st))(st)++++c__case_11 x2 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_11_case__168(x1)(x2)(x6)(x5)(st))(st)++++c__case_10 x2 x6 x81 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_10_case__167(x1)(x2)(x6)(x81)(st))(st)++++c__case_9 x2 x6 x84 x83 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_9_case__166(x1)(x2)(x6)(x84)(x83)(st))(st)++++c__case_8 x2 x6 x84 x86 x85 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_8_case__165(x1)(x2)(x6)(x84)(x86)(x85)(st))(st)++++c__case_7 x2 x6 x84 x86 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_7_case__164(x1)(x2)(x6)(x84)(x86)(st))(st)++++c__case_6 x2 x6 x84 x88 x87 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_6_case__163(x1)(x2)(x6)(x84)(x88)(x87)(st))(st)++++c__case_5 x2 x6 x84 x88 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_5_case__162(x1)(x2)(x6)(x84)(x88)(st))(st)++++c__case_4 x2 x6 x84 x90 x89 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_4_case__161(x1)(x2)(x6)(x84)(x90)(x89)(st))(st)++++c__case_3 x2 x6 x84 x90 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_3_case__160(x1)(x2)(x6)(x84)(x90)(st))(st)++++c__case_2 x2 x6 x84 x92 x91 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_2_case__159(x1)(x2)(x6)(x84)(x92)(x91)(st))(st)++++c__case_1 x2 x6 x84 x92 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_1_case__158(x1)(x2)(x6)(x84)(x92)(st))(st)++++c__case_0 x2 x84 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_0_case__157(x1)(x2)(x84)(x6)(st))(st)++++c__case_83 x2 x5 x6 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_83_case__156(x1)(x2)(x5)(x6)(x8)(st))(st)++++c__case_82 x2 x5 x6 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_82_case__155(x1)(x2)(x5)(x6)(x10)(x9)(st))(st)++++c__case_81 x2 x5 x6 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_81_case__154(x1)(x2)(x5)(x6)(x10)(st))(st)++++c__case_80 x2 x5 x6 x12 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_80_case__153(x1)(x2)(x5)(x6)(x12)(x11)(st))(st)++++c__case_79 x2 x5 x6 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_79_case__152(x1)(x2)(x5)(x6)(x12)(st))(st)++++c__case_78 x2 x5 x6 x14 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_78_case__151(x1)(x2)(x5)(x6)(x14)(x13)(st))(st)++++c__case_77 x2 x5 x6 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_77_case__150(x1)(x2)(x5)(x6)(x14)(st))(st)++++c__case_76 x2 x5 x6 x16 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_76_case__149(x1)(x2)(x5)(x6)(x16)(x15)(st))(st)++++c__case_75 x2 x5 x6 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_75_case__148(x1)(x2)(x5)(x6)(x16)(st))(st)++++c__case_74 x2 x5 x6 x18 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_74_case__147(x1)(x2)(x5)(x6)(x18)(x17)(st))(st)++++c__case_73 x2 x5 x6 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_73_case__146(x1)(x2)(x5)(x6)(x18)(st))(st)++++c__case_72 x2 x5 x6 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_72_case__145(x1)(x2)(x5)(x6)(x20)(x19)(st))(st)++++c__case_71 x2 x5 x6 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_71_case__144(x1)(x2)(x5)(x6)(x20)(st))(st)++++c__case_70 x2 x5 x6 x22 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_70_case__143(x1)(x2)(x5)(x6)(x22)(x21)(st))(st)++++c__case_69 x2 x5 x6 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_69_case__142(x1)(x2)(x5)(x6)(x22)(st))(st)++++c__case_68 x2 x5 x6 x24 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_68_case__141(x1)(x2)(x5)(x6)(x24)(x23)(st))(st)++++c__case_67 x2 x5 x6 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_67_case__140(x1)(x2)(x5)(x6)(x24)(st))(st)++++c__case_66 x2 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_66_case__139(x1)(x2)(x6)(x5)(st))(st)++++c__case_65 x2 x6 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_65_case__138(x1)(x2)(x6)(x25)(st))(st)++++c__case_64 x2 x6 x28 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_64_case__137(x1)(x2)(x6)(x28)(x27)(st))(st)++++c__case_63 x2 x6 x28 x30 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_63_case__136(x1)(x2)(x6)(x28)(x30)(x29)(st))(st)++++c__case_62 x2 x6 x28 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_62_case__135(x1)(x2)(x6)(x28)(x30)(st))(st)++++c__case_61 x2 x6 x28 x32 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_61_case__134(x1)(x2)(x6)(x28)(x32)(x31)(st))(st)++++c__case_60 x2 x6 x28 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_60_case__133(x1)(x2)(x6)(x28)(x32)(st))(st)++++c__case_59 x2 x6 x28 x34 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_59_case__132(x1)(x2)(x6)(x28)(x34)(x33)(st))(st)++++c__case_58 x2 x6 x28 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_58_case__131(x1)(x2)(x6)(x28)(x34)(st))(st)++++c__case_57 x2 x6 x28 x36 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_57_case__130(x1)(x2)(x6)(x28)(x36)(x35)(st))(st)++++c__case_56 x2 x6 x28 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_56_case__129(x1)(x2)(x6)(x28)(x36)(st))(st)++++c__case_55 x2 x28 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_55_case__128(x1)(x2)(x28)(x6)(st))(st)++++c__case_54 x2 x28 x38 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_54_case__127(x1)(x2)(x28)(x38)(x37)(st))(st)++++c__case_53 x2 x28 x38 x40 x41 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_53_case__126(x1)(x2)(x28)(x38)(x40)(x41)(x39)(st))(st)++++c__case_52 x2 x28 x38 x40 x41 x43 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_52_case__125(x1)(x2)(x28)(x38)(x40)(x41)(x43)(x42)(st))(st)++++c__case_51 x2 x28 x38 x40 x41 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_51_case__124(x1)(x2)(x28)(x38)(x40)(x41)(x43)(st))(st)++++c__case_50 x2 x28 x38 x40 x41 x45 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_50_case__123(x1)(x2)(x28)(x38)(x40)(x41)(x45)(x44)(st))(st)++++c__case_49 x2 x28 x38 x40 x41 x45 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_49_case__122(x1)(x2)(x28)(x38)(x40)(x41)(x45)(st))(st)++++c__case_48 x2 x28 x38 x40 x41 x47 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_48_case__121(x1)(x2)(x28)(x38)(x40)(x41)(x47)(x46)(st))(st)++++c__case_47 x2 x28 x38 x40 x41 x47 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_47_case__120(x1)(x2)(x28)(x38)(x40)(x41)(x47)(st))(st)++++c__case_46 x2 x28 x38 x40 x41 x49 x48 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_46_case__119(x1)(x2)(x28)(x38)(x40)(x41)(x49)(x48)(st))(st)++++c__case_45 x2 x28 x38 x40 x41 x49 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_45_case__118(x1)(x2)(x28)(x38)(x40)(x41)(x49)(st))(st)++++c__case_44 x2 x28 x38 x40 x41 x51 x50 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_44_case__117(x1)(x2)(x28)(x38)(x40)(x41)(x51)(x50)(st))(st)++++c__case_43 x2 x28 x38 x40 x41 x51 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_43_case__116(x1)(x2)(x28)(x38)(x40)(x41)(x51)(st))(st)++++c__case_42 x2 x28 x38 x40 x41 x53 x52 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_42_case__115(x1)(x2)(x28)(x38)(x40)(x41)(x53)(x52)(st))(st)++++c__case_41 x2 x28 x38 x40 x41 x53 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_41_case__114(x1)(x2)(x28)(x38)(x40)(x41)(x53)(st))(st)++++c__case_40 x2 x28 x38 x40 x41 x55 x54 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_40_case__113(x1)(x2)(x28)(x38)(x40)(x41)(x55)(x54)(st))(st)++++c__case_39 x2 x28 x38 x40 x41 x55 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_39_case__112(x1)(x2)(x28)(x38)(x40)(x41)(x55)(st))(st)++++c__case_38 x2 x28 x38 x41 x40 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_38_case__111(x1)(x2)(x28)(x38)(x41)(x40)(st))(st)++++c__case_37 x2 x28 x41 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_37_case__110(x1)(x2)(x28)(x41)(x38)(st))(st)++++c__case_36 x2 x28 x41 x57 x56 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_36_case__109(x1)(x2)(x28)(x41)(x57)(x56)(st))(st)++++c__case_35 x2 x28 x41 x57 x59 x60 x58 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_35_case__108(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x58)(st))(st)++++c__case_34 x2 x28 x41 x57 x59 x60 x62 x61 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_34_case__107(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x62)(x61)(st))(st)++++c__case_33 x2 x28 x41 x57 x59 x60 x62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_33_case__106(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x62)(st))(st)++++c__case_32 x2 x28 x41 x57 x59 x60 x64 x63 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_32_case__105(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x64)(x63)(st))(st)++++c__case_31 x2 x28 x41 x57 x59 x60 x64 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_31_case__104(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x64)(st))(st)++++c__case_30 x2 x28 x41 x57 x59 x60 x66 x65 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_30_case__103(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x66)(x65)(st))(st)++++c__case_29 x2 x28 x41 x57 x59 x60 x66 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_29_case__102(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x66)(st))(st)++++c__case_28 x2 x28 x41 x57 x59 x60 x68 x67 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_28_case__101(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x68)(x67)(st))(st)++++c__case_27 x2 x28 x41 x57 x59 x60 x68 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_27_case__100(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x68)(st))(st)++++c__case_26 x2 x28 x41 x57 x59 x60 x70 x69 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_26_case__99(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x70)(x69)(st))(st)++++c__case_25 x2 x28 x41 x57 x59 x60 x70 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_25_case__98(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x70)(st))(st)++++c__case_24 x2 x28 x41 x57 x60 x59 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_24_case__97(x1)(x2)(x28)(x41)(x57)(x60)(x59)(st))(st)++++c__case_23 x2 x28 x41 x60 x57 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_23_case__96(x1)(x2)(x28)(x41)(x60)(x57)(st))(st)++++c__case_109 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_109_case__95(x1)(x2)(x3)(st))(st)++++c__case_108 x2 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_108_case__94(x1)(x2)(x5)(x6)(x4)(st))(st)++++c__case_107 x2 x5 x6 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_107_case__93(x1)(x2)(x5)(x6)(x8)(x7)(st))(st)++++c__case_106 x2 x5 x6 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_106_case__92(x1)(x2)(x5)(x6)(x8)(st))(st)++++c__case_105 x2 x5 x6 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_105_case__91(x1)(x2)(x5)(x6)(x10)(x9)(st))(st)++++c__case_104 x2 x5 x6 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_104_case__90(x1)(x2)(x5)(x6)(x10)(st))(st)++++c__case_103 x2 x5 x6 x12 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_103_case__89(x1)(x2)(x5)(x6)(x12)(x11)(st))(st)++++c__case_102 x2 x5 x6 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_102_case__88(x1)(x2)(x5)(x6)(x12)(st))(st)++++c__case_101 x2 x5 x6 x14 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_101_case__87(x1)(x2)(x5)(x6)(x14)(x13)(st))(st)++++c__case_100 x2 x5 x6 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_100_case__86(x1)(x2)(x5)(x6)(x14)(st))(st)++++c__case_99 x2 x5 x6 x16 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_99_case__85(x1)(x2)(x5)(x6)(x16)(x15)(st))(st)++++c__case_98 x2 x5 x6 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_98_case__84(x1)(x2)(x5)(x6)(x16)(st))(st)++++c__case_97 x2 x5 x6 x18 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_97_case__83(x1)(x2)(x5)(x6)(x18)(x17)(st))(st)++++c__case_96 x2 x5 x6 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_96_case__82(x1)(x2)(x5)(x6)(x18)(st))(st)++++c__case_95 x2 x5 x6 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_95_case__81(x1)(x2)(x5)(x6)(x20)(x19)(st))(st)++++c__case_94 x2 x5 x6 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_94_case__80(x1)(x2)(x5)(x6)(x20)(st))(st)++++c__case_93 x2 x5 x6 x22 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_93_case__79(x1)(x2)(x5)(x6)(x22)(x21)(st))(st)++++c__case_92 x2 x5 x6 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_92_case__78(x1)(x2)(x5)(x6)(x22)(st))(st)++++c__case_91 x2 x5 x6 x24 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_91_case__77(x1)(x2)(x5)(x6)(x24)(x23)(st))(st)++++c__case_90 x2 x5 x6 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_90_case__76(x1)(x2)(x5)(x6)(x24)(st))(st)++++c__case_89 x2 x5 x6 x26 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_89_case__75(x1)(x2)(x5)(x6)(x26)(x25)(st))(st)++++c__case_88 x2 x5 x6 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_88_case__74(x1)(x2)(x5)(x6)(x26)(st))(st)++++c__case_87 x2 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_87_case__73(x1)(x2)(x6)(x5)(st))(st)++++c__case_110 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_110_case__72(x1)(x2)(x3)(x4)(st))(st)++++c__case_112 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_112_case__71(x1)(x2)(st))(st)++++c__case_111 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_111_case__70(x1)(x3)(st))(st)++++c__case_114 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_114_case__69(x1)(x2)(st))(st)++++c__case_113 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_113_case__68(x1)(x3)(st))(st)++++c__case_117 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_117_case__67(x1)(x2)(x3)(st))(st)++++c__case_116 x4 x5 x6 x7 x8 x9 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_116_case__66(x1)(x4)(x5)(x6)(x7)(x8)(x9)(x13)(st))(st)++++c__case_115 x4 x5 x6 x7 x11 x12 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_115_case__65(x1)(x4)(x5)(x6)(x7)(x11)(x12)(x13)(st))(st)++++c__case_118 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_118_case__64(x1)(x2)(x3)(st))(st)++++c__case_119 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_119_case__63(x1)(x2)(x3)(st))(st)++++c__case_120 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_120_case__62(x1)(x3)(x5)(st))(st)++++c__case_121 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_121_case__61(x1)(x2)(x4)(st))(st)++++c__case_123 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_123_case__60(x1)(x3)(x2)(st))(st)++++c__case_122 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_122_case__59(x1)(x4)(x5)(x3)(st))(st)++++c__case_124 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_124_case__58(x1)(x2)(st))(st)++++c__case_125 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_125_case__57(x1)(x2)(st))(st)++++c__case_126 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_126_case__56(x1)(x2)(st))(st)++++c__case_127 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_127_case__55(x1)(x2)(st))(st)++++c__case_128 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_128_case__54(x1)(x2)(st))(st)++++c__case_129 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_129_case__53(x1)(x2)(st))(st)++++c__case_130 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_130_case__52(x1)(x2)(st))(st)++++c__case_131 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_131_case__51(x1)(x2)(st))(st)++++c__case_132 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_132_case__50(x1)(x2)(st))(st)++++c__case_133 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_133_case__49(x1)(x2)(st))(st)++++c__case_135 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_135_case__48(x1)(x2)(st))(st)++++c__case_134 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_134_case__47(x1)(x4)(x3)(st))(st)++++c__case_137 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_137_case__46(x1)(x2)(st))(st)++++c__case_136 x6 x8 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_136_case__45(x1)(x6)(x8)(x5)(st))(st)++++c__case_139 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_139_case__44(x1)(x2)(st))(st)++++c__case_138 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_138_case__43(x1)(x7)(st))(st)++++c__case_140 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_140_case__42(x1)(x2)(st))(st)++++c__case_142 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_142_case__41(x1)(x2)(st))(st)++++c__case_141 x6 x8 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_141_case__40(x1)(x6)(x8)(x5)(st))(st)++++c__case_144 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_144_case__39(x1)(x2)(st))(st)++++c__case_143 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_143_case__38(x1)(x7)(st))(st)++++c__case_145 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_145_case__37(x1)(x2)(x3)(st))(st)++++c__case_150 x2 x3 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_150_case__36(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_149 x2 x3 x4 x5 x6 x7 x8 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_149_case__35(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x10)(st))(st)++++c__case_148 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_148_case__34(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x12)(x13)(x14)(st))(st)++++c__case_147 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_147_case__33(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x12)(x13)(x14)(st))(st)++++c__case_146 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_146_case__32(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x12)(x13)(x21)(st))(st)++++c__case_151 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_151_case__31(x1)(x2)(st))(st)++++c__case_152 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_152_case__30(x1)(x2)(st))(st)++++c__case_153 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_153_case__29(x1)(x3)(x2)(st))(st)++++c__case_154 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_154_case__28(x1)(x3)(x2)(st))(st)++++c__case_159 x2 x3 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_159_case__27(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_158 x2 x3 x4 x5 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_158_case__26(x1)(x2)(x3)(x4)(x5)(x7)(x8)(x9)(st))(st)++++c__case_157 x2 x3 x4 x5 x7 x8 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_157_case__25(x1)(x2)(x3)(x4)(x5)(x7)(x8)(x10)(st))(st)++++c__case_155 x2 x4 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_155_case__24(x1)(x2)(x4)(x7)(x8)(x9)(st))(st)++++c__case_156 x2 x4 x5 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_156_case__23(x1)(x2)(x4)(x5)(x8)(x9)(x10)(st))(st)++++c__case_162 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_162_case__22(x1)(x2)(x3)(x4)(st))(st)++++c__case_161 x2 x3 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_161_case__21(x1)(x2)(x3)(x6)(x5)(st))(st)++++c__case_160 x2 x3 x6 x11 x14 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_160_case__20(x1)(x2)(x3)(x6)(x11)(x15)(st))(st)++++c__case_163 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_163_case__19(x1)(x2)(st))(st)++++c__case_166 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_166_case__18(x1)(x2)(x3)(st))(st)++++c__case_164 x2 x8 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_164_case__17(x1)(x2)(x11)(x12)(st))(st)++++c__case_165 x2 x4 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_165_case__16(x1)(x2)(x7)(x8)(st))(st)++++c__case_167 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_167_case__15(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_168 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_168_case__14(x1)(x2)(x3)(st))(st)++++c__case_169 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_169_case__13(x1)(x2)(x3)(st))(st)++++c__case_170 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_170_case__12(x1)(x2)(x3)(x4)(st))(st)++++c__case_171 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_171_case__11(x1)(x3)(x4)(x5)(st))(st)++++c__case_173 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_173_case__10(x1)(x2)(x3)(st))(st)++++c__case_172 x2 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_172_case__9(x1)(x6)(x7)(st))(st)++++c__case_176 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_176_case__8(x1)(x2)(x3)(st))(st)++++c__case_175 x2 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_175_case__7(x1)(x2)(x4)(st))(st)++++c__case_174 x2 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_174_case__6(x1)(x5)(x6)(x7)(st))(st)++++c__case_178 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_178_case__5(x1)(x2)(st))(st)++++c__case_177 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_177_case__4(x1)(x3)(st))(st)++++c__case_179 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_179_case__3(x1)(x3)(x2)(st))(st)++++c__case_181 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_181_case__2(x1)(x2)(st))(st)++++c__case_180 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_180_case__1(x1)(x4)(x3)(st))(st)++++c__case_182 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_182_case__0(x1)(x2)(st))(st)++++c__case_182_case__0 x1 x2@(Curry.Module.CompactFlatCurry.C_Main x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_182_case__0 x1 x2@Curry.Module.CompactFlatCurry.C_Verbose st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_182_case__0 x1 x2@Curry.Module.CompactFlatCurry.C_Exports st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_182_case__0 x1 x2@(Curry.Module.CompactFlatCurry.C_InitFuncs x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_182_case__0 x1 x2@(Curry.Module.CompactFlatCurry.C_Required x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_182_case__0 x1 x2@(Curry.Module.CompactFlatCurry.C_Import x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_182_case__0 x1 (Curry.Module.CompactFlatCurry.C_OptionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_182_case__0(x1)(x)(st))(i)(xs)(st)+c__case_182_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_182_case__0")(x)++++c__case_180_case__1 x1 x4 x3@(Curry.Module.CompactFlatCurry.C_Main x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_180_case__1 x1 x4 x3@Curry.Module.CompactFlatCurry.C_Verbose st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_getMainFuncFromOptions(x4)(x1)(st))(st)+c__case_180_case__1 x1 x4 x3@Curry.Module.CompactFlatCurry.C_Exports st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_getMainFuncFromOptions(x4)(x1)(st))(st)+c__case_180_case__1 x1 x4 x3@(Curry.Module.CompactFlatCurry.C_InitFuncs x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_getMainFuncFromOptions(x4)(x1)(st))(st)+c__case_180_case__1 x1 x4 x3@(Curry.Module.CompactFlatCurry.C_Required x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_getMainFuncFromOptions(x4)(x1)(st))(st)+c__case_180_case__1 x1 x4 x3@(Curry.Module.CompactFlatCurry.C_Import x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_getMainFuncFromOptions(x4)(x1)(st))(st)+c__case_180_case__1 x1 x4 (Curry.Module.CompactFlatCurry.C_OptionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_180_case__1(x1)(x4)(x)(st))(i)(xs)(st)+c__case_180_case__1 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_180_case__1")(x)++++c__case_181_case__2 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_180(x4)(x3)(x1)(st))(st)+c__case_181_case__2 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_181_case__2(x1)(x)(st))(i)(xs)(st)+c__case_181_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_181_case__2")(x)++++c__case_179_case__3 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_Required x4) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(x3))(st)+c__case_179_case__3 x1 x3 x2@Curry.Module.CompactFlatCurry.C_Verbose st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_179_case__3 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_Main x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_179_case__3 x1 x3 x2@Curry.Module.CompactFlatCurry.C_Exports st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_179_case__3 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_InitFuncs x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_179_case__3 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_Import x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_179_case__3 x1 x3 (Curry.Module.CompactFlatCurry.C_OptionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_179_case__3(x1)(x3)(x)(st))(i)(xs)(st)+c__case_179_case__3 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_179_case__3")(x)++++c__case_177_case__4 x1 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(st)+c__case_177_case__4 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_177_case__4(x1)(x)(st))(i)(xs)(st)+c__case_177_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_177_case__4")(x)++++c__case_178_case__5 x1 x2@(Curry.Module.CompactFlatCurry.C_AlwaysReq x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_177(x3)(x1)(st))(st)+c__case_178_case__5 x1 x2@(Curry.Module.CompactFlatCurry.C_Requires x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_178_case__5 x1 (Curry.Module.CompactFlatCurry.C_RequiredSpecOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_178_case__5(x1)(x)(st))(i)(xs)(st)+c__case_178_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_178_case__5")(x)++++c__case_174_case__6 x1 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x5)(x6))(Curry.Module.Prelude.List))(st)+c__case_174_case__6 x1 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_174_case__6 x1 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_174_case__6(x1)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_174_case__6 x1 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_174_case__6")(x)++++c__case_175_case__7 x1 x2 x4@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleCompactFlatCurry.c__case_174(x2)(x5)(x6)(Curry.Module.OraclePrelude.op_61_61(x5)(x2)(x1)(st))(x7)(st))(st)+c__case_175_case__7 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_175_case__7(x1)(x2)(x)(st))(i)(xs)(st)+c__case_175_case__7 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_175_case__7")(x)++++c__case_176_case__8 x1 x2 x3@(Curry.Module.CompactFlatCurry.C_AlwaysReq x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_175(x2)(x4)(x1)(st))(st)+c__case_176_case__8 x1 x2 x3@(Curry.Module.CompactFlatCurry.C_Requires x7 x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_176_case__8 x1 x2 (Curry.Module.CompactFlatCurry.C_RequiredSpecOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_176_case__8(x1)(x2)(x)(st))(i)(xs)(st)+c__case_176_case__8 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_176_case__8")(x)++++c__case_172_case__9 x1 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(st)+c__case_172_case__9 x1 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_172_case__9 x1 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_172_case__9(x1)(x6)(x)(st))(i)(xs)(st)+c__case_172_case__9 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_172_case__9")(x)++++c__case_173_case__10 x1 x2 x3@(Curry.Module.CompactFlatCurry.C_AlwaysReq x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_173_case__10 x1 x2 x3@(Curry.Module.CompactFlatCurry.C_Requires x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleCompactFlatCurry.c__case_172(x2)(x5)(x6)(Curry.Module.OraclePrelude.op_61_61(x5)(x2)(x1)(st))(x7)(st))(st)+c__case_173_case__10 x1 x2 (Curry.Module.CompactFlatCurry.C_RequiredSpecOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_173_case__10(x1)(x2)(x)(st))(i)(xs)(st)+c__case_173_case__10 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_173_case__10")(x)++++c__case_171_case__11 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_171_case__11 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStr((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCompactFlatCurry.c_readCurrentFlatCurry(x3)(x6)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_computeCompactFlatCurry'46_'35lambda9(x4)))))(x7)(st))(x8)(st))(st)+c__case_171_case__11 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_171_case__11(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_171_case__11 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_171_case__11")(x)++++c__case_170_case__12 x1 x2 x3 x4@(Curry.Module.Prelude.T3 x5 x6 x7) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))))(let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.OracleCompactFlatCurry.c_getRequiredFromOptions(x3)(x15)(st)} in let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))(let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_getRequiredInModule(x9)))))(x16)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_moduleName))))(x7)(x17)(st))(x18)(st))(x19)(st)} in let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))))))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCompactFlatCurry.c_getCalledFuncs(x9)(x6)(x7)(Curry.Module.OracleCompactFlatCurry.c_extendFuncTable(Curry.Module.OracleTableRBT.c_emptyTableRBT(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleCompactFlatCurry.c_leqQName))(st))(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_moduleFuns))))(x12)(st))(x7)(x13)(st))(x14)(st))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.OracleSetRBT.c_insertRBT(x20)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_emptySetRBT(x21)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleCompactFlatCurry.c_leqQName))(st))(x22)(st))(x11)(x23)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_emptySetRBT(x24)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleCompactFlatCurry.c_leqQName))(st))(x25)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_emptySetRBT(x26)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleCompactFlatCurry.c_leqQName))(st))(x27)(st))(x11)(x28)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12(x2)))))(x29)(st))(st))(st))(st))(st))(st)+c__case_170_case__12 x1 x2 x3 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_170_case__12(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_170_case__12 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_170_case__12")(x)++++c__case_169_case__13 x1 x2 x3@(Curry.Module.Prelude.T4 x4 x5 x6 x7) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStrLn(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_43))(st))(Curry.Module.Prelude.C_Zero)(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_length))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_moduleFuns))))(x1)(st))(x4)(x12)(st))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.c_return(Curry.Module.FlatCurry.C_Prog(Curry.Module.OracleCompactFlatCurry.c_moduleName(x2)(x18)(st))(Curry.Module.Prelude.List)(let {x9 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_moduleTypes))))(x19)(st))(x4)(x20)(st)} in let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x23)(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda13(Curry.Module.OracleCompactFlatCurry.c_requiredDatatypes(Curry.Module.OracleCompactFlatCurry.c_extendTConsWithConsType(x6)(x7)(x9)(x21)(st))(x9)(x22)(st))))))(x9)(x23)(st))(st))(st))(st))(x5)(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_makeCompactFlatCurry'46_'35lambda11'46_'35lambda12'46_'35lambda14(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_functionName))))(x5)(x17)(st))))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_moduleOps))))(x24)(st))(x4)(x25)(st))(x26)(st)))(x27)(st))(st))(x28)(st))(st)+c__case_169_case__13 x1 x2 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_169_case__13(x1)(x2)(x)(st))(i)(xs)(st)+c__case_169_case__13 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_169_case__13")(x)++++c__case_168_case__14 x1 x2 x3@(Curry.Module.FlatCurry.C_Op x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x4)(x1)(st))(x2)(x7)(st))(st)+c__case_168_case__14 x1 x2 (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_168_case__14(x1)(x2)(x)(st))(i)(xs)(st)+c__case_168_case__14 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_168_case__14")(x)++++c__case_167_case__15 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_167_case__15 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OracleCompactFlatCurry.c_requiredDatatypes(Curry.Module.OraclePrelude.c_foldr(Curry.Module.OracleSetRBT.c_insertRBT(x1)(st))(x2)(x4)(x6)(st))(x3)(x7)(st))(st)+c__case_167_case__15 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_167_case__15(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_167_case__15 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_167_case__15")(x)++++c__case_165_case__16 x1 x2 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_newTypeConsOfTDecl'46_'35lambda15(x2)))))(Curry.Module.OracleCompactFlatCurry.c_allTypesOfTExpr(x7)(x1)(st))(x9)(st))(st)+c__case_165_case__16 x1 x2 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_165_case__16 x1 x2 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_165_case__16(x1)(x2)(x7)(x)(st))(i)(xs)(st)+c__case_165_case__16 x1 x2 x7 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_165_case__16")(x)++++c__case_164_case__17 x1 x2 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_newTypeConsOfTDecl'46_'35lambda16(x2)))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_newTypeConsOfTDecl'46_'35lambda17))))(x1)(st))(x11)(x13)(st))(x14)(st))(st)+c__case_164_case__17 x1 x2 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_164_case__17 x1 x2 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_164_case__17(x1)(x2)(x11)(x)(st))(i)(xs)(st)+c__case_164_case__17 x1 x2 x11 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_164_case__17")(x)++++c__case_166_case__18 x1 x2 x3@(Curry.Module.FlatCurry.C_TypeSyn x4 x5 x6 x7) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OracleCompactFlatCurry.c__case_165(x2)(x4)(x7)(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_elemRBT(x4)(x1)(st))(x2)(x12)(st))(x13)(st))(st)+c__case_166_case__18 x1 x2 x3@(Curry.Module.FlatCurry.C_Type x8 x9 x10 x11) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))(Curry.Module.OracleCompactFlatCurry.c__case_164(x2)(x8)(x11)(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_elemRBT(x8)(x1)(st))(x2)(x14)(st))(x15)(st))(st)+c__case_166_case__18 x1 x2 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_166_case__18(x1)(x2)(x)(st))(i)(xs)(st)+c__case_166_case__18 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_166_case__18")(x)++++c__case_163_case__19 x1 x2@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_allTypesOfTExpr))))(x1)(st))(x6)(x7)(st))(st)+c__case_163_case__19 x1 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_163_case__19(x1)(x)(st))(i)(xs)(st)+c__case_163_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_163_case__19")(x)++++c__case_160_case__20 x1 x2 x3 x6 x11 x15@Curry.Module.Prelude.C_True st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))))(Curry.Module.OracleCompactFlatCurry.c_extendTConsWithConsType(x2)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_insertRBT(x1)(st))(x11)(x16)(st))(x3)(x17)(st))(x6)(x18)(st))(st)+c__case_160_case__20 x1 x2 x3 x6 x11 x15@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_extendTConsWithConsType(x2)(x3)(x6)(x1)(st))(st)+c__case_160_case__20 x1 x2 x3 x6 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_160_case__20(x1)(x2)(x3)(x6)(x11)(x)(st))(i)(xs)(st)+c__case_160_case__20 x1 x2 x3 x6 x11 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_160_case__20")(x)++++c__case_161_case__21 x1 x2 x3 x6 x5@(Curry.Module.FlatCurry.C_TypeSyn x7 x8 x9 x10) st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))(Curry.Module.OracleCompactFlatCurry.c_extendTConsWithConsType(x2)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_insertRBT(x1)(st))(x7)(x15)(st))(x3)(x16)(st))(x6)(x17)(st))(st)+c__case_161_case__21 x1 x2 x3 x6 x5@(Curry.Module.FlatCurry.C_Type x11 x12 x13 x14) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List)))))))(Curry.Module.OracleCompactFlatCurry.c__case_160(x2)(x3)(x6)(x11)(x14)(Curry.Module.OraclePrelude.op_124_124(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x11)(x1)(st))(Curry.Module.OracleCompactFlatCurry.c_defaultRequiredTypes(x18)(st))(x19)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_any(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_extendTConsWithConsType'46_'35lambda18(x2)))))(x20)(st))(x14)(x21)(st))(x22)(st))(x23)(st))(st)+c__case_161_case__21 x1 x2 x3 x6 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_161_case__21(x1)(x2)(x3)(x6)(x)(st))(i)(xs)(st)+c__case_161_case__21 x1 x2 x3 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_161_case__21")(x)++++c__case_162_case__22 x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_162_case__22 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_161(x2)(x3)(x6)(x5)(x1)(st))(st)+c__case_162_case__22 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_162_case__22(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_162_case__22 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_162_case__22")(x)++++c__case_156_case__23 x1 x2 x4 x5 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_mapIO(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_readCurrentFlatCurry))))(x1)(st))(x4)(x11)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_requiredInCompactProg'46_'35lambda30(x9)(x4)(x2)(x5)(x8)))))(x12)(st))(st)+c__case_156_case__23 x1 x2 x4 x5 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(x9)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))(x1)(st))(x13)(st))(x14)(st))(st)+c__case_156_case__23 x1 x2 x4 x5 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_156_case__23(x1)(x2)(x4)(x5)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_156_case__23 x1 x2 x4 x5 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_156_case__23")(x)++++c__case_155_case__24 x1 x2 x4 x7 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_mapIO(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_readCurrentFlatCurry))))(x1)(st))(Curry.Module.OracleList.c_nub(Curry.Module.OraclePrelude.op_43_43(x4)(Curry.Module.OracleCompactFlatCurry.c_moduleImports(x2)(x10)(st))(x11)(st))(x12)(st))(x13)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_requiredInCompactProg'46_'35lambda31(x7)(x2)(x8)))))(x14)(st))(st)+c__case_155_case__24 x1 x2 x4 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_155_case__24 x1 x2 x4 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_155_case__24(x1)(x2)(x4)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_155_case__24 x1 x2 x4 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_155_case__24")(x)++++c__case_157_case__25 x1 x2 x3 x4 x5 x7 x8 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.OracleCompactFlatCurry.c_getMainFuncFromOptions(x3)(x1)(st)} in let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))))(Curry.Module.OracleCompactFlatCurry.c__case_156(x2)(x4)(x5)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(Curry.Module.Prelude.T2(x5)(x9))(x11)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_functionName))))(Curry.Module.OracleCompactFlatCurry.c_moduleFuns(x2)(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st))(st)+c__case_157_case__25 x1 x2 x3 x4 x5 x7 x8 x10@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OracleCompactFlatCurry.c__case_155(x2)(x4)(x7)(x8)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x16)(st))(st)+c__case_157_case__25 x1 x2 x3 x4 x5 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_157_case__25(x1)(x2)(x3)(x4)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_157_case__25 x1 x2 x3 x4 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_157_case__25")(x)++++c__case_158_case__26 x1 x2 x3 x4 x5 x7 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_mapIO(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_readCurrentFlatCurry))))(x1)(st))(x4)(x10)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_requiredInCompactProg'46_'35lambda29(x4)(x7)(x2)(x8)))))(x11)(st))(st)+c__case_158_case__26 x1 x2 x3 x4 x5 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OracleCompactFlatCurry.c__case_157(x2)(x3)(x4)(x5)(x7)(x8)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_any(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_isMainOption))))(x1)(st))(x3)(x12)(st))(x13)(st))(st)+c__case_158_case__26 x1 x2 x3 x4 x5 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_158_case__26(x1)(x2)(x3)(x4)(x5)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_158_case__26 x1 x2 x3 x4 x5 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_158_case__26")(x)++++c__case_159_case__27 x1 x2 x3 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_mapIO(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_readCurrentFlatCurry))))(x1)(st))(x4)(x10)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_requiredInCompactProg'46_'35lambda28(x4)(x6)(x2)(x8)))))(x11)(st))(st)+c__case_159_case__27 x1 x2 x3 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OracleCompactFlatCurry.c__case_158(x2)(x3)(x4)(x5)(x7)(x8)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(Curry.Module.CompactFlatCurry.C_Exports)(x1)(st))(x3)(x12)(st))(x13)(st))(st)+c__case_159_case__27 x1 x2 x3 x4 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_159_case__27(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_159_case__27 x1 x2 x3 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_159_case__27")(x)++++c__case_154_case__28 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_Import x4) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(x3))(st)+c__case_154_case__28 x1 x3 x2@Curry.Module.CompactFlatCurry.C_Verbose st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_154_case__28 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_Main x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_154_case__28 x1 x3 x2@Curry.Module.CompactFlatCurry.C_Exports st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_154_case__28 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_InitFuncs x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_154_case__28 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_Required x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_154_case__28 x1 x3 (Curry.Module.CompactFlatCurry.C_OptionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_154_case__28(x1)(x3)(x)(st))(i)(xs)(st)+c__case_154_case__28 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_154_case__28")(x)++++c__case_153_case__29 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_InitFuncs x4) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(x3))(st)+c__case_153_case__29 x1 x3 x2@Curry.Module.CompactFlatCurry.C_Verbose st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_153_case__29 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_Main x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_153_case__29 x1 x3 x2@Curry.Module.CompactFlatCurry.C_Exports st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_153_case__29 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_Required x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_153_case__29 x1 x3 x2@(Curry.Module.CompactFlatCurry.C_Import x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_153_case__29 x1 x3 (Curry.Module.CompactFlatCurry.C_OptionOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_153_case__29(x1)(x3)(x)(st))(i)(xs)(st)+c__case_153_case__29 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_153_case__29")(x)++++c__case_152_case__30 x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_152_case__30 x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_152_case__30(x1)(x)(st))(i)(xs)(st)+c__case_152_case__30 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_152_case__30")(x)++++c__case_151_case__31 x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.FlatCurry.C_Public)(x1)(st))(st)+c__case_151_case__31 x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_151_case__31(x1)(x)(st))(i)(xs)(st)+c__case_151_case__31 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_151_case__31")(x)++++c__case_146_case__32 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x21@Curry.Module.Prelude.C_True st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))))(let {x14 = Curry.Module.OracleMaybe.c_fromJust(Curry.Module.Oracle.c_apply(Curry.Module.OracleTableRBT.c_lookupRBT(Curry.Module.Prelude.T2(x12)(x13))(x1)(st))(x5)(x22)(st))(x23)(st)} in let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_getCalledFuncs'46_'35lambda35(x6)))))(Curry.Module.OracleCompactFlatCurry.c_allFuncCalls(x14)(x24)(st))(x25)(st)} in let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List)))(let {x17 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_getImplicitlyRequired(x2)))))(x26)(st))(x16)(x27)(st)} in let {x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.OracleCompactFlatCurry.c_allConstructorsOfFunc(x14)(x28)(st)} in let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))(let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List))(let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)(Curry.Module.Prelude.List))))))))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCompactFlatCurry.c_getCalledFuncs(x2)(x3)(x4)(x5)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.OracleSetRBT.c_insertRBT(x31)(st))(x6)(Curry.Module.OraclePrelude.op_43_43(x16)(x17)(x32)(st))(x33)(st))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.OracleSetRBT.c_insertRBT(x34)(st))(x7)(x18)(x35)(st))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.OracleSetRBT.c_insertRBT(x36)(st))(x8)(Curry.Module.OracleCompactFlatCurry.c_allTypesOfFunc(x14)(x30)(st))(x37)(st))(Curry.Module.OraclePrelude.op_43_43(x11)(Curry.Module.OraclePrelude.op_43_43(x16)(Curry.Module.OraclePrelude.op_43_43(x17)(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_getCalledFuncs'46_'35lambda36(x7)))))(x18)(x29)(st))(x38)(st))(x39)(st))(x40)(st))(x41)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_getCalledFuncs'46_'35lambda37(x14)))))(x42)(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_146_case__32 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x21@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_146_case__32 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_146_case__32(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x12)(x13)(x)(st))(i)(xs)(st)+c__case_146_case__32 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_146_case__32")(x)++++c__case_147_case__33 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x14@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_getCalledFuncs(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x1)(st))(st)+c__case_147_case__33 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x14@Curry.Module.Prelude.C_False st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.OracleCompactFlatCurry.c__case_146(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x12)(x13)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x15)(st))(st)+c__case_147_case__33 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_147_case__33(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x12)(x13)(x)(st))(i)(xs)(st)+c__case_147_case__33 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_147_case__33")(x)++++c__case_148_case__34 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCompactFlatCurry.c_readCurrentFlatCurry(x12)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_getCalledFuncs'46_'35lambda34(x13)(x11)(x5)(x7)(x6)(x3)(x8)(x12)(x4)(x2)))))(x15)(st))(st)+c__case_148_case__34 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x14@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))))(Curry.Module.OracleCompactFlatCurry.c__case_147(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x12)(x13)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.Oracle.c_apply(Curry.Module.OracleTableRBT.c_lookupRBT(Curry.Module.Prelude.T2(x12)(x13))(x1)(st))(x5)(x16)(st))(Curry.Module.Prelude.C_Nothing)(x17)(st))(x18)(st))(st)+c__case_148_case__34 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_148_case__34(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x12)(x13)(x)(st))(i)(xs)(st)+c__case_148_case__34 x1 x2 x3 x4 x5 x6 x7 x8 x11 x12 x13 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_148_case__34")(x)++++c__case_149_case__35 x1 x2 x3 x4 x5 x6 x7 x8 x11 x10@(Curry.Module.Prelude.T2 x12 x13) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))))(Curry.Module.OracleCompactFlatCurry.c__case_148(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x12)(x13)(Curry.Module.OraclePrelude.c_not(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_elemRBT(x12)(x1)(st))(x3)(x14)(st))(x15)(st))(x16)(st))(st)+c__case_149_case__35 x1 x2 x3 x4 x5 x6 x7 x8 x11 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_149_case__35(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x)(st))(i)(xs)(st)+c__case_149_case__35 x1 x2 x3 x4 x5 x6 x7 x8 x11 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_149_case__35")(x)++++c__case_150_case__36 x1 x2 x3 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T4(x4)(Curry.Module.Prelude.List)(x7)(x8))(x1)(st))(st)+c__case_150_case__36 x1 x2 x3 x4 x5 x6 x7 x8 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_149(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x11)(x10)(x1)(st))(st)+c__case_150_case__36 x1 x2 x3 x4 x5 x6 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_150_case__36(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_150_case__36 x1 x2 x3 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_150_case__36")(x)++++c__case_145_case__37 x1 x2 x3@(Curry.Module.Prelude.T4 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T4(x4)((Curry.Module.Prelude.:<)(x2)(x5))(x6)(x7))(x1)(st))(st)+c__case_145_case__37 x1 x2 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_145_case__37(x1)(x2)(x)(st))(i)(xs)(st)+c__case_145_case__37 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_145_case__37")(x)++++c__case_143_case__38 x1 x7@(Curry.Module.FlatCurry.C_External x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_143_case__38 x1 x7@(Curry.Module.FlatCurry.C_Rule x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleList.c_nub(Curry.Module.OracleCompactFlatCurry.c_allFuncCallsOfExpr(x10)(x1)(st))(x11)(st))(st)+c__case_143_case__38 x1 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_143_case__38(x1)(x)(st))(i)(xs)(st)+c__case_143_case__38 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_143_case__38")(x)++++c__case_144_case__39 x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_143(x7)(x1)(st))(st)+c__case_144_case__39 x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_144_case__39(x1)(x)(st))(i)(xs)(st)+c__case_144_case__39 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_144_case__39")(x)++++c__case_141_case__40 x1 x6 x8 x5@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x6)(x8))(st)+c__case_141_case__40 x1 x6 x8 x5@(Curry.Module.FlatCurry.C_FuncPartCall x9) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x6)(x8))(st)+c__case_141_case__40 x1 x6 x8 x5@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_141_case__40 x1 x6 x8 x5@(Curry.Module.FlatCurry.C_ConsPartCall x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_141_case__40 x1 x6 x8 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_141_case__40(x1)(x6)(x8)(x)(st))(i)(xs)(st)+c__case_141_case__40 x1 x6 x8 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_141_case__40")(x)++++c__case_142_case__41 x1 x2@(Curry.Module.FlatCurry.C_Var x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_142_case__41 x1 x2@(Curry.Module.FlatCurry.C_Lit x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_142_case__41 x1 x2@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))(Curry.Module.CEventOracle.c_replace(x21)(Curry.Module.OracleCompactFlatCurry.c__case_141(x6)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_allFuncCallsOfExpr))))(x1)(st))(x7)(x20)(st))(x5)(x21)(st))(st))(st)+c__case_142_case__41 x1 x2@(Curry.Module.FlatCurry.C_Free x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_allFuncCallsOfExpr(x12)(x1)(st))(st)+c__case_142_case__41 x1 x2@(Curry.Module.FlatCurry.C_Let x13 x14) st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_allFuncCallsOfExpr))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x1)(st))(x22)(st))(x13)(x23)(st))(Curry.Module.OracleCompactFlatCurry.c_allFuncCallsOfExpr(x14)(x24)(st))(x25)(st))(st)+c__case_142_case__41 x1 x2@(Curry.Module.FlatCurry.C_Or x15 x16) st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleCompactFlatCurry.c_allFuncCallsOfExpr(x15)(x1)(st))(Curry.Module.OracleCompactFlatCurry.c_allFuncCallsOfExpr(x16)(x26)(st))(x27)(st))(st)+c__case_142_case__41 x1 x2@(Curry.Module.FlatCurry.C_Case x17 x18 x19) st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleCompactFlatCurry.c_allFuncCallsOfExpr(x18)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_allFuncCallsOfBranchExpr))))(x28)(st))(x19)(x29)(st))(x30)(st))(st)+c__case_142_case__41 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_142_case__41(x1)(x)(st))(i)(xs)(st)+c__case_142_case__41 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_142_case__41")(x)++++c__case_140_case__42 x1 x2@(Curry.Module.FlatCurry.C_Branch x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_allFuncCallsOfExpr(x4)(x1)(st))(st)+c__case_140_case__42 x1 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_140_case__42(x1)(x)(st))(i)(xs)(st)+c__case_140_case__42 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_140_case__42")(x)++++c__case_138_case__43 x1 x7@(Curry.Module.FlatCurry.C_External x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_138_case__43 x1 x7@(Curry.Module.FlatCurry.C_Rule x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr(x10)(x1)(st))(st)+c__case_138_case__43 x1 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_138_case__43(x1)(x)(st))(i)(xs)(st)+c__case_138_case__43 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_138_case__43")(x)++++c__case_139_case__44 x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_138(x7)(x1)(st))(st)+c__case_139_case__44 x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_139_case__44(x1)(x)(st))(i)(xs)(st)+c__case_139_case__44 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_139_case__44")(x)++++c__case_136_case__45 x1 x6 x8 x5@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x6)(x8))(st)+c__case_136_case__45 x1 x6 x8 x5@(Curry.Module.FlatCurry.C_ConsPartCall x9) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x6)(x8))(st)+c__case_136_case__45 x1 x6 x8 x5@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_136_case__45 x1 x6 x8 x5@(Curry.Module.FlatCurry.C_FuncPartCall x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_136_case__45 x1 x6 x8 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_136_case__45(x1)(x6)(x8)(x)(st))(i)(xs)(st)+c__case_136_case__45 x1 x6 x8 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_136_case__45")(x)++++c__case_137_case__46 x1 x2@(Curry.Module.FlatCurry.C_Var x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_137_case__46 x1 x2@(Curry.Module.FlatCurry.C_Lit x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_137_case__46 x1 x2@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))(Curry.Module.CEventOracle.c_replace(x21)(Curry.Module.OracleCompactFlatCurry.c__case_136(x6)(Curry.Module.Oracle.c_apply(Curry.Module.OracleCompactFlatCurry.c_unionMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr))))(x1)(st))(x7)(x20)(st))(x5)(x21)(st))(st))(st)+c__case_137_case__46 x1 x2@(Curry.Module.FlatCurry.C_Free x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr(x12)(x1)(st))(st)+c__case_137_case__46 x1 x2@(Curry.Module.FlatCurry.C_Let x13 x14) st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List)))))(Curry.Module.OracleList.c_union(Curry.Module.Oracle.c_apply(Curry.Module.OracleCompactFlatCurry.c_unionMap(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x1)(st))(x22)(st))(x13)(x23)(st))(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr(x14)(x24)(st))(x25)(st))(st)+c__case_137_case__46 x1 x2@(Curry.Module.FlatCurry.C_Or x15 x16) st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))(Curry.Module.OracleList.c_union(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr(x15)(x1)(st))(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr(x16)(x26)(st))(x27)(st))(st)+c__case_137_case__46 x1 x2@(Curry.Module.FlatCurry.C_Case x17 x18 x19) st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))))(Curry.Module.OracleList.c_union(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr(x18)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleCompactFlatCurry.c_unionMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr'46consOfBranch'46252))))(x28)(st))(x19)(x29)(st))(x30)(st))(st)+c__case_137_case__46 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_137_case__46(x1)(x)(st))(i)(xs)(st)+c__case_137_case__46 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_137_case__46")(x)++++c__case_134_case__47 x1 x4 x3@(Curry.Module.FlatCurry.C_LPattern x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr(x4)(x1)(st))(st)+c__case_134_case__47 x1 x4 x3@(Curry.Module.FlatCurry.C_Pattern x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleList.c_union((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleCompactFlatCurry.c_allConsOfExpr(x4)(x1)(st))(x8)(st))(st)+c__case_134_case__47 x1 x4 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_134_case__47(x1)(x4)(x)(st))(i)(xs)(st)+c__case_134_case__47 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_134_case__47")(x)++++c__case_135_case__48 x1 x2@(Curry.Module.FlatCurry.C_Branch x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_134(x4)(x3)(x1)(st))(st)+c__case_135_case__48 x1 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_135_case__48(x1)(x)(st))(i)(xs)(st)+c__case_135_case__48 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_135_case__48")(x)++++c__case_133_case__49 x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c_allTypesOfTExpr(x6)(x1)(st))(st)+c__case_133_case__49 x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_133_case__49(x1)(x)(st))(i)(xs)(st)+c__case_133_case__49 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_133_case__49")(x)++++c__case_132_case__50 x1 x2@(Curry.Module.FlatCurry.C_TVar x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_132_case__50 x1 x2@(Curry.Module.FlatCurry.C_FuncType x4 x5) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OracleList.c_union(Curry.Module.OracleCompactFlatCurry.c_allTypesOfTExpr(x4)(x1)(st))(Curry.Module.OracleCompactFlatCurry.c_allTypesOfTExpr(x5)(x8)(st))(x9)(st))(st)+c__case_132_case__50 x1 x2@(Curry.Module.FlatCurry.C_TCons x6 x7) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleList.c_union((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OracleCompactFlatCurry.c_unionMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_allTypesOfTExpr))))(x1)(st))(x7)(x10)(st))(x11)(st))(st)+c__case_132_case__50 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_132_case__50(x1)(x)(st))(i)(xs)(st)+c__case_132_case__50 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_132_case__50")(x)++++c__case_131_case__51 x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_131_case__51 x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_131_case__51(x1)(x)(st))(i)(xs)(st)+c__case_131_case__51 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_131_case__51")(x)++++c__case_130_case__52 x1 x2@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_130_case__52 x1 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_130_case__52(x1)(x)(st))(i)(xs)(st)+c__case_130_case__52 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_130_case__52")(x)++++c__case_129_case__53 x1 x2@(Curry.Module.FlatCurry.C_Type x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_129_case__53 x1 x2@(Curry.Module.FlatCurry.C_TypeSyn x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_129_case__53 x1 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_129_case__53(x1)(x)(st))(i)(xs)(st)+c__case_129_case__53 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_129_case__53")(x)++++c__case_128_case__54 x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_128_case__54 x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_128_case__54(x1)(x)(st))(i)(xs)(st)+c__case_128_case__54 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_128_case__54")(x)++++c__case_127_case__55 x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_127_case__55 x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_127_case__55(x1)(x)(st))(i)(xs)(st)+c__case_127_case__55 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_127_case__55")(x)++++c__case_126_case__56 x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_126_case__56 x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_126_case__56(x1)(x)(st))(i)(xs)(st)+c__case_126_case__56 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_126_case__56")(x)++++c__case_125_case__57 x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_125_case__57 x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_125_case__57(x1)(x)(st))(i)(xs)(st)+c__case_125_case__57 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_125_case__57")(x)++++c__case_124_case__58 x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_124_case__58 x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_124_case__58(x1)(x)(st))(i)(xs)(st)+c__case_124_case__58 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_124_case__58")(x)++++c__case_122_case__59 x1 x4 x5 x3@(Curry.Module.Prelude.T2 x6 x7) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))(let {x8 = Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleSort.c_cmpString(x1)(st))(x4)(x9)(st))(x6)(x10)(st)} in let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.Prelude.C_LT)(x11)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.Prelude.C_EQ)(x12)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleSort.c_leqString(x13)(st))(x5)(x14)(st))(x7)(x15)(st))(x16)(st))(x17)(st))(st))(st)+c__case_122_case__59 x1 x4 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_122_case__59(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_122_case__59 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_122_case__59")(x)++++c__case_123_case__60 x1 x3 x2@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_122(x4)(x5)(x3)(x1)(st))(st)+c__case_123_case__60 x1 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_123_case__60(x1)(x3)(x)(st))(i)(xs)(st)+c__case_123_case__60 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_123_case__60")(x)++++c__case_121_case__61 x1 x2 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFlatCurry.c_readFlatCurry(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_processPrimitives(x2)))))(x5)(st))(st)+c__case_121_case__61 x1 x2 x4@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCompactFlatCurry.c_getSourceModificationTime(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_readCurrentFlatCurry'46_'35lambda40'46_'35lambda41'46_'35lambda42(x2)))))(x6)(st))(st)+c__case_121_case__61 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_121_case__61(x1)(x2)(x)(st))(i)(xs)(st)+c__case_121_case__61 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_121_case__61")(x)++++c__case_120_case__62 x1 x3 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFlatCurry.c_readFlatCurry(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_processPrimitives(x3)))))(x6)(st))(st)+c__case_120_case__62 x1 x3 x5@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFlatCurry.c_readFlatCurryFile(Curry.Module.OracleFlatCurry.c_flatCurryFileName(x3)(x1)(st))(x7)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_processPrimitives(x3)))))(x8)(st))(st)+c__case_120_case__62 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_120_case__62(x1)(x3)(x)(st))(i)(xs)(st)+c__case_120_case__62 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_120_case__62")(x)++++c__case_119_case__63 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleDirectory.c_getModificationTime(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(x1)(st))(x4)(st))(st)+c__case_119_case__63 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleDirectory.c_getModificationTime(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x1)(st))(x5)(st))(st)+c__case_119_case__63 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_119_case__63(x1)(x2)(x)(st))(i)(xs)(st)+c__case_119_case__63 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_119_case__63")(x)++++c__case_118_case__64 x1 x2 x3@(Curry.Module.FlatCurry.C_Prog x4 x5 x6 x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Prog(x4)(x5)(x6)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_mergePrimSpecIntoFunc(x2)))))(x1)(st))(x7)(x9)(st))(x8))(st)+c__case_118_case__64 x1 x2 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_118_case__64(x1)(x2)(x)(st))(i)(xs)(st)+c__case_118_case__64 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_118_case__64")(x)++++c__case_115_case__65 x1 x4 x5 x6 x7 x11 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_115_case__65 x1 x4 x5 x6 x7 x11 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.FlatCurry.C_Func(x4)(x5)(x6)(x7)(Curry.Module.FlatCurry.C_External(Curry.Module.OraclePrelude.op_43_43(x11)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(x12))(x1)(st))))(Curry.Module.Prelude.List))(st)+c__case_115_case__65 x1 x4 x5 x6 x7 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_115_case__65(x1)(x4)(x5)(x6)(x7)(x11)(x12)(x)(st))(i)(xs)(st)+c__case_115_case__65 x1 x4 x5 x6 x7 x11 x12 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_115_case__65")(x)++++c__case_116_case__66 x1 x4 x5 x6 x7 x8 x9 x13@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.FlatCurry.C_Func(x4)(x5)(x6)(x7)(x8))(Curry.Module.Prelude.List))(st)+c__case_116_case__66 x1 x4 x5 x6 x7 x8 x9 x13@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.OracleCompactFlatCurry.c_mergePrimSpecIntoFunc'46_'35selFP4'35entry(x9)(x14)(st)} in let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OracleCompactFlatCurry.c__case_115(x4)(x5)(x6)(x7)(Curry.Module.OracleCompactFlatCurry.c_mergePrimSpecIntoFunc'46_'35selFP3'35lib(x9)(x1)(st))(x12)(Curry.Module.OraclePrelude.c_null(x12)(x15)(st))(x16)(st))(st))(st))(st))(st)+c__case_116_case__66 x1 x4 x5 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_116_case__66(x1)(x4)(x5)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_116_case__66 x1 x4 x5 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_116_case__66")(x)++++c__case_117_case__67 x1 x2 x3@(Curry.Module.FlatCurry.C_Func x4 x5 x6 x7 x8) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.OraclePrelude.c_lookup(x4)(x2)(x1)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleCompactFlatCurry.c__case_116(x4)(x5)(x6)(x7)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.C_Nothing)(x10)(st))(x11)(st))(st))(st)+c__case_117_case__67 x1 x2 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_117_case__67(x1)(x2)(x)(st))(i)(xs)(st)+c__case_117_case__67 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_117_case__67")(x)++++c__case_113_case__68 x1 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_113_case__68 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_113_case__68(x1)(x)(st))(i)(xs)(st)+c__case_113_case__68 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_113_case__68")(x)++++c__case_114_case__69 x1 x2@(Curry.Module.Prelude.C_Just x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_113(x3)(x1)(st))(st)+c__case_114_case__69 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_114_case__69(x1)(x)(st))(i)(xs)(st)+c__case_114_case__69 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_114_case__69")(x)++++c__case_111_case__70 x1 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_111_case__70 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_111_case__70(x1)(x)(st))(i)(xs)(st)+c__case_111_case__70 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_111_case__70")(x)++++c__case_112_case__71 x1 x2@(Curry.Module.Prelude.C_Just x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_111(x3)(x1)(st))(st)+c__case_112_case__71 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_112_case__71(x1)(x)(st))(i)(xs)(st)+c__case_112_case__71 x1 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_112_case__71")(x)++++c__case_110_case__72 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleXML.c_readXmlFile(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_readPrimSpec'46_'35lambda48'46_'35lambda49(x2)))))(x5)(st))(st)+c__case_110_case__72 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.List)(x1)(st))(st)+c__case_110_case__72 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_110_case__72(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_110_case__72 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_110_case__72")(x)++++c__case_87_case__73 x1 x2 x6 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCompactFlatCurry.c_xml2primtrans'46xml2prim'46358(x2)))))(x6)(x1)(st))(st)+c__case_87_case__73 x1 x2 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_87_case__73(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c__case_87_case__73 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_87_case__73")(x)++++c__case_88_case__74 x1 x2 x5 x6 x26@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_87(x2)(x6)(x5)(x1)(st))(st)+c__case_88_case__74 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_88_case__74(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_88_case__74 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_88_case__74")(x)++++c__case_89_case__75 x1 x2 x5 x6 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_88(x2)(x5)(x6)(x26)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_90_case__76 x1 x2 x5 x6 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_89(x2)(x5)(x6)(x26)(x25)(x1)(st))(st)+c__case_90_case__76 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_90_case__76(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_90_case__76 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_90_case__76")(x)++++c__case_91_case__77 x1 x2 x5 x6 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_90(x2)(x5)(x6)(x24)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_92_case__78 x1 x2 x5 x6 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_91(x2)(x5)(x6)(x24)(x23)(x1)(st))(st)+c__case_92_case__78 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_92_case__78(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_92_case__78 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_92_case__78")(x)++++c__case_93_case__79 x1 x2 x5 x6 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_92(x2)(x5)(x6)(x22)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_94_case__80 x1 x2 x5 x6 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_93(x2)(x5)(x6)(x22)(x21)(x1)(st))(st)+c__case_94_case__80 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_94_case__80(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_94_case__80 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_94_case__80")(x)++++c__case_95_case__81 x1 x2 x5 x6 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_94(x2)(x5)(x6)(x20)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_96_case__82 x1 x2 x5 x6 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_95(x2)(x5)(x6)(x20)(x19)(x1)(st))(st)+c__case_96_case__82 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_96_case__82(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_96_case__82 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_96_case__82")(x)++++c__case_97_case__83 x1 x2 x5 x6 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_96(x2)(x5)(x6)(x18)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_98_case__84 x1 x2 x5 x6 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_97(x2)(x5)(x6)(x18)(x17)(x1)(st))(st)+c__case_98_case__84 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_98_case__84(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_98_case__84 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_98_case__84")(x)++++c__case_99_case__85 x1 x2 x5 x6 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_98(x2)(x5)(x6)(x16)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_100_case__86 x1 x2 x5 x6 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_99(x2)(x5)(x6)(x16)(x15)(x1)(st))(st)+c__case_100_case__86 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_100_case__86(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_100_case__86 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_100_case__86")(x)++++c__case_101_case__87 x1 x2 x5 x6 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_100(x2)(x5)(x6)(x14)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_102_case__88 x1 x2 x5 x6 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_101(x2)(x5)(x6)(x14)(x13)(x1)(st))(st)+c__case_102_case__88 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_102_case__88(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_102_case__88 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_102_case__88")(x)++++c__case_103_case__89 x1 x2 x5 x6 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_102(x2)(x5)(x6)(x12)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_104_case__90 x1 x2 x5 x6 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_103(x2)(x5)(x6)(x12)(x11)(x1)(st))(st)+c__case_104_case__90 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_104_case__90(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_104_case__90 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_104_case__90")(x)++++c__case_105_case__91 x1 x2 x5 x6 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_104(x2)(x5)(x6)(x10)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_106_case__92 x1 x2 x5 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_105(x2)(x5)(x6)(x10)(x9)(x1)(st))(st)+c__case_106_case__92 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_106_case__92(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_106_case__92 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_106_case__92")(x)++++c__case_107_case__93 x1 x2 x5 x6 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_106(x2)(x5)(x6)(x8)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_108_case__94 x1 x2 x5 x6 x4@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_107(x2)(x5)(x6)(x8)(x7)(x1)(st))(st)+c__case_108_case__94 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_108_case__94(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_108_case__94 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_108_case__94")(x)++++c__case_109_case__95 x1 x2 x3@(Curry.Module.XML.C_XElem x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_108(x2)(x5)(x6)(x4)(x1)(st))(st)+c__case_109_case__95 x1 x2 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_109_case__95(x1)(x2)(x)(st))(i)(xs)(st)+c__case_109_case__95 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_109_case__95")(x)++++c__case_23_case__96 x1 x2 x28 x41 x60 x57@Curry.Module.Prelude.List st = let {x61 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x61)(Curry.Module.Prelude.List))(Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(x2)(x28))(Curry.Module.Prelude.T2(Curry.Module.OracleXML.c_textOfXml(x41)(x1)(st))(Curry.Module.OracleXML.c_textOfXml(x60)(x61)(st))))(st)+c__case_23_case__96 x1 x2 x28 x41 x60 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_23_case__96(x1)(x2)(x28)(x41)(x60)(x)(st))(i)(xs)(st)+c__case_23_case__96 x1 x2 x28 x41 x60 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_23_case__96")(x)++++c__case_24_case__97 x1 x2 x28 x41 x57 x60 x59@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_23(x2)(x28)(x41)(x60)(x57)(x1)(st))(st)+c__case_24_case__97 x1 x2 x28 x41 x57 x60 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_24_case__97(x1)(x2)(x28)(x41)(x57)(x60)(x)(st))(i)(xs)(st)+c__case_24_case__97 x1 x2 x28 x41 x57 x60 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_24_case__97")(x)++++c__case_25_case__98 x1 x2 x28 x41 x57 x59 x60 x70@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_24(x2)(x28)(x41)(x57)(x60)(x59)(x1)(st))(st)+c__case_25_case__98 x1 x2 x28 x41 x57 x59 x60 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_25_case__98(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x)(st))(i)(xs)(st)+c__case_25_case__98 x1 x2 x28 x41 x57 x59 x60 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_25_case__98")(x)++++c__case_26_case__99 x1 x2 x28 x41 x57 x59 x60 x70 x69 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x69)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_25(x2)(x28)(x41)(x57)(x59)(x60)(x70)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_27_case__100 x1 x2 x28 x41 x57 x59 x60 x68@((Curry.Module.Prelude.:<) x69 x70) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_26(x2)(x28)(x41)(x57)(x59)(x60)(x70)(x69)(x1)(st))(st)+c__case_27_case__100 x1 x2 x28 x41 x57 x59 x60 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_27_case__100(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x)(st))(i)(xs)(st)+c__case_27_case__100 x1 x2 x28 x41 x57 x59 x60 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_27_case__100")(x)++++c__case_28_case__101 x1 x2 x28 x41 x57 x59 x60 x68 x67 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x67)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_27(x2)(x28)(x41)(x57)(x59)(x60)(x68)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_29_case__102 x1 x2 x28 x41 x57 x59 x60 x66@((Curry.Module.Prelude.:<) x67 x68) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_28(x2)(x28)(x41)(x57)(x59)(x60)(x68)(x67)(x1)(st))(st)+c__case_29_case__102 x1 x2 x28 x41 x57 x59 x60 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_29_case__102(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x)(st))(i)(xs)(st)+c__case_29_case__102 x1 x2 x28 x41 x57 x59 x60 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_29_case__102")(x)++++c__case_30_case__103 x1 x2 x28 x41 x57 x59 x60 x66 x65 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x65)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_29(x2)(x28)(x41)(x57)(x59)(x60)(x66)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_31_case__104 x1 x2 x28 x41 x57 x59 x60 x64@((Curry.Module.Prelude.:<) x65 x66) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_30(x2)(x28)(x41)(x57)(x59)(x60)(x66)(x65)(x1)(st))(st)+c__case_31_case__104 x1 x2 x28 x41 x57 x59 x60 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_31_case__104(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x)(st))(i)(xs)(st)+c__case_31_case__104 x1 x2 x28 x41 x57 x59 x60 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_31_case__104")(x)++++c__case_32_case__105 x1 x2 x28 x41 x57 x59 x60 x64 x63 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x63)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_31(x2)(x28)(x41)(x57)(x59)(x60)(x64)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_33_case__106 x1 x2 x28 x41 x57 x59 x60 x62@((Curry.Module.Prelude.:<) x63 x64) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_32(x2)(x28)(x41)(x57)(x59)(x60)(x64)(x63)(x1)(st))(st)+c__case_33_case__106 x1 x2 x28 x41 x57 x59 x60 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_33_case__106(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x)(st))(i)(xs)(st)+c__case_33_case__106 x1 x2 x28 x41 x57 x59 x60 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_33_case__106")(x)++++c__case_34_case__107 x1 x2 x28 x41 x57 x59 x60 x62 x61 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x61)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_33(x2)(x28)(x41)(x57)(x59)(x60)(x62)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_35_case__108 x1 x2 x28 x41 x57 x59 x60 x58@((Curry.Module.Prelude.:<) x61 x62) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_34(x2)(x28)(x41)(x57)(x59)(x60)(x62)(x61)(x1)(st))(st)+c__case_35_case__108 x1 x2 x28 x41 x57 x59 x60 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_35_case__108(x1)(x2)(x28)(x41)(x57)(x59)(x60)(x)(st))(i)(xs)(st)+c__case_35_case__108 x1 x2 x28 x41 x57 x59 x60 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_35_case__108")(x)++++c__case_36_case__109 x1 x2 x28 x41 x57 x56@(Curry.Module.XML.C_XElem x58 x59 x60) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_35(x2)(x28)(x41)(x57)(x59)(x60)(x58)(x1)(st))(st)+c__case_36_case__109 x1 x2 x28 x41 x57 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_36_case__109(x1)(x2)(x28)(x41)(x57)(x)(st))(i)(xs)(st)+c__case_36_case__109 x1 x2 x28 x41 x57 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_36_case__109")(x)++++c__case_37_case__110 x1 x2 x28 x41 x38@((Curry.Module.Prelude.:<) x56 x57) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_36(x2)(x28)(x41)(x57)(x56)(x1)(st))(st)+c__case_37_case__110 x1 x2 x28 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_37_case__110(x1)(x2)(x28)(x41)(x)(st))(i)(xs)(st)+c__case_37_case__110 x1 x2 x28 x41 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_37_case__110")(x)++++c__case_38_case__111 x1 x2 x28 x38 x41 x40@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_37(x2)(x28)(x41)(x38)(x1)(st))(st)+c__case_38_case__111 x1 x2 x28 x38 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_38_case__111(x1)(x2)(x28)(x38)(x41)(x)(st))(i)(xs)(st)+c__case_38_case__111 x1 x2 x28 x38 x41 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_38_case__111")(x)++++c__case_39_case__112 x1 x2 x28 x38 x40 x41 x55@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_38(x2)(x28)(x38)(x41)(x40)(x1)(st))(st)+c__case_39_case__112 x1 x2 x28 x38 x40 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_39_case__112(x1)(x2)(x28)(x38)(x40)(x41)(x)(st))(i)(xs)(st)+c__case_39_case__112 x1 x2 x28 x38 x40 x41 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_39_case__112")(x)++++c__case_40_case__113 x1 x2 x28 x38 x40 x41 x55 x54 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x54)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_39(x2)(x28)(x38)(x40)(x41)(x55)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_41_case__114 x1 x2 x28 x38 x40 x41 x53@((Curry.Module.Prelude.:<) x54 x55) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_40(x2)(x28)(x38)(x40)(x41)(x55)(x54)(x1)(st))(st)+c__case_41_case__114 x1 x2 x28 x38 x40 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_41_case__114(x1)(x2)(x28)(x38)(x40)(x41)(x)(st))(i)(xs)(st)+c__case_41_case__114 x1 x2 x28 x38 x40 x41 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_41_case__114")(x)++++c__case_42_case__115 x1 x2 x28 x38 x40 x41 x53 x52 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x52)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_41(x2)(x28)(x38)(x40)(x41)(x53)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_43_case__116 x1 x2 x28 x38 x40 x41 x51@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_42(x2)(x28)(x38)(x40)(x41)(x53)(x52)(x1)(st))(st)+c__case_43_case__116 x1 x2 x28 x38 x40 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_43_case__116(x1)(x2)(x28)(x38)(x40)(x41)(x)(st))(i)(xs)(st)+c__case_43_case__116 x1 x2 x28 x38 x40 x41 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_43_case__116")(x)++++c__case_44_case__117 x1 x2 x28 x38 x40 x41 x51 x50 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x50)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_43(x2)(x28)(x38)(x40)(x41)(x51)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_45_case__118 x1 x2 x28 x38 x40 x41 x49@((Curry.Module.Prelude.:<) x50 x51) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_44(x2)(x28)(x38)(x40)(x41)(x51)(x50)(x1)(st))(st)+c__case_45_case__118 x1 x2 x28 x38 x40 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_45_case__118(x1)(x2)(x28)(x38)(x40)(x41)(x)(st))(i)(xs)(st)+c__case_45_case__118 x1 x2 x28 x38 x40 x41 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_45_case__118")(x)++++c__case_46_case__119 x1 x2 x28 x38 x40 x41 x49 x48 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x48)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_45(x2)(x28)(x38)(x40)(x41)(x49)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_47_case__120 x1 x2 x28 x38 x40 x41 x47@((Curry.Module.Prelude.:<) x48 x49) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_46(x2)(x28)(x38)(x40)(x41)(x49)(x48)(x1)(st))(st)+c__case_47_case__120 x1 x2 x28 x38 x40 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_47_case__120(x1)(x2)(x28)(x38)(x40)(x41)(x)(st))(i)(xs)(st)+c__case_47_case__120 x1 x2 x28 x38 x40 x41 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_47_case__120")(x)++++c__case_48_case__121 x1 x2 x28 x38 x40 x41 x47 x46 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x46)(Curry.Module.Prelude.C_Char('b'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_47(x2)(x28)(x38)(x40)(x41)(x47)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_49_case__122 x1 x2 x28 x38 x40 x41 x45@((Curry.Module.Prelude.:<) x46 x47) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_48(x2)(x28)(x38)(x40)(x41)(x47)(x46)(x1)(st))(st)+c__case_49_case__122 x1 x2 x28 x38 x40 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_49_case__122(x1)(x2)(x28)(x38)(x40)(x41)(x)(st))(i)(xs)(st)+c__case_49_case__122 x1 x2 x28 x38 x40 x41 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_49_case__122")(x)++++c__case_50_case__123 x1 x2 x28 x38 x40 x41 x45 x44 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x44)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_49(x2)(x28)(x38)(x40)(x41)(x45)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_51_case__124 x1 x2 x28 x38 x40 x41 x43@((Curry.Module.Prelude.:<) x44 x45) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_50(x2)(x28)(x38)(x40)(x41)(x45)(x44)(x1)(st))(st)+c__case_51_case__124 x1 x2 x28 x38 x40 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_51_case__124(x1)(x2)(x28)(x38)(x40)(x41)(x)(st))(i)(xs)(st)+c__case_51_case__124 x1 x2 x28 x38 x40 x41 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_51_case__124")(x)++++c__case_52_case__125 x1 x2 x28 x38 x40 x41 x43 x42 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x42)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_51(x2)(x28)(x38)(x40)(x41)(x43)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_53_case__126 x1 x2 x28 x38 x40 x41 x39@((Curry.Module.Prelude.:<) x42 x43) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_52(x2)(x28)(x38)(x40)(x41)(x43)(x42)(x1)(st))(st)+c__case_53_case__126 x1 x2 x28 x38 x40 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_53_case__126(x1)(x2)(x28)(x38)(x40)(x41)(x)(st))(i)(xs)(st)+c__case_53_case__126 x1 x2 x28 x38 x40 x41 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_53_case__126")(x)++++c__case_54_case__127 x1 x2 x28 x38 x37@(Curry.Module.XML.C_XElem x39 x40 x41) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_53(x2)(x28)(x38)(x40)(x41)(x39)(x1)(st))(st)+c__case_54_case__127 x1 x2 x28 x38 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_54_case__127(x1)(x2)(x28)(x38)(x)(st))(i)(xs)(st)+c__case_54_case__127 x1 x2 x28 x38 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_54_case__127")(x)++++c__case_55_case__128 x1 x2 x28 x6@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_54(x2)(x28)(x38)(x37)(x1)(st))(st)+c__case_55_case__128 x1 x2 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_55_case__128(x1)(x2)(x28)(x)(st))(i)(xs)(st)+c__case_55_case__128 x1 x2 x28 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_55_case__128")(x)++++c__case_56_case__129 x1 x2 x6 x28 x36@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_55(x2)(x28)(x6)(x1)(st))(st)+c__case_56_case__129 x1 x2 x6 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_56_case__129(x1)(x2)(x6)(x28)(x)(st))(i)(xs)(st)+c__case_56_case__129 x1 x2 x6 x28 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_56_case__129")(x)++++c__case_57_case__130 x1 x2 x6 x28 x36 x35 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x35)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_56(x2)(x6)(x28)(x36)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_58_case__131 x1 x2 x6 x28 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_57(x2)(x6)(x28)(x36)(x35)(x1)(st))(st)+c__case_58_case__131 x1 x2 x6 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_58_case__131(x1)(x2)(x6)(x28)(x)(st))(i)(xs)(st)+c__case_58_case__131 x1 x2 x6 x28 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_58_case__131")(x)++++c__case_59_case__132 x1 x2 x6 x28 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_58(x2)(x6)(x28)(x34)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_60_case__133 x1 x2 x6 x28 x32@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_59(x2)(x6)(x28)(x34)(x33)(x1)(st))(st)+c__case_60_case__133 x1 x2 x6 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_60_case__133(x1)(x2)(x6)(x28)(x)(st))(i)(xs)(st)+c__case_60_case__133 x1 x2 x6 x28 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_60_case__133")(x)++++c__case_61_case__134 x1 x2 x6 x28 x32 x31 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x31)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_60(x2)(x6)(x28)(x32)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_62_case__135 x1 x2 x6 x28 x30@((Curry.Module.Prelude.:<) x31 x32) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_61(x2)(x6)(x28)(x32)(x31)(x1)(st))(st)+c__case_62_case__135 x1 x2 x6 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_62_case__135(x1)(x2)(x6)(x28)(x)(st))(i)(xs)(st)+c__case_62_case__135 x1 x2 x6 x28 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_62_case__135")(x)++++c__case_63_case__136 x1 x2 x6 x28 x30 x29 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x29)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_62(x2)(x6)(x28)(x30)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_64_case__137 x1 x2 x6 x28 x27@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_63(x2)(x6)(x28)(x30)(x29)(x1)(st))(st)+c__case_64_case__137 x1 x2 x6 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_64_case__137(x1)(x2)(x6)(x28)(x)(st))(i)(xs)(st)+c__case_64_case__137 x1 x2 x6 x28 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_64_case__137")(x)++++c__case_65_case__138 x1 x2 x6 x25@(Curry.Module.Prelude.T2 x27 x28) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_64(x2)(x6)(x28)(x27)(x1)(st))(st)+c__case_65_case__138 x1 x2 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_65_case__138(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c__case_65_case__138 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_65_case__138")(x)++++c__case_66_case__139 x1 x2 x6 x5@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_65(x2)(x6)(x25)(x1)(st))(st)+c__case_66_case__139 x1 x2 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_66_case__139(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c__case_66_case__139 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_66_case__139")(x)++++c__case_67_case__140 x1 x2 x5 x6 x24@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_66(x2)(x6)(x5)(x1)(st))(st)+c__case_67_case__140 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_67_case__140(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_67_case__140 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_67_case__140")(x)++++c__case_68_case__141 x1 x2 x5 x6 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_67(x2)(x5)(x6)(x24)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_69_case__142 x1 x2 x5 x6 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_68(x2)(x5)(x6)(x24)(x23)(x1)(st))(st)+c__case_69_case__142 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_69_case__142(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_69_case__142 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_69_case__142")(x)++++c__case_70_case__143 x1 x2 x5 x6 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_69(x2)(x5)(x6)(x22)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_71_case__144 x1 x2 x5 x6 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_70(x2)(x5)(x6)(x22)(x21)(x1)(st))(st)+c__case_71_case__144 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_71_case__144(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_71_case__144 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_71_case__144")(x)++++c__case_72_case__145 x1 x2 x5 x6 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_71(x2)(x5)(x6)(x20)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_73_case__146 x1 x2 x5 x6 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_72(x2)(x5)(x6)(x20)(x19)(x1)(st))(st)+c__case_73_case__146 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_73_case__146(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_73_case__146 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_73_case__146")(x)++++c__case_74_case__147 x1 x2 x5 x6 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_73(x2)(x5)(x6)(x18)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_75_case__148 x1 x2 x5 x6 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_74(x2)(x5)(x6)(x18)(x17)(x1)(st))(st)+c__case_75_case__148 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_75_case__148(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_75_case__148 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_75_case__148")(x)++++c__case_76_case__149 x1 x2 x5 x6 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_75(x2)(x5)(x6)(x16)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_77_case__150 x1 x2 x5 x6 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_76(x2)(x5)(x6)(x16)(x15)(x1)(st))(st)+c__case_77_case__150 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_77_case__150(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_77_case__150 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_77_case__150")(x)++++c__case_78_case__151 x1 x2 x5 x6 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_77(x2)(x5)(x6)(x14)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_79_case__152 x1 x2 x5 x6 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_78(x2)(x5)(x6)(x14)(x13)(x1)(st))(st)+c__case_79_case__152 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_79_case__152(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_79_case__152 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_79_case__152")(x)++++c__case_80_case__153 x1 x2 x5 x6 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_79(x2)(x5)(x6)(x12)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_81_case__154 x1 x2 x5 x6 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_80(x2)(x5)(x6)(x12)(x11)(x1)(st))(st)+c__case_81_case__154 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_81_case__154(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_81_case__154 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_81_case__154")(x)++++c__case_82_case__155 x1 x2 x5 x6 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_81(x2)(x5)(x6)(x10)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_83_case__156 x1 x2 x5 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_82(x2)(x5)(x6)(x10)(x9)(x1)(st))(st)+c__case_83_case__156 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_83_case__156(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_83_case__156 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_83_case__156")(x)++++c__case_0_case__157 x1 x2 x84 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.T2(x2)(x84))(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)))(st)+c__case_0_case__157 x1 x2 x84 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_0_case__157(x1)(x2)(x84)(x)(st))(i)(xs)(st)+c__case_0_case__157 x1 x2 x84 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_0_case__157")(x)++++c__case_1_case__158 x1 x2 x6 x84 x92@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_0(x2)(x84)(x6)(x1)(st))(st)+c__case_1_case__158 x1 x2 x6 x84 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_1_case__158(x1)(x2)(x6)(x84)(x)(st))(i)(xs)(st)+c__case_1_case__158 x1 x2 x6 x84 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_1_case__158")(x)++++c__case_2_case__159 x1 x2 x6 x84 x92 x91 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x91)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_1(x2)(x6)(x84)(x92)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_3_case__160 x1 x2 x6 x84 x90@((Curry.Module.Prelude.:<) x91 x92) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_2(x2)(x6)(x84)(x92)(x91)(x1)(st))(st)+c__case_3_case__160 x1 x2 x6 x84 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_3_case__160(x1)(x2)(x6)(x84)(x)(st))(i)(xs)(st)+c__case_3_case__160 x1 x2 x6 x84 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_3_case__160")(x)++++c__case_4_case__161 x1 x2 x6 x84 x90 x89 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x89)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_3(x2)(x6)(x84)(x90)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_5_case__162 x1 x2 x6 x84 x88@((Curry.Module.Prelude.:<) x89 x90) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_4(x2)(x6)(x84)(x90)(x89)(x1)(st))(st)+c__case_5_case__162 x1 x2 x6 x84 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_5_case__162(x1)(x2)(x6)(x84)(x)(st))(i)(xs)(st)+c__case_5_case__162 x1 x2 x6 x84 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_5_case__162")(x)++++c__case_6_case__163 x1 x2 x6 x84 x88 x87 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x87)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_5(x2)(x6)(x84)(x88)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_7_case__164 x1 x2 x6 x84 x86@((Curry.Module.Prelude.:<) x87 x88) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_6(x2)(x6)(x84)(x88)(x87)(x1)(st))(st)+c__case_7_case__164 x1 x2 x6 x84 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_7_case__164(x1)(x2)(x6)(x84)(x)(st))(i)(xs)(st)+c__case_7_case__164 x1 x2 x6 x84 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_7_case__164")(x)++++c__case_8_case__165 x1 x2 x6 x84 x86 x85 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x85)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_7(x2)(x6)(x84)(x86)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_9_case__166 x1 x2 x6 x84 x83@((Curry.Module.Prelude.:<) x85 x86) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_8(x2)(x6)(x84)(x86)(x85)(x1)(st))(st)+c__case_9_case__166 x1 x2 x6 x84 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_9_case__166(x1)(x2)(x6)(x84)(x)(st))(i)(xs)(st)+c__case_9_case__166 x1 x2 x6 x84 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_9_case__166")(x)++++c__case_10_case__167 x1 x2 x6 x81@(Curry.Module.Prelude.T2 x83 x84) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_9(x2)(x6)(x84)(x83)(x1)(st))(st)+c__case_10_case__167 x1 x2 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_10_case__167(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c__case_10_case__167 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_10_case__167")(x)++++c__case_11_case__168 x1 x2 x6 x5@((Curry.Module.Prelude.:<) x81 x82) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_10(x2)(x6)(x81)(x1)(st))(st)+c__case_11_case__168 x1 x2 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_11_case__168(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c__case_11_case__168 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_11_case__168")(x)++++c__case_12_case__169 x1 x2 x5 x6 x80@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_11(x2)(x6)(x5)(x1)(st))(st)+c__case_12_case__169 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_12_case__169(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_12_case__169 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_12_case__169")(x)++++c__case_13_case__170 x1 x2 x5 x6 x80 x79 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x79)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_12(x2)(x5)(x6)(x80)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_14_case__171 x1 x2 x5 x6 x78@((Curry.Module.Prelude.:<) x79 x80) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_13(x2)(x5)(x6)(x80)(x79)(x1)(st))(st)+c__case_14_case__171 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_14_case__171(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_14_case__171 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_14_case__171")(x)++++c__case_15_case__172 x1 x2 x5 x6 x78 x77 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x77)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_14(x2)(x5)(x6)(x78)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_16_case__173 x1 x2 x5 x6 x76@((Curry.Module.Prelude.:<) x77 x78) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_15(x2)(x5)(x6)(x78)(x77)(x1)(st))(st)+c__case_16_case__173 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_16_case__173(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_16_case__173 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_16_case__173")(x)++++c__case_17_case__174 x1 x2 x5 x6 x76 x75 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x75)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_16(x2)(x5)(x6)(x76)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_18_case__175 x1 x2 x5 x6 x74@((Curry.Module.Prelude.:<) x75 x76) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_17(x2)(x5)(x6)(x76)(x75)(x1)(st))(st)+c__case_18_case__175 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_18_case__175(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_18_case__175 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_18_case__175")(x)++++c__case_19_case__176 x1 x2 x5 x6 x74 x73 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x73)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_18(x2)(x5)(x6)(x74)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_20_case__177 x1 x2 x5 x6 x72@((Curry.Module.Prelude.:<) x73 x74) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_19(x2)(x5)(x6)(x74)(x73)(x1)(st))(st)+c__case_20_case__177 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_20_case__177(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_20_case__177 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_20_case__177")(x)++++c__case_21_case__178 x1 x2 x5 x6 x72 x71 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x71)(Curry.Module.Prelude.C_Char('g'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_20(x2)(x5)(x6)(x72)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_22_case__179 x1 x2 x5 x6 x8@((Curry.Module.Prelude.:<) x71 x72) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_21(x2)(x5)(x6)(x72)(x71)(x1)(st))(st)+c__case_22_case__179 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_22_case__179(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_22_case__179 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_22_case__179")(x)++++c__case_84_case__180 x1 x2 x5 x6 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_83(x2)(x5)(x6)(x8)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_22(x2)(x5)(x6)(x8)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_85_case__181 x1 x2 x5 x6 x4@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_84(x2)(x5)(x6)(x8)(x7)(x1)(st))(st)+c__case_85_case__181 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_85_case__181(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_85_case__181 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_85_case__181")(x)++++c__case_86_case__182 x1 x2 x3@(Curry.Module.XML.C_XElem x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCompactFlatCurry.c__case_85(x2)(x5)(x6)(x4)(x1)(st))(st)+c__case_86_case__182 x1 x2 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCompactFlatCurry.c__case_86_case__182(x1)(x2)(x)(st))(i)(xs)(st)+c__case_86_case__182 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCompactFlatCurry._case_86_case__182")(x)++
+ dist/build/Curry/Module/OracleCurryStringClassifier.hs view
@@ -0,0 +1,1257 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleCurryStringClassifier (module Curry.Module.OracleCurryStringClassifier) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.CurryStringClassifier+import Curry.Module.Char+import Curry.Module.Prelude+import Curry.Module.OracleChar+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_isSmallComment :: Curry.Module.CurryStringClassifier.C_Token -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isSmallComment x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_88(x2)(x1)(st))(st)++++c_isBigComment :: Curry.Module.CurryStringClassifier.C_Token -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isBigComment x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_87(x2)(x1)(st))(st)++++c_isComment :: Curry.Module.CurryStringClassifier.C_Token -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isComment x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OracleCurryStringClassifier.c_isSmallComment(x2)(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_isBigComment(x2)(x3)(st))(x4)(st))(st)++++c_isText :: Curry.Module.CurryStringClassifier.C_Token -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isText x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_86(x2)(x1)(st))(st)++++c_isLetter :: Curry.Module.CurryStringClassifier.C_Token -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isLetter x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_85(x2)(x1)(st))(st)++++c_isCode :: Curry.Module.CurryStringClassifier.C_Token -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCode x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_84(x2)(x1)(st))(st)++++c_isModuleHead :: Curry.Module.CurryStringClassifier.C_Token -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isModuleHead x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_83(x2)(x1)(st))(st)++++c_isMeta :: Curry.Module.CurryStringClassifier.C_Token -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isMeta x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_82(x2)(x1)(st))(st)++++c_weaveIntoCode :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token))) -> (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_weaveIntoCode x2 x3 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleCurryStringClassifier.c_unweaveCode(x3)(x1)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c_weave(Curry.Module.Prelude.T2(Curry.Module.Oracle.c_apply(x2)(Curry.Module.OracleCurryStringClassifier.c_weaveIntoCode'46_'35selFP3'35cs(x4)(x7)(st))(x9)(st))(Curry.Module.OracleCurryStringClassifier.c_weaveIntoCode'46_'35selFP4'35ncs(x4)(x8)(st)))(x10)(st))(st))(st))(st))(st)++++c_weaveIntoCode'46_'35selFP3'35cs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_weaveIntoCode'46_'35selFP3'35cs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_81(x2)(x1)(st))(st)++++c_weaveIntoCode'46_'35selFP4'35ncs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_weaveIntoCode'46_'35selFP4'35ncs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_80(x2)(x1)(st))(st)++++c_unweaveCode :: (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)+c_unweaveCode x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_79(x2)(x1)(st))(st)++++c_unweaveCode'46_'35selFP6'35cs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_unweaveCode'46_'35selFP6'35cs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_77(x2)(x1)(st))(st)++++c_unweaveCode'46_'35selFP7'35ncs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_unweaveCode'46_'35selFP7'35ncs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_76(x2)(x1)(st))(st)++++c_weave :: (Curry t0) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_weave x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_75(x2)(x1)(st))(st)++++c_scan :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_scan x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(let {x3 = Curry.Module.Oracle.c_unknown(x1)(st)} in Curry.Module.OracleCurryStringClassifier.c_modHead(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.OracleCurryStringClassifier.c_stateScan(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.CurryStringClassifier.C_Code(x3))(x3)(x2)(x4)(st))(x5)(st))(st)++++c_stateScan :: Curry.Module.Prelude.C_Int -> Curry.Module.CurryStringClassifier.C_Token -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_stateScan x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_68(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_stateScan'46_'35selFP9'35comment :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_stateScan'46_'35selFP9'35comment x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_29(x2)(x1)(st))(st)++++c_stateScan'46_'35selFP10'35rest :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_stateScan'46_'35selFP10'35rest x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_28(x2)(x1)(st))(st)++++c_modHead :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_modHead x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_27(x2)(x3)(x1)(st))(st)++++c_modHead'46_'35lambda11 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_modHead'46_'35lambda11 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\r'))(x3)(st))(x4)(st))(st)++++c_modHeadInLine :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_modHeadInLine x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_19(x2)(x3)(x1)(st))(st)++++c_modHeadInLine'46_'35lambda13 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_modHeadInLine'46_'35lambda13 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\r'))(x3)(st))(x4)(st))(st)++++c_headers :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_headers x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.List)))))))(st)++++c_lineBeginsWith :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_lineBeginsWith x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OraclePrelude.c_length(x3)(x1)(st)} in let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c__case_15(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_60(Curry.Module.OraclePrelude.c_length(x2)(x5)(st))(x4)(x6)(st))(x7)(st))(st))(st)++++c_lineBeginsWith'46_'35selFP12'35s'39 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_lineBeginsWith'46_'35selFP12'35s'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_13(x2)(x1)(st))(st)++++c_lineBeginsWith'46_'35selFP13'35rest :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_lineBeginsWith'46_'35selFP13'35rest x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_12(x2)(x1)(st))(st)++++c_isSep :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isSep x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OracleChar.c_isSpace(x2)(x1)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x2)(x3)(st))(Curry.Module.OracleCurryStringClassifier.c_infixIDs(x4)(st))(x5)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x2)(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('{'))(Curry.Module.Prelude.List))))(x7)(st))(x8)(st))(x9)(st))(st)++++c_infixIDs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_infixIDs x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('~'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('@'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('$'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('%'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('^'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('*'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('|'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))))))))))))))))))))(st)++++c_delimiters :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_delimiters x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('{'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('}'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))))))))(st)++++c_toBeEscaped :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_toBeEscaped x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))))))(st)++++c_maybeCode :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_maybeCode x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x2))(x3))(st)++++c_maybeMo :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token+c_maybeMo x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_11(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.List)(x1)(st))(x4)(st))(st)++++c_plainCode :: (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_plainCode x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_8(x2)(x1)(st))(st)++++c_unscan :: (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_unscan x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_4(x2)(x1)(st))(st)++++c_readScan :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.CurryStringClassifier.C_Token)))+c_readScan x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurryStringClassifier.c_scan))))(x3)(st))(x4)(st))(st)++++c_testScan :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_testScan x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurryStringClassifier.c_testScan'46_'35lambda18))))(x3)(st))(st)++++c_testScan'46_'35lambda18 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_testScan'46_'35lambda18 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_print(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleCurryStringClassifier.c_unscan(Curry.Module.OracleCurryStringClassifier.c_scan(x2)(x1)(st))(x3)(st))(x2)(x4)(st))(x5)(st))(st)++++c_testWeave :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_testWeave x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurryStringClassifier.c_testWeave'46_'35lambda19))))(x3)(st))(st)++++c_testWeave'46_'35lambda19 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_testWeave'46_'35lambda19 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_print(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleCurryStringClassifier.c_unscan(Curry.Module.OracleCurryStringClassifier.c_weave(Curry.Module.OracleCurryStringClassifier.c_unweaveCode(Curry.Module.OracleCurryStringClassifier.c_scan(x2)(x1)(st))(x3)(st))(x4)(st))(x5)(st))(x2)(x6)(st))(x7)(st))(st)++++c__case_4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_4_case__88(x1)(x2)(st))(st)++++c__case_3 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_3_case__87(x1)(x4)(x3)(st))(st)++++c__case_2 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_2_case__86(x1)(x4)(st))(st)++++c__case_1 x4 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_1_case__85(x1)(x4)(x7)(x6)(st))(st)++++c__case_0 x4 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_0_case__84(x1)(x4)(x7)(x8)(st))(st)++++c__case_8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_8_case__83(x1)(x2)(st))(st)++++c__case_7 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_7_case__82(x1)(x4)(x3)(st))(st)++++c__case_6 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_6_case__81(x1)(x5)(x4)(st))(st)++++c__case_5 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_5_case__80(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_11 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_11_case__79(x1)(x2)(x3)(x4)(st))(st)++++c__case_10 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_10_case__78(x1)(x3)(st))(st)++++c__case_9 x3 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_9_case__77(x1)(x3)(x5)(x4)(st))(st)++++c__case_12 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_12_case__76(x1)(x2)(st))(st)++++c__case_13 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_13_case__75(x1)(x2)(st))(st)++++c__case_15 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_15_case__74(x1)(x2)(x3)(x5)(st))(st)++++c__case_14 x2 x3 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_14_case__73(x1)(x2)(x3)(x8)(st))(st)++++c__case_19 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_19_case__72(x1)(x2)(x3)(st))(st)++++c__case_18 x2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_18_case__71(x1)(x2)(x5)(x4)(st))(st)++++c__case_17 x2 x5 x6 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_17_case__70(x1)(x2)(x5)(x6)(x9)(st))(st)++++c__case_16 x2 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_16_case__69(x1)(x2)(x5)(x6)(x7)(x8)(st))(st)++++c__case_27 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_27_case__68(x1)(x2)(x3)(st))(st)++++c__case_26 x2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_26_case__67(x1)(x2)(x5)(x4)(st))(st)++++c__case_25 x2 x5 x6 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_25_case__66(x1)(x2)(x5)(x6)(x9)(st))(st)++++c__case_24 x2 x5 x6 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_24_case__65(x1)(x2)(x5)(x6)(x8)(x7)(st))(st)++++c__case_22 x2 x5 x6 x11 x12 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_22_case__64(x1)(x2)(x5)(x6)(x11)(x12)(x8)(st))(st)++++c__case_20 x2 x5 x6 x11 x12 x13 x14 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_20_case__63(x1)(x2)(x5)(x6)(x11)(x12)(x13)(x14)(x15)(st))(st)++++c__case_21 x2 x5 x6 x11 x12 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_21_case__62(x1)(x2)(x5)(x6)(x11)(x12)(x13)(st))(st)++++c__case_23 x2 x5 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_23_case__61(x1)(x2)(x5)(x8)(st))(st)++++c__case_28 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_28_case__60(x1)(x2)(st))(st)++++c__case_29 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_29_case__59(x1)(x2)(st))(st)++++c__case_68 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_68_case__58(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_67 x2 x4 x6 x7 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_67_case__57(x1)(x2)(x4)(x6)(x7)(x3)(st))(st)++++c__case_33 x2 x4 x6 x35 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_33_case__56(x1)(x2)(x4)(x6)(x35)(x7)(st))(st)++++c__case_32 x2 x4 x6 x35 x36 x37 x38 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_32_case__55(x1)(x2)(x4)(x6)(x35)(x36)(x37)(x38)(x39)(st))(st)++++c__case_31 x2 x4 x6 x35 x36 x37 x38 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_31_case__54(x1)(x2)(x4)(x6)(x35)(x36)(x37)(x38)(x39)(st))(st)++++c__case_30 x2 x4 x6 x35 x36 x37 x38 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_30_case__53(x1)(x2)(x4)(x6)(x35)(x36)(x37)(x38)(x39)(st))(st)++++c__case_37 x2 x4 x6 x31 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_37_case__52(x1)(x2)(x4)(x6)(x31)(x7)(st))(st)++++c__case_36 x2 x4 x6 x31 x32 x33 x34 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_36_case__51(x1)(x2)(x4)(x6)(x31)(x32)(x33)(x34)(x35)(st))(st)++++c__case_35 x2 x4 x6 x31 x32 x33 x34 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_35_case__50(x1)(x2)(x4)(x6)(x31)(x32)(x33)(x34)(x35)(st))(st)++++c__case_34 x2 x4 x6 x31 x32 x33 x34 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_34_case__49(x1)(x2)(x4)(x6)(x31)(x32)(x33)(x34)(x35)(st))(st)++++c__case_43 x2 x4 x6 x27 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_43_case__48(x1)(x2)(x4)(x6)(x27)(x7)(st))(st)++++c__case_41 x2 x4 x6 x27 x28 x29 x30 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_41_case__47(x1)(x2)(x4)(x6)(x27)(x28)(x29)(x30)(x31)(st))(st)++++c__case_40 x2 x4 x6 x27 x28 x29 x30 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_40_case__46(x1)(x2)(x4)(x6)(x27)(x28)(x29)(x30)(x31)(st))(st)++++c__case_39 x2 x4 x6 x27 x28 x29 x30 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_39_case__45(x1)(x2)(x4)(x6)(x27)(x28)(x29)(x30)(x31)(st))(st)++++c__case_38 x2 x4 x6 x27 x28 x29 x30 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_38_case__44(x1)(x2)(x4)(x6)(x27)(x28)(x29)(x30)(x31)(st))(st)++++c__case_42 x6 x27 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_42_case__43(x1)(x27)(x28)(st))(st)++++c__case_66 x2 x4 x6 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_66_case__42(x1)(x2)(x4)(x6)(x8)(x7)(st))(st)++++c__case_65 x2 x4 x6 x8 x9 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_65_case__41(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x12)(st))(st)++++c__case_64 x2 x4 x6 x8 x9 x10 x11 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_64_case__40(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x15)(st))(st)++++c__case_63 x2 x4 x6 x8 x9 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_63_case__39(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x12)(st))(st)++++c__case_62 x2 x4 x6 x8 x9 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_62_case__38(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x12)(st))(st)++++c__case_61 x2 x4 x6 x8 x9 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_61_case__37(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x12)(st))(st)++++c__case_45 x2 x4 x6 x8 x9 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_45_case__36(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x12)(st))(st)++++c__case_44 x2 x4 x6 x8 x9 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_44_case__35(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x12)(st))(st)++++c__case_60 x2 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_60_case__34(x1)(x2)(x11)(x10)(st))(st)++++c__case_59 x2 x11 x15 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_59_case__33(x1)(x2)(x11)(x15)(x16)(x17)(st))(st)++++c__case_47 x2 x11 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_47_case__32(x1)(x2)(x11)(x15)(x16)(st))(st)++++c__case_46 x2 x11 x15 x25 x26 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_46_case__31(x1)(x2)(x11)(x15)(x26)(x27)(st))(st)++++c__case_58 x2 x11 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_58_case__30(x1)(x2)(x11)(x15)(x16)(st))(st)++++c__case_57 x2 x11 x15 x17 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_57_case__29(x1)(x2)(x11)(x15)(x17)(x18)(st))(st)++++c__case_48 x2 x11 x15 x17 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_48_case__28(x1)(x2)(x11)(x15)(x18)(st))(st)++++c__case_56 x2 x11 x15 x17 x18 x19 x20 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_56_case__27(x1)(x2)(x11)(x15)(x17)(x18)(x19)(x20)(x21)(st))(st)++++c__case_55 x2 x11 x15 x17 x18 x19 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_55_case__26(x1)(x2)(x11)(x15)(x17)(x18)(x19)(x20)(st))(st)++++c__case_49 x2 x11 x15 x17 x18 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_49_case__25(x1)(x2)(x11)(x15)(x18)(x19)(st))(st)++++c__case_54 x2 x11 x15 x17 x18 x19 x21 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_54_case__24(x1)(x2)(x11)(x15)(x17)(x18)(x19)(x21)(x22)(st))(st)++++c__case_50 x2 x11 x15 x17 x18 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_50_case__23(x1)(x2)(x11)(x15)(x18)(x19)(st))(st)++++c__case_53 x2 x11 x15 x17 x18 x19 x21 x23 x24 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_53_case__22(x1)(x2)(x11)(x15)(x17)(x18)(x19)(x21)(x24)(x25)(st))(st)++++c__case_51 x2 x11 x15 x17 x18 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_51_case__21(x1)(x2)(x11)(x15)(x18)(x19)(st))(st)++++c__case_52 x2 x11 x17 x19 x21 x24 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_52_case__20(x1)(x2)(x11)(x17)(x19)(x21)(x24)(x25)(st))(st)++++c__case_75 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_75_case__19(x1)(x2)(st))(st)++++c__case_74 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_74_case__18(x1)(x4)(x3)(st))(st)++++c__case_71 x4 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_71_case__17(x1)(x4)(x9)(x10)(st))(st)++++c__case_69 x9 x13 x14 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_69_case__16(x1)(x9)(x13)(x14)(x4)(st))(st)++++c__case_70 x9 x10 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_70_case__15(x1)(x9)(x10)(x4)(st))(st)++++c__case_73 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_73_case__14(x1)(x4)(st))(st)++++c__case_72 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_72_case__13(x1)(x5)(x6)(st))(st)++++c__case_76 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_76_case__12(x1)(x2)(st))(st)++++c__case_77 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_77_case__11(x1)(x2)(st))(st)++++c__case_79 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_79_case__10(x1)(x2)(st))(st)++++c__case_78 x3 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_78_case__9(x1)(x3)(x6)(x7)(x8)(st))(st)++++c__case_80 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_80_case__8(x1)(x2)(st))(st)++++c__case_81 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_81_case__7(x1)(x2)(st))(st)++++c__case_82 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_82_case__6(x1)(x2)(st))(st)++++c__case_83 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_83_case__5(x1)(x2)(st))(st)++++c__case_84 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_84_case__4(x1)(x2)(st))(st)++++c__case_85 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_85_case__3(x1)(x2)(st))(st)++++c__case_86 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_86_case__2(x1)(x2)(st))(st)++++c__case_87 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_87_case__1(x1)(x2)(st))(st)++++c__case_88 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_88_case__0(x1)(x2)(st))(st)++++c__case_88_case__0 x1 x2@(Curry.Module.CurryStringClassifier.C_SmallComment x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_88_case__0 x1 x2@(Curry.Module.CurryStringClassifier.C_BigComment x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_88_case__0 x1 x2@(Curry.Module.CurryStringClassifier.C_Text x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_88_case__0 x1 x2@(Curry.Module.CurryStringClassifier.C_Letter x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_88_case__0 x1 x2@(Curry.Module.CurryStringClassifier.C_Code x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_88_case__0 x1 x2@(Curry.Module.CurryStringClassifier.C_ModuleHead x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_88_case__0 x1 x2@(Curry.Module.CurryStringClassifier.C_Meta x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_88_case__0 x1 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_88_case__0(x1)(x)(st))(i)(xs)(st)+c__case_88_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_88_case__0")(x)++++c__case_87_case__1 x1 x2@(Curry.Module.CurryStringClassifier.C_BigComment x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_87_case__1 x1 x2@(Curry.Module.CurryStringClassifier.C_SmallComment x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_87_case__1 x1 x2@(Curry.Module.CurryStringClassifier.C_Text x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_87_case__1 x1 x2@(Curry.Module.CurryStringClassifier.C_Letter x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_87_case__1 x1 x2@(Curry.Module.CurryStringClassifier.C_Code x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_87_case__1 x1 x2@(Curry.Module.CurryStringClassifier.C_ModuleHead x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_87_case__1 x1 x2@(Curry.Module.CurryStringClassifier.C_Meta x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_87_case__1 x1 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_87_case__1(x1)(x)(st))(i)(xs)(st)+c__case_87_case__1 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_87_case__1")(x)++++c__case_86_case__2 x1 x2@(Curry.Module.CurryStringClassifier.C_Text x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_86_case__2 x1 x2@(Curry.Module.CurryStringClassifier.C_SmallComment x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_86_case__2 x1 x2@(Curry.Module.CurryStringClassifier.C_BigComment x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_86_case__2 x1 x2@(Curry.Module.CurryStringClassifier.C_Letter x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_86_case__2 x1 x2@(Curry.Module.CurryStringClassifier.C_Code x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_86_case__2 x1 x2@(Curry.Module.CurryStringClassifier.C_ModuleHead x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_86_case__2 x1 x2@(Curry.Module.CurryStringClassifier.C_Meta x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_86_case__2 x1 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_86_case__2(x1)(x)(st))(i)(xs)(st)+c__case_86_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_86_case__2")(x)++++c__case_85_case__3 x1 x2@(Curry.Module.CurryStringClassifier.C_Letter x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_85_case__3 x1 x2@(Curry.Module.CurryStringClassifier.C_SmallComment x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_85_case__3 x1 x2@(Curry.Module.CurryStringClassifier.C_BigComment x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_85_case__3 x1 x2@(Curry.Module.CurryStringClassifier.C_Text x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_85_case__3 x1 x2@(Curry.Module.CurryStringClassifier.C_Code x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_85_case__3 x1 x2@(Curry.Module.CurryStringClassifier.C_ModuleHead x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_85_case__3 x1 x2@(Curry.Module.CurryStringClassifier.C_Meta x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_85_case__3 x1 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_85_case__3(x1)(x)(st))(i)(xs)(st)+c__case_85_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_85_case__3")(x)++++c__case_84_case__4 x1 x2@(Curry.Module.CurryStringClassifier.C_Code x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_84_case__4 x1 x2@(Curry.Module.CurryStringClassifier.C_SmallComment x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_84_case__4 x1 x2@(Curry.Module.CurryStringClassifier.C_BigComment x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_84_case__4 x1 x2@(Curry.Module.CurryStringClassifier.C_Text x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_84_case__4 x1 x2@(Curry.Module.CurryStringClassifier.C_Letter x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_84_case__4 x1 x2@(Curry.Module.CurryStringClassifier.C_ModuleHead x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_84_case__4 x1 x2@(Curry.Module.CurryStringClassifier.C_Meta x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_84_case__4 x1 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_84_case__4(x1)(x)(st))(i)(xs)(st)+c__case_84_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_84_case__4")(x)++++c__case_83_case__5 x1 x2@(Curry.Module.CurryStringClassifier.C_ModuleHead x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_83_case__5 x1 x2@(Curry.Module.CurryStringClassifier.C_SmallComment x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_83_case__5 x1 x2@(Curry.Module.CurryStringClassifier.C_BigComment x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_83_case__5 x1 x2@(Curry.Module.CurryStringClassifier.C_Text x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_83_case__5 x1 x2@(Curry.Module.CurryStringClassifier.C_Letter x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_83_case__5 x1 x2@(Curry.Module.CurryStringClassifier.C_Code x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_83_case__5 x1 x2@(Curry.Module.CurryStringClassifier.C_Meta x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_83_case__5 x1 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_83_case__5(x1)(x)(st))(i)(xs)(st)+c__case_83_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_83_case__5")(x)++++c__case_82_case__6 x1 x2@(Curry.Module.CurryStringClassifier.C_Meta x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_82_case__6 x1 x2@(Curry.Module.CurryStringClassifier.C_SmallComment x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_82_case__6 x1 x2@(Curry.Module.CurryStringClassifier.C_BigComment x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_82_case__6 x1 x2@(Curry.Module.CurryStringClassifier.C_Text x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_82_case__6 x1 x2@(Curry.Module.CurryStringClassifier.C_Letter x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_82_case__6 x1 x2@(Curry.Module.CurryStringClassifier.C_Code x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_82_case__6 x1 x2@(Curry.Module.CurryStringClassifier.C_ModuleHead x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_82_case__6 x1 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_82_case__6(x1)(x)(st))(i)(xs)(st)+c__case_82_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_82_case__6")(x)++++c__case_81_case__7 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_81_case__7 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_81_case__7(x1)(x)(st))(i)(xs)(st)+c__case_81_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_81_case__7")(x)++++c__case_80_case__8 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_80_case__8 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_80_case__8(x1)(x)(st))(i)(xs)(st)+c__case_80_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_80_case__8")(x)++++c__case_78_case__9 x1 x3 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x3)(x6))(x7))(st)+c__case_78_case__9 x1 x3 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x6)((Curry.Module.Prelude.:<)(x3)(x7)))(st)+c__case_78_case__9 x1 x3 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_78_case__9(x1)(x3)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_78_case__9 x1 x3 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_78_case__9")(x)++++c__case_79_case__10 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_79_case__10 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleCurryStringClassifier.c_unweaveCode(x4)(x1)(st)} in let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_78(x3)(Curry.Module.OracleCurryStringClassifier.c_unweaveCode'46_'35selFP6'35cs(x5)(x8)(st))(Curry.Module.OracleCurryStringClassifier.c_unweaveCode'46_'35selFP7'35ncs(x5)(x9)(st))(Curry.Module.OracleCurryStringClassifier.c_isCode(x3)(x10)(st))(x11)(st))(st))(st))(st))(st)+c__case_79_case__10 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_79_case__10(x1)(x)(st))(i)(xs)(st)+c__case_79_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_79_case__10")(x)++++c__case_77_case__11 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_77_case__11 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_77_case__11(x1)(x)(st))(i)(xs)(st)+c__case_77_case__11 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_77_case__11")(x)++++c__case_76_case__12 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_76_case__12 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_76_case__12(x1)(x)(st))(i)(xs)(st)+c__case_76_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_76_case__12")(x)++++c__case_72_case__13 x1 x5 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(st)+c__case_72_case__13 x1 x5 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_72_case__13 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_72_case__13(x1)(x5)(x)(st))(i)(xs)(st)+c__case_72_case__13 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_72_case__13")(x)++++c__case_73_case__14 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_73_case__14 x1 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_72(x5)(x6)(x1)(st))(st)+c__case_73_case__14 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_73_case__14(x1)(x)(st))(i)(xs)(st)+c__case_73_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_73_case__14")(x)++++c__case_70_case__15 x1 x9 x10 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(st)+c__case_70_case__15 x1 x9 x10 x4@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x11)(Curry.Module.OracleCurryStringClassifier.c_weave(Curry.Module.Prelude.T2(x10)(x12))(x1)(st))))(st)+c__case_70_case__15 x1 x9 x10 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_70_case__15(x1)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_70_case__15 x1 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_70_case__15")(x)++++c__case_69_case__16 x1 x9 x13 x14 x4@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x15)(Curry.Module.OracleCurryStringClassifier.c_weave(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x13)(x14))(x16))(x1)(st))))(st)+c__case_69_case__16 x1 x9 x13 x14 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_69_case__16 x1 x9 x13 x14 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_69_case__16(x1)(x9)(x13)(x14)(x)(st))(i)(xs)(st)+c__case_69_case__16 x1 x9 x13 x14 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_69_case__16")(x)++++c__case_71_case__17 x1 x4 x9 x10@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_70(x9)(x10)(x4)(x1)(st))(st)+c__case_71_case__17 x1 x4 x9 x10@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_69(x9)(x13)(x14)(x4)(x1)(st))(st)+c__case_71_case__17 x1 x4 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_71_case__17(x1)(x4)(x9)(x)(st))(i)(xs)(st)+c__case_71_case__17 x1 x4 x9 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_71_case__17")(x)++++c__case_74_case__18 x1 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_73(x4)(x1)(st))(st)+c__case_74_case__18 x1 x4 x3@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_71(x4)(x9)(x10)(x1)(st))(st)+c__case_74_case__18 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_74_case__18(x1)(x4)(x)(st))(i)(xs)(st)+c__case_74_case__18 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_74_case__18")(x)++++c__case_75_case__19 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_74(x4)(x3)(x1)(st))(st)+c__case_75_case__19 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_75_case__19(x1)(x)(st))(i)(xs)(st)+c__case_75_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_75_case__19")(x)++++c__case_52_case__20 x1 x2 x11 x17 x19 x21 x24 x25@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x11))(x11)(x24)(x1)(st)))(st)+c__case_52_case__20 x1 x2 x11 x17 x19 x21 x24 x25@Curry.Module.Prelude.C_False st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x26)(st))(x27)(st))(st)+c__case_52_case__20 x1 x2 x11 x17 x19 x21 x24 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_52_case__20(x1)(x2)(x11)(x17)(x19)(x21)(x24)(x)(st))(i)(xs)(st)+c__case_52_case__20 x1 x2 x11 x17 x19 x21 x24 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_52_case__20")(x)++++c__case_51_case__21 x1 x2 x11 x15 x18 x19@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x11))(x11)(x18)(x1)(st)))(st)+c__case_51_case__21 x1 x2 x11 x15 x18 x19@Curry.Module.Prelude.C_False st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x20)(st))(x21)(st))(st)+c__case_51_case__21 x1 x2 x11 x15 x18 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_51_case__21(x1)(x2)(x11)(x15)(x18)(x)(st))(i)(xs)(st)+c__case_51_case__21 x1 x2 x11 x15 x18 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_51_case__21")(x)++++c__case_53_case__22 x1 x2 x11 x15 x17 x18 x19 x21 x24 x25@Curry.Module.Prelude.C_True st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c__case_52(x2)(x11)(x17)(x19)(x21)(x24)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleChar.c_isDigit))))(x1)(st))((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))(x26)(st))(x27)(st))(st)+c__case_53_case__22 x1 x2 x11 x15 x17 x18 x19 x21 x24 x25@Curry.Module.Prelude.C_False st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_51(x2)(x11)(x15)(x17)(x18)(Curry.Module.OraclePrelude.op_61_61(x17)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(x28)(st))(st)+c__case_53_case__22 x1 x2 x11 x15 x17 x18 x19 x21 x24 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_53_case__22(x1)(x2)(x11)(x15)(x17)(x18)(x19)(x21)(x24)(x)(st))(i)(xs)(st)+c__case_53_case__22 x1 x2 x11 x15 x17 x18 x19 x21 x24 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_53_case__22")(x)++++c__case_50_case__23 x1 x2 x11 x15 x18 x19@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x11))(x11)(x18)(x1)(st)))(st)+c__case_50_case__23 x1 x2 x11 x15 x18 x19@Curry.Module.Prelude.C_False st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x20)(st))(x21)(st))(st)+c__case_50_case__23 x1 x2 x11 x15 x18 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_50_case__23(x1)(x2)(x11)(x15)(x18)(x)(st))(i)(xs)(st)+c__case_50_case__23 x1 x2 x11 x15 x18 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_50_case__23")(x)++++c__case_54_case__24 x1 x2 x11 x15 x17 x18 x19 x21 x22@((Curry.Module.Prelude.:<) x23 x24) st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_53(x2)(x11)(x15)(x17)(x18)(x19)(x21)(x23)(x24)(Curry.Module.OraclePrelude.op_61_61(x23)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(x25)(st))(st)+c__case_54_case__24 x1 x2 x11 x15 x17 x18 x19 x21 x22@Curry.Module.Prelude.List st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_50(x2)(x11)(x15)(x17)(x18)(Curry.Module.OraclePrelude.op_61_61(x17)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(x26)(st))(st)+c__case_54_case__24 x1 x2 x11 x15 x17 x18 x19 x21 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_54_case__24(x1)(x2)(x11)(x15)(x17)(x18)(x19)(x21)(x)(st))(i)(xs)(st)+c__case_54_case__24 x1 x2 x11 x15 x17 x18 x19 x21 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_54_case__24")(x)++++c__case_49_case__25 x1 x2 x11 x15 x18 x19@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x11))(x11)(x18)(x1)(st)))(st)+c__case_49_case__25 x1 x2 x11 x15 x18 x19@Curry.Module.Prelude.C_False st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x20)(st))(x21)(st))(st)+c__case_49_case__25 x1 x2 x11 x15 x18 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_49_case__25(x1)(x2)(x11)(x15)(x18)(x)(st))(i)(xs)(st)+c__case_49_case__25 x1 x2 x11 x15 x18 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_49_case__25")(x)++++c__case_55_case__26 x1 x2 x11 x15 x17 x18 x19 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_54(x2)(x11)(x15)(x17)(x18)(x19)(x21)(x22)(x1)(st))(st)+c__case_55_case__26 x1 x2 x11 x15 x17 x18 x19 x20@Curry.Module.Prelude.List st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_49(x2)(x11)(x15)(x17)(x18)(Curry.Module.OraclePrelude.op_61_61(x17)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(x23)(st))(st)+c__case_55_case__26 x1 x2 x11 x15 x17 x18 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_55_case__26(x1)(x2)(x11)(x15)(x17)(x18)(x19)(x)(st))(i)(xs)(st)+c__case_55_case__26 x1 x2 x11 x15 x17 x18 x19 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_55_case__26")(x)++++c__case_56_case__27 x1 x2 x11 x15 x17 x18 x19 x20 x21@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x11))(x11)(x20)(x1)(st)))(st)+c__case_56_case__27 x1 x2 x11 x15 x17 x18 x19 x20 x21@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_55(x2)(x11)(x15)(x17)(x18)(x19)(x20)(x1)(st))(st)+c__case_56_case__27 x1 x2 x11 x15 x17 x18 x19 x20 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_56_case__27(x1)(x2)(x11)(x15)(x17)(x18)(x19)(x20)(x)(st))(i)(xs)(st)+c__case_56_case__27 x1 x2 x11 x15 x17 x18 x19 x20 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_56_case__27")(x)++++c__case_48_case__28 x1 x2 x11 x15 x18@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x11))(x11)(Curry.Module.Prelude.List)(x1)(st)))(st)+c__case_48_case__28 x1 x2 x11 x15 x18@Curry.Module.Prelude.C_False st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x19)(st))(x20)(st))(st)+c__case_48_case__28 x1 x2 x11 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_48_case__28(x1)(x2)(x11)(x15)(x)(st))(i)(xs)(st)+c__case_48_case__28 x1 x2 x11 x15 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_48_case__28")(x)++++c__case_57_case__29 x1 x2 x11 x15 x17 x18@((Curry.Module.Prelude.:<) x19 x20) st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_56(x2)(x11)(x15)(x17)(x18)(x19)(x20)(Curry.Module.OraclePrelude.op_61_61(x19)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(x21)(st))(st)+c__case_57_case__29 x1 x2 x11 x15 x17 x18@Curry.Module.Prelude.List st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_48(x2)(x11)(x15)(x17)(Curry.Module.OraclePrelude.op_61_61(x17)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(x22)(st))(st)+c__case_57_case__29 x1 x2 x11 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_57_case__29(x1)(x2)(x11)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_57_case__29 x1 x2 x11 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_57_case__29")(x)++++c__case_58_case__30 x1 x2 x11 x15 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_57(x2)(x11)(x15)(x17)(x18)(x1)(st))(st)+c__case_58_case__30 x1 x2 x11 x15 x16@Curry.Module.Prelude.List st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x19)(st))(x20)(st))(st)+c__case_58_case__30 x1 x2 x11 x15 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_58_case__30(x1)(x2)(x11)(x15)(x)(st))(i)(xs)(st)+c__case_58_case__30 x1 x2 x11 x15 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_58_case__30")(x)++++c__case_46_case__31 x1 x2 x11 x15 x26 x27@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Letter((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x11))(x11)(x26)(x1)(st)))(st)+c__case_46_case__31 x1 x2 x11 x15 x26 x27@Curry.Module.Prelude.C_False st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x28)(st))(x29)(st))(st)+c__case_46_case__31 x1 x2 x11 x15 x26 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_46_case__31(x1)(x2)(x11)(x15)(x26)(x)(st))(i)(xs)(st)+c__case_46_case__31 x1 x2 x11 x15 x26 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_46_case__31")(x)++++c__case_47_case__32 x1 x2 x11 x15 x16@((Curry.Module.Prelude.:<) x25 x26) st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_46(x2)(x11)(x15)(x25)(x26)(Curry.Module.OraclePrelude.op_61_61(x25)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(x27)(st))(st)+c__case_47_case__32 x1 x2 x11 x15 x16@Curry.Module.Prelude.List st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x28)(st))(x29)(st))(st)+c__case_47_case__32 x1 x2 x11 x15 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_47_case__32(x1)(x2)(x11)(x15)(x)(st))(i)(xs)(st)+c__case_47_case__32 x1 x2 x11 x15 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_47_case__32")(x)++++c__case_59_case__33 x1 x2 x11 x15 x16 x17@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_58(x2)(x11)(x15)(x16)(x1)(st))(st)+c__case_59_case__33 x1 x2 x11 x15 x16 x17@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_47(x2)(x11)(x15)(x16)(x1)(st))(st)+c__case_59_case__33 x1 x2 x11 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_59_case__33(x1)(x2)(x11)(x15)(x16)(x)(st))(i)(xs)(st)+c__case_59_case__33 x1 x2 x11 x15 x16 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_59_case__33")(x)++++c__case_60_case__34 x1 x2 x11 x10@((Curry.Module.Prelude.:<) x15 x16) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_59(x2)(x11)(x15)(x16)(Curry.Module.OraclePrelude.op_61_61(x15)(Curry.Module.Prelude.C_Char('\\'))(x1)(st))(x17)(st))(st)+c__case_60_case__34 x1 x2 x11 x10@Curry.Module.Prelude.List st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x18)(st))(x19)(st))(st)+c__case_60_case__34 x1 x2 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_60_case__34(x1)(x2)(x11)(x)(st))(i)(xs)(st)+c__case_60_case__34 x1 x2 x11 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_60_case__34")(x)++++c__case_44_case__35 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)((Curry.Module.Prelude.:<)(x6)(x11))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x8))(x11)((Curry.Module.Prelude.:<)(x9)(x10))(x13)(st))(x14)(st))(st)+c__case_44_case__35 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_44_case__35 x1 x2 x4 x6 x8 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_44_case__35(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_44_case__35 x1 x2 x4 x6 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_44_case__35")(x)++++c__case_45_case__36 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)((Curry.Module.Prelude.:<)(x6)(x11))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_stateScan(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x13)(st))(Curry.Module.CurryStringClassifier.C_Code(x8))(x11)((Curry.Module.Prelude.:<)(x9)(x10))(x14)(st))(x15)(st))(st)+c__case_45_case__36 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_44(x2)(x4)(x6)(x8)(x9)(x10)(x11)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x16)(st))(st)+c__case_45_case__36 x1 x2 x4 x6 x8 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_45_case__36(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_45_case__36 x1 x2 x4 x6 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_45_case__36")(x)++++c__case_61_case__37 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(x1)(st))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurryStringClassifier.c_maybeCode(x8)))))(Curry.Module.OracleCurryStringClassifier.c__case_60(x2)(x11)(x10)(x13)(st))(x14)(st))(x15)(st))(st)+c__case_61_case__37 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_45(x2)(x4)(x6)(x8)(x9)(x10)(x11)(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(x16)(st))(st)+c__case_61_case__37 x1 x2 x4 x6 x8 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_61_case__37(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_61_case__37 x1 x2 x4 x6 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_61_case__37")(x)++++c__case_62_case__38 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_maybeCode(x8)(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Meta(x11))(x11)(x10)(x13)(st))(x14)(st))(x15)(st))(st)+c__case_62_case__38 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))))))))(Curry.Module.OracleCurryStringClassifier.c__case_61(x2)(x4)(x6)(x8)(x9)(x10)(x11)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x6)(x16)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleCurryStringClassifier.c_infixIDs(x17)(st))(Curry.Module.OracleCurryStringClassifier.c_delimiters(x18)(st))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(st)+c__case_62_case__38 x1 x2 x4 x6 x8 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_62_case__38(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_62_case__38 x1 x2 x4 x6 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_62_case__38")(x)++++c__case_63_case__39 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_maybeCode(x8)(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_BigComment(x11))(x11)(x10)(x13)(st))(x14)(st))(x15)(st))(st)+c__case_63_case__39 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))))(Curry.Module.OracleCurryStringClassifier.c__case_62(x2)(x4)(x6)(x8)(x9)(x10)(x11)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('{'))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.C_Char('+'))(x16)(st))(x17)(st))(x18)(st))(st)+c__case_63_case__39 x1 x2 x4 x6 x8 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_63_case__39(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_63_case__39 x1 x2 x4 x6 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_63_case__39")(x)++++c__case_64_case__40 x1 x2 x4 x6 x8 x9 x10 x11 x15@Curry.Module.Prelude.C_True st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.OraclePrelude.c_span(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(Curry.Module.Prelude.C_Char('\n'))))))(x10)(x1)(st)} in let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x18)(st))(Curry.Module.OracleCurryStringClassifier.c_maybeCode(x8)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_SmallComment(Curry.Module.OracleCurryStringClassifier.c_stateScan'46_'35selFP9'35comment(x12)(x16)(st)))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x11))(x11)(Curry.Module.OracleCurryStringClassifier.c_stateScan'46_'35selFP10'35rest(x12)(x17)(st))(x19)(st)))(x20)(st))(x21)(st))(st))(st))(st))(st)+c__case_64_case__40 x1 x2 x4 x6 x8 x9 x10 x11 x15@Curry.Module.Prelude.C_False st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))))(Curry.Module.OracleCurryStringClassifier.c__case_63(x2)(x4)(x6)(x8)(x9)(x10)(x11)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('{'))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.C_Char('-'))(x22)(st))(x23)(st))(x24)(st))(st)+c__case_64_case__40 x1 x2 x4 x6 x8 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_64_case__40(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_64_case__40 x1 x2 x4 x6 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_64_case__40")(x)++++c__case_65_case__41 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_maybeCode(x8)(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Text(x11))(x11)((Curry.Module.Prelude.:<)(x9)(x10))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_65_case__41 x1 x2 x4 x6 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))))(Curry.Module.OracleCurryStringClassifier.c__case_64(x2)(x4)(x6)(x8)(x9)(x10)(x11)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('-'))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.C_Char('-'))(x16)(st))(x17)(st))(x18)(st))(st)+c__case_65_case__41 x1 x2 x4 x6 x8 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_65_case__41(x1)(x2)(x4)(x6)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_65_case__41 x1 x2 x4 x6 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_65_case__41")(x)++++c__case_66_case__42 x1 x2 x4 x6 x8 x7@Curry.Module.Prelude.List st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_cond(Curry.Module.OraclePrelude.op_61_58_61(x4)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_maybeCode(x8)(Curry.Module.Prelude.List)(x12)(st))(x13)(st))(st)+c__case_66_case__42 x1 x2 x4 x6 x8 x7@((Curry.Module.Prelude.:<) x9 x10) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c__case_65(x2)(x4)(x6)(x8)(x9)(x10)(Curry.Module.Oracle.c_unknown(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('\"'))(x14)(st))(x15)(st))(st)+c__case_66_case__42 x1 x2 x4 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_66_case__42(x1)(x2)(x4)(x6)(x8)(x)(st))(i)(xs)(st)+c__case_66_case__42 x1 x2 x4 x6 x8 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_66_case__42")(x)++++c__case_42_case__43 x1 x27 x28@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Text(x27))(Curry.Module.Prelude.List))(st)+c__case_42_case__43 x1 x27 x28@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_42_case__43 x1 x27 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_42_case__43(x1)(x27)(x)(st))(i)(xs)(st)+c__case_42_case__43 x1 x27 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_42_case__43")(x)++++c__case_38_case__44 x1 x2 x4 x6 x27 x28 x29 x30 x31@Curry.Module.Prelude.C_True st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)((Curry.Module.Prelude.:<)(x6)(x30))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Text(x27))(x30)((Curry.Module.Prelude.:<)(x28)(x29))(x32)(st))(x33)(st))(st)+c__case_38_case__44 x1 x2 x4 x6 x27 x28 x29 x30 x31@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_38_case__44 x1 x2 x4 x6 x27 x28 x29 x30 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_38_case__44(x1)(x2)(x4)(x6)(x27)(x28)(x29)(x30)(x)(st))(i)(xs)(st)+c__case_38_case__44 x1 x2 x4 x6 x27 x28 x29 x30 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_38_case__44")(x)++++c__case_39_case__45 x1 x2 x4 x6 x27 x28 x29 x30 x31@Curry.Module.Prelude.C_True st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))((Curry.Module.Prelude.:<)(x6)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x32)(st)))(x33)(st))(x34)(st))(st)+c__case_39_case__45 x1 x2 x4 x6 x27 x28 x29 x30 x31@Curry.Module.Prelude.C_False st = let {x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x35)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_38(x2)(x4)(x6)(x27)(x28)(x29)(x30)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x35)(st))(st)+c__case_39_case__45 x1 x2 x4 x6 x27 x28 x29 x30 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_39_case__45(x1)(x2)(x4)(x6)(x27)(x28)(x29)(x30)(x)(st))(i)(xs)(st)+c__case_39_case__45 x1 x2 x4 x6 x27 x28 x29 x30 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_39_case__45")(x)++++c__case_40_case__46 x1 x2 x4 x6 x27 x28 x29 x30 x31@Curry.Module.Prelude.C_True st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x28)(x30)))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Text(x27))(x30)(x29)(x32)(st))(x33)(st))(st)+c__case_40_case__46 x1 x2 x4 x6 x27 x28 x29 x30 x31@Curry.Module.Prelude.C_False st = let {x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)(Curry.Module.Prelude.List))))(Curry.Module.OracleCurryStringClassifier.c__case_39(x2)(x4)(x6)(x27)(x28)(x29)(x30)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x6)(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_toBeEscaped(x34)(st))(x35)(st))(x36)(st))(st)+c__case_40_case__46 x1 x2 x4 x6 x27 x28 x29 x30 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_40_case__46(x1)(x2)(x4)(x6)(x27)(x28)(x29)(x30)(x)(st))(i)(xs)(st)+c__case_40_case__46 x1 x2 x4 x6 x27 x28 x29 x30 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_40_case__46")(x)++++c__case_41_case__47 x1 x2 x4 x6 x27 x28 x29 x30 x31@Curry.Module.Prelude.C_True st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Text(x27))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x30))(x30)((Curry.Module.Prelude.:<)(x28)(x29))(x32)(st)))(x33)(st))(st)+c__case_41_case__47 x1 x2 x4 x6 x27 x28 x29 x30 x31@Curry.Module.Prelude.C_False st = let {x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_40(x2)(x4)(x6)(x27)(x28)(x29)(x30)(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('\\'))(x1)(st))(x34)(st))(st)+c__case_41_case__47 x1 x2 x4 x6 x27 x28 x29 x30 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_41_case__47(x1)(x2)(x4)(x6)(x27)(x28)(x29)(x30)(x)(st))(i)(xs)(st)+c__case_41_case__47 x1 x2 x4 x6 x27 x28 x29 x30 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_41_case__47")(x)++++c__case_43_case__48 x1 x2 x4 x6 x27 x7@Curry.Module.Prelude.List st = let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_cond(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x1)(st))(Curry.Module.OracleCurryStringClassifier.c__case_42(x6)(x27)(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('\"'))(x31)(st))(x32)(st))(x33)(st))(st)+c__case_43_case__48 x1 x2 x4 x6 x27 x7@((Curry.Module.Prelude.:<) x28 x29) st = let {x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c__case_41(x2)(x4)(x6)(x27)(x28)(x29)(Curry.Module.Oracle.c_unknown(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('\"'))(x34)(st))(x35)(st))(st)+c__case_43_case__48 x1 x2 x4 x6 x27 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_43_case__48(x1)(x2)(x4)(x6)(x27)(x)(st))(i)(xs)(st)+c__case_43_case__48 x1 x2 x4 x6 x27 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_43_case__48")(x)++++c__case_34_case__49 x1 x2 x4 x6 x31 x32 x33 x34 x35@Curry.Module.Prelude.C_True st = let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)((Curry.Module.Prelude.:<)(x6)(x34))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_BigComment(x31))(x34)((Curry.Module.Prelude.:<)(x32)(x33))(x36)(st))(x37)(st))(st)+c__case_34_case__49 x1 x2 x4 x6 x31 x32 x33 x34 x35@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_34_case__49 x1 x2 x4 x6 x31 x32 x33 x34 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_34_case__49(x1)(x2)(x4)(x6)(x31)(x32)(x33)(x34)(x)(st))(i)(xs)(st)+c__case_34_case__49 x1 x2 x4 x6 x31 x32 x33 x34 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_34_case__49")(x)++++c__case_35_case__50 x1 x2 x4 x6 x31 x32 x33 x34 x35@Curry.Module.Prelude.C_True st = let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)((Curry.Module.Prelude.:<)(x6)(x34))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_stateScan(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x36)(st))(Curry.Module.CurryStringClassifier.C_BigComment(x31))(x34)((Curry.Module.Prelude.:<)(x32)(x33))(x37)(st))(x38)(st))(st)+c__case_35_case__50 x1 x2 x4 x6 x31 x32 x33 x34 x35@Curry.Module.Prelude.C_False st = let {x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x39)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_34(x2)(x4)(x6)(x31)(x32)(x33)(x34)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x39)(st))(st)+c__case_35_case__50 x1 x2 x4 x6 x31 x32 x33 x34 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_35_case__50(x1)(x2)(x4)(x6)(x31)(x32)(x33)(x34)(x)(st))(i)(xs)(st)+c__case_35_case__50 x1 x2 x4 x6 x31 x32 x33 x34 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_35_case__50")(x)++++c__case_36_case__51 x1 x2 x4 x6 x31 x32 x33 x34 x35@Curry.Module.Prelude.C_True st = let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_BigComment(x31))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x34))(x34)(x33)(x36)(st)))(x37)(st))(st)+c__case_36_case__51 x1 x2 x4 x6 x31 x32 x33 x34 x35@Curry.Module.Prelude.C_False st = let {x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x38)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_35(x2)(x4)(x6)(x31)(x32)(x33)(x34)(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(x38)(st))(st)+c__case_36_case__51 x1 x2 x4 x6 x31 x32 x33 x34 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_36_case__51(x1)(x2)(x4)(x6)(x31)(x32)(x33)(x34)(x)(st))(i)(xs)(st)+c__case_36_case__51 x1 x2 x4 x6 x31 x32 x33 x34 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_36_case__51")(x)++++c__case_37_case__52 x1 x2 x4 x6 x31 x7@Curry.Module.Prelude.List st = let {x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_cond(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x1)(st))(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('}'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))(x35)(st))(x36)(st))(st)+c__case_37_case__52 x1 x2 x4 x6 x31 x7@((Curry.Module.Prelude.:<) x32 x33) st = let {x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List)))))(Curry.Module.OracleCurryStringClassifier.c__case_36(x2)(x4)(x6)(x31)(x32)(x33)(Curry.Module.Oracle.c_unknown(x1)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('-'))(x37)(st))(Curry.Module.OraclePrelude.op_61_61(x32)(Curry.Module.Prelude.C_Char('}'))(x38)(st))(x39)(st))(x40)(st))(st)+c__case_37_case__52 x1 x2 x4 x6 x31 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_37_case__52(x1)(x2)(x4)(x6)(x31)(x)(st))(i)(xs)(st)+c__case_37_case__52 x1 x2 x4 x6 x31 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_37_case__52")(x)++++c__case_30_case__53 x1 x2 x4 x6 x35 x36 x37 x38 x39@Curry.Module.Prelude.C_True st = let {x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)((Curry.Module.Prelude.:<)(x6)(x38))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Meta(x35))(x38)((Curry.Module.Prelude.:<)(x36)(x37))(x40)(st))(x41)(st))(st)+c__case_30_case__53 x1 x2 x4 x6 x35 x36 x37 x38 x39@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_30_case__53 x1 x2 x4 x6 x35 x36 x37 x38 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_30_case__53(x1)(x2)(x4)(x6)(x35)(x36)(x37)(x38)(x)(st))(i)(xs)(st)+c__case_30_case__53 x1 x2 x4 x6 x35 x36 x37 x38 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_30_case__53")(x)++++c__case_31_case__54 x1 x2 x4 x6 x35 x36 x37 x38 x39@Curry.Module.Prelude.C_True st = let {x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)((Curry.Module.Prelude.:<)(x6)(x38))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_stateScan(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x40)(st))(Curry.Module.CurryStringClassifier.C_Meta(x35))(x38)((Curry.Module.Prelude.:<)(x36)(x37))(x41)(st))(x42)(st))(st)+c__case_31_case__54 x1 x2 x4 x6 x35 x36 x37 x38 x39@Curry.Module.Prelude.C_False st = let {x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x43)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_30(x2)(x4)(x6)(x35)(x36)(x37)(x38)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x43)(st))(st)+c__case_31_case__54 x1 x2 x4 x6 x35 x36 x37 x38 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_31_case__54(x1)(x2)(x4)(x6)(x35)(x36)(x37)(x38)(x)(st))(i)(xs)(st)+c__case_31_case__54 x1 x2 x4 x6 x35 x36 x37 x38 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_31_case__54")(x)++++c__case_32_case__55 x1 x2 x4 x6 x35 x36 x37 x38 x39@Curry.Module.Prelude.C_True st = let {x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_62(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Meta(x35))(Curry.Module.OracleCurryStringClassifier.c_stateScan(x2)(Curry.Module.CurryStringClassifier.C_Code(x38))(x38)(x37)(x40)(st)))(x41)(st))(st)+c__case_32_case__55 x1 x2 x4 x6 x35 x36 x37 x38 x39@Curry.Module.Prelude.C_False st = let {x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x42)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_31(x2)(x4)(x6)(x35)(x36)(x37)(x38)(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(x42)(st))(st)+c__case_32_case__55 x1 x2 x4 x6 x35 x36 x37 x38 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_32_case__55(x1)(x2)(x4)(x6)(x35)(x36)(x37)(x38)(x)(st))(i)(xs)(st)+c__case_32_case__55 x1 x2 x4 x6 x35 x36 x37 x38 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_32_case__55")(x)++++c__case_33_case__56 x1 x2 x4 x6 x35 x7@Curry.Module.Prelude.List st = let {x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_cond(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x1)(st))(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('}'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))(x39)(st))(x40)(st))(st)+c__case_33_case__56 x1 x2 x4 x6 x35 x7@((Curry.Module.Prelude.:<) x36 x37) st = let {x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)((Curry.Module.Prelude.:<)(x43)((Curry.Module.Prelude.:<)(x44)(Curry.Module.Prelude.List)))))(Curry.Module.OracleCurryStringClassifier.c__case_32(x2)(x4)(x6)(x35)(x36)(x37)(Curry.Module.Oracle.c_unknown(x1)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('+'))(x41)(st))(Curry.Module.OraclePrelude.op_61_61(x36)(Curry.Module.Prelude.C_Char('}'))(x42)(st))(x43)(st))(x44)(st))(st)+c__case_33_case__56 x1 x2 x4 x6 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_33_case__56(x1)(x2)(x4)(x6)(x35)(x)(st))(i)(xs)(st)+c__case_33_case__56 x1 x2 x4 x6 x35 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_33_case__56")(x)++++c__case_67_case__57 x1 x2 x4 x6 x7 x3@(Curry.Module.CurryStringClassifier.C_Code x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_66(x2)(x4)(x6)(x8)(x7)(x1)(st))(st)+c__case_67_case__57 x1 x2 x4 x6 x7 x3@(Curry.Module.CurryStringClassifier.C_Text x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_43(x2)(x4)(x6)(x27)(x7)(x1)(st))(st)+c__case_67_case__57 x1 x2 x4 x6 x7 x3@(Curry.Module.CurryStringClassifier.C_BigComment x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_37(x2)(x4)(x6)(x31)(x7)(x1)(st))(st)+c__case_67_case__57 x1 x2 x4 x6 x7 x3@(Curry.Module.CurryStringClassifier.C_Meta x35) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_33(x2)(x4)(x6)(x35)(x7)(x1)(st))(st)+c__case_67_case__57 x1 x2 x4 x6 x7 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_67_case__57(x1)(x2)(x4)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_67_case__57 x1 x2 x4 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_67_case__57")(x)++++c__case_68_case__58 x1 x2 x3 x4 x5@Curry.Module.Prelude.List st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_cond(Curry.Module.OraclePrelude.op_61_58_61(x4)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(x8)(st))(st)+c__case_68_case__58 x1 x2 x3 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_67(x2)(x4)(x6)(x7)(x3)(x1)(st))(st)+c__case_68_case__58 x1 x2 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_68_case__58(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_68_case__58 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_68_case__58")(x)++++c__case_29_case__59 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_29_case__59 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_29_case__59(x1)(x)(st))(i)(xs)(st)+c__case_29_case__59 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_29_case__59")(x)++++c__case_28_case__60 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_28_case__60 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_28_case__60(x1)(x)(st))(i)(xs)(st)+c__case_28_case__60 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_28_case__60")(x)++++c__case_23_case__61 x1 x2 x5 x8@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_modHead(x2)(x5)(x1)(st))(st)+c__case_23_case__61 x1 x2 x5 x8@((Curry.Module.Prelude.:<) x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c_modHead(Curry.Module.OraclePrelude.op_46(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x9)))))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x10))(x5))(x11)(st))(st)+c__case_23_case__61 x1 x2 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_23_case__61(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_23_case__61 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_23_case__61")(x)++++c__case_21_case__62 x1 x2 x5 x6 x11 x12 x13@Curry.Module.Prelude.C_True st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_ModuleHead(Curry.Module.Oracle.c_apply(x2)((Curry.Module.Prelude.:<)(x11)(x12))(x1)(st)))(Curry.Module.OracleCurryStringClassifier.c_modHeadInLine(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x5)(x14)(st)))(st)+c__case_21_case__62 x1 x2 x5 x6 x11 x12 x13@Curry.Module.Prelude.C_False st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c_maybeMo(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x6))(x5))(x15)(st))(st)+c__case_21_case__62 x1 x2 x5 x6 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_21_case__62(x1)(x2)(x5)(x6)(x11)(x12)(x)(st))(i)(xs)(st)+c__case_21_case__62 x1 x2 x5 x6 x11 x12 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_21_case__62")(x)++++c__case_20_case__63 x1 x2 x5 x6 x11 x12 x13 x14 x15@Curry.Module.Prelude.C_True st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_modHead(Curry.Module.OraclePrelude.op_46(x2)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(x11)(x12))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x13)))))(x1)(st))(x16)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x14))(x5))(x17)(st))(st)+c__case_20_case__63 x1 x2 x5 x6 x11 x12 x13 x14 x15@Curry.Module.Prelude.C_False st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c_maybeMo(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x6))(x5))(x18)(st))(st)+c__case_20_case__63 x1 x2 x5 x6 x11 x12 x13 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_20_case__63(x1)(x2)(x5)(x6)(x11)(x12)(x13)(x14)(x)(st))(i)(xs)(st)+c__case_20_case__63 x1 x2 x5 x6 x11 x12 x13 x14 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_20_case__63")(x)++++c__case_22_case__64 x1 x2 x5 x6 x11 x12 x8@Curry.Module.Prelude.List st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))(Curry.Module.OracleCurryStringClassifier.c__case_21(x2)(x5)(x6)(x11)(x12)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_any(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurryStringClassifier.c_lineBeginsWith((Curry.Module.Prelude.:<)(x11)(x12))))))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_headers(x15)(st))(x16)(st))(x17)(st))(st)+c__case_22_case__64 x1 x2 x5 x6 x11 x12 x8@((Curry.Module.Prelude.:<) x13 x14) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))))(Curry.Module.OracleCurryStringClassifier.c__case_20(x2)(x5)(x6)(x11)(x12)(x13)(x14)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_any(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurryStringClassifier.c_lineBeginsWith((Curry.Module.Prelude.:<)(x11)(x12))))))(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_headers(x18)(st))(x19)(st))(x20)(st))(st)+c__case_22_case__64 x1 x2 x5 x6 x11 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_22_case__64(x1)(x2)(x5)(x6)(x11)(x12)(x)(st))(i)(xs)(st)+c__case_22_case__64 x1 x2 x5 x6 x11 x12 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_22_case__64")(x)++++c__case_24_case__65 x1 x2 x5 x6 x8 x7@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_23(x2)(x5)(x8)(x1)(st))(st)+c__case_24_case__65 x1 x2 x5 x6 x8 x7@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_22(x2)(x5)(x6)(x11)(x12)(x8)(x1)(st))(st)+c__case_24_case__65 x1 x2 x5 x6 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_24_case__65(x1)(x2)(x5)(x6)(x8)(x)(st))(i)(xs)(st)+c__case_24_case__65 x1 x2 x5 x6 x8 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_24_case__65")(x)++++c__case_25_case__66 x1 x2 x5 x6 x9@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_24(x2)(x5)(x6)(x8)(x7)(x1)(st))(st)+c__case_25_case__66 x1 x2 x5 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_25_case__66(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_25_case__66 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_25_case__66")(x)++++c__case_26_case__67 x1 x2 x5 x4@(Curry.Module.CurryStringClassifier.C_Code x6) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c__case_25(x2)(x5)(x6)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_break(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurryStringClassifier.c_modHead'46_'35lambda11))))(x1)(st))(x6)(x18)(st))(x19)(st))(st)+c__case_26_case__67 x1 x2 x5 x4@(Curry.Module.CurryStringClassifier.C_BigComment x15) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_maybeMo(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_BigComment(x15))(Curry.Module.OracleCurryStringClassifier.c_modHead(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x5)(x20)(st)))(x21)(st))(st)+c__case_26_case__67 x1 x2 x5 x4@(Curry.Module.CurryStringClassifier.C_SmallComment x16) st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_maybeMo(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_SmallComment(x16))(Curry.Module.OracleCurryStringClassifier.c_modHead(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x5)(x22)(st)))(x23)(st))(st)+c__case_26_case__67 x1 x2 x5 x4@(Curry.Module.CurryStringClassifier.C_Meta x17) st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c_maybeMo(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Meta(x17))(x5))(x24)(st))(st)+c__case_26_case__67 x1 x2 x5 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_26_case__67(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_26_case__67 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_26_case__67")(x)++++c__case_27_case__68 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_26(x2)(x5)(x4)(x1)(st))(st)+c__case_27_case__68 x1 x2 x3@Curry.Module.Prelude.List st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c_maybeMo(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.List)(x1)(st))(Curry.Module.Prelude.List)(x6)(st))(st)+c__case_27_case__68 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_27_case__68(x1)(x2)(x)(st))(i)(xs)(st)+c__case_27_case__68 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_27_case__68")(x)++++c__case_16_case__69 x1 x2 x5 x6 x7 x8@((Curry.Module.Prelude.:<) x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_modHead(Curry.Module.OraclePrelude.op_46(x2)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43(x7)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x9)))))(x1)(st))(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x10))(x5))(x12)(st))(st)+c__case_16_case__69 x1 x2 x5 x6 x7 x8@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_modHead(x2)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x6))(x5))(x1)(st))(st)+c__case_16_case__69 x1 x2 x5 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_16_case__69(x1)(x2)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_16_case__69 x1 x2 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_16_case__69")(x)++++c__case_17_case__70 x1 x2 x5 x6 x9@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_16(x2)(x5)(x6)(x7)(x8)(x1)(st))(st)+c__case_17_case__70 x1 x2 x5 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_17_case__70(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_17_case__70 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_17_case__70")(x)++++c__case_18_case__71 x1 x2 x5 x4@(Curry.Module.CurryStringClassifier.C_Code x6) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c__case_17(x2)(x5)(x6)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_break(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurryStringClassifier.c_modHeadInLine'46_'35lambda13))))(x1)(st))(x6)(x14)(st))(x15)(st))(st)+c__case_18_case__71 x1 x2 x5 x4@(Curry.Module.CurryStringClassifier.C_BigComment x11) st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_maybeMo(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_BigComment(x11))(Curry.Module.OracleCurryStringClassifier.c_modHeadInLine(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x5)(x16)(st)))(x17)(st))(st)+c__case_18_case__71 x1 x2 x5 x4@(Curry.Module.CurryStringClassifier.C_SmallComment x12) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurryStringClassifier.c_maybeMo(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_SmallComment(x12))(Curry.Module.OracleCurryStringClassifier.c_modHeadInLine(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x5)(x18)(st)))(x19)(st))(st)+c__case_18_case__71 x1 x2 x5 x4@(Curry.Module.CurryStringClassifier.C_Meta x13) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c_maybeMo(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.List)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Meta(x13))(x5))(x20)(st))(st)+c__case_18_case__71 x1 x2 x5 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_18_case__71(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_18_case__71 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_18_case__71")(x)++++c__case_19_case__72 x1 x2 x3@Curry.Module.Prelude.List st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c_maybeMo(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.List)(x1)(st))(Curry.Module.Prelude.List)(x6)(st))(st)+c__case_19_case__72 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_18(x2)(x5)(x4)(x1)(st))(st)+c__case_19_case__72 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_19_case__72(x1)(x2)(x)(st))(i)(xs)(st)+c__case_19_case__72 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_19_case__72")(x)++++c__case_14_case__73 x1 x2 x3 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(x3)(x1)(st))(let {x5 = Curry.Module.OraclePrelude.c_splitAt(Curry.Module.OraclePrelude.c_length(x3)(x9)(st))(x2)(x10)(st)} in let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OracleCurryStringClassifier.c_lineBeginsWith'46_'35selFP13'35rest(x5)(x12)(st)} in let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.OracleCurryStringClassifier.c_lineBeginsWith'46_'35selFP12'35s'39(x5)(x11)(st))(x13)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.c_null(x7)(x14)(st))(Curry.Module.OracleCurryStringClassifier.c_isSep(Curry.Module.OraclePrelude.c_head(x7)(x15)(st))(x16)(st))(x17)(st))(x18)(st))(st))(st))(st))(x19)(st))(st)+c__case_14_case__73 x1 x2 x3 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_14_case__73 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_14_case__73(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_14_case__73 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_14_case__73")(x)++++c__case_15_case__74 x1 x2 x3 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_15_case__74 x1 x2 x3 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleCurryStringClassifier.c__case_14(x2)(x3)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x6)(st))(st)+c__case_15_case__74 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_15_case__74(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_15_case__74 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_15_case__74")(x)++++c__case_13_case__75 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_13_case__75 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_13_case__75(x1)(x)(st))(i)(xs)(st)+c__case_13_case__75 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_13_case__75")(x)++++c__case_12_case__76 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_12_case__76 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_12_case__76(x1)(x)(st))(i)(xs)(st)+c__case_12_case__76 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_12_case__76")(x)++++c__case_9_case__77 x1 x3 x5 x4@(Curry.Module.CurryStringClassifier.C_Code x6) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(x6)))(x5))(st)+c__case_9_case__77 x1 x3 x5 x4@(Curry.Module.CurryStringClassifier.C_SmallComment x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_9_case__77 x1 x3 x5 x4@(Curry.Module.CurryStringClassifier.C_BigComment x8) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_9_case__77 x1 x3 x5 x4@(Curry.Module.CurryStringClassifier.C_Text x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_9_case__77 x1 x3 x5 x4@(Curry.Module.CurryStringClassifier.C_Letter x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_9_case__77 x1 x3 x5 x4@(Curry.Module.CurryStringClassifier.C_ModuleHead x11) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_9_case__77 x1 x3 x5 x4@(Curry.Module.CurryStringClassifier.C_Meta x12) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_9_case__77 x1 x3 x5 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_9_case__77(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_9_case__77 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_9_case__77")(x)++++c__case_10_case__78 x1 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_9(x3)(x5)(x4)(x1)(st))(st)+c__case_10_case__78 x1 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_10_case__78 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_10_case__78(x1)(x)(st))(i)(xs)(st)+c__case_10_case__78 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_10_case__78")(x)++++c__case_11_case__79 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_11_case__79 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_ModuleHead(x2))(Curry.Module.OracleCurryStringClassifier.c__case_10(x3)(x1)(st)))(st)+c__case_11_case__79 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_11_case__79(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_11_case__79 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_11_case__79")(x)++++c__case_5_case__80 x1 x4 x5 x7 x6@(Curry.Module.CurryStringClassifier.C_Code x8) st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_drop(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x8)(x1)(st))(Curry.Module.OracleCurryStringClassifier.c_plainCode(x7)(x15)(st))(x16)(st))(x17)(st))(st)+c__case_5_case__80 x1 x4 x5 x7 x6@(Curry.Module.CurryStringClassifier.C_SmallComment x9) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(x18)(st))(st)+c__case_5_case__80 x1 x4 x5 x7 x6@(Curry.Module.CurryStringClassifier.C_BigComment x10) st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(x19)(st))(st)+c__case_5_case__80 x1 x4 x5 x7 x6@(Curry.Module.CurryStringClassifier.C_Text x11) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(x20)(st))(st)+c__case_5_case__80 x1 x4 x5 x7 x6@(Curry.Module.CurryStringClassifier.C_Letter x12) st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(x21)(st))(st)+c__case_5_case__80 x1 x4 x5 x7 x6@(Curry.Module.CurryStringClassifier.C_ModuleHead x13) st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(x22)(st))(st)+c__case_5_case__80 x1 x4 x5 x7 x6@(Curry.Module.CurryStringClassifier.C_Meta x14) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(x23)(st))(st)+c__case_5_case__80 x1 x4 x5 x7 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_5_case__80(x1)(x4)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_5_case__80 x1 x4 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_5_case__80")(x)++++c__case_6_case__81 x1 x5 x4@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_5(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_6_case__81 x1 x5 x4@Curry.Module.Prelude.List st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(x8)(st))(st)+c__case_6_case__81 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_6_case__81(x1)(x5)(x)(st))(i)(xs)(st)+c__case_6_case__81 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_6_case__81")(x)++++c__case_7_case__82 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_ModuleHead x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_6(x5)(x4)(x1)(st))(st)+c__case_7_case__82 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Code x15) st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x15)(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(x21)(st))(st)+c__case_7_case__82 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Text x16) st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.OraclePrelude.op_43_43(x16)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st)))(x22)(st)))(st)+c__case_7_case__82 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Letter x17) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.OraclePrelude.op_43_43(x17)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st)))(x23)(st)))(st)+c__case_7_case__82 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_BigComment x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(st)+c__case_7_case__82 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_SmallComment x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(st)+c__case_7_case__82 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Meta x20) st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(x20)(Curry.Module.OraclePrelude.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.OracleCurryStringClassifier.c_plainCode(x4)(x1)(st))(x24)(st))(x25)(st))(x26)(st))(st)+c__case_7_case__82 x1 x4 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_7_case__82(x1)(x4)(x)(st))(i)(xs)(st)+c__case_7_case__82 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_7_case__82")(x)++++c__case_8_case__83 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_7(x4)(x3)(x1)(st))(st)+c__case_8_case__83 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_8_case__83 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_8_case__83(x1)(x)(st))(i)(xs)(st)+c__case_8_case__83 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_8_case__83")(x)++++c__case_0_case__84 x1 x4 x7 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_unscan((Curry.Module.Prelude.:<)(Curry.Module.CurryStringClassifier.C_Code(x10))(x7))(x1)(st))(st)+c__case_0_case__84 x1 x4 x7 x8@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(st)+c__case_0_case__84 x1 x4 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_0_case__84(x1)(x4)(x7)(x)(st))(i)(xs)(st)+c__case_0_case__84 x1 x4 x7 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_0_case__84")(x)++++c__case_1_case__85 x1 x4 x7 x6@(Curry.Module.CurryStringClassifier.C_Code x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_0(x4)(x7)(x8)(x1)(st))(st)+c__case_1_case__85 x1 x4 x7 x6@(Curry.Module.CurryStringClassifier.C_SmallComment x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(st)+c__case_1_case__85 x1 x4 x7 x6@(Curry.Module.CurryStringClassifier.C_BigComment x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(st)+c__case_1_case__85 x1 x4 x7 x6@(Curry.Module.CurryStringClassifier.C_Text x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(st)+c__case_1_case__85 x1 x4 x7 x6@(Curry.Module.CurryStringClassifier.C_Letter x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(st)+c__case_1_case__85 x1 x4 x7 x6@(Curry.Module.CurryStringClassifier.C_ModuleHead x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(st)+c__case_1_case__85 x1 x4 x7 x6@(Curry.Module.CurryStringClassifier.C_Meta x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(st)+c__case_1_case__85 x1 x4 x7 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_1_case__85(x1)(x4)(x7)(x)(st))(i)(xs)(st)+c__case_1_case__85 x1 x4 x7 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_1_case__85")(x)++++c__case_2_case__86 x1 x4@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_1(x4)(x7)(x6)(x1)(st))(st)+c__case_2_case__86 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(st)+c__case_2_case__86 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_2_case__86(x1)(x)(st))(i)(xs)(st)+c__case_2_case__86 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_2_case__86")(x)++++c__case_3_case__87 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_ModuleHead x5) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OracleCurryStringClassifier.c__case_2(x4)(x1)(st))(x23)(st))(st)+c__case_3_case__87 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Code x17) st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x17)(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(x24)(st))(st)+c__case_3_case__87 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Text x18) st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.OraclePrelude.op_43_43(x18)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st)))(x25)(st)))(st)+c__case_3_case__87 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Letter x19) st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.OraclePrelude.op_43_43(x19)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st)))(x26)(st)))(st)+c__case_3_case__87 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_BigComment x20) st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(x20)(Curry.Module.OraclePrelude.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.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(x27)(st))(x28)(st))(x29)(st))(st)+c__case_3_case__87 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_SmallComment x21) st = let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(x21)(Curry.Module.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(x30)(st))(x31)(st))(st)+c__case_3_case__87 x1 x4 x3@(Curry.Module.CurryStringClassifier.C_Meta x22) st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(x22)(Curry.Module.OraclePrelude.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.OracleCurryStringClassifier.c_unscan(x4)(x1)(st))(x32)(st))(x33)(st))(x34)(st))(st)+c__case_3_case__87 x1 x4 (Curry.Module.CurryStringClassifier.C_TokenOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_3_case__87(x1)(x4)(x)(st))(i)(xs)(st)+c__case_3_case__87 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_3_case__87")(x)++++c__case_4_case__88 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurryStringClassifier.c__case_3(x4)(x3)(x1)(st))(st)+c__case_4_case__88 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_4_case__88 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurryStringClassifier.c__case_4_case__88(x1)(x)(st))(i)(xs)(st)+c__case_4_case__88 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurryStringClassifier._case_4_case__88")(x)++
+ dist/build/Curry/Module/OracleCurrySyntax.hs view
@@ -0,0 +1,142 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleCurrySyntax (module Curry.Module.OracleCurrySyntax) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.CurrySyntax+import Curry.Module.Directory+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.Prelude+import Curry.Module.ReadShowTerm+import Curry.Module.OracleDirectory+import Curry.Module.OracleDistribution+import Curry.Module.OracleFileGoodies+import Curry.Module.OraclePrelude+import Curry.Module.OracleReadShowTerm++++-- begin included++++-- end included++c_readCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))))+c_readCurry x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurrySyntax.c_readCurryWithParseOptions(x2)(Curry.Module.OracleDistribution.c_setQuiet(Curry.Module.Prelude.C_True)(Curry.Module.OracleDistribution.c_defaultParams(x1)(st))(x3)(st))(x4)(st))(st)++++c_readCurryWithParseOptions :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))))+c_readCurryWithParseOptions x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(let {x4 = Curry.Module.Oracle.c_apply(Curry.Module.OracleCurrySyntax.c_stripSuffix(x1)(st))(x2)(x5)(st)} in let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleCurrySyntax.c_orElseDo(Curry.Module.OracleCurrySyntax.c_readCurryWithParseOptions'46parseCurry'465(x3)(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x6)(st))(Curry.Module.OracleCurrySyntax.c_readCurryWithParseOptions'46parseCurry'465(x3)(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(x7)(st))(x8)(st))(Curry.Module.OracleCurrySyntax.c_readCurryFile(x4)(x9)(st))(x10)(st))(st))(st)++++c_readCurryWithParseOptions'46parse'465 :: (Curry t0) => Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.T0)))+c_readCurryWithParseOptions'46parse'465 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleDistribution.c_callFrontendWithParams(Curry.Module.Distribution.C_CY)(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T0))(x5)(st))(x6)(st))(st)++++c_readCurryWithParseOptions'46parseCurry'465 :: Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.T0)))+c_readCurryWithParseOptions'46parseCurry'465 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCurrySyntax.c_absoluteFileName(Curry.Module.OraclePrelude.op_43_43(x3)(x4)(x1)(st))(x5)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Nothing)(x6)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurrySyntax.c_readCurryWithParseOptions'46parse'465(x2)(x3)))))))))(x7)(st))(st)++++c_readCurryFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int))))+c_readCurryFile x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(let {x3 = Curry.Module.Oracle.c_apply(Curry.Module.OracleCurrySyntax.c_stripSuffix(x1)(st))(x2)(x4)(st)} in let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleCurrySyntax.c_absoluteFileName(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))(x5)(st))(x6)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurrySyntax.c_readCurryFile'46_'35lambda3(x3)))))(x7)(st))(st))(st)++++c_readCurryFile'46read'4613 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_readCurryFile'46read'4613 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurrySyntax.c_readCurryFile'46read'4613'46_'35lambda2))))(x3)(st))(st)++++c_readCurryFile'46read'4613'46_'35lambda2 :: (Curry t48) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t48))+c_readCurryFile'46read'4613'46_'35lambda2 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.OracleReadShowTerm.c_readUnqualifiedTerm((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))))))))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.List)))(x2)(x1)(st))(x3)(st))(st)++++c_readCurryFile'46_'35lambda3 :: (Curry t49) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t49))+c_readCurryFile'46_'35lambda3 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(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))))))))))))))(x1)(st))(x4)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurrySyntax.c_readCurryFile'46read'4613))))(x3)(x5)(st))(st)++++c_writeCurryModule :: (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeCurryModule x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurrySyntax.c__case_3(x2)(x1)(st))(st)++++c_writeCurryFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.CurrySyntax.C_Module (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeCurryFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_writeFile(x2)(Curry.Module.OracleReadShowTerm.c_showTerm(x3)(x1)(st))(x4)(st))(st)++++c_absoluteFileName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_absoluteFileName x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleCurrySyntax.c__case_2(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.OracleFileGoodies.c_baseName(x2)(x1)(st))(x3)(st))(x4)(st))(st)++++c_absoluteFileName'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_absoluteFileName'46_'35lambda4 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.OracleCurrySyntax.c__case_0(x2)(x3)(x1)(st))(x4)(st))(st)++++c_orElseDo :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe t0)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe t0)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe t0)))+c_orElseDo x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_maybe(x3)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))))(x1)(st))))))(x4)(st))(st)++++c_stripSuffix :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_stripSuffix x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_takeWhile(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(Curry.Module.Prelude.C_Char('.'))))))))))(st)++++c__case_0 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurrySyntax.c__case_0_case__3(x1)(x2)(x3)(st))(st)++++c__case_2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurrySyntax.c__case_2_case__2(x1)(x2)(x3)(st))(st)++++c__case_1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurrySyntax.c__case_1_case__1(x1)(x2)(x3)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleCurrySyntax.c__case_3_case__0(x1)(x2)(st))(st)++++c__case_3_case__0 x1 x2@(Curry.Module.CurrySyntax.C_Module x3 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleCurrySyntax.c_writeCurryFile(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))(x1)(st))(x2)(x6)(st))(st)+c__case_3_case__0 x1 (Curry.Module.CurrySyntax.C_ModuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurrySyntax.c__case_3_case__0(x1)(x)(st))(i)(xs)(st)+c__case_3_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleCurrySyntax._case_3_case__0")(x)++++c__case_1_case__1 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleCurrySyntax.c_absoluteFileName'46_'35lambda4(x2)))))(x4)(st))(st)+c__case_1_case__1 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_1_case__1 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurrySyntax.c__case_1_case__1(x1)(x2)(x)(st))(i)(xs)(st)+c__case_1_case__1 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCurrySyntax._case_1_case__1")(x)++++c__case_2_case__2 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c_lookupFileInLoadPath(x2)(x1)(st))(st)+c__case_2_case__2 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleCurrySyntax.c__case_1(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x4)(st))(st)+c__case_2_case__2 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurrySyntax.c__case_2_case__2(x1)(x2)(x)(st))(i)(xs)(st)+c__case_2_case__2 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCurrySyntax._case_2_case__2")(x)++++c__case_0_case__3 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just(x2))(st)+c__case_0_case__3 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_0_case__3 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleCurrySyntax.c__case_0_case__3(x1)(x2)(x)(st))(i)(xs)(st)+c__case_0_case__3 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleCurrySyntax._case_0_case__3")(x)++
+ dist/build/Curry/Module/OracleDequeue.hs view
@@ -0,0 +1,381 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleDequeue (module Curry.Module.OracleDequeue) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Dequeue+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_empty :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Dequeue.C_Queue t0+c_empty x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Dequeue.C_S(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.List)(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.List))(st)++++c_isEmpty :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isEmpty x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_25(x2)(x1)(st))(st)++++c_deqHead :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_deqHead x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_24(x2)(x1)(st))(st)++++c_deqLast :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_deqLast x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_22(x2)(x1)(st))(st)++++c_cons :: (Curry t0) => t0 -> (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Dequeue.C_Queue t0+c_cons x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_20(x2)(x3)(x1)(st))(st)++++c_deqTail :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Dequeue.C_Queue t0+c_deqTail x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_19(x2)(x1)(st))(st)++++c_snoc :: (Curry t0) => t0 -> (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Dequeue.C_Queue t0+c_snoc x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_17(x2)(x3)(x1)(st))(st)++++c_deqInit :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Dequeue.C_Queue t0+c_deqInit x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_16(x2)(x1)(st))(st)++++c_deqReverse :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Dequeue.C_Queue t0+c_deqReverse x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_14(x2)(x1)(st))(st)++++c_check :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List t0) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Dequeue.C_Queue t0+c_check x2 x3 x4 x5 x1 st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OraclePrelude.op_43(x2)(x4)(x1)(st)} in let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OraclePrelude.c_div(x6)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x13)(st)} in let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.OraclePrelude.c_splitAt(x7)(x3)(x15)(st)} in let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))(let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))))(Curry.Module.OracleDequeue.c__case_13(x2)(x3)(x4)(x5)(x7)(Curry.Module.OraclePrelude.op_45(x6)(x7)(x14)(st))(Curry.Module.OracleDequeue.c_check'46_'35selFP3'35f'39(x9)(x16)(st))(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_reverse(x18)(st))(Curry.Module.OracleDequeue.c_check'46_'35selFP4'35rf'39(x9)(x17)(st))(x19)(st))(x20)(st))(Curry.Module.OraclePrelude.op_60_61(x2)(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))(x4)(x21)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x22)(st))(x23)(st))(x24)(st))(st))(st))(st))(st))(st))(st))(st))(st)++++c_check'46_'35selFP3'35f'39 :: (Curry t45) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t45) (Curry.Module.Prelude.List t45)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t45+c_check'46_'35selFP3'35f'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_11(x2)(x1)(st))(st)++++c_check'46_'35selFP4'35rf'39 :: (Curry t45) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t45) (Curry.Module.Prelude.List t45)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t45+c_check'46_'35selFP4'35rf'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_10(x2)(x1)(st))(st)++++c_listToDeq :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Dequeue.C_Queue t0+c_listToDeq x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleDequeue.c_check(Curry.Module.OraclePrelude.c_length(x2)(x1)(st))(x2)(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.List)(x3)(st))(st)++++c_deqToList :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_deqToList x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_9(x2)(x1)(st))(st)++++c_deqLength :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_deqLength x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_8(x2)(x1)(st))(st)++++c_rotate :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Dequeue.C_Queue t0+c_rotate x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleDequeue.c_snoc(Curry.Module.OracleDequeue.c_deqHead(x2)(x1)(st))(Curry.Module.OracleDequeue.c_deqTail(x2)(x3)(st))(x4)(st))(st)++++c_matchHead :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 t0 (Curry.Module.Dequeue.C_Queue t0))+c_matchHead x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_7(x2)(x1)(st))(st)++++c_matchLast :: (Curry t0) => (Curry.Module.Dequeue.C_Queue t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 t0 (Curry.Module.Dequeue.C_Queue t0))+c_matchLast x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_3(x2)(x1)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_3_case__25(x1)(x2)(st))(st)++++c__case_2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_2_case__24(x1)(x3)(x4)(x5)(x6)(st))(st)++++c__case_1 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_1_case__23(x1)(x4)(st))(st)++++c__case_0 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_0_case__22(x1)(x7)(x8)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_7_case__21(x1)(x2)(st))(st)++++c__case_6 x3 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_6_case__20(x1)(x3)(x5)(x6)(x4)(st))(st)++++c__case_5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_5_case__19(x1)(x6)(st))(st)++++c__case_4 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_4_case__18(x1)(x7)(x8)(st))(st)++++c__case_8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_8_case__17(x1)(x2)(st))(st)++++c__case_9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_9_case__16(x1)(x2)(st))(st)++++c__case_10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_10_case__15(x1)(x2)(st))(st)++++c__case_11 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_11_case__14(x1)(x2)(st))(st)++++c__case_13 x2 x3 x4 x5 x7 x8 x10 x12 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_13_case__13(x1)(x2)(x3)(x4)(x5)(x7)(x8)(x10)(x12)(x13)(st))(st)++++c__case_12 x7 x8 x10 x12 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_12_case__12(x1)(x7)(x8)(x10)(x12)(x13)(st))(st)++++c__case_14 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_14_case__11(x1)(x2)(st))(st)++++c__case_16 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_16_case__10(x1)(x2)(st))(st)++++c__case_15 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_15_case__9(x1)(x3)(x4)(x5)(x6)(st))(st)++++c__case_17 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_17_case__8(x1)(x2)(x3)(st))(st)++++c__case_19 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_19_case__7(x1)(x2)(st))(st)++++c__case_18 x3 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_18_case__6(x1)(x3)(x5)(x6)(x4)(st))(st)++++c__case_20 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_20_case__5(x1)(x2)(x3)(st))(st)++++c__case_22 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_22_case__4(x1)(x2)(st))(st)++++c__case_21 x4 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_21_case__3(x1)(x4)(x6)(x7)(st))(st)++++c__case_24 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_24_case__2(x1)(x2)(st))(st)++++c__case_23 x3 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_23_case__1(x1)(x4)(x6)(x7)(st))(st)++++c__case_25 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_25_case__0(x1)(x2)(st))(st)++++c__case_25_case__0 x1 x2@(Curry.Module.Dequeue.C_S x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.op_43(x3)(x5)(x1)(st))(Curry.Module.Prelude.C_Zero)(x7)(st))(st)+c__case_25_case__0 x1 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_25_case__0(x1)(x)(st))(i)(xs)(st)+c__case_25_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_25_case__0")(x)++++c__case_23_case__1 x1 x4 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_23_case__1 x1 x4 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_23_case__1 x1 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_23_case__1(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_23_case__1 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_23_case__1")(x)++++c__case_24_case__2 x1 x2@(Curry.Module.Dequeue.C_S x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_head(Curry.Module.OracleDequeue.c__case_23(x3)(x4)(x6)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Zero)(x1)(st))(x7)(st))(x8)(st))(st)+c__case_24_case__2 x1 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_24_case__2(x1)(x)(st))(i)(xs)(st)+c__case_24_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_24_case__2")(x)++++c__case_21_case__3 x1 x4 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_21_case__3 x1 x4 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_21_case__3 x1 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_21_case__3(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_21_case__3 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_21_case__3")(x)++++c__case_22_case__4 x1 x2@(Curry.Module.Dequeue.C_S x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_head(Curry.Module.OracleDequeue.c__case_21(x4)(x5)(x6)(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.C_Zero)(x1)(st))(x7)(st))(x8)(st))(st)+c__case_22_case__4 x1 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_22_case__4(x1)(x)(st))(i)(xs)(st)+c__case_22_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_22_case__4")(x)++++c__case_20_case__5 x1 x2 x3@(Curry.Module.Dequeue.C_S x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleDequeue.c_check(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))((Curry.Module.Prelude.:<)(x2)(x5))(x6)(x7)(x8)(st))(st)+c__case_20_case__5 x1 x2 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_20_case__5(x1)(x2)(x)(st))(i)(xs)(st)+c__case_20_case__5 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_20_case__5")(x)++++c__case_18_case__6 x1 x3 x5 x6 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c_empty(x1)(st))(st)+c__case_18_case__6 x1 x3 x5 x6 x4@((Curry.Module.Prelude.:<) x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.OracleDequeue.c_deqReverse(Curry.Module.OracleDequeue.c_check(x5)(x6)(Curry.Module.OraclePrelude.op_45(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x8)(x9)(st))(x10)(st))(st)+c__case_18_case__6 x1 x3 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_18_case__6(x1)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_18_case__6 x1 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_18_case__6")(x)++++c__case_19_case__7 x1 x2@(Curry.Module.Dequeue.C_S x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_18(x3)(x5)(x6)(x4)(x1)(st))(st)+c__case_19_case__7 x1 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_19_case__7(x1)(x)(st))(i)(xs)(st)+c__case_19_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_19_case__7")(x)++++c__case_17_case__8 x1 x2 x3@(Curry.Module.Dequeue.C_S x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OracleDequeue.c_deqReverse(Curry.Module.OracleDequeue.c_check(Curry.Module.OraclePrelude.op_43(x6)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))((Curry.Module.Prelude.:<)(x2)(x7))(x4)(x5)(x8)(st))(x9)(st))(st)+c__case_17_case__8 x1 x2 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_17_case__8(x1)(x2)(x)(st))(i)(xs)(st)+c__case_17_case__8 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_17_case__8")(x)++++c__case_15_case__9 x1 x3 x4 x5 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c_empty(x1)(st))(st)+c__case_15_case__9 x1 x3 x4 x5 x6@((Curry.Module.Prelude.:<) x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleDequeue.c_check(x3)(x4)(Curry.Module.OraclePrelude.op_45(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x8)(x9)(st))(st)+c__case_15_case__9 x1 x3 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_15_case__9(x1)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_15_case__9 x1 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_15_case__9")(x)++++c__case_16_case__10 x1 x2@(Curry.Module.Dequeue.C_S x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_15(x3)(x4)(x5)(x6)(x1)(st))(st)+c__case_16_case__10 x1 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_16_case__10(x1)(x)(st))(i)(xs)(st)+c__case_16_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_16_case__10")(x)++++c__case_14_case__11 x1 x2@(Curry.Module.Dequeue.C_S x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Dequeue.C_S(x5)(x6)(x3)(x4))(st)+c__case_14_case__11 x1 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_14_case__11(x1)(x)(st))(i)(xs)(st)+c__case_14_case__11 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_14_case__11")(x)++++c__case_12_case__12 x1 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Dequeue.C_S(x7)(x10)(x8)(x12))(st)+c__case_12_case__12 x1 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_12_case__12 x1 x7 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_12_case__12(x1)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c__case_12_case__12 x1 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_12_case__12")(x)++++c__case_13_case__13 x1 x2 x3 x4 x5 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Dequeue.C_S(x2)(x3)(x4)(x5))(st)+c__case_13_case__13 x1 x2 x3 x4 x5 x7 x8 x10 x12 x13@Curry.Module.Prelude.C_False st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OracleDequeue.c__case_12(x7)(x8)(x10)(x12)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x14)(st))(st)+c__case_13_case__13 x1 x2 x3 x4 x5 x7 x8 x10 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_13_case__13(x1)(x2)(x3)(x4)(x5)(x7)(x8)(x10)(x12)(x)(st))(i)(xs)(st)+c__case_13_case__13 x1 x2 x3 x4 x5 x7 x8 x10 x12 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_13_case__13")(x)++++c__case_11_case__14 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_11_case__14 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_11_case__14(x1)(x)(st))(i)(xs)(st)+c__case_11_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_11_case__14")(x)++++c__case_10_case__15 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_10_case__15 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_10_case__15(x1)(x)(st))(i)(xs)(st)+c__case_10_case__15 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_10_case__15")(x)++++c__case_9_case__16 x1 x2@(Curry.Module.Dequeue.C_S x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(x4)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_reverse(x1)(st))(x6)(x7)(st))(x8)(st))(st)+c__case_9_case__16 x1 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_9_case__16(x1)(x)(st))(i)(xs)(st)+c__case_9_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_9_case__16")(x)++++c__case_8_case__17 x1 x2@(Curry.Module.Dequeue.C_S x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_43(x3)(x5)(x1)(st))(st)+c__case_8_case__17 x1 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_8_case__17(x1)(x)(st))(i)(xs)(st)+c__case_8_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_8_case__17")(x)++++c__case_4_case__18 x1 x7 x8@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(x7)(Curry.Module.OracleDequeue.c_empty(x1)(st))))(st)+c__case_4_case__18 x1 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_4_case__18(x1)(x7)(x)(st))(i)(xs)(st)+c__case_4_case__18 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_4_case__18")(x)++++c__case_5_case__19 x1 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_5_case__19 x1 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_4(x7)(x8)(x1)(st))(st)+c__case_5_case__19 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_5_case__19(x1)(x)(st))(i)(xs)(st)+c__case_5_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_5_case__19")(x)++++c__case_6_case__20 x1 x3 x5 x6 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_5(x6)(x1)(st))(st)+c__case_6_case__20 x1 x3 x5 x6 x4@((Curry.Module.Prelude.:<) x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(x9)(Curry.Module.OracleDequeue.c_deqReverse(Curry.Module.OracleDequeue.c_check(x5)(x6)(Curry.Module.OraclePrelude.op_45(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x10)(x11)(st))(x12)(st))))(st)+c__case_6_case__20 x1 x3 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_6_case__20(x1)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_6_case__20 x1 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_6_case__20")(x)++++c__case_7_case__21 x1 x2@(Curry.Module.Dequeue.C_S x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_6(x3)(x5)(x6)(x4)(x1)(st))(st)+c__case_7_case__21 x1 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_7_case__21(x1)(x)(st))(i)(xs)(st)+c__case_7_case__21 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_7_case__21")(x)++++c__case_0_case__22 x1 x7 x8@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(x7)(Curry.Module.OracleDequeue.c_empty(x1)(st))))(st)+c__case_0_case__22 x1 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_0_case__22(x1)(x7)(x)(st))(i)(xs)(st)+c__case_0_case__22 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_0_case__22")(x)++++c__case_1_case__23 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_1_case__23 x1 x4@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_0(x7)(x8)(x1)(st))(st)+c__case_1_case__23 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_1_case__23(x1)(x)(st))(i)(xs)(st)+c__case_1_case__23 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_1_case__23")(x)++++c__case_2_case__24 x1 x3 x4 x5 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_1(x4)(x1)(st))(st)+c__case_2_case__24 x1 x3 x4 x5 x6@((Curry.Module.Prelude.:<) x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(x9)(Curry.Module.OracleDequeue.c_check(x3)(x4)(Curry.Module.OraclePrelude.op_45(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x10)(x11)(st))))(st)+c__case_2_case__24 x1 x3 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_2_case__24(x1)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_2_case__24 x1 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_2_case__24")(x)++++c__case_3_case__25 x1 x2@(Curry.Module.Dequeue.C_S x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDequeue.c__case_2(x3)(x4)(x5)(x6)(x1)(st))(st)+c__case_3_case__25 x1 (Curry.Module.Dequeue.C_QueueOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDequeue.c__case_3_case__25(x1)(x)(st))(i)(xs)(st)+c__case_3_case__25 x1 x st = Curry.RunTimeSystem.patternFail("OracleDequeue._case_3_case__25")(x)++
+ dist/build/Curry/Module/OracleDirectory.hs view
@@ -0,0 +1,138 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleDirectory (module Curry.Module.OracleDirectory) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Directory+import Curry.Module.Prelude+import Curry.Module.Time+import Curry.Module.OraclePrelude+import Curry.Module.OracleTime++++-- begin included++++-- end included++c_doesFileExist :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_doesFileExist x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDirectory.c_prim_doesFileExist))))(x2)(x1)(st))(st)++++c_doesDirectoryExist :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_doesDirectoryExist x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDirectory.c_prim_doesDirectoryExist))))(x2)(x1)(st))(st)++++c_fileSize :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_fileSize x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDirectory.c_prim_fileSize))))(x2)(x1)(st))(st)++++c_getModificationTime :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_ClockTime))+c_getModificationTime x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDirectory.c_prim_getModificationTime))))(x2)(x1)(st))(st)++++c_setCurrentDirectory :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_setCurrentDirectory x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDirectory.c_prim_setCurrentDirectory))))(x2)(x1)(st))(st)++++c_getDirectoryContents :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getDirectoryContents x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDirectory.c_prim_getDirectoryContents))))(x2)(x1)(st))(st)++++c_createDirectory :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_createDirectory x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDirectory.c_prim_createDirectory))))(x2)(x1)(st))(st)++++c_removeFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_removeFile x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDirectory.c_prim_removeFile))))(x2)(x1)(st))(st)++++c_removeDirectory :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_removeDirectory x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDirectory.c_prim_removeDirectory))))(x2)(x1)(st))(st)++++c_renameFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_renameFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleDirectory.c_prim_renameFile))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_renameDirectory :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_renameDirectory x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleDirectory.c_prim_renameDirectory))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_prim_doesFileExist :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_prim_doesFileExist x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Directory.c_prim_doesFileExist(x2)(st))(st))))(st)++++c_prim_doesDirectoryExist :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_prim_doesDirectoryExist x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Directory.c_prim_doesDirectoryExist(x2)(st))(st))))(st)++++c_prim_fileSize :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_prim_fileSize x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Directory.c_prim_fileSize(x2)(st))(st))))(st)++++c_prim_getModificationTime :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_ClockTime))+c_prim_getModificationTime x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Directory.c_prim_getModificationTime(x2)(st))(st))))(st)++++c_getCurrentDirectory :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getCurrentDirectory x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Directory.c_getCurrentDirectory(st))(st))))(st)++++c_prim_setCurrentDirectory :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_setCurrentDirectory x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Directory.c_prim_setCurrentDirectory(x2)(st))))(st)++++c_prim_getDirectoryContents :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_prim_getDirectoryContents x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Directory.c_prim_getDirectoryContents(x2)(st))(st))))(st)++++c_prim_createDirectory :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_createDirectory x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Directory.c_prim_createDirectory(x2)(st))))(st)++++c_prim_removeFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_removeFile x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Directory.c_prim_removeFile(x2)(st))))(st)++++c_prim_removeDirectory :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_removeDirectory x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Directory.c_prim_removeDirectory(x2)(st))))(st)++++c_prim_renameFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_renameFile x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Directory.c_prim_renameFile(x3)(x2)(st))))(st)++++c_prim_renameDirectory :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_renameDirectory x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Directory.c_prim_renameDirectory(x3)(x2)(st))))(st)++
+ dist/build/Curry/Module/OracleDistribution.hs view
@@ -0,0 +1,554 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleDistribution (module Curry.Module.OracleDistribution) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Distribution+import Curry.Module.Char+import Curry.Module.FileGoodies+import Curry.Module.IO+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.PropertyFile+import Curry.Module.System+import Curry.Module.Directory+import Curry.Module.OracleChar+import Curry.Module.OracleFileGoodies+import Curry.Module.OracleIO+import Curry.Module.OracleList+import Curry.Module.OraclePrelude+import Curry.Module.OraclePropertyFile+import Curry.Module.OracleSystem+import Curry.Module.OracleDirectory++++-- begin included++++-- end included++c_rcFileName :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_rcFileName x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleSystem.c_getEnviron((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))(Curry.Module.Prelude.List)))))(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_43_43))(st))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleDistribution.c_curryCompiler(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))(x3)(st))(x4)(st))))))(x5)(st))(x6)(st))(st)++++c_rcFileContents :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))))+c_rcFileContents x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_rcFileName(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePropertyFile.c_readPropertyFile))))(x2)(st))(st)++++c_getRcVar :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getRcVar x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_getRcVars((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_head))))(x3)(st))(x4)(st))(st)++++c_getRcVars :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))))+c_getRcVars x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_rcFileContents(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_getRcVars'46_'35lambda2(x2)))))(x3)(st))(st)++++c_getRcVars'46_'35lambda2 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))))+c_getRcVars'46_'35lambda2 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_return(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.c_lookup))(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_getRcVars'46_'35lambda2'46_'35lambda3))))(x3)(x1)(st))))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleChar.c_toLower))))))))(x2)(x4)(st))(x5)(st))(x6)(st))(st)++++c_getRcVars'46_'35lambda2'46_'35lambda3 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_getRcVars'46_'35lambda2'46_'35lambda3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_25(x2)(x1)(st))(st)++++c_currySubdir :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_currySubdir x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st)++++c_inCurrySubdir :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_inCurrySubdir x2 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x3 = Curry.Module.OracleFileGoodies.c_splitDirectoryBaseName(x2)(x1)(st)} in let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleDistribution.c__case_24(Curry.Module.OracleDistribution.c_inCurrySubdir'46_'35selFP3'35base(x3)(x6)(st))(x8)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleDistribution.c_currySubdir(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))(Curry.Module.OracleDistribution.c_inCurrySubdir'46_'35selFP4'35file(x3)(x7)(st)))(x10)(st))(x11)(st))(st))(st))(st))(st)++++c_inCurrySubdir'46_'35selFP3'35base :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_inCurrySubdir'46_'35selFP3'35base x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_21(x2)(x1)(st))(st)++++c_inCurrySubdir'46_'35selFP4'35file :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_inCurrySubdir'46_'35selFP4'35file x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_20(x2)(x1)(st))(st)++++c_addCurrySubdir :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_addCurrySubdir x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))(Curry.Module.OracleDistribution.c_currySubdir(x1)(st)))(x3)(st))(st)++++c_getSysLibPath :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getSysLibPath x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OracleDistribution.c__case_19(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleDistribution.c_curryCompiler(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))(x2)(st))(x3)(st))(st)++++c_getSysLibPath'46_'35lambda5 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getSysLibPath'46_'35lambda5 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.OracleDistribution.c__case_17(x2)(Curry.Module.OraclePrelude.c_null(x2)(x1)(st))(x3)(st))(x4)(st))(st)++++c_lookupFileInLoadPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_lookupFileInLoadPath x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_getLoadPathForFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFileGoodies.c_lookupFileInPath(Curry.Module.OracleFileGoodies.c_baseName(x2)(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))))))(x4)(st))(st)++++c_findFileInLoadPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_findFileInLoadPath x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_getLoadPathForFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFileGoodies.c_getFileInPath(Curry.Module.OracleFileGoodies.c_baseName(x2)(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))))))(x4)(st))(st)++++c_readFirstFileInLoadPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_readFirstFileInLoadPath x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_findFileInLoadPath(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_readFile))))(x3)(st))(st)++++c_getLoadPath :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getLoadPath x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c_getLoadPathForFile((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))))(x1)(st))(st)++++c_getLoadPathForFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getLoadPathForFile x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_getSysLibPath(x4)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_getLoadPathForFile'46_'35lambda7(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_getLoadPathForFile'46_'35lambda6))))(x1)(st))(x2)))))(x5)(st))(st))(st)++++c_getLoadPathForFile'46_'35lambda6 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_getLoadPathForFile'46_'35lambda6 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(Curry.Module.OracleDistribution.c_addCurrySubdir(x2)(x1)(st))(Curry.Module.Prelude.List)))(st)++++c_getLoadPathForFile'46_'35lambda7 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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)))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getLoadPathForFile'46_'35lambda7 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_getRcVar((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_getLoadPathForFile'46_'35lambda7'46_'35lambda8(x2)(x3)(x4)))))(x5)(st))(st)++++c_getLoadPathForFile'46_'35lambda7'46_'35lambda8 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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)))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getLoadPathForFile'46_'35lambda7'46_'35lambda8 x2 x3 x4 x5 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.OracleDistribution.c__case_16(x2)(x4)(x5)(Curry.Module.OracleFileGoodies.c_dirName(x3)(x1)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleDistribution.c_curryCompiler(x7)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))(x8)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleDistribution.c_curryCompiler(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))(x10)(st))(x11)(st))(x12)(st))(st))(st)++++c_getLoadPathForFile'46_'35lambda7'46_'35lambda8'46_'35lambda9 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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)))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getLoadPathForFile'46_'35lambda7'46_'35lambda8'46_'35lambda9 x2 x3 x4 x5 x6 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_return(Curry.Module.Oracle.c_apply(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleDistribution.c__case_15(x6)(Curry.Module.OraclePrelude.c_null(x6)(x8)(st))(x9)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_maybe(Curry.Module.Prelude.List)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFileGoodies.c_splitPath))))(x4)(x1)(st))(x5)(x10)(st))(x11)(st)))(x12)(st))(x13)(st))(st))(st)++++c_defaultParams :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Distribution.C_FrontendParams+c_defaultParams x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.C_FrontendParams(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.C_Nothing)(Curry.Module.Prelude.C_Nothing)(Curry.Module.Prelude.C_Nothing))(st)++++c_setQuiet :: Curry.Module.Prelude.C_Bool -> Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Distribution.C_FrontendParams+c_setQuiet x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_14(x2)(x3)(x1)(st))(st)++++c_setFullPath :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Distribution.C_FrontendParams+c_setFullPath x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_13(x2)(x3)(x1)(st))(st)++++c_setOutfile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Distribution.C_FrontendParams+c_setOutfile x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_12(x2)(x3)(x1)(st))(st)++++c_setLogfile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Distribution.C_FrontendParams+c_setLogfile x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_11(x2)(x3)(x1)(st))(st)++++c_quiet :: Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_quiet x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_10(x2)(x1)(st))(st)++++c_fullPath :: Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_fullPath x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_9(x2)(x1)(st))(st)++++c_outfile :: Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_outfile x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_8(x2)(x1)(st))(st)++++c_logfile :: Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_logfile x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_7(x2)(x1)(st))(st)++++c_callFrontend :: Curry.Module.Distribution.C_FrontendTarget -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_callFrontend x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_callFrontendWithParams(x2)(Curry.Module.OracleDistribution.c_defaultParams(x1)(st))))))(st)++++c_callFrontendWithParams :: Curry.Module.Distribution.C_FrontendTarget -> Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_callFrontendWithParams x2 x3 x4 x1 st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))(let {x5 = Curry.Module.OracleDistribution.c__case_3(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleDistribution.c_curryCompiler(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))(x9)(st))(x10)(st)} in let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))))))))(Curry.Module.CEventOracle.c_replace(x21)(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c__case_4(x3)(x5)(x11)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_callFrontendWithParams'46_'35lambda13(x3)(x4)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleDistribution.c__case_6(x3)(Curry.Module.OracleDistribution.c__case_5(x5)(x12)(st))(Curry.Module.OracleDistribution.c_quiet(x3)(x13)(st))(x14)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_maybe(Curry.Module.Prelude.List)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleDistribution.c_outfile(x3)(x15)(st))(x16)(st))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.Prelude.List)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_callFrontendWithParams'46_'35lambda12))))(Curry.Module.OracleDistribution.c_fullPath(x3)(x17)(st))(x18)(st))(x19)(st))(x20)(st))(x2)))))(x21)(st))(st))(st))(st))(st))(st)++++c_callFrontendWithParams'46_'35lambda10 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_callFrontendWithParams'46_'35lambda10 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_getFrontendCall(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_callFrontendWithParams'46_'35lambda10'46_'35lambda11(x2)))))(x3)(st))(st)++++c_callFrontendWithParams'46_'35lambda10'46_'35lambda11 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_callFrontendWithParams'46_'35lambda10'46_'35lambda11 x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.CEventOracle.c_replace(x7)(Curry.Module.OraclePrelude.c_return(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))(Curry.Module.Prelude.List))))))))(x1)(st))(x2)(x5)(st))(x6)(st))(x7)(st))(st))(st)++++c_callFrontendWithParams'46showFrontendTarget'4684 :: Curry.Module.Distribution.C_FrontendTarget -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_callFrontendWithParams'46showFrontendTarget'4684 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_1(x2)(x1)(st))(st)++++c_callFrontendWithParams'46_'35lambda12 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_callFrontendWithParams'46_'35lambda12 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(x2)(x1)(st))(x3)(st))(x4)(st))(st)++++c_callFrontendWithParams'46_'35lambda13 :: Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendTarget -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_callFrontendWithParams'46_'35lambda13 x2 x3 x4 x5 x6 x1 st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(let {x7 = Curry.Module.OraclePrelude.c_maybe(Curry.Module.Prelude.List)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.OracleDistribution.c_logfile(x2)(x1)(st))(x9)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))))))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleDistribution.c__case_0(x7)(Curry.Module.OraclePrelude.op_43_43(x6)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleDistribution.c_callFrontendWithParams'46showFrontendTarget'4684(x5)(x10)(st))(Curry.Module.OraclePrelude.op_43_43(x4)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x3)(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(Curry.Module.OraclePrelude.c_null(x7)(x16)(st))(x17)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T0)(x18)(st))(x19)(st))(st))(st))(st)++++c_rcErr :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_rcErr x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleIO.c_hPutStrLn(Curry.Module.OracleIO.c_stderr(x1)(st))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))))))))))(x4)(st))(x5)(st))(Curry.Module.OraclePrelude.c_return(x3)(x6)(st))(x7)(st))(st)++++c__case_0 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_0_case__25(x1)(x7)(x8)(x9)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_1_case__24(x1)(x2)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_3_case__23(x1)(x2)(st))(st)++++c__case_2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_2_case__22(x1)(x2)(st))(st)++++c__case_4 x3 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_4_case__21(x1)(x3)(x5)(st))(st)++++c__case_5 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_5_case__20(x1)(x5)(st))(st)++++c__case_6 x3 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_6_case__19(x1)(x7)(x8)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_7_case__18(x1)(x2)(st))(st)++++c__case_8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_8_case__17(x1)(x2)(st))(st)++++c__case_9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_9_case__16(x1)(x2)(st))(st)++++c__case_10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_10_case__15(x1)(x2)(st))(st)++++c__case_11 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_11_case__14(x1)(x2)(x3)(st))(st)++++c__case_12 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_12_case__13(x1)(x2)(x3)(st))(st)++++c__case_13 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_13_case__12(x1)(x2)(x3)(st))(st)++++c__case_14 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_14_case__11(x1)(x2)(x3)(st))(st)++++c__case_15 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_15_case__10(x1)(x6)(x7)(st))(st)++++c__case_16 x2 x4 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_16_case__9(x1)(x2)(x4)(x5)(x6)(x7)(st))(st)++++c__case_17 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_17_case__8(x1)(x2)(x3)(st))(st)++++c__case_19 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_19_case__7(x1)(x2)(st))(st)++++c__case_18 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_18_case__6(x1)(x2)(st))(st)++++c__case_20 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_20_case__5(x1)(x2)(st))(st)++++c__case_21 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_21_case__4(x1)(x2)(st))(st)++++c__case_24 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_24_case__3(x1)(x4)(st))(st)++++c__case_23 x4 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_23_case__2(x1)(x4)(x7)(x8)(st))(st)++++c__case_22 x4 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_22_case__1(x1)(x4)(x7)(st))(st)++++c__case_25 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_25_case__0(x1)(x2)(st))(st)++++c_curryCompiler :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_curryCompiler x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.c_curryCompiler(st))(st)++++c_curryCompilerMajorVersion :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_curryCompilerMajorVersion x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.c_curryCompilerMajorVersion(st))(st)++++c_curryCompilerMinorVersion :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_curryCompilerMinorVersion x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.c_curryCompilerMinorVersion(st))(st)++++c_curryRuntime :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_curryRuntime x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.c_curryRuntime(st))(st)++++c_curryRuntimeMajorVersion :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_curryRuntimeMajorVersion x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.c_curryRuntimeMajorVersion(st))(st)++++c_curryRuntimeMinorVersion :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_curryRuntimeMinorVersion x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.c_curryRuntimeMinorVersion(st))(st)++++c_getStdLibDir :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getStdLibDir x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Distribution.c_getStdLibDir(st))(st))))(st)++++c_getFrontendCall :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getFrontendCall x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Distribution.c_getFrontendCall(st))(st))))(st)++++c_installDir :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_installDir x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.c_installDir(st))(st)++++c__case_25_case__0 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleChar.c_toLower))))(x3)(x1)(st))(x4))(st)+c__case_25_case__0 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_25_case__0(x1)(x)(st))(i)(xs)(st)+c__case_25_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_25_case__0")(x)++++c__case_22_case__1 x1 x4 x7@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_22_case__1 x1 x4 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_43_43(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))(Curry.Module.Prelude.List))(x1)(st))(st)+c__case_22_case__1 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_22_case__1(x1)(x4)(x)(st))(i)(xs)(st)+c__case_22_case__1 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_22_case__1")(x)++++c__case_23_case__2 x1 x4 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c__case_22(x4)(x7)(x1)(st))(st)+c__case_23_case__2 x1 x4 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_43_43(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))(Curry.Module.Prelude.List))(x1)(st))(st)+c__case_23_case__2 x1 x4 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_23_case__2(x1)(x4)(x7)(x)(st))(i)(xs)(st)+c__case_23_case__2 x1 x4 x7 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_23_case__2")(x)++++c__case_24_case__3 x1 x4@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleDistribution.c__case_23(x4)(x6)(x7)(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.C_Char('.'))(x1)(st))(x8)(st))(st)+c__case_24_case__3 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_43_43(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))(Curry.Module.Prelude.List))(x1)(st))(st)+c__case_24_case__3 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_24_case__3(x1)(x)(st))(i)(xs)(st)+c__case_24_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_24_case__3")(x)++++c__case_21_case__4 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_21_case__4 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_21_case__4(x1)(x)(st))(i)(xs)(st)+c__case_21_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_21_case__4")(x)++++c__case_20_case__5 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_20_case__5 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_20_case__5(x1)(x)(st))(i)(xs)(st)+c__case_20_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_20_case__5")(x)++++c__case_18_case__6 x1 x2@Curry.Module.Prelude.C_True st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_getStdLibDir(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))((Curry.Module.Prelude.:<)))(st))(Curry.Module.Prelude.List)))))(x3)(st))(x4)(st))(st)+c__case_18_case__6 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_18_case__6 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_18_case__6(x1)(x)(st))(i)(xs)(st)+c__case_18_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_18_case__6")(x)++++c__case_19_case__7 x1 x2@Curry.Module.Prelude.C_True st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleSystem.c_getEnviron((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('K'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('B'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))(Curry.Module.Prelude.List)))))))))))))(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_getSysLibPath'46_'35lambda5))))(x3)(st))(st)+c__case_19_case__7 x1 x2@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleDistribution.c__case_18(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleDistribution.c_curryCompiler(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))(x4)(st))(x5)(st))(st)+c__case_19_case__7 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_19_case__7(x1)(x)(st))(i)(xs)(st)+c__case_19_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_19_case__7")(x)++++c__case_17_case__8 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleDistribution.c_installDir(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))(Curry.Module.Prelude.List)))))(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleDistribution.c_installDir(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))(Curry.Module.Prelude.List))))))))))(x6)(st))(Curry.Module.Prelude.List)))(st)+c__case_17_case__8 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c_splitPath(x2)(x1)(st))(st)+c__case_17_case__8 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_17_case__8(x1)(x2)(x)(st))(i)(xs)(st)+c__case_17_case__8 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_17_case__8")(x)++++c__case_16_case__9 x1 x2 x4 x5 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleSystem.c_getEnviron((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))(Curry.Module.Prelude.List))))))))))(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_getLoadPathForFile'46_'35lambda7'46_'35lambda8'46_'35lambda9(x2)(x6)(x5)(x4)))))(x8)(st))(st)+c__case_16_case__9 x1 x2 x4 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_16_case__9 x1 x2 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_16_case__9(x1)(x2)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_16_case__9 x1 x2 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_16_case__9")(x)++++c__case_15_case__10 x1 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_15_case__10 x1 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c_splitPath(x6)(x1)(st))(st)+c__case_15_case__10 x1 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_15_case__10(x1)(x6)(x)(st))(i)(xs)(st)+c__case_15_case__10 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_15_case__10")(x)++++c__case_14_case__11 x1 x2 x3@(Curry.Module.Distribution.C_FrontendParams x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.C_FrontendParams(x2)(x5)(x6)(x7))(st)+c__case_14_case__11 x1 x2 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_14_case__11(x1)(x2)(x)(st))(i)(xs)(st)+c__case_14_case__11 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_14_case__11")(x)++++c__case_13_case__12 x1 x2 x3@(Curry.Module.Distribution.C_FrontendParams x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.C_FrontendParams(x4)(Curry.Module.Prelude.C_Just(x2))(x6)(x7))(st)+c__case_13_case__12 x1 x2 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_13_case__12(x1)(x2)(x)(st))(i)(xs)(st)+c__case_13_case__12 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_13_case__12")(x)++++c__case_12_case__13 x1 x2 x3@(Curry.Module.Distribution.C_FrontendParams x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.C_FrontendParams(x4)(x5)(Curry.Module.Prelude.C_Just(x2))(x7))(st)+c__case_12_case__13 x1 x2 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_12_case__13(x1)(x2)(x)(st))(i)(xs)(st)+c__case_12_case__13 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_12_case__13")(x)++++c__case_11_case__14 x1 x2 x3@(Curry.Module.Distribution.C_FrontendParams x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Distribution.C_FrontendParams(x4)(x5)(x6)(Curry.Module.Prelude.C_Just(x2)))(st)+c__case_11_case__14 x1 x2 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_11_case__14(x1)(x2)(x)(st))(i)(xs)(st)+c__case_11_case__14 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_11_case__14")(x)++++c__case_10_case__15 x1 x2@(Curry.Module.Distribution.C_FrontendParams x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_10_case__15 x1 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_10_case__15(x1)(x)(st))(i)(xs)(st)+c__case_10_case__15 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_10_case__15")(x)++++c__case_9_case__16 x1 x2@(Curry.Module.Distribution.C_FrontendParams x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_9_case__16 x1 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_9_case__16(x1)(x)(st))(i)(xs)(st)+c__case_9_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_9_case__16")(x)++++c__case_8_case__17 x1 x2@(Curry.Module.Distribution.C_FrontendParams x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_8_case__17 x1 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_8_case__17(x1)(x)(st))(i)(xs)(st)+c__case_8_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_8_case__17")(x)++++c__case_7_case__18 x1 x2@(Curry.Module.Distribution.C_FrontendParams x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_7_case__18 x1 (Curry.Module.Distribution.C_FrontendParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_7_case__18(x1)(x)(st))(i)(xs)(st)+c__case_7_case__18 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_7_case__18")(x)++++c__case_6_case__19 x1 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_6_case__19 x1 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_6_case__19 x1 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_6_case__19(x1)(x7)(x)(st))(i)(xs)(st)+c__case_6_case__19 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_6_case__19")(x)++++c__case_5_case__20 x1 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('q'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(st)+c__case_5_case__20 x1 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))(st)+c__case_5_case__20 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_5_case__20(x1)(x)(st))(i)(xs)(st)+c__case_5_case__20 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_5_case__20")(x)++++c__case_4_case__21 x1 x3 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_return(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleDistribution.c_installDir(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))))))))))(x6)(st))(x7)(st))(st)+c__case_4_case__21 x1 x3 x5@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OracleDistribution.c_getLoadPath(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.OracleDistribution.c_fullPath(x3)(x8)(st))(x9)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleDistribution.c_callFrontendWithParams'46_'35lambda10))))(x10)(st))(st)+c__case_4_case__21 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_4_case__21(x1)(x3)(x)(st))(i)(xs)(st)+c__case_4_case__21 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_4_case__21")(x)++++c__case_2_case__22 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__22 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_2_case__22 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_2_case__22(x1)(x)(st))(i)(xs)(st)+c__case_2_case__22 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_2_case__22")(x)++++c__case_3_case__23 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_3_case__23 x1 x2@Curry.Module.Prelude.C_False st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleDistribution.c__case_2(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleDistribution.c_curryCompiler(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))(x3)(st))(x4)(st))(st)+c__case_3_case__23 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_3_case__23(x1)(x)(st))(i)(xs)(st)+c__case_3_case__23 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_3_case__23")(x)++++c__case_1_case__24 x1 x2@Curry.Module.Distribution.C_FCY st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))(st)+c__case_1_case__24 x1 x2@Curry.Module.Distribution.C_FINT st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))(st)+c__case_1_case__24 x1 x2@Curry.Module.Distribution.C_ACY st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))(st)+c__case_1_case__24 x1 x2@Curry.Module.Distribution.C_UACY st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(st)+c__case_1_case__24 x1 x2@Curry.Module.Distribution.C_HTML st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))(st)+c__case_1_case__24 x1 x2@Curry.Module.Distribution.C_CY st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))))))))(st)+c__case_1_case__24 x1 (Curry.Module.Distribution.C_FrontendTargetOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_1_case__24(x1)(x)(st))(i)(xs)(st)+c__case_1_case__24 x1 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_1_case__24")(x)++++c__case_0_case__25 x1 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSystem.c_system(x8)(x1)(st))(st)+c__case_0_case__25 x1 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(Curry.Module.OracleSystem.c_system(Curry.Module.OraclePrelude.op_43_43(x8)(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(x7)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('2'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))(Curry.Module.Prelude.List))))))(x1)(st))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_0_case__25 x1 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleDistribution.c__case_0_case__25(x1)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_0_case__25 x1 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleDistribution._case_0_case__25")(x)++
+ dist/build/Curry/Module/OracleEasyCheck.hs view
@@ -0,0 +1,1299 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleEasyCheck (module Curry.Module.OracleEasyCheck) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.EasyCheck+import Curry.Module.Integer+import Curry.Module.List+import Curry.Module.Meta+import Curry.Module.Prelude+import Curry.Module.RandomExternal+import Curry.Module.Sort+import Curry.Module.Read+import Curry.Module.OracleInteger+import Curry.Module.OracleList+import Curry.Module.OracleMeta+import Curry.Module.OraclePrelude+import Curry.Module.OracleRandomExternal+import Curry.Module.OracleSort+import Curry.Module.OracleRead++++-- begin included++++-- end included++data C_Config = C_Config Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.C_Char)))))+  | C_ConfigFail Curry.RunTimeSystem.C_Exceptions+  | C_ConfigOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.OracleEasyCheck.C_Config)++instance BaseCurry Curry.Module.OracleEasyCheck.C_Config where+  nf f (Curry.Module.OracleEasyCheck.C_Config x1 x2 x3) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> Curry.RunTimeSystem.nfCTC(\ v3 state3 -> f(Curry.Module.OracleEasyCheck.C_Config(v1)(v2)(v3))(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.OracleEasyCheck.C_Config x1 x2 x3) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> Curry.RunTimeSystem.gnfCTC(\ v3 state3 -> f(Curry.Module.OracleEasyCheck.C_Config(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.OracleEasyCheck.C_ConfigOr(Curry.RunTimeSystem.mkRef(r)(3)(i))([Curry.Module.OracleEasyCheck.C_Config(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.OracleEasyCheck.C_ConfigFail++  branching  = Curry.Module.OracleEasyCheck.C_ConfigOr++  consKind (Curry.Module.OracleEasyCheck.C_ConfigOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.OracleEasyCheck.C_ConfigFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.OracleEasyCheck.C_ConfigFail x) = x++  orRef (Curry.Module.OracleEasyCheck.C_ConfigOr x _) = x++  branches (Curry.Module.OracleEasyCheck.C_ConfigOr _ x) = x++++++instance Curry Curry.Module.OracleEasyCheck.C_Config where+  strEq (Curry.Module.OracleEasyCheck.C_Config x1 x2 x3) (Curry.Module.OracleEasyCheck.C_Config 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.OracleEasyCheck.C_Config x1 x2 x3) (Curry.Module.OracleEasyCheck.C_Config 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.OracleEasyCheck.C_Config x1 x2 x3) st = Curry.Module.OracleEasyCheck.C_Config(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))++  foldCurry f c (Curry.Module.OracleEasyCheck.C_Config x1 x2 x3) st = f(x1)(f(x2)(f(x3)(c)(st))(st))(st)++  typeName _ = "Config"++  showQ d (Curry.Module.OracleEasyCheck.C_Config x1 x2 x3) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleEasyCheck.Config "))((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.OracleEasyCheck.C_ConfigOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.OracleEasyCheck.C_Config where+  showsPrec d (Curry.Module.OracleEasyCheck.C_Config x1 x2 x3) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Config "))((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.OracleEasyCheck.C_ConfigOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.OracleEasyCheck.C_Config where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.OracleEasyCheck.C_Config(x1)(x2)(x3))(r3) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleEasyCheck")("Config")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2)])(r)++++++c_notest :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.EasyCheck.C_Test+c_notest x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.EasyCheck.C_Test(Curry.Module.EasyCheck.C_Undef)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)++++c_result :: Curry.Module.EasyCheck.C_Test -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.EasyCheck.C_Result+c_result x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_66(x2)(x1)(st))(st)++++c_setResult :: Curry.Module.EasyCheck.C_Result -> Curry.Module.EasyCheck.C_Test -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.EasyCheck.C_Test+c_setResult x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_65(x2)(x3)(x1)(st))(st)++++c_args :: Curry.Module.EasyCheck.C_Test -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_args x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_64(x2)(x1)(st))(st)++++c_stamp :: Curry.Module.EasyCheck.C_Test -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_stamp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_63(x2)(x1)(st))(st)++++c_updArgs :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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)))) -> Curry.Module.EasyCheck.C_Test -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.EasyCheck.C_Test+c_updArgs x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_62(x2)(x3)(x1)(st))(st)++++c_updStamp :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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)))) -> Curry.Module.EasyCheck.C_Test -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.EasyCheck.C_Test+c_updStamp x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_61(x2)(x3)(x1)(st))(st)++++c_test :: (Curry t0) => t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+c_test x2 x3 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(let {x4 = Curry.Module.Oracle.c_apply(Curry.Module.OracleEasyCheck.c_valuesOf(x1)(st))(x2)(x7)(st)} in let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OracleEasyCheck.c_setResult(Curry.Module.CEventOracle.c_replace(x11)(Curry.Module.OracleEasyCheck.c__case_60(x4)(Curry.Module.Oracle.c_apply(Curry.Module.OracleEasyCheck.c_valuesOf(x8)(st))(Curry.Module.Oracle.c_apply(x3)(x4)(x9)(st))(x10)(st))(x11)(st))(st))(Curry.Module.OracleEasyCheck.c_notest(x12)(st))(x13)(st))(Curry.Module.Prelude.List))(st))(st))(st)++++c_is :: (Curry t0) => t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+c_is x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c_test(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_is'46_'35lambda3(x3)))))(x1)(st))(st)++++c_is'46_'35lambda3 :: (Curry t220) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t220 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> (Curry.Module.Prelude.List t220) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_is'46_'35lambda3 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_56(x2)(x3)(x1)(st))(st)++++c_isAlways :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))+c_isAlways x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_test(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_all))))(x1)(st))(st)++++c_isEventually :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))+c_isEventually x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_test(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_any))))(x1)(st))(st)++++c_prop :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))+c_prop x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c_uniquely(x1)(st))(st)++++c_uniquely :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))+c_uniquely x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_is))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_always :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))+c_always x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_isAlways))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_eventually :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))+c_eventually x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_isEventually))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_failing :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+c_failing x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c_test(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_null))))(x1)(st))(st)++++c_successful :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+c_successful x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c_test(x2)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_not))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_null))))(x1)(st))(x3)(st))(st)++++c_deterministic :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+c_deterministic x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c_is(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(Curry.Module.Prelude.C_True)))))(x1)(st))(st)++++op_35 :: (Curry t0) => t0 -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+op_35 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleEasyCheck.c_test(x2)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_61_61(x3)))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_length))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleList.c_nub))))(x1)(st))(x4)(st))(x5)(st))(st)++++op_45_61_45 :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+op_45_61_45 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c_is(Curry.Module.Prelude.T2(x2)(x3))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_uncurry(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))))))(x1)(st))(st)++++op_60_126_62 :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+op_60_126_62 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleEasyCheck.c_test(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_isSameSet(Curry.Module.Oracle.c_apply(Curry.Module.OracleEasyCheck.c_valuesOf(x1)(st))(x3)(x4)(st))))))(x5)(st))(st)++++op_126_62 :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+op_126_62 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleEasyCheck.c_test(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_isSubsetOf(Curry.Module.Oracle.c_apply(Curry.Module.OracleEasyCheck.c_valuesOf(x1)(st))(x3)(x4)(st))))))(x5)(st))(st)++++op_60_126 :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+op_60_126 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleEasyCheck.c_test(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_isSubsetOf))(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleEasyCheck.c_valuesOf(x1)(st))(x3)(x4)(st))))))(x5)(st))(st)++++c_isSameSet :: (Curry t0) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isSameSet x2 x3 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleList.c_nub(x2)(x1)(st)} in let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleList.c_nub(x3)(x6)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleEasyCheck.c_subset(x4)(x5)(x7)(st))(Curry.Module.OracleEasyCheck.c_subset(x5)(x4)(x8)(st))(x9)(st))(st))(st))(st)++++c_isSubsetOf :: (Curry t0) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isSubsetOf x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c_subset(Curry.Module.OracleList.c_nub(x2)(x1)(st))(x3)(x4)(st))(st)++++c_subset :: (Curry t0) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_subset x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_null(Curry.Module.OracleList.op_92_92(x2)(x3)(x1)(st))(x4)(st))(st)++++op_61_61_62 :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+op_61_61_62 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_54(x3)(x2)(x1)(st))(st)++++c_forAll :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))) -> t1 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+c_forAll x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OracleEasyCheck.c_forAllValues(x2)(Curry.Module.Oracle.c_apply(Curry.Module.OracleEasyCheck.c_valuesOf(x1)(st))(x3)(x5)(st))(x4)(x6)(st))(st)++++c_forAllValues :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))) -> (Curry.Module.Prelude.List t1) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+c_forAllValues x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OracleEasyCheck.c_diagonal(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_forAllValues'46_'35lambda5(x2)(x4)))))(x3)(x5)(st))(x6)(st))(st)++++c_forAllValues'46_'35lambda5 :: (Curry t330,Curry t327) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t330 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t327 -> Curry.RunTimeSystem.State -> t330))) -> t327 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test+c_forAllValues'46_'35lambda5 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_forAllValues'46_'35lambda5'46_'35lambda6(x4)))))(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Oracle.c_apply(x3)(x4)(x1)(st))(x5)(st))(x6)(st))(st)++++c_forAllValues'46_'35lambda5'46_'35lambda6 :: (Curry t327) => t327 -> Curry.Module.EasyCheck.C_Test -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.EasyCheck.C_Test+c_forAllValues'46_'35lambda5'46_'35lambda6 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c_updArgs(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))))))(x3)(x4)(st))(st)++++c_for :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))+c_for x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_forAll(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))(st))(st)++++c_forValues :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))+c_forValues x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_forAllValues(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))(st))(st)++++c_label :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))+c_label x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.c_map))(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_updStamp))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))((Curry.Module.Prelude.:<)))(st))(x1)(st))(x2)(st))(st)++++c_classify :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))+c_classify x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_53(x3)(x2)(x1)(st))(st)++++c_trivial :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))+c_trivial x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_classify))(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('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))))))))(st)++++c_collect :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))+c_collect x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_label(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x2)(st))(st)++++c_collectAs :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))+c_collectAs x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_label(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(x3)(st))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x4)(st))(x5)(st))(st)++++c_maxTest :: Curry.Module.OracleEasyCheck.C_Config -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_maxTest x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_52(x2)(x1)(st))(st)++++c_maxFail :: Curry.Module.OracleEasyCheck.C_Config -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_maxFail x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_51(x2)(x1)(st))(st)++++c_every :: Curry.Module.OracleEasyCheck.C_Config -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.C_Char))))+c_every x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_50(x2)(x1)(st))(st)++++c_setEvery :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.C_Char))))) -> Curry.Module.OracleEasyCheck.C_Config -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleEasyCheck.C_Config+c_setEvery x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_49(x2)(x3)(x1)(st))(st)++++c_easy :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleEasyCheck.C_Config+c_easy x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OracleEasyCheck.C_Config(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_easy'46_'35lambda7))(st)))(st)++++c_easy'46_'35lambda7 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_easy'46_'35lambda7 x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(let {x4 = (Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.OraclePrelude.c_show(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x5)(st))} in let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x4)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_easy'46_'35lambda7'46_'35lambda8))))(x4)(x6)(st))(x7)(st))(st))(st)++++c_easy'46_'35lambda7'46_'35lambda8 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_easy'46_'35lambda7'46_'35lambda8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(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)))))(x1)(st))(st)++++c_verbose :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleEasyCheck.C_Config+c_verbose x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c_setEvery(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_verbose'46_'35lambda9))(st))(Curry.Module.OracleEasyCheck.c_easy(x1)(st))(x2)(st))(st)++++c_verbose'46_'35lambda9 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_verbose'46_'35lambda9 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_unlines(x3)(x4)(st))(x5)(st))(x6)(st))(st)++++c_easyCheck :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_easyCheck x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_check(Curry.Module.OracleEasyCheck.c_easy(x1)(st))))))(st)++++c_verboseCheck :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_verboseCheck x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_check(Curry.Module.OracleEasyCheck.c_verbose(x1)(st))))))(st)++++c_suc :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t0))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))+c_suc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_forAll(x2)(Curry.Module.OraclePrelude.c_unknown(x1)(st))))))(st)++++c_easyCheck1 :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_easyCheck1 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_easyCheck(x1)(st))(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(st))(x3)(st))(st)++++c_easyCheck2 :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_easyCheck2 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_easyCheck(x1)(st))(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(st))(x3)(st))(x4)(st))(st)++++c_easyCheck3 :: (Curry t0,Curry t1,Curry t2) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_easyCheck3 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_easyCheck(x1)(st))(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(st))(x3)(st))(x4)(st))(x5)(st))(st)++++c_easyCheck4 :: (Curry t0,Curry t1,Curry t2,Curry t3) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t3 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_easyCheck4 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_easyCheck(x1)(st))(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(st))(x3)(st))(x4)(st))(x5)(st))(x6)(st))(st)++++c_easyCheck5 :: (Curry t0,Curry t1,Curry t2,Curry t3,Curry t4) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t3 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t4 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))))))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_easyCheck5 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_easyCheck(x1)(st))(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(st))(x3)(st))(x4)(st))(x5)(st))(x6)(st))(x7)(st))(st)++++c_verboseCheck1 :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_verboseCheck1 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_verboseCheck(x1)(st))(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(st))(x3)(st))(st)++++c_verboseCheck2 :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_verboseCheck2 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_verboseCheck(x1)(st))(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(st))(x3)(st))(x4)(st))(st)++++c_verboseCheck3 :: (Curry t0,Curry t1,Curry t2) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_verboseCheck3 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_verboseCheck(x1)(st))(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(st))(x3)(st))(x4)(st))(x5)(st))(st)++++c_verboseCheck4 :: (Curry t0,Curry t1,Curry t2,Curry t3) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t3 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_verboseCheck4 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_verboseCheck(x1)(st))(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(st))(x3)(st))(x4)(st))(x5)(st))(x6)(st))(st)++++c_verboseCheck5 :: (Curry t0,Curry t1,Curry t2,Curry t3,Curry t4) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t3 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t4 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test))))))))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_verboseCheck5 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleEasyCheck.c_verboseCheck(x1)(st))(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.OracleEasyCheck.c_suc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(st))(x3)(st))(x4)(st))(x5)(st))(x6)(st))(x7)(st))(st)++++c_check :: Curry.Module.OracleEasyCheck.C_Config -> (Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_check x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleEasyCheck.c_evalModeIsOrBased(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_check'46_'35lambda10(x2)(x3)))))(x4)(st))(st)++++c_check'46_'35lambda10 :: Curry.Module.OracleEasyCheck.C_Config -> (Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_check'46_'35lambda10 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_48(x2)(x3)(x4)(x1)(st))(st)++++c_tests :: Curry.Module.OracleEasyCheck.C_Config -> (Curry.Module.Prelude.List Curry.Module.EasyCheck.C_Test) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_tests x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_47(x2)(x4)(x5)(x6)(x3)(x1)(st))(st)++++c_nth :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_nth x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_38(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x3)(st))(st)++++c_done :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_done x2 x3 x4 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))))))))))))))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_putStr))))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x18)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleEasyCheck.c__case_35(x3)(Curry.Module.OraclePrelude.op_62_61(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x19)(st))(x20)(st))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_done'46display'46199))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_done'46entry'46199(x3)))))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePrelude.c_reverse(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSort.c_mergeSort(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_leqPair(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_60_61))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSort.c_leqList(Curry.Module.OracleSort.c_leqString(x6)(st))))(st))))(st))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_done'46pairLength'46199))))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleList.c_group(x7)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSort.c_mergeSort(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSort.c_leqList(Curry.Module.OracleSort.c_leqString(x8)(st))))(st))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_not))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_null))))(x9)(st))))))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(x4)(x17)(st))(x21)(st))(x22)(st))(x23)(st))(x24)(st))(x25)(st))(x26)(st))(st))(st)++++c_done'46display'46199 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_done'46display'46199 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_34(x2)(x1)(st))(st)++++c_done'46pairLength'46199 :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0+c_done'46pairLength'46199 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_32(x2)(x1)(st))(st)++++c_done'46percentage'46199 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_done'46percentage'46199 x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(let {x4 = Curry.Module.OraclePrelude.c_show(Curry.Module.OraclePrelude.c_div(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x2)(x1)(st))(x3)(x5)(st))(x6)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_replicate(Curry.Module.OraclePrelude.op_45(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))(Curry.Module.OraclePrelude.c_length(x4)(x7)(st))(x8)(st))(Curry.Module.Prelude.C_Char(' '))(x9)(st))(Curry.Module.OraclePrelude.op_43_43(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('%'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(st))(st)++++c_done'46entry'46199 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_done'46entry'46199 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_31(x2)(x3)(x1)(st))(st)++++c_leqPair :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.T2 t0 t1) -> (Curry.Module.Prelude.T2 t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_leqPair x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_30(x2)(x3)(x5)(x4)(x1)(st))(st)++++c_leList :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_leList x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_26(x2)(x4)(x3)(x1)(st))(st)++++c_valuesOf :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_valuesOf x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_rndLevelDiagFlat(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))))))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMeta.c_searchTree))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(x1)(st))(x2)(st))(st)++++c_rndLevelDiag :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.C_SearchTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_rndLevelDiag x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_rndLevelDiag'46_'35lambda15))(st))(Curry.Module.Prelude.List)(Curry.Module.Oracle.c_apply(Curry.Module.OracleEasyCheck.c_diagonal(x1)(st))(Curry.Module.OracleEasyCheck.c_rndLevels(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(x4)(st))(x5)(st))(x6)(st))(st)++++c_rndLevelDiag'46_'35lambda15 :: (Curry t119) => (Curry.Module.Prelude.C_SearchTree t119) -> (Curry.Module.Prelude.List t119) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t119+c_rndLevelDiag'46_'35lambda15 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_23(x3)(x2)(x1)(st))(st)++++c_rndLevels :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t0))+c_rndLevels x2 x3 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleRandomExternal.c_split(x2)(x1)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_22(x3)(Curry.Module.OracleEasyCheck.c_rndLevels'46_'35selFP3'35r(x4)(x7)(st))(Curry.Module.OracleEasyCheck.c_rndLevels'46_'35selFP4'35rs(x4)(x8)(st))(Curry.Module.OraclePrelude.c_null(x3)(x9)(st))(x10)(st))(st))(st))(st))(st)++++c_rndLevels'46_'35selFP3'35r :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_rndLevels'46_'35selFP3'35r x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_21(x2)(x1)(st))(st)++++c_rndLevels'46_'35selFP4'35rs :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_rndLevels'46_'35selFP4'35rs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_20(x2)(x1)(st))(st)++++c_rndLevels'46_'35lambda19 :: (Curry t68) => (Curry.Module.Prelude.C_SearchTree t68) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t68))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t68))+c_rndLevels'46_'35lambda19 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_19(x3)(x2)(x1)(st))(st)++++c_rndLevelDiagFlat :: (Curry t0) => Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.C_SearchTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_rndLevelDiagFlat x2 x3 x4 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_concat))))(Curry.Module.OracleEasyCheck.c_transpose(Curry.Module.OraclePrelude.c_zipWith(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_rndLevelDiag))(st))(Curry.Module.OracleRandomExternal.c_split(x3)(x1)(st))(Curry.Module.OracleEasyCheck.c_flatRep(x2)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(x8)(st))(x9)(st))(st))(st)++++c_flat :: (Curry t0) => (Curry.Module.Prelude.C_SearchTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t0)+c_flat x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_18(x2)(x1)(st))(st)++++c_flatRep :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t0)+c_flatRep x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_17(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)++++c_diagonal :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_diagonal x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_concat))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_diagonal'46diags'46268))(st))(Curry.Module.Prelude.List)))))(x1)(st))(st)++++c_diagonal'46merge'46268 :: (Curry t0) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)+c_diagonal'46merge'46268 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_15(x3)(x2)(x1)(st))(st)++++c_diagonal'46diags'46268 :: (Curry t0) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)+c_diagonal'46diags'46268 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_13(x3)(x2)(x1)(st))(st)++++c_shuffle :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_shuffle x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleEasyCheck.c_shuffleWithLen(Curry.Module.OracleRandomExternal.c_nextInt(x2)(x1)(st))(Curry.Module.OraclePrelude.c_length(x3)(x4)(st))(x3)(x5)(st))(st)++++c_shuffleWithLen :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_shuffleWithLen x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_12(x3)(x4)(x2)(x1)(st))(st)++++c_shuffleWithLen'46_'35selFP6'35ys :: (Curry t39) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t39) (Curry.Module.Prelude.List t39)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t39+c_shuffleWithLen'46_'35selFP6'35ys x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_9(x2)(x1)(st))(st)++++c_shuffleWithLen'46_'35selFP7'35z :: (Curry t39) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t39) (Curry.Module.Prelude.List t39)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t39+c_shuffleWithLen'46_'35selFP7'35z x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_7(x2)(x1)(st))(st)++++c_shuffleWithLen'46_'35selFP8'35zs :: (Curry t39) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t39) (Curry.Module.Prelude.List t39)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t39+c_shuffleWithLen'46_'35selFP8'35zs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_5(x2)(x1)(st))(st)++++c_transpose :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)+c_transpose x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_3(x2)(x1)(st))(st)++++c_transpose'46_'35lambda24 :: (Curry t151) => (Curry.Module.Prelude.List t151) -> (Curry.Module.Prelude.List t151) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t151+c_transpose'46_'35lambda24 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_1(x3)(x2)(x1)(st))(st)++++c_transpose'46_'35lambda28 :: (Curry t151) => (Curry.Module.Prelude.List t151) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List t151)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List t151)+c_transpose'46_'35lambda28 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_0(x3)(x2)(x1)(st))(st)++++c_evalModeIsOrBased :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_evalModeIsOrBased x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_getSearchTree(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.OraclePrelude.c_unknown(x1)(st))(x2)(st))(x3)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))(Curry.Module.Prelude.C_Value(Curry.Module.Prelude.T0))))))(x4)(st))(x5)(st))(st)++++c__case_0 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_0_case__66(x1)(x3)(x2)(st))(st)++++c__case_1 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_1_case__65(x1)(x3)(x2)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_3_case__64(x1)(x2)(st))(st)++++c__case_2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_2_case__63(x1)(x4)(x3)(st))(st)++++c__case_5 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_5_case__62(x1)(x2)(st))(st)++++c__case_4 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_4_case__61(x1)(x4)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_7_case__60(x1)(x2)(st))(st)++++c__case_6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_6_case__59(x1)(x4)(st))(st)++++c__case_9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_9_case__58(x1)(x2)(st))(st)++++c__case_8 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_8_case__57(x1)(x3)(x4)(st))(st)++++c__case_12 x3 x4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_12_case__56(x1)(x3)(x4)(x2)(st))(st)++++c__case_11 x3 x6 x8 x9 x10 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_11_case__55(x1)(x3)(x6)(x8)(x9)(x10)(x11)(st))(st)++++c__case_10 x3 x6 x8 x9 x10 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_10_case__54(x1)(x3)(x6)(x8)(x9)(x10)(x11)(st))(st)++++c__case_13 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_13_case__53(x1)(x3)(x2)(st))(st)++++c__case_15 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_15_case__52(x1)(x3)(x2)(st))(st)++++c__case_14 x2 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_14_case__51(x1)(x2)(x4)(x5)(x3)(st))(st)++++c__case_17 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_17_case__50(x1)(x2)(x3)(x4)(st))(st)++++c__case_16 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_16_case__49(x1)(x2)(x3)(x4)(st))(st)++++c__case_18 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_18_case__48(x1)(x2)(st))(st)++++c__case_19 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_19_case__47(x1)(x3)(x2)(st))(st)++++c__case_20 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_20_case__46(x1)(x2)(st))(st)++++c__case_21 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_21_case__45(x1)(x2)(st))(st)++++c__case_22 x3 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_22_case__44(x1)(x3)(x5)(x6)(x7)(st))(st)++++c__case_23 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_23_case__43(x1)(x3)(x2)(st))(st)++++c__case_26 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_26_case__42(x1)(x2)(x4)(x3)(st))(st)++++c__case_24 x2 x7 x8 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_24_case__41(x1)(x2)(x7)(x8)(x4)(st))(st)++++c__case_25 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_25_case__40(x1)(x4)(st))(st)++++c__case_30 x2 x3 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_30_case__39(x1)(x2)(x3)(x5)(x4)(st))(st)++++c__case_29 x2 x3 x6 x7 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_29_case__38(x1)(x2)(x3)(x6)(x7)(x5)(st))(st)++++c__case_28 x2 x3 x6 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_28_case__37(x1)(x2)(x3)(x6)(x7)(x8)(x9)(x10)(st))(st)++++c__case_27 x2 x6 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_27_case__36(x1)(x2)(x6)(x8)(x9)(st))(st)++++c__case_31 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_31_case__35(x1)(x2)(x3)(st))(st)++++c__case_32 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_32_case__34(x1)(x2)(st))(st)++++c__case_34 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_34_case__33(x1)(x2)(st))(st)++++c__case_33 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_33_case__32(x1)(x2)(x3)(x4)(st))(st)++++c__case_35 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_35_case__31(x1)(x4)(st))(st)++++c__case_38 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_38_case__30(x1)(x2)(x3)(st))(st)++++c__case_37 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_37_case__29(x1)(x2)(x3)(st))(st)++++c__case_36 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_36_case__28(x1)(x2)(x3)(st))(st)++++c__case_47 x2 x4 x5 x6 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_47_case__27(x1)(x2)(x4)(x5)(x6)(x3)(st))(st)++++c__case_46 x2 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_46_case__26(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_45 x2 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_45_case__25(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_44 x2 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_44_case__24(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_43 x2 x4 x5 x6 x7 x8 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_43_case__23(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x12)(st))(st)++++c__case_39 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_39_case__22(x1)(x11)(x12)(st))(st)++++c__case_40 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_40_case__21(x1)(x8)(st))(st)++++c__case_41 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_41_case__20(x1)(x9)(x10)(st))(st)++++c__case_42 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_42_case__19(x1)(x8)(st))(st)++++c__case_48 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_48_case__18(x1)(x2)(x3)(x4)(st))(st)++++c__case_49 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_49_case__17(x1)(x2)(x3)(st))(st)++++c__case_50 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_50_case__16(x1)(x2)(st))(st)++++c__case_51 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_51_case__15(x1)(x2)(st))(st)++++c__case_52 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_52_case__14(x1)(x2)(st))(st)++++c__case_53 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_53_case__13(x1)(x3)(x2)(st))(st)++++c__case_54 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_54_case__12(x1)(x3)(x2)(st))(st)++++c__case_56 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_56_case__11(x1)(x2)(x3)(st))(st)++++c__case_55 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_55_case__10(x1)(x2)(x4)(x5)(st))(st)++++c__case_60 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_60_case__9(x1)(x4)(x6)(st))(st)++++c__case_59 x4 x6 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_59_case__8(x1)(x4)(x6)(x8)(x7)(st))(st)++++c__case_57 x4 x6 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_57_case__7(x1)(x4)(x6)(x8)(st))(st)++++c__case_58 x4 x6 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_58_case__6(x1)(x4)(x6)(x8)(st))(st)++++c__case_61 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_61_case__5(x1)(x2)(x3)(st))(st)++++c__case_62 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_62_case__4(x1)(x2)(x3)(st))(st)++++c__case_63 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_63_case__3(x1)(x2)(st))(st)++++c__case_64 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_64_case__2(x1)(x2)(st))(st)++++c__case_65 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_65_case__1(x1)(x2)(x3)(st))(st)++++c__case_66 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_66_case__0(x1)(x2)(st))(st)++++c__case_66_case__0 x1 x2@(Curry.Module.EasyCheck.C_Test x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_66_case__0 x1 (Curry.Module.EasyCheck.C_TestOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_66_case__0(x1)(x)(st))(i)(xs)(st)+c__case_66_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_66_case__0")(x)++++c__case_65_case__1 x1 x2 x3@(Curry.Module.EasyCheck.C_Test x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.EasyCheck.C_Test(x2)(x6)(x5))(st)+c__case_65_case__1 x1 x2 (Curry.Module.EasyCheck.C_TestOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_65_case__1(x1)(x2)(x)(st))(i)(xs)(st)+c__case_65_case__1 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_65_case__1")(x)++++c__case_64_case__2 x1 x2@(Curry.Module.EasyCheck.C_Test x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_64_case__2 x1 (Curry.Module.EasyCheck.C_TestOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_64_case__2(x1)(x)(st))(i)(xs)(st)+c__case_64_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_64_case__2")(x)++++c__case_63_case__3 x1 x2@(Curry.Module.EasyCheck.C_Test x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_63_case__3 x1 (Curry.Module.EasyCheck.C_TestOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_63_case__3(x1)(x)(st))(i)(xs)(st)+c__case_63_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_63_case__3")(x)++++c__case_62_case__4 x1 x2 x3@(Curry.Module.EasyCheck.C_Test x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.EasyCheck.C_Test(x4)(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x6))(st)+c__case_62_case__4 x1 x2 (Curry.Module.EasyCheck.C_TestOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_62_case__4(x1)(x2)(x)(st))(i)(xs)(st)+c__case_62_case__4 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_62_case__4")(x)++++c__case_61_case__5 x1 x2 x3@(Curry.Module.EasyCheck.C_Test x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.EasyCheck.C_Test(x4)(x5)(Curry.Module.Oracle.c_apply(x2)(x6)(x1)(st)))(st)+c__case_61_case__5 x1 x2 (Curry.Module.EasyCheck.C_TestOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_61_case__5(x1)(x2)(x)(st))(i)(xs)(st)+c__case_61_case__5 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_61_case__5")(x)++++c__case_58_case__6 x1 x4 x6 x8@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.EasyCheck.C_Ok)(st)+c__case_58_case__6 x1 x4 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.EasyCheck.C_Ambigious(x6)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x4)(x1)(st)))(st)+c__case_58_case__6 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_58_case__6(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_58_case__6 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_58_case__6")(x)++++c__case_57_case__7 x1 x4 x6 x8@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.EasyCheck.C_Falsified(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x4)(x1)(st)))(st)+c__case_57_case__7 x1 x4 x6 x8@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.EasyCheck.C_Ambigious(x6)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x4)(x1)(st)))(st)+c__case_57_case__7 x1 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_57_case__7(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_57_case__7 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_57_case__7")(x)++++c__case_59_case__8 x1 x4 x6 x8 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_58(x4)(x6)(x8)(x1)(st))(st)+c__case_59_case__8 x1 x4 x6 x8 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_57(x4)(x6)(x8)(x1)(st))(st)+c__case_59_case__8 x1 x4 x6 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_59_case__8(x1)(x4)(x6)(x8)(x)(st))(i)(xs)(st)+c__case_59_case__8 x1 x4 x6 x8 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_59_case__8")(x)++++c__case_60_case__9 x1 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_59(x4)(x6)(x8)(x7)(x1)(st))(st)+c__case_60_case__9 x1 x4 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.EasyCheck.C_Ambigious(Curry.Module.Prelude.List)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x4)(x1)(st)))(st)+c__case_60_case__9 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_60_case__9(x1)(x4)(x)(st))(i)(xs)(st)+c__case_60_case__9 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_60_case__9")(x)++++c__case_55_case__10 x1 x2 x4 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(st)+c__case_55_case__10 x1 x2 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_55_case__10 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_55_case__10(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_55_case__10 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_55_case__10")(x)++++c__case_56_case__11 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_55(x2)(x4)(x5)(x1)(st))(st)+c__case_56_case__11 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_56_case__11 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_56_case__11(x1)(x2)(x)(st))(i)(xs)(st)+c__case_56_case__11 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_56_case__11")(x)++++c__case_54_case__12 x1 x3 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_54_case__12 x1 x3 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.OracleEasyCheck.c_notest(x1)(st))(Curry.Module.Prelude.List))(st)+c__case_54_case__12 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_54_case__12(x1)(x3)(x)(st))(i)(xs)(st)+c__case_54_case__12 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_54_case__12")(x)++++c__case_53_case__13 x1 x3 x2@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OracleEasyCheck.c_label(x1)(st))(x3)(x4)(st))(st)+c__case_53_case__13 x1 x3 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(st)+c__case_53_case__13 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_53_case__13(x1)(x3)(x)(st))(i)(xs)(st)+c__case_53_case__13 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_53_case__13")(x)++++c__case_52_case__14 x1 x2@(Curry.Module.OracleEasyCheck.C_Config x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_52_case__14 x1 (Curry.Module.OracleEasyCheck.C_ConfigOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_52_case__14(x1)(x)(st))(i)(xs)(st)+c__case_52_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_52_case__14")(x)++++c__case_51_case__15 x1 x2@(Curry.Module.OracleEasyCheck.C_Config x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_51_case__15 x1 (Curry.Module.OracleEasyCheck.C_ConfigOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_51_case__15(x1)(x)(st))(i)(xs)(st)+c__case_51_case__15 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_51_case__15")(x)++++c__case_50_case__16 x1 x2@(Curry.Module.OracleEasyCheck.C_Config x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_50_case__16 x1 (Curry.Module.OracleEasyCheck.C_ConfigOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_50_case__16(x1)(x)(st))(i)(xs)(st)+c__case_50_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_50_case__16")(x)++++c__case_49_case__17 x1 x2 x3@(Curry.Module.OracleEasyCheck.C_Config x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OracleEasyCheck.C_Config(x4)(x5)(x2))(st)+c__case_49_case__17 x1 x2 (Curry.Module.OracleEasyCheck.C_ConfigOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_49_case__17(x1)(x2)(x)(st))(i)(xs)(st)+c__case_49_case__17 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_49_case__17")(x)++++c__case_48_case__18 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c_tests(x2)(x3)(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.List)(x1)(st))(st)+c__case_48_case__18 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_putStrLn))))(Curry.Module.OraclePrelude.c_unlines((Curry.Module.Prelude.:<)(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)((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('s'))((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('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((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('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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.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('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('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('u'))((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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)((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('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.Prelude.:<)(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.:<)(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.:<)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((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('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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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(' '))((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('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((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))))))))))))))))))))))))))))))))))))))))))))))))))))((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.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('B'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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(' '))((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('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.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('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)((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('e'))((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('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('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('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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.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('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('s'))((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('o'))((Curry.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('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('s'))((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('s'))((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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('v'))((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('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.Prelude.List))))))))))(x1)(st))(x5)(st))(st)+c__case_48_case__18 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_48_case__18(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_48_case__18 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_48_case__18")(x)++++c__case_42_case__19 x1 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))(st)+c__case_42_case__19 x1 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((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('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.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))))))))))))(st)+c__case_42_case__19 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_42_case__19(x1)(x)(st))(i)(xs)(st)+c__case_42_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_42_case__19")(x)++++c__case_41_case__20 x1 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((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('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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))))(st)+c__case_41_case__20 x1 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((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('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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.c_unlines(x9)(x1)(st))(x11)(st))(st)+c__case_41_case__20 x1 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_41_case__20(x1)(x9)(x)(st))(i)(xs)(st)+c__case_41_case__20 x1 x9 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_41_case__20")(x)++++c__case_40_case__21 x1 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))(st)+c__case_40_case__21 x1 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((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('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.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))))))))))))(st)+c__case_40_case__21 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_40_case__21(x1)(x)(st))(i)(xs)(st)+c__case_40_case__21 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_40_case__21")(x)++++c__case_39_case__22 x1 x11 x12@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((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('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('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))))))))(st)+c__case_39_case__22 x1 x11 x12@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((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('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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.c_unlines(x11)(x1)(st))(x13)(st))(st)+c__case_39_case__22 x1 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_39_case__22(x1)(x11)(x)(st))(i)(xs)(st)+c__case_39_case__22 x1 x11 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_39_case__22")(x)++++c__case_43_case__23 x1 x2 x4 x5 x6 x7 x8 x12@Curry.Module.EasyCheck.C_Undef st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c_tests(x2)(x8)(x4)(Curry.Module.OraclePrelude.op_43(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x6)(x13)(st))(st)+c__case_43_case__23 x1 x2 x4 x5 x6 x7 x8 x12@Curry.Module.EasyCheck.C_Ok st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))(Curry.Module.OracleEasyCheck.c_tests(x2)(x8)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x5)((Curry.Module.Prelude.:<)(Curry.Module.OracleEasyCheck.c_stamp(x7)(x14)(st))(x6))(x15)(st))(st)+c__case_43_case__23 x1 x2 x4 x5 x6 x7 x8 x12@(Curry.Module.EasyCheck.C_Falsified x9) st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))))))))))))))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_putStr))))(Curry.Module.OraclePrelude.op_43_43((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('i'))((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('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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleEasyCheck.c_nth(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x16)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleEasyCheck.c__case_42(x7)(Curry.Module.OraclePrelude.c_null(Curry.Module.OracleEasyCheck.c_args(x7)(x17)(st))(x18)(st))(x19)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_unlines(Curry.Module.OracleEasyCheck.c_args(x7)(x20)(st))(x21)(st))(Curry.Module.OracleEasyCheck.c__case_41(x9)(Curry.Module.OraclePrelude.c_null(x9)(x22)(st))(x23)(st))(x24)(st))(x25)(st))(x26)(st))(x27)(st))(x28)(st))(x29)(st))(x30)(st))(st)+c__case_43_case__23 x1 x2 x4 x5 x6 x7 x8 x12@(Curry.Module.EasyCheck.C_Ambigious x10 x11) st = let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x45 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x46 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x47 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x48 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)((Curry.Module.Prelude.:<)(x43)((Curry.Module.Prelude.:<)(x44)((Curry.Module.Prelude.:<)(x45)((Curry.Module.Prelude.:<)(x46)((Curry.Module.Prelude.:<)(x47)((Curry.Module.Prelude.:<)(x48)(Curry.Module.Prelude.List)))))))))))))))))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_putStr))))(Curry.Module.OraclePrelude.op_43_43((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('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('o'))((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(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x10)(x1)(st))(Curry.Module.OraclePrelude.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('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleEasyCheck.c_nth(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x31)(st))(x32)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleEasyCheck.c__case_40(x7)(Curry.Module.OraclePrelude.c_null(Curry.Module.OracleEasyCheck.c_args(x7)(x33)(st))(x34)(st))(x35)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_unlines(Curry.Module.OracleEasyCheck.c_args(x7)(x36)(st))(x37)(st))(Curry.Module.OracleEasyCheck.c__case_39(x11)(Curry.Module.OraclePrelude.c_null(x11)(x38)(st))(x39)(st))(x40)(st))(x41)(st))(x42)(st))(x43)(st))(x44)(st))(x45)(st))(x46)(st))(x47)(st))(x48)(st))(st)+c__case_43_case__23 x1 x2 x4 x5 x6 x7 x8 (Curry.Module.EasyCheck.C_ResultOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_43_case__23(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_43_case__23 x1 x2 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_43_case__23")(x)++++c__case_44_case__24 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStr(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleEasyCheck.c_every(x2)(x1)(st))(x4)(x10)(st))(Curry.Module.OracleEasyCheck.c_args(x7)(x11)(st))(x12)(st))(x13)(st))(Curry.Module.OracleEasyCheck.c__case_43(x2)(x4)(x5)(x6)(x7)(x8)(Curry.Module.OracleEasyCheck.c_result(x7)(x14)(st))(x15)(st))(x16)(st))(st)+c__case_44_case__24 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_44_case__24 x1 x2 x4 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_44_case__24(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_44_case__24 x1 x2 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_44_case__24")(x)++++c__case_45_case__25 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c_done((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.:<)(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('h'))((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('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('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))))))))))))))))))))))(x4)(x6)(x1)(st))(st)+c__case_45_case__25 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_44(x2)(x4)(x5)(x6)(x7)(x8)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x10)(st))(st)+c__case_45_case__25 x1 x2 x4 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_45_case__25(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_45_case__25 x1 x2 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_45_case__25")(x)++++c__case_46_case__26 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c_done((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(' '))((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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List)))))))))))(x4)(x6)(x1)(st))(st)+c__case_46_case__26 x1 x2 x4 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleEasyCheck.c__case_45(x2)(x4)(x5)(x6)(x7)(x8)(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.OracleEasyCheck.c_maxFail(x2)(x1)(st))(x10)(st))(x11)(st))(st)+c__case_46_case__26 x1 x2 x4 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_46_case__26(x1)(x2)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_46_case__26 x1 x2 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_46_case__26")(x)++++c__case_47_case__27 x1 x2 x4 x5 x6 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c_done((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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List)))))))(x4)(x6)(x1)(st))(st)+c__case_47_case__27 x1 x2 x4 x5 x6 x3@((Curry.Module.Prelude.:<) x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.OracleEasyCheck.c__case_46(x2)(x4)(x5)(x6)(x7)(x8)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.OracleEasyCheck.c_maxTest(x2)(x1)(st))(x9)(st))(x10)(st))(st)+c__case_47_case__27 x1 x2 x4 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_47_case__27(x1)(x2)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_47_case__27 x1 x2 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_47_case__27")(x)++++c__case_36_case__28 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))(st)+c__case_36_case__28 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))(Curry.Module.Prelude.List)))(x4)(st))(st)+c__case_36_case__28 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_36_case__28(x1)(x2)(x)(st))(i)(xs)(st)+c__case_36_case__28 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_36_case__28")(x)++++c__case_37_case__29 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List)))))))(st)+c__case_37_case__29 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_36(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))(x1)(st))(x4)(st))(st)+c__case_37_case__29 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_37_case__29(x1)(x2)(x)(st))(i)(xs)(st)+c__case_37_case__29 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_37_case__29")(x)++++c__case_38_case__30 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))(st)+c__case_38_case__30 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_37(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(x4)(st))(st)+c__case_38_case__30 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_38_case__30(x1)(x2)(x)(st))(i)(xs)(st)+c__case_38_case__30 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_38_case__30")(x)++++c__case_35_case__31 x1 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))(st)+c__case_35_case__31 x1 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_35_case__31 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_35_case__31(x1)(x)(st))(i)(xs)(st)+c__case_35_case__31 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_35_case__31")(x)++++c__case_33_case__32 x1 x2 x3 x4@Curry.Module.Prelude.List st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(x1)(st))(x7)(st))(st)+c__case_33_case__32 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_unlines(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_43_43))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))))))(x2)(x1)(st))(x8)(st))(x9)(st))(st)+c__case_33_case__32 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_33_case__32(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_33_case__32 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_33_case__32")(x)++++c__case_34_case__33 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(st)+c__case_34_case__33 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_33(x2)(x3)(x4)(x1)(st))(st)+c__case_34_case__33 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_34_case__33(x1)(x)(st))(i)(xs)(st)+c__case_34_case__33 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_34_case__33")(x)++++c__case_32_case__34 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.c_length(x2)(x1)(st))(x3))(st)+c__case_32_case__34 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_32_case__34(x1)(x)(st))(i)(xs)(st)+c__case_32_case__34 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_32_case__34")(x)++++c__case_31_case__35 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleEasyCheck.c_done'46percentage'46199(x4)(x2)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(x5)(x6)(st))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_31_case__35 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_31_case__35(x1)(x2)(x)(st))(i)(xs)(st)+c__case_31_case__35 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_31_case__35")(x)++++c__case_27_case__36 x1 x2 x6 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x6)(x1)(st))(x8)(x10)(st))(st)+c__case_27_case__36 x1 x2 x6 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_27_case__36 x1 x2 x6 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_27_case__36(x1)(x2)(x6)(x8)(x)(st))(i)(xs)(st)+c__case_27_case__36 x1 x2 x6 x8 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_27_case__36")(x)++++c__case_28_case__37 x1 x2 x3 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x7)(x1)(st))(x9)(x11)(st))(st)+c__case_28_case__37 x1 x2 x3 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_27(x2)(x6)(x8)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x12)(st))(st)+c__case_28_case__37 x1 x2 x3 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_28_case__37(x1)(x2)(x3)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_28_case__37 x1 x2 x3 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_28_case__37")(x)++++c__case_29_case__38 x1 x2 x3 x6 x7 x5@(Curry.Module.Prelude.T2 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_28(x2)(x3)(x6)(x7)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x6)(x8)(x1)(st))(x10)(st))(st)+c__case_29_case__38 x1 x2 x3 x6 x7 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_29_case__38(x1)(x2)(x3)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_29_case__38 x1 x2 x3 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_29_case__38")(x)++++c__case_30_case__39 x1 x2 x3 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_29(x2)(x3)(x6)(x7)(x5)(x1)(st))(st)+c__case_30_case__39 x1 x2 x3 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_30_case__39(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_30_case__39 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_30_case__39")(x)++++c__case_25_case__40 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_25_case__40 x1 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_25_case__40 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_25_case__40(x1)(x)(st))(i)(xs)(st)+c__case_25_case__40 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_25_case__40")(x)++++c__case_24_case__41 x1 x2 x7 x8 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_24_case__41 x1 x2 x7 x8 x4@((Curry.Module.Prelude.:<) x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x7)(x1)(st))(x9)(x11)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x7)(x9)(x12)(st))(Curry.Module.OracleEasyCheck.c_leList(x2)(x8)(x10)(x13)(st))(x14)(st))(x15)(st))(st)+c__case_24_case__41 x1 x2 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_24_case__41(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_24_case__41 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_24_case__41")(x)++++c__case_26_case__42 x1 x2 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_25(x4)(x1)(st))(st)+c__case_26_case__42 x1 x2 x4 x3@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_24(x2)(x7)(x8)(x4)(x1)(st))(st)+c__case_26_case__42 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_26_case__42(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_26_case__42 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_26_case__42")(x)++++c__case_23_case__43 x1 x3 x2@(Curry.Module.Prelude.C_Value x4) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(x3))(st)+c__case_23_case__43 x1 x3 x2@Curry.Module.Prelude.C_Fail st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_23_case__43 x1 x3 x2@(Curry.Module.Prelude.C_Choice x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_23_case__43 x1 x3 x2@Curry.Module.Prelude.C_Suspend st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_23_case__43 x1 x3 (Curry.Module.Prelude.C_SearchTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_23_case__43(x1)(x3)(x)(st))(i)(xs)(st)+c__case_23_case__43 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_23_case__43")(x)++++c__case_22_case__44 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_22_case__44 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(x3)(Curry.Module.OracleEasyCheck.c_rndLevels(x5)(Curry.Module.OraclePrelude.c_concat(Curry.Module.OraclePrelude.c_zipWith(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_shuffle))(st))(x6)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_rndLevels'46_'35lambda19))(st))(Curry.Module.Prelude.List)(x3)(x1)(st))(x8)(st))(x9)(st))(x10)(st)))(st)+c__case_22_case__44 x1 x3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_22_case__44(x1)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_22_case__44 x1 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_22_case__44")(x)++++c__case_21_case__45 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_21_case__45 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_21_case__45(x1)(x)(st))(i)(xs)(st)+c__case_21_case__45 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_21_case__45")(x)++++c__case_20_case__46 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_20_case__46 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_20_case__46(x1)(x)(st))(i)(xs)(st)+c__case_20_case__46 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_20_case__46")(x)++++c__case_19_case__47 x1 x3 x2@(Curry.Module.Prelude.C_Choice x4) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(x3))(st)+c__case_19_case__47 x1 x3 x2@Curry.Module.Prelude.C_Fail st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_19_case__47 x1 x3 x2@(Curry.Module.Prelude.C_Value x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_19_case__47 x1 x3 x2@Curry.Module.Prelude.C_Suspend st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_19_case__47 x1 x3 (Curry.Module.Prelude.C_SearchTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_19_case__47(x1)(x3)(x)(st))(i)(xs)(st)+c__case_19_case__47 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_19_case__47")(x)++++c__case_18_case__48 x1 x2@(Curry.Module.Prelude.C_Value x3) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(st)+c__case_18_case__48 x1 x2@(Curry.Module.Prelude.C_Choice x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_18_case__48 x1 x2@Curry.Module.Prelude.C_Fail st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_18_case__48 x1 x2@Curry.Module.Prelude.C_Suspend st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_18_case__48 x1 (Curry.Module.Prelude.C_SearchTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_18_case__48(x1)(x)(st))(i)(xs)(st)+c__case_18_case__48 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_18_case__48")(x)++++c__case_16_case__49 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.OracleEasyCheck.c_flatRep(Curry.Module.OraclePrelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleEasyCheck.c_flat))))(x5)(st))(x3)(x6)(st))(x7)(st))(st)+c__case_16_case__49 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_16_case__49 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_16_case__49(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_16_case__49 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_16_case__49")(x)++++c__case_17_case__50 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_17_case__50 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_16(x2)(x3)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x5)(st))(st)+c__case_17_case__50 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_17_case__50(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_17_case__50 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_17_case__50")(x)++++c__case_14_case__51 x1 x2 x4 x5 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))((Curry.Module.Prelude.:<)))(st))(Curry.Module.Prelude.List)))))(x2)(x1)(st))(st)+c__case_14_case__51 x1 x2 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(x4)(x6))(Curry.Module.OracleEasyCheck.c_diagonal'46merge'46268(x5)(x7)(x1)(st)))(st)+c__case_14_case__51 x1 x2 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_14_case__51(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_14_case__51 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_14_case__51")(x)++++c__case_15_case__52 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_15_case__52 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_14(x2)(x4)(x5)(x3)(x1)(st))(st)+c__case_15_case__52 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_15_case__52(x1)(x3)(x)(st))(i)(xs)(st)+c__case_15_case__52 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_15_case__52")(x)++++c__case_13_case__53 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_13_case__53 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c_diagonal'46merge'46268(x5)(x3)(x1)(st)))(st)+c__case_13_case__53 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_13_case__53(x1)(x3)(x)(st))(i)(xs)(st)+c__case_13_case__53 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_13_case__53")(x)++++c__case_10_case__54 x1 x3 x6 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(x9)(Curry.Module.OracleEasyCheck.c_shuffleWithLen(x6)(Curry.Module.OraclePrelude.op_45(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(Curry.Module.OraclePrelude.op_43_43(x8)(x10)(x12)(st))(x13)(st)))(st)+c__case_10_case__54 x1 x3 x6 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_10_case__54 x1 x3 x6 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_10_case__54(x1)(x3)(x6)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_10_case__54 x1 x3 x6 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_10_case__54")(x)++++c__case_11_case__55 x1 x3 x6 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_11_case__55 x1 x3 x6 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_10(x3)(x6)(x8)(x9)(x10)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x12)(st))(st)+c__case_11_case__55 x1 x3 x6 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_11_case__55(x1)(x3)(x6)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_11_case__55 x1 x3 x6 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_11_case__55")(x)++++c__case_12_case__56 x1 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(let {x7 = Curry.Module.OraclePrelude.c_splitAt(Curry.Module.OraclePrelude.c_mod(Curry.Module.OracleInteger.c_abs(x5)(x1)(st))(x3)(x11)(st))(x4)(x12)(st)} in let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(Curry.Module.OracleEasyCheck.c__case_11(x3)(x6)(Curry.Module.OracleEasyCheck.c_shuffleWithLen'46_'35selFP6'35ys(x7)(x13)(st))(Curry.Module.OracleEasyCheck.c_shuffleWithLen'46_'35selFP7'35z(x7)(x14)(st))(Curry.Module.OracleEasyCheck.c_shuffleWithLen'46_'35selFP8'35zs(x7)(x15)(st))(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Zero)(x16)(st))(x17)(st))(st))(st))(st))(st))(st)+c__case_12_case__56 x1 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_12_case__56(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_12_case__56 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_12_case__56")(x)++++c__case_8_case__57 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_8_case__57 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_8_case__57(x1)(x3)(x)(st))(i)(xs)(st)+c__case_8_case__57 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_8_case__57")(x)++++c__case_9_case__58 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_8(x3)(x4)(x1)(st))(st)+c__case_9_case__58 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_9_case__58(x1)(x)(st))(i)(xs)(st)+c__case_9_case__58 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_9_case__58")(x)++++c__case_6_case__59 x1 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_6_case__59 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_6_case__59(x1)(x)(st))(i)(xs)(st)+c__case_6_case__59 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_6_case__59")(x)++++c__case_7_case__60 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_6(x4)(x1)(st))(st)+c__case_7_case__60 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_7_case__60(x1)(x)(st))(i)(xs)(st)+c__case_7_case__60 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_7_case__60")(x)++++c__case_4_case__61 x1 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_4_case__61 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_4_case__61(x1)(x)(st))(i)(xs)(st)+c__case_4_case__61 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_4_case__61")(x)++++c__case_5_case__62 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_4(x4)(x1)(st))(st)+c__case_5_case__62 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_5_case__62(x1)(x)(st))(i)(xs)(st)+c__case_5_case__62 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_5_case__62")(x)++++c__case_2_case__63 x1 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c_transpose(x4)(x1)(st))(st)+c__case_2_case__63 x1 x4 x3@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(x5)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_transpose'46_'35lambda24))(st))(Curry.Module.Prelude.List)(x4)(x1)(st)))(Curry.Module.OracleEasyCheck.c_transpose((Curry.Module.Prelude.:<)(x6)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleEasyCheck.c_transpose'46_'35lambda28))(st))(Curry.Module.Prelude.List)(x4)(x7)(st)))(x8)(st)))(st)+c__case_2_case__63 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_2_case__63(x1)(x4)(x)(st))(i)(xs)(st)+c__case_2_case__63 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_2_case__63")(x)++++c__case_3_case__64 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_3_case__64 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleEasyCheck.c__case_2(x4)(x3)(x1)(st))(st)+c__case_3_case__64 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_3_case__64(x1)(x)(st))(i)(xs)(st)+c__case_3_case__64 x1 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_3_case__64")(x)++++c__case_1_case__65 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(x3))(st)+c__case_1_case__65 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_1_case__65 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_1_case__65(x1)(x3)(x)(st))(i)(xs)(st)+c__case_1_case__65 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_1_case__65")(x)++++c__case_0_case__66 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x5)(x3))(st)+c__case_0_case__66 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_0_case__66 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleEasyCheck.c__case_0_case__66(x1)(x3)(x)(st))(i)(xs)(st)+c__case_0_case__66 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleEasyCheck._case_0_case__66")(x)++
+ dist/build/Curry/Module/OracleFileGoodies.hs view
@@ -0,0 +1,376 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleFileGoodies (module Curry.Module.OracleFileGoodies) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.FileGoodies+import Curry.Module.Directory+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.OracleDirectory+import Curry.Module.OracleList+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_separatorChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_separatorChar x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Char('/'))(st)++++c_pathSeparatorChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_pathSeparatorChar x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Char(':'))(st)++++c_suffixSeparatorChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_suffixSeparatorChar x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Char('.'))(st)++++c_isAbsolute :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isAbsolute x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_19(x2)(x1)(st))(st)++++c_dirName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_dirName x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_fst(Curry.Module.OracleFileGoodies.c_splitDirectoryBaseName(x2)(x1)(st))(x3)(st))(st)++++c_baseName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_baseName x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_snd(Curry.Module.OracleFileGoodies.c_splitDirectoryBaseName(x2)(x1)(st))(x3)(st))(st)++++c_splitDirectoryBaseName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> 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_splitDirectoryBaseName x2 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))))(let {x3 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_break(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))(Curry.Module.OracleFileGoodies.c_separatorChar(x1)(st))))))(x6)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_reverse(x7)(st))(x2)(x8)(st))(x9)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleFileGoodies.c_splitDirectoryBaseName'46_'35selFP4'35rdir(x3)(x11)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleFileGoodies.c__case_18(Curry.Module.OracleFileGoodies.c_splitDirectoryBaseName'46_'35selFP3'35rbase(x3)(x10)(st))(x5)(Curry.Module.OraclePrelude.c_null(x5)(x12)(st))(x13)(st))(st))(st))(st))(st)++++c_splitDirectoryBaseName'46_'35selFP3'35rbase :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_splitDirectoryBaseName'46_'35selFP3'35rbase x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_17(x2)(x1)(st))(st)++++c_splitDirectoryBaseName'46_'35selFP4'35rdir :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_splitDirectoryBaseName'46_'35selFP4'35rdir x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_16(x2)(x1)(st))(st)++++c_stripSuffix :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_stripSuffix x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_fst))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFileGoodies.c_splitBaseName))))(x1)(st))(st)++++c_fileSuffix :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_fileSuffix x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFileGoodies.c_splitBaseName))))(x1)(st))(st)++++c_splitBaseName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> 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_splitBaseName x2 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))))(let {x3 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_break(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))(Curry.Module.OracleFileGoodies.c_suffixSeparatorChar(x1)(st))))))(x6)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_reverse(x7)(st))(x2)(x8)(st))(x9)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleFileGoodies.c_splitBaseName'46_'35selFP6'35rsuffix(x3)(x10)(st)} in let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleFileGoodies.c_splitBaseName'46_'35selFP7'35rbase(x3)(x11)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))))(Curry.Module.OracleFileGoodies.c__case_15(x2)(x4)(x5)(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.c_null(x5)(x12)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(Curry.Module.OracleFileGoodies.c_separatorChar(x13)(st))(x14)(st))(x4)(x15)(st))(x16)(st))(x17)(st))(st))(st))(st))(st)++++c_splitBaseName'46_'35selFP6'35rsuffix :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_splitBaseName'46_'35selFP6'35rsuffix x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_14(x2)(x1)(st))(st)++++c_splitBaseName'46_'35selFP7'35rbase :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_splitBaseName'46_'35selFP7'35rbase x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_13(x2)(x1)(st))(st)++++c_splitPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_splitPath x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_12(x2)(x1)(st))(st)++++c_splitPath'46_'35selFP9'35ys :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_splitPath'46_'35selFP9'35ys x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_10(x2)(x1)(st))(st)++++c_splitPath'46_'35selFP10'35zs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_splitPath'46_'35selFP10'35zs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_9(x2)(x1)(st))(st)++++c_findFileInPath :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))))+c_findFileInPath x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleFileGoodies.c_lookupFileInPath))(st))(st)++++c_lookupFileInPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_lookupFileInPath x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleFileGoodies.c__case_8(x2)(x3)(x4)(Curry.Module.OracleFileGoodies.c_isAbsolute(x2)(x1)(st))(x5)(st))(st)++++c_lookupFileInPath'46lookupFirstFileWithSuffix'4636 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_lookupFileInPath'46lookupFirstFileWithSuffix'4636 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_7(x2)(x3)(x1)(st))(st)++++c_lookupFileInPath'46lookupFirstFileWithSuffix'4636'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_lookupFileInPath'46lookupFirstFileWithSuffix'4636'46_'35lambda3 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_6(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_lookupFileInPath'46lookupFirstFile'4636 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_lookupFileInPath'46lookupFirstFile'4636 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_5(x2)(x3)(x4)(x1)(st))(st)++++c_lookupFileInPath'46lookupFirstFile'4636'46_'35lambda2 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_lookupFileInPath'46lookupFirstFile'4636'46_'35lambda2 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OracleFileGoodies.c_lookupFileInPath'46lookupFirstFile'4636(x3)(x4)(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))))(x6)(st))(x5)(x7)(st))(st)++++c_getFileInPath :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getFileInPath x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFileGoodies.c_lookupFileInPath(x2)(x3)(x4)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFileGoodies.c_getFileInPath'46_'35lambda4(x2)(x4)))))(x5)(st))(st)++++c_getFileInPath'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getFileInPath'46_'35lambda4 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((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.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.OracleFileGoodies.c_pathSeparatorChar(x1)(st))(Curry.Module.Prelude.List))(x3)(x5)(st))(x6)(st))(x7)(st))(x8)(st))(x9)(st))(x10)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(x4)(x11)(st))(st)++++c_replaceFileName :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_replaceFileName x2 x3 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleFileGoodies.c_splitDirectoryBaseName(x3)(x1)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x9)(Curry.Module.OracleFileGoodies.c__case_4(x2)(Curry.Module.OracleFileGoodies.c_replaceFileName'46_'35selFP13'35fn(x4)(x8)(st))(Curry.Module.OracleFileGoodies.c_replaceFileName'46_'35selFP12'35dir(x4)(x7)(st))(x9)(st))(st))(st))(st))(st)++++c_replaceFileName'46_'35selFP12'35dir :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_replaceFileName'46_'35selFP12'35dir x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_1(x2)(x1)(st))(st)++++c_replaceFileName'46_'35selFP13'35fn :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_replaceFileName'46_'35selFP13'35fn x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_0(x2)(x1)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_0_case__19(x1)(x2)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_1_case__18(x1)(x2)(st))(st)++++c__case_4 x2 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_4_case__17(x1)(x2)(x6)(x5)(st))(st)++++c__case_3 x2 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_3_case__16(x1)(x2)(x5)(x6)(x8)(x9)(st))(st)++++c__case_2 x2 x5 x6 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_2_case__15(x1)(x2)(x5)(x6)(x8)(st))(st)++++c__case_5 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_5_case__14(x1)(x2)(x3)(x4)(st))(st)++++c__case_6 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_6_case__13(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_7 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_7_case__12(x1)(x2)(x3)(st))(st)++++c__case_8 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_8_case__11(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_9_case__10(x1)(x2)(st))(st)++++c__case_10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_10_case__9(x1)(x2)(st))(st)++++c__case_12 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_12_case__8(x1)(x2)(st))(st)++++c__case_11 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_11_case__7(x1)(x6)(x7)(x8)(st))(st)++++c__case_13 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_13_case__6(x1)(x2)(st))(st)++++c__case_14 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_14_case__5(x1)(x2)(st))(st)++++c__case_15 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_15_case__4(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_16 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_16_case__3(x1)(x2)(st))(st)++++c__case_17 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_17_case__2(x1)(x2)(st))(st)++++c__case_18 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_18_case__1(x1)(x4)(x5)(x6)(st))(st)++++c__case_19 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_19_case__0(x1)(x2)(st))(st)++++c__case_19_case__0 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.OracleFileGoodies.c_separatorChar(x1)(st))(x5)(st))(st)+c__case_19_case__0 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_19_case__0(x1)(x)(st))(i)(xs)(st)+c__case_19_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_19_case__0")(x)++++c__case_18_case__1 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_reverse(x1)(st))(x4)(x7)(st)))(st)+c__case_18_case__1 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.T2(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_reverse(x1)(st))(Curry.Module.OraclePrelude.c_tail(x5)(x8)(st))(x9)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_reverse(x10)(st))(x4)(x11)(st)))(st)+c__case_18_case__1 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_18_case__1(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_18_case__1 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_18_case__1")(x)++++c__case_17_case__2 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_17_case__2 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_17_case__2(x1)(x)(st))(i)(xs)(st)+c__case_17_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_17_case__2")(x)++++c__case_16_case__3 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_16_case__3 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_16_case__3(x1)(x)(st))(i)(xs)(st)+c__case_16_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_16_case__3")(x)++++c__case_15_case__4 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x2)(Curry.Module.Prelude.List))(st)+c__case_15_case__4 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.T2(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_reverse(x1)(st))(Curry.Module.OraclePrelude.c_tail(x5)(x7)(st))(x8)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_reverse(x9)(st))(x4)(x10)(st)))(st)+c__case_15_case__4 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_15_case__4(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_15_case__4 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_15_case__4")(x)++++c__case_14_case__5 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_14_case__5 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_14_case__5(x1)(x)(st))(i)(xs)(st)+c__case_14_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_14_case__5")(x)++++c__case_13_case__6 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_13_case__6 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_13_case__6(x1)(x)(st))(i)(xs)(st)+c__case_13_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_13_case__6")(x)++++c__case_11_case__7 x1 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(st)+c__case_11_case__7 x1 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x6)(Curry.Module.OracleFileGoodies.c_splitPath(Curry.Module.OraclePrelude.c_tail(x7)(x1)(st))(x9)(st)))(st)+c__case_11_case__7 x1 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_11_case__7(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_11_case__7 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_11_case__7")(x)++++c__case_12_case__8 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_12_case__8 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(let {x5 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_break(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))(Curry.Module.OracleFileGoodies.c_pathSeparatorChar(x1)(st))))))(x8)(st))((Curry.Module.Prelude.:<)(x3)(x4))(x9)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OracleFileGoodies.c_splitPath'46_'35selFP10'35zs(x5)(x11)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleFileGoodies.c__case_11(Curry.Module.OracleFileGoodies.c_splitPath'46_'35selFP9'35ys(x5)(x10)(st))(x7)(Curry.Module.OraclePrelude.c_null(x7)(x12)(st))(x13)(st))(st))(st))(st))(st)+c__case_12_case__8 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_12_case__8(x1)(x)(st))(i)(xs)(st)+c__case_12_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_12_case__8")(x)++++c__case_10_case__9 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_10_case__9 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_10_case__9(x1)(x)(st))(i)(xs)(st)+c__case_10_case__9 x1 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_10_case__9")(x)++++c__case_9_case__10 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_9_case__10 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_9_case__10(x1)(x)(st))(i)(xs)(st)+c__case_9_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_9_case__10")(x)++++c__case_8_case__11 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c_lookupFileInPath'46lookupFirstFileWithSuffix'4636(x2)(x3)(x1)(st))(st)+c__case_8_case__11 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c_lookupFileInPath'46lookupFirstFile'4636(x2)(x3)(x4)(x1)(st))(st)+c__case_8_case__11 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_8_case__11(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_8_case__11 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_8_case__11")(x)++++c__case_7_case__12 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Nothing)(x1)(st))(st)+c__case_7_case__12 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OraclePrelude.op_43_43(x2)(x4)(x1)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(x6)(x7)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFileGoodies.c_lookupFileInPath'46lookupFirstFileWithSuffix'4636'46_'35lambda3(x2)(x6)(x5)))))(x8)(st))(st))(st)+c__case_7_case__12 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_7_case__12(x1)(x2)(x)(st))(i)(xs)(st)+c__case_7_case__12 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_7_case__12")(x)++++c__case_6_case__13 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Just(x3))(x1)(st))(st)+c__case_6_case__13 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c_lookupFileInPath'46lookupFirstFileWithSuffix'4636(x2)(x4)(x1)(st))(st)+c__case_6_case__13 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_6_case__13(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_6_case__13 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_6_case__13")(x)++++c__case_5_case__14 x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Nothing)(x1)(st))(st)+c__case_5_case__14 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFileGoodies.c_lookupFileInPath'46lookupFirstFileWithSuffix'4636(Curry.Module.OraclePrelude.op_43_43(x5)((Curry.Module.Prelude.:<)(Curry.Module.OracleFileGoodies.c_separatorChar(x1)(st))(x2))(x7)(st))(x3)(x8)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFileGoodies.c_lookupFileInPath'46lookupFirstFile'4636'46_'35lambda2(x6)(x2)(x3)))))(x9)(st))(st)+c__case_5_case__14 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_5_case__14(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_5_case__14 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_5_case__14")(x)++++c__case_2_case__15 x1 x2 x5 x6 x8@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(x6)(x1)(st))(st)+c__case_2_case__15 x1 x2 x5 x6 x8@((Curry.Module.Prelude.:<) x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(x5)((Curry.Module.Prelude.:<)(Curry.Module.OracleFileGoodies.c_separatorChar(x1)(st))(Curry.Module.Oracle.c_apply(x2)(x6)(x11)(st)))(x12)(st))(st)+c__case_2_case__15 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_2_case__15(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_2_case__15 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_2_case__15")(x)++++c__case_3_case__16 x1 x2 x5 x6 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFileGoodies.c__case_2(x2)(x5)(x6)(x8)(x1)(st))(st)+c__case_3_case__16 x1 x2 x5 x6 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(x5)((Curry.Module.Prelude.:<)(Curry.Module.OracleFileGoodies.c_separatorChar(x1)(st))(Curry.Module.Oracle.c_apply(x2)(x6)(x10)(st)))(x11)(st))(st)+c__case_3_case__16 x1 x2 x5 x6 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_3_case__16(x1)(x2)(x5)(x6)(x8)(x)(st))(i)(xs)(st)+c__case_3_case__16 x1 x2 x5 x6 x8 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_3_case__16")(x)++++c__case_4_case__17 x1 x2 x6 x5@((Curry.Module.Prelude.:<) x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleFileGoodies.c__case_3(x2)(x5)(x6)(x7)(x8)(Curry.Module.OraclePrelude.op_61_61(x7)(Curry.Module.Prelude.C_Char('.'))(x1)(st))(x9)(st))(st)+c__case_4_case__17 x1 x2 x6 x5@Curry.Module.Prelude.List st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(x5)((Curry.Module.Prelude.:<)(Curry.Module.OracleFileGoodies.c_separatorChar(x1)(st))(Curry.Module.Oracle.c_apply(x2)(x6)(x10)(st)))(x11)(st))(st)+c__case_4_case__17 x1 x2 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_4_case__17(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c__case_4_case__17 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_4_case__17")(x)++++c__case_1_case__18 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_1_case__18 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_1_case__18(x1)(x)(st))(i)(xs)(st)+c__case_1_case__18 x1 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_1_case__18")(x)++++c__case_0_case__19 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_0_case__19 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFileGoodies.c__case_0_case__19(x1)(x)(st))(i)(xs)(st)+c__case_0_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OracleFileGoodies._case_0_case__19")(x)++
+ dist/build/Curry/Module/OracleFiniteMap.hs view
@@ -0,0 +1,1858 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleFiniteMap (module Curry.Module.OracleFiniteMap) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.FiniteMap+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.OracleMaybe+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++type C_FiniteSet t0 = Curry.Module.FiniteMap.C_FM t0 Curry.Module.Prelude.T0++data C_FM t0 t1 = C_FM (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) (Curry.Module.FiniteMap.C_FiniteMap t0 t1)+  | C_FMFail Curry.RunTimeSystem.C_Exceptions+  | C_FMOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.OracleFiniteMap.C_FM t0 t1))++instance (BaseCurry t0,BaseCurry t1) => BaseCurry (Curry.Module.OracleFiniteMap.C_FM t0 t1) where+  nf f (Curry.Module.OracleFiniteMap.C_FM x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.OracleFiniteMap.C_FM(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.OracleFiniteMap.C_FM x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.OracleFiniteMap.C_FM(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.OracleFiniteMap.C_FMOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.OracleFiniteMap.C_FM(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.OracleFiniteMap.C_FMFail++  branching  = Curry.Module.OracleFiniteMap.C_FMOr++  consKind (Curry.Module.OracleFiniteMap.C_FMOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.OracleFiniteMap.C_FMFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.OracleFiniteMap.C_FMFail x) = x++  orRef (Curry.Module.OracleFiniteMap.C_FMOr x _) = x++  branches (Curry.Module.OracleFiniteMap.C_FMOr _ x) = x++++++instance (Curry t0,Curry t1) => Curry (Curry.Module.OracleFiniteMap.C_FM t0 t1) where+  strEq (Curry.Module.OracleFiniteMap.C_FM x1 x2) (Curry.Module.OracleFiniteMap.C_FM 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.OracleFiniteMap.C_FM x1 x2) (Curry.Module.OracleFiniteMap.C_FM 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.OracleFiniteMap.C_FM x1 x2) st = Curry.Module.OracleFiniteMap.C_FM(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))++  foldCurry f c (Curry.Module.OracleFiniteMap.C_FM x1 x2) st = f(x1)(f(x2)(c)(st))(st)++  typeName _ = "FM"++  showQ d (Curry.Module.OracleFiniteMap.C_FM x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleFiniteMap.FM "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ _ (Curry.Module.OracleFiniteMap.C_FMOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0,Show t1) => Show (Curry.Module.OracleFiniteMap.C_FM t0 t1) where+  showsPrec d (Curry.Module.OracleFiniteMap.C_FM x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("FM "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec _ (Curry.Module.OracleFiniteMap.C_FMOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Read t0,Read t1) => Read (Curry.Module.OracleFiniteMap.C_FM t0 t1) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.OracleFiniteMap.C_FM(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleFiniteMap")("FM")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1)])(r)++++++c_emptyFM :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_emptyFM x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OracleFiniteMap.C_FM(x2)(Curry.Module.FiniteMap.C_EmptyFM))(st)++++c_unitFM :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_unitFM x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x2)(Curry.Module.OracleFiniteMap.c_unitFM'39(x3)(x4)(x1)(st)))(st)++++c_unitFM'39 :: (Curry t0,Curry t1) => t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_unitFM'39 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_Branch(x2)(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.FiniteMap.C_EmptyFM)(Curry.Module.FiniteMap.C_EmptyFM))(st)++++c_listToFM :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)) -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1))+c_listToFM x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFiniteMap.c_addListToFM(Curry.Module.OracleFiniteMap.c_emptyFM(x2)(x1)(st))))))(st)++++c_addToFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_addToFM x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_117(x3)(x4)(x2)(x1)(st))(st)++++c_addToFM'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_addToFM'39 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_addToFM_C'39(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFiniteMap.c_addToFM'39'46_'35lambda2))(st))(x3)(x4)(x5)(x1)(st))(st)++++c_addToFM'39'46_'35lambda2 :: (Curry t270) => t270 -> t270 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t270+c_addToFM'39'46_'35lambda2 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_addToFM_C'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_addToFM_C'39 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_116(x2)(x3)(x5)(x6)(x4)(x1)(st))(st)++++c_addListToFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_addListToFM x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_113(x3)(x2)(x1)(st))(st)++++c_addListToFM'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_addListToFM'39 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_addListToFM_C'39(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFiniteMap.c_addListToFM'39'46_'35lambda3))(st))(x3)(x4)(x1)(st))(st)++++c_addListToFM'39'46_'35lambda3 :: (Curry t246) => t246 -> t246 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t246+c_addListToFM'39'46_'35lambda3 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_addListToFM_C'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_addListToFM_C'39 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldl(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFiniteMap.c_addListToFM_C'39'46add'4630(x3)(x2)))(st))(x4)(x5)(x1)(st))(st)++++c_addListToFM_C'39'46add'4630 :: (Curry t235,Curry t234) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t235 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t235 -> Curry.RunTimeSystem.State -> t235))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t234 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t234 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t234 t235) -> (Curry.Module.Prelude.T2 t234 t235) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t234 t235+c_addListToFM_C'39'46add'4630 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_112(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_addToFM_C :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.OracleFiniteMap.C_FM t1 t0) -> t1 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t1 t0+c_addToFM_C x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_111(x2)(x4)(x5)(x3)(x1)(st))(st)++++c_addListToFM_C :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.OracleFiniteMap.C_FM t1 t0) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t1 t0+c_addListToFM_C x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_110(x2)(x4)(x3)(x1)(st))(st)++++c_delFromFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_delFromFM x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_109(x3)(x2)(x1)(st))(st)++++c_delFromFM'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_delFromFM'39 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_108(x2)(x4)(x3)(x1)(st))(st)++++c_delListFromFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_delListFromFM x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_105(x3)(x2)(x1)(st))(st)++++c_updFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_updFM x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_104(x3)(x4)(x2)(x1)(st))(st)++++c_updFM'46upd'4649 :: (Curry t523,Curry t535) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t523 -> Curry.RunTimeSystem.State -> t523))) -> t535 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t535 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t535 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t535 t523) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t535 t523+c_updFM'46upd'4649 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_103(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_splitFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM t0 t1) (Curry.Module.Prelude.T2 t0 t1))+c_splitFM x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.Prelude.C_Nothing)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFiniteMap.c_splitFM'46_'35lambda4(x2)(x3)))))(Curry.Module.OracleFiniteMap.c_lookupFM(x2)(x3)(x1)(st))(x4)(st))(st)++++c_splitFM'46_'35lambda4 :: (Curry t593,Curry t600) => (Curry.Module.OracleFiniteMap.C_FM t593 t600) -> t593 -> t600 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM t593 t600) (Curry.Module.Prelude.T2 t593 t600))+c_splitFM'46_'35lambda4 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(Curry.Module.OracleFiniteMap.c_delFromFM(x2)(x3)(x1)(st))(Curry.Module.Prelude.T2(x3)(x4))))(st)++++c_plusFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_plusFM x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_99(x3)(x2)(x1)(st))(st)++++c_plusFM'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_plusFM'39 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_97(x2)(x4)(x3)(x1)(st))(st)++++c_plusFM_C :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.OracleFiniteMap.C_FM t1 t0) -> (Curry.Module.OracleFiniteMap.C_FM t1 t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t1 t0+c_plusFM_C x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_95(x2)(x4)(x3)(x1)(st))(st)++++c_plusFM_C'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_plusFM_C'39 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_93(x2)(x3)(x5)(x4)(x1)(st))(st)++++c_minusFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_minusFM x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_90(x3)(x2)(x1)(st))(st)++++c_minusFM'39 :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t2) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_minusFM'39 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_88(x2)(x4)(x3)(x1)(st))(st)++++c_intersectFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_intersectFM x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_86(x3)(x2)(x1)(st))(st)++++c_intersectFM'39 :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t2) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t2+c_intersectFM'39 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_intersectFM_C'39(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFiniteMap.c_intersectFM'39'46_'35lambda6))(st))(x3)(x4)(x1)(st))(st)++++c_intersectFM'39'46_'35lambda6 :: (Curry t1051,Curry t1052) => t1051 -> t1052 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1052+c_intersectFM'39'46_'35lambda6 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_intersectFM_C :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))))) -> (Curry.Module.OracleFiniteMap.C_FM t2 t0) -> (Curry.Module.OracleFiniteMap.C_FM t2 t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t2 t1+c_intersectFM_C x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_84(x2)(x4)(x3)(x1)(st))(st)++++c_intersectFM_C'39 :: (Curry t0,Curry t1,Curry t2,Curry t3) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t3))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t2) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t3+c_intersectFM_C'39 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_82(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_intersectFM_C'39'46_'35selFP3'35elt1'39 :: (Curry t1000) => (Curry.Module.Prelude.C_Maybe t1000) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1000+c_intersectFM_C'39'46_'35selFP3'35elt1'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_78(x2)(x1)(st))(st)++++c_foldFM :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t2))))))) -> t2 -> (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t2+c_foldFM x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_77(x2)(x3)(x4)(x1)(st))(st)++++c_foldFM'39 :: (Curry t0,Curry t1,Curry t2,Curry t3) => t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t3 -> Curry.RunTimeSystem.State -> t3))))))) -> t3 -> (Curry.Module.FiniteMap.C_FiniteMap t1 t2) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t3+c_foldFM'39 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_76(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_mapFM :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2))))) -> (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t2+c_mapFM x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_75(x2)(x3)(x1)(st))(st)++++c_mapFM'39 :: (Curry t0,Curry t1,Curry t2,Curry t3) => t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t3))))) -> (Curry.Module.FiniteMap.C_FiniteMap t1 t2) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t1 t3+c_mapFM'39 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_74(x2)(x3)(x4)(x1)(st))(st)++++c_filterFM :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 t1+c_filterFM x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_73(x2)(x3)(x1)(st))(st)++++c_filterFM'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_filterFM'39 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_72(x2)(x3)(x4)(x1)(st))(st)++++c_sizeFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_sizeFM x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_69(x2)(x1)(st))(st)++++c_sizeFM'39 :: (Curry t0,Curry t1) => (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_sizeFM'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_67(x2)(x1)(st))(st)++++c_eqFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_eqFM x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleFiniteMap.c_sizeFM(x2)(x1)(st))(Curry.Module.OracleFiniteMap.c_sizeFM(x3)(x4)(st))(x5)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleFiniteMap.c_fmToList(x2)(x6)(st))(Curry.Module.OracleFiniteMap.c_fmToList(x3)(x7)(st))(x8)(st))(x9)(st))(st)++++c_isEmptyFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isEmptyFM x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleFiniteMap.c_sizeFM(x2)(x1)(st))(Curry.Module.Prelude.C_Zero)(x3)(st))(st)++++c_elemFM :: (Curry t0,Curry t1) => t0 -> (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_elemFM x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleMaybe.c_isJust(Curry.Module.OracleFiniteMap.c_lookupFM(x3)(x2)(x1)(st))(x4)(st))(st)++++c_lookupFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t1+c_lookupFM x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_66(x3)(x2)(x1)(st))(st)++++c_lookupFM'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t1+c_lookupFM'39 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_65(x2)(x4)(x3)(x1)(st))(st)++++c_lookupWithDefaultFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> t1 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1+c_lookupWithDefaultFM x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_62(x2)(x3)(x4)(Curry.Module.OracleFiniteMap.c_lookupFM(x2)(x4)(x1)(st))(x5)(st))(st)++++c_keyOrder :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))+c_keyOrder x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_61(x2)(x1)(st))(st)++++c_minFM :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 t0 t1)))+c_minFM x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFiniteMap.c_minFM'46min'46215))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFiniteMap.c_tree))))(x1)(st))(st)++++c_minFM'46min'46215 :: (Curry t0,Curry t1) => (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 t0 t1)+c_minFM'46min'46215 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_60(x2)(x1)(st))(st)++++c_maxFM :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 t0 t1)))+c_maxFM x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFiniteMap.c_maxFM'46max'46223))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFiniteMap.c_tree))))(x1)(st))(st)++++c_maxFM'46max'46223 :: (Curry t0,Curry t1) => (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 t0 t1)+c_maxFM'46max'46223 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_57(x2)(x1)(st))(st)++++c_fmToList :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)+c_fmToList x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_foldFM(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleFiniteMap.c_fmToList'46_'35lambda8))(st))(Curry.Module.Prelude.List)(x2)(x1)(st))(st)++++c_fmToList'46_'35lambda8 :: (Curry t1237,Curry t1238) => t1237 -> t1238 -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1237 t1238)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1237 t1238)+c_fmToList'46_'35lambda8 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x2)(x3))(x4))(st)++++c_keysFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_keysFM x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_foldFM(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleFiniteMap.c_keysFM'46_'35lambda9))(st))(Curry.Module.Prelude.List)(x2)(x1)(st))(st)++++c_keysFM'46_'35lambda9 :: (Curry t1356,Curry t1353) => t1356 -> t1353 -> (Curry.Module.Prelude.List t1356) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1356+c_keysFM'46_'35lambda9 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x2)(x4))(st)++++c_eltsFM :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1+c_eltsFM x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_foldFM(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleFiniteMap.c_eltsFM'46_'35lambda10))(st))(Curry.Module.Prelude.List)(x2)(x1)(st))(st)++++c_eltsFM'46_'35lambda10 :: (Curry t1363,Curry t1367) => t1363 -> t1367 -> (Curry.Module.Prelude.List t1367) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1367+c_eltsFM'46_'35lambda10 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x3)(x4))(st)++++c_fmToListPreOrder :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)+c_fmToListPreOrder x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_54(x2)(x1)(st))(st)++++c_fmToListPreOrder'46pre'46243 :: (Curry t0,Curry t1) => (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)+c_fmToListPreOrder'46pre'46243 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_53(x3)(x2)(x1)(st))(st)++++c_fmSortBy :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_fmSortBy x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFiniteMap.c_keysFM(Curry.Module.Oracle.c_apply(Curry.Module.OracleFiniteMap.c_listToFM(x2)(x1)(st))(Curry.Module.OraclePrelude.c_zip(x3)(Curry.Module.OraclePrelude.c_repeat(Curry.Module.Prelude.T0)(x4)(st))(x5)(st))(x6)(st))(x7)(st))(st)++++c_tree :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_tree x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_52(x2)(x1)(st))(st)++++c_toGT :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_toGT x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.c_not(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(x4)(x5)(st))(x6)(st))(Curry.Module.OraclePrelude.op_47_61(x3)(x4)(x7)(st))(x8)(st))(st)++++c_isEmptyFM'39 :: (Curry t0,Curry t1) => (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isEmptyFM'39 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OracleFiniteMap.c_sizeFM'39(x2)(x1)(st))(Curry.Module.Prelude.C_Zero)(x3)(st))(st)++++c_sIZE_RATIO :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_sIZE_RATIO x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(st)++++c_mkBranch :: (Curry t0,Curry t1) => Curry.Module.Prelude.C_Int -> t0 -> t1 -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_mkBranch x2 x3 x4 x5 x6 x1 st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.FiniteMap.C_Branch(x3)(x4)(Curry.Module.OracleFiniteMap.c_mkBranch'46unbox'46264(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_43(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.OracleFiniteMap.c_sizeFM'39(x5)(x1)(st))(x10)(st))(Curry.Module.OracleFiniteMap.c_sizeFM'39(x6)(x9)(st))(x11)(st))(x12)(st))(x5)(x6))(st))(st))(st)++++c_mkBranch'46unbox'46264 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_mkBranch'46unbox'46264 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_mkBalBranch :: (Curry t0,Curry t1) => t0 -> t1 -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_mkBalBranch x2 x3 x4 x5 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OracleFiniteMap.c_sizeFM'39(x4)(x1)(st)} in let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OracleFiniteMap.c_sizeFM'39(x5)(x8)(st)} in let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c__case_51(x2)(x3)(x4)(x5)(x6)(x7)(Curry.Module.OraclePrelude.op_60(Curry.Module.OraclePrelude.op_43(x6)(x7)(x9)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x10)(st))(x11)(st))(st))(st))(st)++++c_mkBalBranch'46single_L'46273 :: (Curry t170,Curry t169) => t170 -> t169 -> (Curry.Module.FiniteMap.C_FiniteMap t169 t170) -> (Curry.Module.FiniteMap.C_FiniteMap t169 t170) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t169 t170+c_mkBalBranch'46single_L'46273 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_43(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_mkBalBranch'46double_L'46273 :: (Curry t170,Curry t169) => t170 -> t169 -> (Curry.Module.FiniteMap.C_FiniteMap t169 t170) -> (Curry.Module.FiniteMap.C_FiniteMap t169 t170) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t169 t170+c_mkBalBranch'46double_L'46273 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_42(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_mkBalBranch'46single_R'46273 :: (Curry t170,Curry t169) => t170 -> t169 -> (Curry.Module.FiniteMap.C_FiniteMap t169 t170) -> (Curry.Module.FiniteMap.C_FiniteMap t169 t170) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t169 t170+c_mkBalBranch'46single_R'46273 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_40(x2)(x3)(x5)(x4)(x1)(st))(st)++++c_mkBalBranch'46double_R'46273 :: (Curry t170,Curry t169) => t170 -> t169 -> (Curry.Module.FiniteMap.C_FiniteMap t169 t170) -> (Curry.Module.FiniteMap.C_FiniteMap t169 t170) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t169 t170+c_mkBalBranch'46double_R'46273 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_39(x2)(x3)(x5)(x4)(x1)(st))(st)++++c_mkVBalBranch :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> t0 -> t1 -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_mkVBalBranch x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_37(x2)(x3)(x4)(x6)(x5)(x1)(st))(st)++++c_glueBal :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_glueBal x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_32(x2)(x3)(x4)(Curry.Module.OracleFiniteMap.c_isEmptyFM'39(x3)(x1)(st))(x5)(st))(st)++++c_glueBal'46_'35selFP8'35mid_key1 :: (Curry t439,Curry t440) => (Curry.Module.Prelude.T2 t439 t440) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t439+c_glueBal'46_'35selFP8'35mid_key1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_29(x2)(x1)(st))(st)++++c_glueBal'46_'35selFP9'35mid_elt1 :: (Curry t439,Curry t440) => (Curry.Module.Prelude.T2 t439 t440) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t440+c_glueBal'46_'35selFP9'35mid_elt1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_28(x2)(x1)(st))(st)++++c_glueBal'46_'35selFP6'35mid_key2 :: (Curry t439,Curry t440) => (Curry.Module.Prelude.T2 t439 t440) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t439+c_glueBal'46_'35selFP6'35mid_key2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_27(x2)(x1)(st))(st)++++c_glueBal'46_'35selFP7'35mid_elt2 :: (Curry t439,Curry t440) => (Curry.Module.Prelude.T2 t439 t440) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t440+c_glueBal'46_'35selFP7'35mid_elt2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_26(x2)(x1)(st))(st)++++c_glueVBal :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_glueVBal x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_25(x2)(x3)(x4)(Curry.Module.OracleFiniteMap.c_isEmptyFM'39(x3)(x1)(st))(x5)(st))(st)++++c_glueVBal'46_'35selFP16'35key_l :: (Curry t876,Curry t877) => (Curry.Module.FiniteMap.C_FiniteMap t876 t877) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t876+c_glueVBal'46_'35selFP16'35key_l x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_21(x2)(x1)(st))(st)++++c_glueVBal'46_'35selFP17'35elt_l :: (Curry t876,Curry t877) => (Curry.Module.FiniteMap.C_FiniteMap t876 t877) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t877+c_glueVBal'46_'35selFP17'35elt_l x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_20(x2)(x1)(st))(st)++++c_glueVBal'46_'35selFP18'35fm_ll :: (Curry t876,Curry t877) => (Curry.Module.FiniteMap.C_FiniteMap t876 t877) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t876 t877+c_glueVBal'46_'35selFP18'35fm_ll x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_19(x2)(x1)(st))(st)++++c_glueVBal'46_'35selFP19'35fm_lr :: (Curry t876,Curry t877) => (Curry.Module.FiniteMap.C_FiniteMap t876 t877) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t876 t877+c_glueVBal'46_'35selFP19'35fm_lr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_18(x2)(x1)(st))(st)++++c_glueVBal'46_'35selFP12'35key_r :: (Curry t876,Curry t877) => (Curry.Module.FiniteMap.C_FiniteMap t876 t877) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t876+c_glueVBal'46_'35selFP12'35key_r x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_17(x2)(x1)(st))(st)++++c_glueVBal'46_'35selFP13'35elt_r :: (Curry t876,Curry t877) => (Curry.Module.FiniteMap.C_FiniteMap t876 t877) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t877+c_glueVBal'46_'35selFP13'35elt_r x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_16(x2)(x1)(st))(st)++++c_glueVBal'46_'35selFP14'35fm_rl :: (Curry t876,Curry t877) => (Curry.Module.FiniteMap.C_FiniteMap t876 t877) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t876 t877+c_glueVBal'46_'35selFP14'35fm_rl x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_15(x2)(x1)(st))(st)++++c_glueVBal'46_'35selFP15'35fm_rr :: (Curry t876,Curry t877) => (Curry.Module.FiniteMap.C_FiniteMap t876 t877) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t876 t877+c_glueVBal'46_'35selFP15'35fm_rr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_14(x2)(x1)(st))(st)++++c_splitLT :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_splitLT x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_13(x2)(x4)(x3)(x1)(st))(st)++++c_splitGT :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_splitGT x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_10(x2)(x4)(x3)(x1)(st))(st)++++c_findMin :: (Curry t0,Curry t1) => (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t0 t1+c_findMin x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_7(x2)(x1)(st))(st)++++c_deleteMin :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_deleteMin x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_5(x2)(x3)(x1)(st))(st)++++c_findMax :: (Curry t0,Curry t1) => (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t0 t1+c_findMax x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_3(x2)(x1)(st))(st)++++c_deleteMax :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.FiniteMap.C_FiniteMap t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FiniteMap.C_FiniteMap t0 t1+c_deleteMax x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_1(x2)(x3)(x1)(st))(st)++++c_emptySet :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0))+c_emptySet x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFiniteMap.c_emptyFM))))(st)++++c_mkSet :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0+c_mkSet x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFiniteMap.c_listToFM(x2)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFiniteMap.c_mkSet'46_'35lambda13))))(x3)(x4)(st))(x5)(st))(st)++++c_mkSet'46_'35lambda13 :: (Curry t1421) => t1421 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t1421 Curry.Module.Prelude.T0+c_mkSet'46_'35lambda13 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x2)(Curry.Module.Prelude.T0))(st)++++c_isEmptySet :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isEmptySet x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFiniteMap.c_isEmptyFM))))(st)++++c_elementOf :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))+c_elementOf x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFiniteMap.c_elemFM))(st))(st)++++c_minusSet :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0) -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0))))+c_minusSet x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFiniteMap.c_minusFM))(st))(st)++++c_setToList :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_setToList x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFiniteMap.c_keysFM))))(st)++++c_union :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0) -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM t0 Curry.Module.Prelude.T0))))+c_union x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFiniteMap.c_plusFM))(st))(st)++++c__case_1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_1_case__117(x1)(x2)(x3)(st))(st)++++c__case_0 x2 x4 x5 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_0_case__116(x1)(x2)(x4)(x5)(x7)(x8)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_3_case__115(x1)(x2)(st))(st)++++c__case_2 x3 x4 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_2_case__114(x1)(x3)(x4)(x7)(st))(st)++++c__case_5 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_5_case__113(x1)(x2)(x3)(st))(st)++++c__case_4 x2 x4 x5 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_4_case__112(x1)(x2)(x4)(x5)(x8)(x7)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_7_case__111(x1)(x2)(st))(st)++++c__case_6 x3 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_6_case__110(x1)(x3)(x4)(x6)(st))(st)++++c__case_10 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_10_case__109(x1)(x2)(x4)(x3)(st))(st)++++c__case_9 x2 x4 x5 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_9_case__108(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x10)(st))(st)++++c__case_8 x2 x4 x5 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_8_case__107(x1)(x2)(x4)(x9)(x10)(st))(st)++++c__case_13 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_13_case__106(x1)(x2)(x4)(x3)(st))(st)++++c__case_12 x2 x4 x5 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_12_case__105(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x10)(st))(st)++++c__case_11 x2 x4 x5 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_11_case__104(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x10)(st))(st)++++c__case_14 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_14_case__103(x1)(x2)(st))(st)++++c__case_15 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_15_case__102(x1)(x2)(st))(st)++++c__case_16 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_16_case__101(x1)(x2)(st))(st)++++c__case_17 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_17_case__100(x1)(x2)(st))(st)++++c__case_18 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_18_case__99(x1)(x2)(st))(st)++++c__case_19 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_19_case__98(x1)(x2)(st))(st)++++c__case_20 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_20_case__97(x1)(x2)(st))(st)++++c__case_21 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_21_case__96(x1)(x2)(st))(st)++++c__case_25 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_25_case__95(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_24 x2 x3 x4 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_24_case__94(x1)(x2)(x3)(x4)(x17)(st))(st)++++c__case_23 x2 x3 x4 x6 x7 x8 x9 x11 x12 x13 x14 x15 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_23_case__93(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x11)(x12)(x13)(x14)(x15)(x16)(x17)(st))(st)++++c__case_22 x2 x3 x4 x6 x7 x8 x9 x15 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_22_case__92(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x17)(st))(st)++++c__case_26 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_26_case__91(x1)(x2)(st))(st)++++c__case_27 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_27_case__90(x1)(x2)(st))(st)++++c__case_28 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_28_case__89(x1)(x2)(st))(st)++++c__case_29 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_29_case__88(x1)(x2)(st))(st)++++c__case_32 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_32_case__87(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_31 x2 x3 x4 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_31_case__86(x1)(x2)(x3)(x4)(x11)(st))(st)++++c__case_30 x2 x3 x4 x6 x7 x9 x10 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_30_case__85(x1)(x2)(x3)(x4)(x6)(x7)(x9)(x10)(x11)(st))(st)++++c__case_37 x2 x3 x4 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_37_case__84(x1)(x2)(x3)(x4)(x6)(x5)(st))(st)++++c__case_36 x2 x3 x4 x7 x8 x9 x10 x11 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_36_case__83(x1)(x2)(x3)(x4)(x7)(x8)(x9)(x10)(x11)(x6)(st))(st)++++c__case_35 x2 x3 x4 x7 x8 x10 x11 x12 x13 x15 x16 x17 x18 x19 x20 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_35_case__82(x1)(x2)(x3)(x4)(x7)(x8)(x10)(x11)(x12)(x13)(x15)(x16)(x17)(x18)(x19)(x20)(x21)(st))(st)++++c__case_34 x2 x3 x4 x7 x8 x10 x11 x17 x18 x19 x20 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_34_case__81(x1)(x2)(x3)(x4)(x7)(x8)(x10)(x11)(x17)(x18)(x21)(st))(st)++++c__case_33 x3 x4 x17 x18 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_33_case__80(x1)(x3)(x4)(x17)(x18)(x19)(st))(st)++++c__case_39 x2 x3 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_39_case__79(x1)(x2)(x3)(x5)(x4)(st))(st)++++c__case_38 x2 x3 x5 x6 x7 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_38_case__78(x1)(x2)(x3)(x5)(x6)(x7)(x9)(x10)(st))(st)++++c__case_40 x2 x3 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_40_case__77(x1)(x2)(x3)(x5)(x4)(st))(st)++++c__case_42 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_42_case__76(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_41 x2 x3 x4 x6 x7 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_41_case__75(x1)(x2)(x3)(x4)(x6)(x7)(x10)(x9)(st))(st)++++c__case_43 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_43_case__74(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_51 x2 x3 x4 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_51_case__73(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(st))(st)++++c__case_50 x2 x3 x4 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_50_case__72(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(st))(st)++++c__case_47 x2 x3 x4 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_47_case__71(x1)(x2)(x3)(x4)(x5)(x8)(st))(st)++++c__case_44 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_44_case__70(x1)(x2)(x3)(x4)(x5)(x6)(st))(st)++++c__case_46 x2 x3 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_46_case__69(x1)(x2)(x3)(x5)(x4)(st))(st)++++c__case_45 x2 x3 x4 x5 x16 x17 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_45_case__68(x1)(x2)(x3)(x4)(x5)(x18)(st))(st)++++c__case_49 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_49_case__67(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_48 x2 x3 x4 x5 x11 x12 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_48_case__66(x1)(x2)(x3)(x4)(x5)(x13)(st))(st)++++c__case_52 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_52_case__65(x1)(x2)(st))(st)++++c__case_53 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_53_case__64(x1)(x3)(x2)(st))(st)++++c__case_54 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_54_case__63(x1)(x2)(st))(st)++++c__case_57 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_57_case__62(x1)(x2)(st))(st)++++c__case_56 x3 x4 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_56_case__61(x1)(x3)(x4)(x7)(x8)(st))(st)++++c__case_55 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_55_case__60(x1)(x7)(x8)(st))(st)++++c__case_60 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_60_case__59(x1)(x2)(st))(st)++++c__case_59 x3 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_59_case__58(x1)(x3)(x4)(x6)(x7)(st))(st)++++c__case_58 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_58_case__57(x1)(x6)(x7)(st))(st)++++c__case_61 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_61_case__56(x1)(x2)(st))(st)++++c__case_62 x2 x3 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_62_case__55(x1)(x3)(x6)(st))(st)++++c__case_65 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_65_case__54(x1)(x2)(x4)(x3)(st))(st)++++c__case_64 x2 x4 x5 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_64_case__53(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x10)(st))(st)++++c__case_63 x2 x4 x5 x6 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_63_case__52(x1)(x2)(x4)(x6)(x9)(x10)(st))(st)++++c__case_66 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_66_case__51(x1)(x3)(x2)(st))(st)++++c__case_67 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_67_case__50(x1)(x2)(st))(st)++++c__case_69 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_69_case__49(x1)(x2)(st))(st)++++c__case_68 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_68_case__48(x1)(x4)(st))(st)++++c__case_72 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_72_case__47(x1)(x2)(x3)(x4)(st))(st)++++c__case_71 x2 x3 x5 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_71_case__46(x1)(x2)(x3)(x5)(x6)(x8)(x9)(x10)(st))(st)++++c__case_70 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_70_case__45(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_73 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_73_case__44(x1)(x2)(x3)(st))(st)++++c__case_74 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_74_case__43(x1)(x2)(x3)(x4)(st))(st)++++c__case_75 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_75_case__42(x1)(x2)(x3)(st))(st)++++c__case_76 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_76_case__41(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_77 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_77_case__40(x1)(x2)(x3)(x4)(st))(st)++++c__case_78 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_78_case__39(x1)(x2)(st))(st)++++c__case_82 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_82_case__38(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_81 x2 x3 x6 x7 x9 x10 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_81_case__37(x1)(x2)(x3)(x6)(x7)(x9)(x10)(x4)(st))(st)++++c__case_80 x2 x3 x6 x7 x9 x10 x17 x18 x19 x21 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_80_case__36(x1)(x2)(x3)(x6)(x7)(x9)(x10)(x17)(x18)(x21)(x22)(st))(st)++++c__case_79 x2 x3 x9 x10 x17 x18 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_79_case__35(x1)(x2)(x3)(x9)(x10)(x17)(x18)(x19)(st))(st)++++c__case_84 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_84_case__34(x1)(x2)(x4)(x3)(st))(st)++++c__case_83 x2 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_83_case__33(x1)(x2)(x5)(x6)(x4)(st))(st)++++c__case_86 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_86_case__32(x1)(x3)(x2)(st))(st)++++c__case_85 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_85_case__31(x1)(x4)(x5)(x3)(st))(st)++++c__case_88 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_88_case__30(x1)(x2)(x4)(x3)(st))(st)++++c__case_87 x2 x5 x6 x7 x8 x9 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_87_case__29(x1)(x2)(x5)(x6)(x7)(x8)(x9)(x4)(st))(st)++++c__case_90 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_90_case__28(x1)(x3)(x2)(st))(st)++++c__case_89 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_89_case__27(x1)(x4)(x5)(x3)(st))(st)++++c__case_93 x2 x3 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_93_case__26(x1)(x2)(x3)(x5)(x4)(st))(st)++++c__case_92 x2 x3 x6 x7 x8 x9 x10 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_92_case__25(x1)(x2)(x3)(x6)(x7)(x8)(x9)(x10)(x5)(st))(st)++++c__case_91 x2 x3 x11 x12 x16 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_91_case__24(x1)(x3)(x12)(x21)(st))(st)++++c__case_95 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_95_case__23(x1)(x2)(x4)(x3)(st))(st)++++c__case_94 x2 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_94_case__22(x1)(x2)(x5)(x6)(x4)(st))(st)++++c__case_97 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_97_case__21(x1)(x2)(x4)(x3)(st))(st)++++c__case_96 x2 x5 x6 x7 x8 x9 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_96_case__20(x1)(x2)(x5)(x6)(x7)(x8)(x9)(x4)(st))(st)++++c__case_99 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_99_case__19(x1)(x3)(x2)(st))(st)++++c__case_98 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_98_case__18(x1)(x4)(x5)(x3)(st))(st)++++c__case_103 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_103_case__17(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_102 x2 x3 x4 x6 x7 x8 x9 x10 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_102_case__16(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(x11)(st))(st)++++c__case_101 x2 x3 x4 x6 x7 x8 x9 x10 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_101_case__15(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(x11)(st))(st)++++c__case_100 x2 x3 x4 x6 x7 x8 x9 x10 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_100_case__14(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(x11)(st))(st)++++c__case_104 x3 x4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_104_case__13(x1)(x3)(x4)(x2)(st))(st)++++c__case_105 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_105_case__12(x1)(x3)(x2)(st))(st)++++c__case_108 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_108_case__11(x1)(x2)(x4)(x3)(st))(st)++++c__case_107 x2 x4 x5 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_107_case__10(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x10)(st))(st)++++c__case_106 x2 x4 x5 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_106_case__9(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x10)(st))(st)++++c__case_109 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_109_case__8(x1)(x3)(x2)(st))(st)++++c__case_110 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_110_case__7(x1)(x2)(x4)(x3)(st))(st)++++c__case_111 x2 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_111_case__6(x1)(x2)(x4)(x5)(x3)(st))(st)++++c__case_112 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_112_case__5(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_113 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_113_case__4(x1)(x3)(x2)(st))(st)++++c__case_116 x2 x3 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_116_case__3(x1)(x2)(x3)(x5)(x6)(x4)(st))(st)++++c__case_115 x2 x3 x5 x6 x7 x8 x9 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_115_case__2(x1)(x2)(x3)(x5)(x6)(x7)(x8)(x9)(x10)(x11)(x12)(st))(st)++++c__case_114 x2 x3 x5 x6 x7 x8 x9 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_114_case__1(x1)(x2)(x3)(x5)(x6)(x7)(x8)(x9)(x10)(x11)(x12)(st))(st)++++c__case_117 x3 x4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_117_case__0(x1)(x3)(x4)(x2)(st))(st)++++c__case_117_case__0 x1 x3 x4 x2@(Curry.Module.OracleFiniteMap.C_FM x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x5)(Curry.Module.OracleFiniteMap.c_addToFM'39(x5)(x6)(x3)(x4)(x1)(st)))(st)+c__case_117_case__0 x1 x3 x4 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_117_case__0(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_117_case__0 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_117_case__0")(x)++++c__case_114_case__1 x1 x2 x3 x5 x6 x7 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.FiniteMap.C_Branch(x5)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x8)(x1)(st))(x6)(x13)(st))(x9)(x10)(x11))(st)+c__case_114_case__1 x1 x2 x3 x5 x6 x7 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_False st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x7)(x8)(x10)(Curry.Module.OracleFiniteMap.c_addToFM_C'39(x2)(x3)(x11)(x5)(x6)(x1)(st))(x14)(st))(st)+c__case_114_case__1 x1 x2 x3 x5 x6 x7 x8 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_114_case__1(x1)(x2)(x3)(x5)(x6)(x7)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_114_case__1 x1 x2 x3 x5 x6 x7 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_114_case__1")(x)++++c__case_115_case__2 x1 x2 x3 x5 x6 x7 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x7)(x8)(Curry.Module.OracleFiniteMap.c_addToFM_C'39(x2)(x3)(x10)(x5)(x6)(x1)(st))(x11)(x13)(st))(st)+c__case_115_case__2 x1 x2 x3 x5 x6 x7 x8 x9 x10 x11 x12@Curry.Module.Prelude.C_False st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_114(x2)(x3)(x5)(x6)(x7)(x8)(x9)(x10)(x11)(Curry.Module.OraclePrelude.op_61_61(x5)(x7)(x1)(st))(x14)(st))(st)+c__case_115_case__2 x1 x2 x3 x5 x6 x7 x8 x9 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_115_case__2(x1)(x2)(x3)(x5)(x6)(x7)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_115_case__2 x1 x2 x3 x5 x6 x7 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_115_case__2")(x)++++c__case_116_case__3 x1 x2 x3 x5 x6 x4@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_unitFM'39(x5)(x6)(x1)(st))(st)+c__case_116_case__3 x1 x2 x3 x5 x6 x4@(Curry.Module.FiniteMap.C_Branch x7 x8 x9 x10 x11) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c__case_115(x2)(x3)(x5)(x6)(x7)(x8)(x9)(x10)(x11)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x7)(x12)(st))(x13)(st))(st)+c__case_116_case__3 x1 x2 x3 x5 x6 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_116_case__3(x1)(x2)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_116_case__3 x1 x2 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_116_case__3")(x)++++c__case_113_case__4 x1 x3 x2@(Curry.Module.OracleFiniteMap.C_FM x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x4)(Curry.Module.OracleFiniteMap.c_addListToFM'39(x4)(x5)(x3)(x1)(st)))(st)+c__case_113_case__4 x1 x3 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_113_case__4(x1)(x3)(x)(st))(i)(xs)(st)+c__case_113_case__4 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_113_case__4")(x)++++c__case_112_case__5 x1 x2 x3 x4 x5@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_addToFM_C'39(x3)(x2)(x4)(x6)(x7)(x1)(st))(st)+c__case_112_case__5 x1 x2 x3 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_112_case__5(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_112_case__5 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_112_case__5")(x)++++c__case_111_case__6 x1 x2 x4 x5 x3@(Curry.Module.OracleFiniteMap.C_FM x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x6)(Curry.Module.OracleFiniteMap.c_addToFM_C'39(x6)(x2)(x7)(x4)(x5)(x1)(st)))(st)+c__case_111_case__6 x1 x2 x4 x5 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_111_case__6(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_111_case__6 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_111_case__6")(x)++++c__case_110_case__7 x1 x2 x4 x3@(Curry.Module.OracleFiniteMap.C_FM x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x5)(Curry.Module.OracleFiniteMap.c_addListToFM_C'39(x5)(x2)(x6)(x4)(x1)(st)))(st)+c__case_110_case__7 x1 x2 x4 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_110_case__7(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_110_case__7 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_110_case__7")(x)++++c__case_109_case__8 x1 x3 x2@(Curry.Module.OracleFiniteMap.C_FM x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x4)(Curry.Module.OracleFiniteMap.c_delFromFM'39(x4)(x5)(x3)(x1)(st)))(st)+c__case_109_case__8 x1 x3 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_109_case__8(x1)(x3)(x)(st))(i)(xs)(st)+c__case_109_case__8 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_109_case__8")(x)++++c__case_106_case__9 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_glueBal(x2)(x8)(x9)(x1)(st))(st)+c__case_106_case__9 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x5)(x6)(x8)(Curry.Module.OracleFiniteMap.c_delFromFM'39(x2)(x9)(x4)(x1)(st))(x11)(st))(st)+c__case_106_case__9 x1 x2 x4 x5 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_106_case__9(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_106_case__9 x1 x2 x4 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_106_case__9")(x)++++c__case_107_case__10 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x5)(x6)(Curry.Module.OracleFiniteMap.c_delFromFM'39(x2)(x8)(x4)(x1)(st))(x9)(x11)(st))(st)+c__case_107_case__10 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_106(x2)(x4)(x5)(x6)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x4)(x5)(x1)(st))(x12)(st))(st)+c__case_107_case__10 x1 x2 x4 x5 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_107_case__10(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_107_case__10 x1 x2 x4 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_107_case__10")(x)++++c__case_108_case__11 x1 x2 x4 x3@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_EmptyFM)(st)+c__case_108_case__11 x1 x2 x4 x3@(Curry.Module.FiniteMap.C_Branch x5 x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c__case_107(x2)(x4)(x5)(x6)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x10)(st))(x11)(st))(st)+c__case_108_case__11 x1 x2 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_108_case__11(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_108_case__11 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_108_case__11")(x)++++c__case_105_case__12 x1 x3 x2@(Curry.Module.OracleFiniteMap.C_FM x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x4)(Curry.Module.OraclePrelude.c_foldl(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFiniteMap.c_delFromFM'39(x4)))(st))(x5)(x3)(x1)(st)))(st)+c__case_105_case__12 x1 x3 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_105_case__12(x1)(x3)(x)(st))(i)(xs)(st)+c__case_105_case__12 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_105_case__12")(x)++++c__case_104_case__13 x1 x3 x4 x2@(Curry.Module.OracleFiniteMap.C_FM x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x5)(Curry.Module.OracleFiniteMap.c_updFM'46upd'4649(x4)(x3)(x5)(x6)(x1)(st)))(st)+c__case_104_case__13 x1 x3 x4 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_104_case__13(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_104_case__13 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_104_case__13")(x)++++c__case_100_case__14 x1 x2 x3 x4 x6 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FiniteMap.C_Branch(x6)(x7)(x8)(x9)(Curry.Module.OracleFiniteMap.c_updFM'46upd'4649(x2)(x3)(x4)(x10)(x1)(st)))(st)+c__case_100_case__14 x1 x2 x3 x4 x6 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_100_case__14 x1 x2 x3 x4 x6 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_100_case__14(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_100_case__14 x1 x2 x3 x4 x6 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_100_case__14")(x)++++c__case_101_case__15 x1 x2 x3 x4 x6 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FiniteMap.C_Branch(x6)(x7)(x8)(Curry.Module.OracleFiniteMap.c_updFM'46upd'4649(x2)(x3)(x4)(x9)(x1)(st))(x10))(st)+c__case_101_case__15 x1 x2 x3 x4 x6 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_100(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x12)(st))(st)+c__case_101_case__15 x1 x2 x3 x4 x6 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_101_case__15(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_101_case__15 x1 x2 x3 x4 x6 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_101_case__15")(x)++++c__case_102_case__16 x1 x2 x3 x4 x6 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FiniteMap.C_Branch(x6)(Curry.Module.Oracle.c_apply(x2)(x7)(x1)(st))(x8)(x9)(x10))(st)+c__case_102_case__16 x1 x2 x3 x4 x6 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c__case_101(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x4)(x3)(x1)(st))(x6)(x12)(st))(x13)(st))(st)+c__case_102_case__16 x1 x2 x3 x4 x6 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_102_case__16(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_102_case__16 x1 x2 x3 x4 x6 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_102_case__16")(x)++++c__case_103_case__17 x1 x2 x3 x4 x5@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_EmptyFM)(st)+c__case_103_case__17 x1 x2 x3 x4 x5@(Curry.Module.FiniteMap.C_Branch x6 x7 x8 x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_102(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(Curry.Module.OraclePrelude.op_61_61(x3)(x6)(x1)(st))(x11)(st))(st)+c__case_103_case__17 x1 x2 x3 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_103_case__17(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_103_case__17 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_103_case__17")(x)++++c__case_98_case__18 x1 x4 x5 x3@(Curry.Module.OracleFiniteMap.C_FM x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x4)(Curry.Module.OracleFiniteMap.c_plusFM'39(x4)(x5)(x7)(x1)(st)))(st)+c__case_98_case__18 x1 x4 x5 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_98_case__18(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_98_case__18 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_98_case__18")(x)++++c__case_99_case__19 x1 x3 x2@(Curry.Module.OracleFiniteMap.C_FM x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_98(x4)(x5)(x3)(x1)(st))(st)+c__case_99_case__19 x1 x3 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_99_case__19(x1)(x3)(x)(st))(i)(xs)(st)+c__case_99_case__19 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_99_case__19")(x)++++c__case_96_case__20 x1 x2 x5 x6 x7 x8 x9 x4@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_Branch(x5)(x6)(x7)(x8)(x9))(st)+c__case_96_case__20 x1 x2 x5 x6 x7 x8 x9 x4@(Curry.Module.FiniteMap.C_Branch x10 x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(let {x15 = Curry.Module.FiniteMap.C_Branch(x5)(x6)(x7)(x8)(x9)} in let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c_mkVBalBranch(x2)(x10)(x11)(Curry.Module.OracleFiniteMap.c_plusFM'39(x2)(Curry.Module.OracleFiniteMap.c_splitLT(x2)(x15)(x10)(x1)(st))(x13)(x19)(st))(Curry.Module.OracleFiniteMap.c_plusFM'39(x2)(Curry.Module.OracleFiniteMap.c_splitGT(x2)(x15)(x10)(x18)(st))(x14)(x20)(st))(x21)(st))(st))(st))(st))(st)+c__case_96_case__20 x1 x2 x5 x6 x7 x8 x9 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_96_case__20(x1)(x2)(x5)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_96_case__20 x1 x2 x5 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_96_case__20")(x)++++c__case_97_case__21 x1 x2 x4 x3@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_97_case__21 x1 x2 x4 x3@(Curry.Module.FiniteMap.C_Branch x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_96(x2)(x5)(x6)(x7)(x8)(x9)(x4)(x1)(st))(st)+c__case_97_case__21 x1 x2 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_97_case__21(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_97_case__21 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_97_case__21")(x)++++c__case_94_case__22 x1 x2 x5 x6 x4@(Curry.Module.OracleFiniteMap.C_FM x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x5)(Curry.Module.OracleFiniteMap.c_plusFM_C'39(x5)(x2)(x6)(x8)(x1)(st)))(st)+c__case_94_case__22 x1 x2 x5 x6 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_94_case__22(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_94_case__22 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_94_case__22")(x)++++c__case_95_case__23 x1 x2 x4 x3@(Curry.Module.OracleFiniteMap.C_FM x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_94(x2)(x5)(x6)(x4)(x1)(st))(st)+c__case_95_case__23 x1 x2 x4 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_95_case__23(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_95_case__23 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_95_case__23")(x)++++c__case_91_case__24 x1 x3 x12 x21@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(x12)(st)+c__case_91_case__24 x1 x3 x12 x21@(Curry.Module.Prelude.C_Just x20) st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x20)(x1)(st))(x12)(x22)(st))(st)+c__case_91_case__24 x1 x3 x12 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_91_case__24(x1)(x3)(x12)(x)(st))(i)(xs)(st)+c__case_91_case__24 x1 x3 x12 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_91_case__24")(x)++++c__case_92_case__25 x1 x2 x3 x6 x7 x8 x9 x10 x5@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_Branch(x6)(x7)(x8)(x9)(x10))(st)+c__case_92_case__25 x1 x2 x3 x6 x7 x8 x9 x10 x5@(Curry.Module.FiniteMap.C_Branch x11 x12 x13 x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(let {x16 = Curry.Module.FiniteMap.C_Branch(x6)(x7)(x8)(x9)(x10)} in let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List)))(let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c_mkVBalBranch(x2)(x11)(Curry.Module.OracleFiniteMap.c__case_91(x2)(x3)(x11)(x12)(x16)(Curry.Module.OracleFiniteMap.c_lookupFM'39(x2)(x16)(x11)(x21)(st))(x22)(st))(Curry.Module.OracleFiniteMap.c_plusFM_C'39(x2)(x3)(Curry.Module.OracleFiniteMap.c_splitLT(x2)(x16)(x11)(x1)(st))(x14)(x23)(st))(Curry.Module.OracleFiniteMap.c_plusFM_C'39(x2)(x3)(Curry.Module.OracleFiniteMap.c_splitGT(x2)(x16)(x11)(x20)(st))(x15)(x24)(st))(x25)(st))(st))(st))(st))(st))(st)+c__case_92_case__25 x1 x2 x3 x6 x7 x8 x9 x10 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_92_case__25(x1)(x2)(x3)(x6)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_92_case__25 x1 x2 x3 x6 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_92_case__25")(x)++++c__case_93_case__26 x1 x2 x3 x5 x4@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_93_case__26 x1 x2 x3 x5 x4@(Curry.Module.FiniteMap.C_Branch x6 x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_92(x2)(x3)(x6)(x7)(x8)(x9)(x10)(x5)(x1)(st))(st)+c__case_93_case__26 x1 x2 x3 x5 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_93_case__26(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_93_case__26 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_93_case__26")(x)++++c__case_89_case__27 x1 x4 x5 x3@(Curry.Module.OracleFiniteMap.C_FM x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x4)(Curry.Module.OracleFiniteMap.c_minusFM'39(x4)(x5)(x7)(x1)(st)))(st)+c__case_89_case__27 x1 x4 x5 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_89_case__27(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_89_case__27 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_89_case__27")(x)++++c__case_90_case__28 x1 x3 x2@(Curry.Module.OracleFiniteMap.C_FM x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_89(x4)(x5)(x3)(x1)(st))(st)+c__case_90_case__28 x1 x3 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_90_case__28(x1)(x3)(x)(st))(i)(xs)(st)+c__case_90_case__28 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_90_case__28")(x)++++c__case_87_case__29 x1 x2 x5 x6 x7 x8 x9 x4@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_Branch(x5)(x6)(x7)(x8)(x9))(st)+c__case_87_case__29 x1 x2 x5 x6 x7 x8 x9 x4@(Curry.Module.FiniteMap.C_Branch x10 x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(let {x15 = Curry.Module.FiniteMap.C_Branch(x5)(x6)(x7)(x8)(x9)} in let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c_glueVBal(x2)(Curry.Module.OracleFiniteMap.c_minusFM'39(x2)(Curry.Module.OracleFiniteMap.c_splitLT(x2)(x15)(x10)(x1)(st))(x13)(x19)(st))(Curry.Module.OracleFiniteMap.c_minusFM'39(x2)(Curry.Module.OracleFiniteMap.c_splitGT(x2)(x15)(x10)(x18)(st))(x14)(x20)(st))(x21)(st))(st))(st))(st))(st)+c__case_87_case__29 x1 x2 x5 x6 x7 x8 x9 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_87_case__29(x1)(x2)(x5)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_87_case__29 x1 x2 x5 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_87_case__29")(x)++++c__case_88_case__30 x1 x2 x4 x3@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_EmptyFM)(st)+c__case_88_case__30 x1 x2 x4 x3@(Curry.Module.FiniteMap.C_Branch x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_87(x2)(x5)(x6)(x7)(x8)(x9)(x4)(x1)(st))(st)+c__case_88_case__30 x1 x2 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_88_case__30(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_88_case__30 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_88_case__30")(x)++++c__case_85_case__31 x1 x4 x5 x3@(Curry.Module.OracleFiniteMap.C_FM x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x4)(Curry.Module.OracleFiniteMap.c_intersectFM'39(x4)(x5)(x7)(x1)(st)))(st)+c__case_85_case__31 x1 x4 x5 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_85_case__31(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_85_case__31 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_85_case__31")(x)++++c__case_86_case__32 x1 x3 x2@(Curry.Module.OracleFiniteMap.C_FM x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_85(x4)(x5)(x3)(x1)(st))(st)+c__case_86_case__32 x1 x3 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_86_case__32(x1)(x3)(x)(st))(i)(xs)(st)+c__case_86_case__32 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_86_case__32")(x)++++c__case_83_case__33 x1 x2 x5 x6 x4@(Curry.Module.OracleFiniteMap.C_FM x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x5)(Curry.Module.OracleFiniteMap.c_intersectFM_C'39(x5)(x2)(x6)(x8)(x1)(st)))(st)+c__case_83_case__33 x1 x2 x5 x6 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_83_case__33(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_83_case__33 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_83_case__33")(x)++++c__case_84_case__34 x1 x2 x4 x3@(Curry.Module.OracleFiniteMap.C_FM x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_83(x2)(x5)(x6)(x4)(x1)(st))(st)+c__case_84_case__34 x1 x2 x4 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_84_case__34(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_84_case__34 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_84_case__34")(x)++++c__case_79_case__35 x1 x2 x3 x9 x10 x17 x18 x19@Curry.Module.Prelude.C_True st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c_glueVBal(x2)(Curry.Module.OracleFiniteMap.c_intersectFM_C'39(x2)(x3)(x17)(x9)(x1)(st))(Curry.Module.OracleFiniteMap.c_intersectFM_C'39(x2)(x3)(x18)(x10)(x20)(st))(x21)(st))(st)+c__case_79_case__35 x1 x2 x3 x9 x10 x17 x18 x19@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_79_case__35 x1 x2 x3 x9 x10 x17 x18 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_79_case__35(x1)(x2)(x3)(x9)(x10)(x17)(x18)(x)(st))(i)(xs)(st)+c__case_79_case__35 x1 x2 x3 x9 x10 x17 x18 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_79_case__35")(x)++++c__case_80_case__36 x1 x2 x3 x6 x7 x9 x10 x17 x18 x21 x22@Curry.Module.Prelude.C_True st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFiniteMap.c_mkVBalBranch(x2)(x6)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x21)(x1)(st))(x7)(x23)(st))(Curry.Module.OracleFiniteMap.c_intersectFM_C'39(x2)(x3)(x17)(x9)(x24)(st))(Curry.Module.OracleFiniteMap.c_intersectFM_C'39(x2)(x3)(x18)(x10)(x25)(st))(x26)(st))(st)+c__case_80_case__36 x1 x2 x3 x6 x7 x9 x10 x17 x18 x21 x22@Curry.Module.Prelude.C_False st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_79(x2)(x3)(x9)(x10)(x17)(x18)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x27)(st))(st)+c__case_80_case__36 x1 x2 x3 x6 x7 x9 x10 x17 x18 x21 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_80_case__36(x1)(x2)(x3)(x6)(x7)(x9)(x10)(x17)(x18)(x21)(x)(st))(i)(xs)(st)+c__case_80_case__36 x1 x2 x3 x6 x7 x9 x10 x17 x18 x21 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_80_case__36")(x)++++c__case_81_case__37 x1 x2 x3 x6 x7 x9 x10 x4@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_EmptyFM)(st)+c__case_81_case__37 x1 x2 x3 x6 x7 x9 x10 x4@(Curry.Module.FiniteMap.C_Branch x11 x12 x13 x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(let {x16 = Curry.Module.FiniteMap.C_Branch(x11)(x12)(x13)(x14)(x15)} in let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.OracleFiniteMap.c_lookupFM'39(x2)(x16)(x6)(x23)(st)} in Curry.Module.CEventOracle.c_replace(x24)(let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_80(x2)(x3)(x6)(x7)(x9)(x10)(Curry.Module.OracleFiniteMap.c_splitLT(x2)(x16)(x6)(x1)(st))(Curry.Module.OracleFiniteMap.c_splitGT(x2)(x16)(x6)(x22)(st))(x19)(Curry.Module.OracleFiniteMap.c_intersectFM_C'39'46_'35selFP3'35elt1'39(x19)(x24)(st))(Curry.Module.OracleMaybe.c_isJust(x19)(x25)(st))(x26)(st))(st))(st))(st))(st))(st))(st))(st)+c__case_81_case__37 x1 x2 x3 x6 x7 x9 x10 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_81_case__37(x1)(x2)(x3)(x6)(x7)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_81_case__37 x1 x2 x3 x6 x7 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_81_case__37")(x)++++c__case_82_case__38 x1 x2 x3 x4 x5@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_EmptyFM)(st)+c__case_82_case__38 x1 x2 x3 x4 x5@(Curry.Module.FiniteMap.C_Branch x6 x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_81(x2)(x3)(x6)(x7)(x9)(x10)(x4)(x1)(st))(st)+c__case_82_case__38 x1 x2 x3 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_82_case__38(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_82_case__38 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_82_case__38")(x)++++c__case_78_case__39 x1 x2@(Curry.Module.Prelude.C_Just x3) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_78_case__39 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_78_case__39(x1)(x)(st))(i)(xs)(st)+c__case_78_case__39 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_78_case__39")(x)++++c__case_77_case__40 x1 x2 x3 x4@(Curry.Module.OracleFiniteMap.C_FM x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_foldFM'39(x5)(x2)(x3)(x6)(x1)(st))(st)+c__case_77_case__40 x1 x2 x3 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_77_case__40(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_77_case__40 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_77_case__40")(x)++++c__case_76_case__41 x1 x2 x3 x4 x5@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_76_case__41 x1 x2 x3 x4 x5@(Curry.Module.FiniteMap.C_Branch x6 x7 x8 x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFiniteMap.c_foldFM'39(x2)(x3)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x6)(x1)(st))(x7)(x11)(st))(Curry.Module.OracleFiniteMap.c_foldFM'39(x2)(x3)(x4)(x10)(x12)(st))(x13)(st))(x9)(x14)(st))(st)+c__case_76_case__41 x1 x2 x3 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_76_case__41(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_76_case__41 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_76_case__41")(x)++++c__case_75_case__42 x1 x2 x3@(Curry.Module.OracleFiniteMap.C_FM x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x4)(Curry.Module.OracleFiniteMap.c_mapFM'39(x4)(x2)(x5)(x1)(st)))(st)+c__case_75_case__42 x1 x2 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_75_case__42(x1)(x2)(x)(st))(i)(xs)(st)+c__case_75_case__42 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_75_case__42")(x)++++c__case_74_case__43 x1 x2 x3 x4@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_EmptyFM)(st)+c__case_74_case__43 x1 x2 x3 x4@(Curry.Module.FiniteMap.C_Branch x5 x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(Curry.Module.FiniteMap.C_Branch(x5)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x5)(x1)(st))(x6)(x10)(st))(x7)(Curry.Module.OracleFiniteMap.c_mapFM'39(x2)(x3)(x8)(x11)(st))(Curry.Module.OracleFiniteMap.c_mapFM'39(x2)(x3)(x9)(x12)(st)))(st)+c__case_74_case__43 x1 x2 x3 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_74_case__43(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_74_case__43 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_74_case__43")(x)++++c__case_73_case__44 x1 x2 x3@(Curry.Module.OracleFiniteMap.C_FM x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.C_FM(x4)(Curry.Module.OracleFiniteMap.c_filterFM'39(x4)(x2)(x5)(x1)(st)))(st)+c__case_73_case__44 x1 x2 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_73_case__44(x1)(x2)(x)(st))(i)(xs)(st)+c__case_73_case__44 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_73_case__44")(x)++++c__case_70_case__45 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c_glueVBal(x2)(Curry.Module.OracleFiniteMap.c_filterFM'39(x2)(x3)(x8)(x1)(st))(Curry.Module.OracleFiniteMap.c_filterFM'39(x2)(x3)(x9)(x11)(st))(x12)(st))(st)+c__case_70_case__45 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_70_case__45 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_70_case__45(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_70_case__45 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_70_case__45")(x)++++c__case_71_case__46 x1 x2 x3 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c_mkVBalBranch(x2)(x5)(x6)(Curry.Module.OracleFiniteMap.c_filterFM'39(x2)(x3)(x8)(x1)(st))(Curry.Module.OracleFiniteMap.c_filterFM'39(x2)(x3)(x9)(x11)(st))(x12)(st))(st)+c__case_71_case__46 x1 x2 x3 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_70(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x13)(st))(st)+c__case_71_case__46 x1 x2 x3 x5 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_71_case__46(x1)(x2)(x3)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_71_case__46 x1 x2 x3 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_71_case__46")(x)++++c__case_72_case__47 x1 x2 x3 x4@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_EmptyFM)(st)+c__case_72_case__47 x1 x2 x3 x4@(Curry.Module.FiniteMap.C_Branch x5 x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c__case_71(x2)(x3)(x5)(x6)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x5)(x1)(st))(x6)(x10)(st))(x11)(st))(st)+c__case_72_case__47 x1 x2 x3 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_72_case__47(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_72_case__47 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_72_case__47")(x)++++c__case_68_case__48 x1 x4@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_68_case__48 x1 x4@(Curry.Module.FiniteMap.C_Branch x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_68_case__48 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_68_case__48(x1)(x)(st))(i)(xs)(st)+c__case_68_case__48 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_68_case__48")(x)++++c__case_69_case__49 x1 x2@(Curry.Module.OracleFiniteMap.C_FM x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_68(x4)(x1)(st))(st)+c__case_69_case__49 x1 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_69_case__49(x1)(x)(st))(i)(xs)(st)+c__case_69_case__49 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_69_case__49")(x)++++c__case_67_case__50 x1 x2@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_67_case__50 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_67_case__50 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_67_case__50(x1)(x)(st))(i)(xs)(st)+c__case_67_case__50 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_67_case__50")(x)++++c__case_66_case__51 x1 x3 x2@(Curry.Module.OracleFiniteMap.C_FM x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_lookupFM'39(x4)(x5)(x3)(x1)(st))(st)+c__case_66_case__51 x1 x3 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_66_case__51(x1)(x3)(x)(st))(i)(xs)(st)+c__case_66_case__51 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_66_case__51")(x)++++c__case_63_case__52 x1 x2 x4 x6 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just(x6))(st)+c__case_63_case__52 x1 x2 x4 x6 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_lookupFM'39(x2)(x9)(x4)(x1)(st))(st)+c__case_63_case__52 x1 x2 x4 x6 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_63_case__52(x1)(x2)(x4)(x6)(x9)(x)(st))(i)(xs)(st)+c__case_63_case__52 x1 x2 x4 x6 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_63_case__52")(x)++++c__case_64_case__53 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_lookupFM'39(x2)(x8)(x4)(x1)(st))(st)+c__case_64_case__53 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_63(x2)(x4)(x5)(x6)(x9)(Curry.Module.OraclePrelude.op_61_61(x4)(x5)(x1)(st))(x11)(st))(st)+c__case_64_case__53 x1 x2 x4 x5 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_64_case__53(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_64_case__53 x1 x2 x4 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_64_case__53")(x)++++c__case_65_case__54 x1 x2 x4 x3@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_65_case__54 x1 x2 x4 x3@(Curry.Module.FiniteMap.C_Branch x5 x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c__case_64(x2)(x4)(x5)(x6)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x10)(st))(x11)(st))(st)+c__case_65_case__54 x1 x2 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_65_case__54(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_65_case__54 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_65_case__54")(x)++++c__case_62_case__55 x1 x3 x6@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_62_case__55 x1 x3 x6@(Curry.Module.Prelude.C_Just x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_62_case__55 x1 x3 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_62_case__55(x1)(x3)(x)(st))(i)(xs)(st)+c__case_62_case__55 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_62_case__55")(x)++++c__case_61_case__56 x1 x2@(Curry.Module.OracleFiniteMap.C_FM x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_61_case__56 x1 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_61_case__56(x1)(x)(st))(i)(xs)(st)+c__case_61_case__56 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_61_case__56")(x)++++c__case_58_case__57 x1 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_minFM'46min'46215(x6)(x1)(st))(st)+c__case_58_case__57 x1 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_58_case__57 x1 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_58_case__57(x1)(x6)(x)(st))(i)(xs)(st)+c__case_58_case__57 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_58_case__57")(x)++++c__case_59_case__58 x1 x3 x4 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(x3)(x4)))(st)+c__case_59_case__58 x1 x3 x4 x6 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_58(x6)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x8)(st))(st)+c__case_59_case__58 x1 x3 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_59_case__58(x1)(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_59_case__58 x1 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_59_case__58")(x)++++c__case_60_case__59 x1 x2@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_60_case__59 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_59(x3)(x4)(x6)(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.FiniteMap.C_EmptyFM)(x1)(st))(x8)(st))(st)+c__case_60_case__59 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_60_case__59(x1)(x)(st))(i)(xs)(st)+c__case_60_case__59 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_60_case__59")(x)++++c__case_55_case__60 x1 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_maxFM'46max'46223(x7)(x1)(st))(st)+c__case_55_case__60 x1 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_55_case__60 x1 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_55_case__60(x1)(x7)(x)(st))(i)(xs)(st)+c__case_55_case__60 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_55_case__60")(x)++++c__case_56_case__61 x1 x3 x4 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T2(x3)(x4)))(st)+c__case_56_case__61 x1 x3 x4 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_55(x7)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x9)(st))(st)+c__case_56_case__61 x1 x3 x4 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_56_case__61(x1)(x3)(x4)(x7)(x)(st))(i)(xs)(st)+c__case_56_case__61 x1 x3 x4 x7 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_56_case__61")(x)++++c__case_57_case__62 x1 x2@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_57_case__62 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_56(x3)(x4)(x7)(Curry.Module.OraclePrelude.op_61_61(x7)(Curry.Module.FiniteMap.C_EmptyFM)(x1)(st))(x8)(st))(st)+c__case_57_case__62 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_57_case__62(x1)(x)(st))(i)(xs)(st)+c__case_57_case__62 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_57_case__62")(x)++++c__case_54_case__63 x1 x2@(Curry.Module.OracleFiniteMap.C_FM x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_fmToListPreOrder'46pre'46243(x4)(Curry.Module.Prelude.List)(x1)(st))(st)+c__case_54_case__63 x1 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_54_case__63(x1)(x)(st))(i)(xs)(st)+c__case_54_case__63 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_54_case__63")(x)++++c__case_53_case__64 x1 x3 x2@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_53_case__64 x1 x3 x2@(Curry.Module.FiniteMap.C_Branch x4 x5 x6 x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x4)(x5))(Curry.Module.OracleFiniteMap.c_fmToListPreOrder'46pre'46243(x7)(Curry.Module.OracleFiniteMap.c_fmToListPreOrder'46pre'46243(x8)(x3)(x1)(st))(x9)(st)))(st)+c__case_53_case__64 x1 x3 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_53_case__64(x1)(x3)(x)(st))(i)(xs)(st)+c__case_53_case__64 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_53_case__64")(x)++++c__case_52_case__65 x1 x2@(Curry.Module.OracleFiniteMap.C_FM x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_52_case__65 x1 (Curry.Module.OracleFiniteMap.C_FMOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_52_case__65(x1)(x)(st))(i)(xs)(st)+c__case_52_case__65 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_52_case__65")(x)++++c__case_48_case__66 x1 x2 x3 x4 x5 x13@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_mkBalBranch'46single_L'46273(x3)(x2)(x4)(x5)(x1)(st))(st)+c__case_48_case__66 x1 x2 x3 x4 x5 x13@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_mkBalBranch'46double_L'46273(x3)(x2)(x4)(x5)(x1)(st))(st)+c__case_48_case__66 x1 x2 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_48_case__66(x1)(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_48_case__66 x1 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_48_case__66")(x)++++c__case_49_case__67 x1 x2 x3 x4 x5@(Curry.Module.FiniteMap.C_Branch x8 x9 x10 x11 x12) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFiniteMap.c__case_48(x2)(x3)(x4)(x5)(x11)(x12)(Curry.Module.OraclePrelude.op_60(Curry.Module.OracleFiniteMap.c_sizeFM'39(x11)(x1)(st))(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OracleFiniteMap.c_sizeFM'39(x12)(x13)(st))(x14)(st))(x15)(st))(x16)(st))(st)+c__case_49_case__67 x1 x2 x3 x4 x5@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_49_case__67 x1 x2 x3 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_49_case__67(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_49_case__67 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_49_case__67")(x)++++c__case_45_case__68 x1 x2 x3 x4 x5 x18@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_mkBalBranch'46single_R'46273(x3)(x2)(x4)(x5)(x1)(st))(st)+c__case_45_case__68 x1 x2 x3 x4 x5 x18@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_mkBalBranch'46double_R'46273(x3)(x2)(x4)(x5)(x1)(st))(st)+c__case_45_case__68 x1 x2 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_45_case__68(x1)(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_45_case__68 x1 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_45_case__68")(x)++++c__case_46_case__69 x1 x2 x3 x5 x4@(Curry.Module.FiniteMap.C_Branch x13 x14 x15 x16 x17) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFiniteMap.c__case_45(x2)(x3)(x4)(x5)(x16)(x17)(Curry.Module.OraclePrelude.op_60(Curry.Module.OracleFiniteMap.c_sizeFM'39(x17)(x1)(st))(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OracleFiniteMap.c_sizeFM'39(x16)(x18)(st))(x19)(st))(x20)(st))(x21)(st))(st)+c__case_46_case__69 x1 x2 x3 x5 x4@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_46_case__69 x1 x2 x3 x5 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_46_case__69(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_46_case__69 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_46_case__69")(x)++++c__case_44_case__70 x1 x2 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x2)(x3)(x4)(x5)(x1)(st))(st)+c__case_44_case__70 x1 x2 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_44_case__70 x1 x2 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_44_case__70(x1)(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_44_case__70 x1 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_44_case__70")(x)++++c__case_47_case__71 x1 x2 x3 x4 x5 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_46(x2)(x3)(x5)(x4)(x1)(st))(st)+c__case_47_case__71 x1 x2 x3 x4 x5 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_44(x2)(x3)(x4)(x5)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x9)(st))(st)+c__case_47_case__71 x1 x2 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_47_case__71(x1)(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_47_case__71 x1 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_47_case__71")(x)++++c__case_50_case__72 x1 x2 x3 x4 x5 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_49(x2)(x3)(x4)(x5)(x1)(st))(st)+c__case_50_case__72 x1 x2 x3 x4 x5 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))(Curry.Module.OracleFiniteMap.c__case_47(x2)(x3)(x4)(x5)(x6)(x7)(Curry.Module.OraclePrelude.op_62(x6)(Curry.Module.OraclePrelude.op_42(Curry.Module.OracleFiniteMap.c_sIZE_RATIO(x1)(st))(x7)(x9)(st))(x10)(st))(x11)(st))(st)+c__case_50_case__72 x1 x2 x3 x4 x5 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_50_case__72(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_50_case__72 x1 x2 x3 x4 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_50_case__72")(x)++++c__case_51_case__73 x1 x2 x3 x4 x5 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x2)(x3)(x4)(x5)(x1)(st))(st)+c__case_51_case__73 x1 x2 x3 x4 x5 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))(Curry.Module.OracleFiniteMap.c__case_50(x2)(x3)(x4)(x5)(x6)(x7)(Curry.Module.OraclePrelude.op_62(x7)(Curry.Module.OraclePrelude.op_42(Curry.Module.OracleFiniteMap.c_sIZE_RATIO(x1)(st))(x6)(x9)(st))(x10)(st))(x11)(st))(st)+c__case_51_case__73 x1 x2 x3 x4 x5 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_51_case__73(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_51_case__73 x1 x2 x3 x4 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_51_case__73")(x)++++c__case_43_case__74 x1 x2 x3 x4 x5@(Curry.Module.FiniteMap.C_Branch x6 x7 x8 x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))(x6)(x7)(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x3)(x2)(x4)(x9)(x1)(st))(x10)(x11)(st))(st)+c__case_43_case__74 x1 x2 x3 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_43_case__74(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_43_case__74 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_43_case__74")(x)++++c__case_41_case__75 x1 x2 x3 x4 x6 x7 x10 x9@(Curry.Module.FiniteMap.C_Branch x11 x12 x13 x14 x15) st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x11)(x12)(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))(x3)(x2)(x4)(x14)(x1)(st))(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))(x6)(x7)(x15)(x10)(x16)(st))(x17)(st))(st)+c__case_41_case__75 x1 x2 x3 x4 x6 x7 x10 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_41_case__75(x1)(x2)(x3)(x4)(x6)(x7)(x10)(x)(st))(i)(xs)(st)+c__case_41_case__75 x1 x2 x3 x4 x6 x7 x10 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_41_case__75")(x)++++c__case_42_case__76 x1 x2 x3 x4 x5@(Curry.Module.FiniteMap.C_Branch x6 x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_41(x2)(x3)(x4)(x6)(x7)(x10)(x9)(x1)(st))(st)+c__case_42_case__76 x1 x2 x3 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_42_case__76(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_42_case__76 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_42_case__76")(x)++++c__case_40_case__77 x1 x2 x3 x5 x4@(Curry.Module.FiniteMap.C_Branch x6 x7 x8 x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBranch(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)))))(x6)(x7)(x9)(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))(x3)(x2)(x10)(x5)(x1)(st))(x11)(st))(st)+c__case_40_case__77 x1 x2 x3 x5 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_40_case__77(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_40_case__77 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_40_case__77")(x)++++c__case_38_case__78 x1 x2 x3 x5 x6 x7 x9 x10@(Curry.Module.FiniteMap.C_Branch x11 x12 x13 x14 x15) st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c_mkBranch(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)))))(x11)(x12)(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))(x6)(x7)(x9)(x14)(x1)(st))(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))(x3)(x2)(x15)(x5)(x16)(st))(x17)(st))(st)+c__case_38_case__78 x1 x2 x3 x5 x6 x7 x9 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_38_case__78(x1)(x2)(x3)(x5)(x6)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_38_case__78 x1 x2 x3 x5 x6 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_38_case__78")(x)++++c__case_39_case__79 x1 x2 x3 x5 x4@(Curry.Module.FiniteMap.C_Branch x6 x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_38(x2)(x3)(x5)(x6)(x7)(x9)(x10)(x1)(st))(st)+c__case_39_case__79 x1 x2 x3 x5 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_39_case__79(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_39_case__79 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_39_case__79")(x)++++c__case_33_case__80 x1 x3 x4 x17 x18 x19@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_mkBranch(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))(x3)(x4)(x17)(x18)(x1)(st))(st)+c__case_33_case__80 x1 x3 x4 x17 x18 x19@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_33_case__80 x1 x3 x4 x17 x18 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_33_case__80(x1)(x3)(x4)(x17)(x18)(x)(st))(i)(xs)(st)+c__case_33_case__80 x1 x3 x4 x17 x18 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_33_case__80")(x)++++c__case_34_case__81 x1 x2 x3 x4 x7 x8 x10 x11 x17 x18 x21@Curry.Module.Prelude.C_True st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x7)(x8)(x10)(Curry.Module.OracleFiniteMap.c_mkVBalBranch(x2)(x3)(x4)(x11)(x18)(x1)(st))(x22)(st))(st)+c__case_34_case__81 x1 x2 x3 x4 x7 x8 x10 x11 x17 x18 x21@Curry.Module.Prelude.C_False st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_33(x3)(x4)(x17)(x18)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x23)(st))(st)+c__case_34_case__81 x1 x2 x3 x4 x7 x8 x10 x11 x17 x18 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_34_case__81(x1)(x2)(x3)(x4)(x7)(x8)(x10)(x11)(x17)(x18)(x)(st))(i)(xs)(st)+c__case_34_case__81 x1 x2 x3 x4 x7 x8 x10 x11 x17 x18 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_34_case__81")(x)++++c__case_35_case__82 x1 x2 x3 x4 x7 x8 x10 x11 x12 x13 x15 x16 x17 x18 x19 x20 x21@Curry.Module.Prelude.C_True st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x12)(x13)(Curry.Module.OracleFiniteMap.c_mkVBalBranch(x2)(x3)(x4)(x17)(x15)(x1)(st))(x16)(x22)(st))(st)+c__case_35_case__82 x1 x2 x3 x4 x7 x8 x10 x11 x12 x13 x15 x16 x17 x18 x19 x20 x21@Curry.Module.Prelude.C_False st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))))(Curry.Module.OracleFiniteMap.c__case_34(x2)(x3)(x4)(x7)(x8)(x10)(x11)(x17)(x18)(x19)(x20)(Curry.Module.OraclePrelude.op_60(Curry.Module.OraclePrelude.op_42(Curry.Module.OracleFiniteMap.c_sIZE_RATIO(x1)(st))(x20)(x23)(st))(x19)(x24)(st))(x25)(st))(st)+c__case_35_case__82 x1 x2 x3 x4 x7 x8 x10 x11 x12 x13 x15 x16 x17 x18 x19 x20 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_35_case__82(x1)(x2)(x3)(x4)(x7)(x8)(x10)(x11)(x12)(x13)(x15)(x16)(x17)(x18)(x19)(x20)(x)(st))(i)(xs)(st)+c__case_35_case__82 x1 x2 x3 x4 x7 x8 x10 x11 x12 x13 x15 x16 x17 x18 x19 x20 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_35_case__82")(x)++++c__case_36_case__83 x1 x2 x3 x4 x7 x8 x9 x10 x11 x6@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_addToFM'39(x2)(Curry.Module.FiniteMap.C_Branch(x7)(x8)(x9)(x10)(x11))(x3)(x4)(x1)(st))(st)+c__case_36_case__83 x1 x2 x3 x4 x7 x8 x9 x10 x11 x6@(Curry.Module.FiniteMap.C_Branch x12 x13 x14 x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(let {x17 = Curry.Module.FiniteMap.C_Branch(x7)(x8)(x9)(x10)(x11)} in Curry.Module.CEventOracle.c_replace(x1)(let {x18 = Curry.Module.FiniteMap.C_Branch(x12)(x13)(x14)(x15)(x16)} in let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.OracleFiniteMap.c_sizeFM'39(x17)(x1)(st)} in let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.OracleFiniteMap.c_sizeFM'39(x18)(x21)(st)} in let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))))(Curry.Module.OracleFiniteMap.c__case_35(x2)(x3)(x4)(x7)(x8)(x10)(x11)(x12)(x13)(x15)(x16)(x17)(x18)(x19)(x20)(Curry.Module.OraclePrelude.op_60(Curry.Module.OraclePrelude.op_42(Curry.Module.OracleFiniteMap.c_sIZE_RATIO(x22)(st))(x19)(x23)(st))(x20)(x24)(st))(x25)(st))(st))(st))(st))(st))(st)+c__case_36_case__83 x1 x2 x3 x4 x7 x8 x9 x10 x11 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_36_case__83(x1)(x2)(x3)(x4)(x7)(x8)(x9)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_36_case__83 x1 x2 x3 x4 x7 x8 x9 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_36_case__83")(x)++++c__case_37_case__84 x1 x2 x3 x4 x6 x5@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_addToFM'39(x2)(x6)(x3)(x4)(x1)(st))(st)+c__case_37_case__84 x1 x2 x3 x4 x6 x5@(Curry.Module.FiniteMap.C_Branch x7 x8 x9 x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_36(x2)(x3)(x4)(x7)(x8)(x9)(x10)(x11)(x6)(x1)(st))(st)+c__case_37_case__84 x1 x2 x3 x4 x6 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_37_case__84(x1)(x2)(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_37_case__84 x1 x2 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_37_case__84")(x)++++c__case_30_case__85 x1 x2 x3 x4 x6 x7 x9 x10 x11@Curry.Module.Prelude.C_True st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x9)(x10)(x3)(Curry.Module.OracleFiniteMap.c_deleteMin(x2)(x4)(x1)(st))(x12)(st))(st)+c__case_30_case__85 x1 x2 x3 x4 x6 x7 x9 x10 x11@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x6)(x7)(Curry.Module.OracleFiniteMap.c_deleteMax(x2)(x3)(x1)(st))(x4)(x13)(st))(st)+c__case_30_case__85 x1 x2 x3 x4 x6 x7 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_30_case__85(x1)(x2)(x3)(x4)(x6)(x7)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_30_case__85 x1 x2 x3 x4 x6 x7 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_30_case__85")(x)++++c__case_31_case__86 x1 x2 x3 x4 x11@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_31_case__86 x1 x2 x3 x4 x11@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleFiniteMap.c_findMax(x3)(x1)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x8 = Curry.Module.OracleFiniteMap.c_findMin(x4)(x14)(st)} in let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))))(Curry.Module.OracleFiniteMap.c__case_30(x2)(x3)(x4)(Curry.Module.OracleFiniteMap.c_glueBal'46_'35selFP8'35mid_key1(x5)(x12)(st))(Curry.Module.OracleFiniteMap.c_glueBal'46_'35selFP9'35mid_elt1(x5)(x13)(st))(Curry.Module.OracleFiniteMap.c_glueBal'46_'35selFP6'35mid_key2(x8)(x15)(st))(Curry.Module.OracleFiniteMap.c_glueBal'46_'35selFP7'35mid_elt2(x8)(x16)(st))(Curry.Module.OraclePrelude.op_62(Curry.Module.OracleFiniteMap.c_sizeFM'39(x4)(x17)(st))(Curry.Module.OracleFiniteMap.c_sizeFM'39(x3)(x18)(st))(x19)(st))(x20)(st))(st))(st))(st))(st))(st))(st))(st)+c__case_31_case__86 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_31_case__86(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_31_case__86 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_31_case__86")(x)++++c__case_32_case__87 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_32_case__87 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_31(x2)(x3)(x4)(Curry.Module.OracleFiniteMap.c_isEmptyFM'39(x4)(x1)(st))(x6)(st))(st)+c__case_32_case__87 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_32_case__87(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_32_case__87 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_32_case__87")(x)++++c__case_29_case__88 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_29_case__88 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_29_case__88(x1)(x)(st))(i)(xs)(st)+c__case_29_case__88 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_29_case__88")(x)++++c__case_28_case__89 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_28_case__89 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_28_case__89(x1)(x)(st))(i)(xs)(st)+c__case_28_case__89 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_28_case__89")(x)++++c__case_27_case__90 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_27_case__90 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_27_case__90(x1)(x)(st))(i)(xs)(st)+c__case_27_case__90 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_27_case__90")(x)++++c__case_26_case__91 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_26_case__91 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_26_case__91(x1)(x)(st))(i)(xs)(st)+c__case_26_case__91 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_26_case__91")(x)++++c__case_22_case__92 x1 x2 x3 x4 x6 x7 x8 x9 x17@Curry.Module.Prelude.C_True st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x6)(x7)(x8)(Curry.Module.OracleFiniteMap.c_glueVBal(x2)(x9)(x4)(x1)(st))(x18)(st))(st)+c__case_22_case__92 x1 x2 x3 x4 x6 x7 x8 x9 x17@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_glueBal(x2)(x3)(x4)(x1)(st))(st)+c__case_22_case__92 x1 x2 x3 x4 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_22_case__92(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_22_case__92 x1 x2 x3 x4 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_22_case__92")(x)++++c__case_23_case__93 x1 x2 x3 x4 x6 x7 x8 x9 x11 x12 x13 x14 x15 x16 x17@Curry.Module.Prelude.C_True st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x11)(x12)(Curry.Module.OracleFiniteMap.c_glueVBal(x2)(x3)(x13)(x1)(st))(x14)(x18)(st))(st)+c__case_23_case__93 x1 x2 x3 x4 x6 x7 x8 x9 x11 x12 x13 x14 x15 x16 x17@Curry.Module.Prelude.C_False st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))(Curry.Module.OracleFiniteMap.c__case_22(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x15)(x16)(Curry.Module.OraclePrelude.op_60(Curry.Module.OraclePrelude.op_42(Curry.Module.OracleFiniteMap.c_sIZE_RATIO(x1)(st))(x16)(x19)(st))(x15)(x20)(st))(x21)(st))(st)+c__case_23_case__93 x1 x2 x3 x4 x6 x7 x8 x9 x11 x12 x13 x14 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_23_case__93(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x11)(x12)(x13)(x14)(x15)(x16)(x)(st))(i)(xs)(st)+c__case_23_case__93 x1 x2 x3 x4 x6 x7 x8 x9 x11 x12 x13 x14 x15 x16 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_23_case__93")(x)++++c__case_24_case__94 x1 x2 x3 x4 x17@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_24_case__94 x1 x2 x3 x4 x17@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x21)(let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.OracleFiniteMap.c_sizeFM'39(x3)(x25)(st)} in let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.OracleFiniteMap.c_sizeFM'39(x4)(x26)(st)} in let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))))(Curry.Module.OracleFiniteMap.c__case_23(x2)(x3)(x4)(Curry.Module.OracleFiniteMap.c_glueVBal'46_'35selFP16'35key_l(x3)(x1)(st))(Curry.Module.OracleFiniteMap.c_glueVBal'46_'35selFP17'35elt_l(x3)(x18)(st))(Curry.Module.OracleFiniteMap.c_glueVBal'46_'35selFP18'35fm_ll(x3)(x19)(st))(Curry.Module.OracleFiniteMap.c_glueVBal'46_'35selFP19'35fm_lr(x3)(x20)(st))(Curry.Module.OracleFiniteMap.c_glueVBal'46_'35selFP12'35key_r(x4)(x21)(st))(Curry.Module.OracleFiniteMap.c_glueVBal'46_'35selFP13'35elt_r(x4)(x22)(st))(Curry.Module.OracleFiniteMap.c_glueVBal'46_'35selFP14'35fm_rl(x4)(x23)(st))(Curry.Module.OracleFiniteMap.c_glueVBal'46_'35selFP15'35fm_rr(x4)(x24)(st))(x15)(x16)(Curry.Module.OraclePrelude.op_60(Curry.Module.OraclePrelude.op_42(Curry.Module.OracleFiniteMap.c_sIZE_RATIO(x27)(st))(x15)(x28)(st))(x16)(x29)(st))(x30)(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_24_case__94 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_24_case__94(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_24_case__94 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_24_case__94")(x)++++c__case_25_case__95 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_25_case__95 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_24(x2)(x3)(x4)(Curry.Module.OracleFiniteMap.c_isEmptyFM'39(x4)(x1)(st))(x6)(st))(st)+c__case_25_case__95 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_25_case__95(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_25_case__95 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_25_case__95")(x)++++c__case_21_case__96 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_21_case__96 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_21_case__96(x1)(x)(st))(i)(xs)(st)+c__case_21_case__96 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_21_case__96")(x)++++c__case_20_case__97 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_20_case__97 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_20_case__97(x1)(x)(st))(i)(xs)(st)+c__case_20_case__97 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_20_case__97")(x)++++c__case_19_case__98 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_19_case__98 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_19_case__98(x1)(x)(st))(i)(xs)(st)+c__case_19_case__98 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_19_case__98")(x)++++c__case_18_case__99 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_18_case__99 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_18_case__99(x1)(x)(st))(i)(xs)(st)+c__case_18_case__99 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_18_case__99")(x)++++c__case_17_case__100 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_17_case__100 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_17_case__100(x1)(x)(st))(i)(xs)(st)+c__case_17_case__100 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_17_case__100")(x)++++c__case_16_case__101 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_16_case__101 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_16_case__101(x1)(x)(st))(i)(xs)(st)+c__case_16_case__101 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_16_case__101")(x)++++c__case_15_case__102 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_15_case__102 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_15_case__102(x1)(x)(st))(i)(xs)(st)+c__case_15_case__102 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_15_case__102")(x)++++c__case_14_case__103 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_14_case__103 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_14_case__103(x1)(x)(st))(i)(xs)(st)+c__case_14_case__103 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_14_case__103")(x)++++c__case_11_case__104 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_11_case__104 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkVBalBranch(x2)(x5)(x6)(x8)(Curry.Module.OracleFiniteMap.c_splitLT(x2)(x9)(x4)(x1)(st))(x11)(st))(st)+c__case_11_case__104 x1 x2 x4 x5 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_11_case__104(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_11_case__104 x1 x2 x4 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_11_case__104")(x)++++c__case_12_case__105 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_splitLT(x2)(x8)(x4)(x1)(st))(st)+c__case_12_case__105 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_11(x2)(x4)(x5)(x6)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x4)(x5)(x1)(st))(x11)(st))(st)+c__case_12_case__105 x1 x2 x4 x5 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_12_case__105(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_12_case__105 x1 x2 x4 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_12_case__105")(x)++++c__case_13_case__106 x1 x2 x4 x3@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_EmptyFM)(st)+c__case_13_case__106 x1 x2 x4 x3@(Curry.Module.FiniteMap.C_Branch x5 x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c__case_12(x2)(x4)(x5)(x6)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x10)(st))(x11)(st))(st)+c__case_13_case__106 x1 x2 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_13_case__106(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_13_case__106 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_13_case__106")(x)++++c__case_8_case__107 x1 x2 x4 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_8_case__107 x1 x2 x4 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_splitGT(x2)(x9)(x4)(x1)(st))(st)+c__case_8_case__107 x1 x2 x4 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_8_case__107(x1)(x2)(x4)(x9)(x)(st))(i)(xs)(st)+c__case_8_case__107 x1 x2 x4 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_8_case__107")(x)++++c__case_9_case__108 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkVBalBranch(x2)(x5)(x6)(Curry.Module.OracleFiniteMap.c_splitGT(x2)(x8)(x4)(x1)(st))(x9)(x11)(st))(st)+c__case_9_case__108 x1 x2 x4 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c__case_8(x2)(x4)(x5)(x9)(Curry.Module.OraclePrelude.op_61_61(x4)(x5)(x1)(st))(x12)(st))(st)+c__case_9_case__108 x1 x2 x4 x5 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_9_case__108(x1)(x2)(x4)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_9_case__108 x1 x2 x4 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_9_case__108")(x)++++c__case_10_case__109 x1 x2 x4 x3@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FiniteMap.C_EmptyFM)(st)+c__case_10_case__109 x1 x2 x4 x3@(Curry.Module.FiniteMap.C_Branch x5 x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleFiniteMap.c__case_9(x2)(x4)(x5)(x6)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x10)(st))(x11)(st))(st)+c__case_10_case__109 x1 x2 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_10_case__109(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_10_case__109 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_10_case__109")(x)++++c__case_6_case__110 x1 x3 x4 x6@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x3)(x4))(st)+c__case_6_case__110 x1 x3 x4 x6@(Curry.Module.FiniteMap.C_Branch x8 x9 x10 x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_findMin(Curry.Module.FiniteMap.C_Branch(x8)(x9)(x10)(x11)(x12))(x1)(st))(st)+c__case_6_case__110 x1 x3 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_6_case__110(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_6_case__110 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_6_case__110")(x)++++c__case_7_case__111 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_6(x3)(x4)(x6)(x1)(st))(st)+c__case_7_case__111 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_7_case__111(x1)(x)(st))(i)(xs)(st)+c__case_7_case__111 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_7_case__111")(x)++++c__case_4_case__112 x1 x2 x4 x5 x8 x7@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_4_case__112 x1 x2 x4 x5 x8 x7@(Curry.Module.FiniteMap.C_Branch x9 x10 x11 x12 x13) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x4)(x5)(Curry.Module.OracleFiniteMap.c_deleteMin(x2)(Curry.Module.FiniteMap.C_Branch(x9)(x10)(x11)(x12)(x13))(x1)(st))(x8)(x14)(st))(st)+c__case_4_case__112 x1 x2 x4 x5 x8 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_4_case__112(x1)(x2)(x4)(x5)(x8)(x)(st))(i)(xs)(st)+c__case_4_case__112 x1 x2 x4 x5 x8 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_4_case__112")(x)++++c__case_5_case__113 x1 x2 x3@(Curry.Module.FiniteMap.C_Branch x4 x5 x6 x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_4(x2)(x4)(x5)(x8)(x7)(x1)(st))(st)+c__case_5_case__113 x1 x2 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_5_case__113(x1)(x2)(x)(st))(i)(xs)(st)+c__case_5_case__113 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_5_case__113")(x)++++c__case_2_case__114 x1 x3 x4 x7@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x3)(x4))(st)+c__case_2_case__114 x1 x3 x4 x7@(Curry.Module.FiniteMap.C_Branch x8 x9 x10 x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_findMax(Curry.Module.FiniteMap.C_Branch(x8)(x9)(x10)(x11)(x12))(x1)(st))(st)+c__case_2_case__114 x1 x3 x4 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_2_case__114(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_2_case__114 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_2_case__114")(x)++++c__case_3_case__115 x1 x2@(Curry.Module.FiniteMap.C_Branch x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_2(x3)(x4)(x7)(x1)(st))(st)+c__case_3_case__115 x1 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_3_case__115(x1)(x)(st))(i)(xs)(st)+c__case_3_case__115 x1 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_3_case__115")(x)++++c__case_0_case__116 x1 x2 x4 x5 x7 x8@Curry.Module.FiniteMap.C_EmptyFM st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_0_case__116 x1 x2 x4 x5 x7 x8@(Curry.Module.FiniteMap.C_Branch x9 x10 x11 x12 x13) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OracleFiniteMap.c_mkBalBranch(x4)(x5)(x7)(Curry.Module.OracleFiniteMap.c_deleteMax(x2)(Curry.Module.FiniteMap.C_Branch(x9)(x10)(x11)(x12)(x13))(x1)(st))(x14)(st))(st)+c__case_0_case__116 x1 x2 x4 x5 x7 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_0_case__116(x1)(x2)(x4)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_0_case__116 x1 x2 x4 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_0_case__116")(x)++++c__case_1_case__117 x1 x2 x3@(Curry.Module.FiniteMap.C_Branch x4 x5 x6 x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c__case_0(x2)(x4)(x5)(x7)(x8)(x1)(st))(st)+c__case_1_case__117 x1 x2 (Curry.Module.FiniteMap.C_FiniteMapOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFiniteMap.c__case_1_case__117(x1)(x2)(x)(st))(i)(xs)(st)+c__case_1_case__117 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFiniteMap._case_1_case__117")(x)++
+ dist/build/Curry/Module/OracleFlatCurry.hs view
@@ -0,0 +1,184 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleFlatCurry (module Curry.Module.OracleFlatCurry) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.FlatCurry+import Curry.Module.Directory+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.Prelude+import Curry.Module.ReadShowTerm+import Curry.Module.OracleDirectory+import Curry.Module.OracleDistribution+import Curry.Module.OracleFileGoodies+import Curry.Module.OraclePrelude+import Curry.Module.OracleReadShowTerm++++-- begin included++++-- end included++c_readFlatCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readFlatCurry x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurry.c_readFlatCurryWithParseOptions(x2)(Curry.Module.OracleDistribution.c_setQuiet(Curry.Module.Prelude.C_True)(Curry.Module.OracleDistribution.c_defaultParams(x1)(st))(x3)(st))(x4)(st))(st)++++c_readFlatCurryWithParseOptions :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Distribution.C_FrontendParams -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readFlatCurryWithParseOptions x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_lookupFileInLoadPath(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x1)(st))(x4)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurry.c_readFlatCurryWithParseOptions'46_'35lambda2(x3)(x2)))))(x5)(st))(st)++++c_readFlatCurryWithParseOptions'46_'35lambda2 :: Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readFlatCurryWithParseOptions'46_'35lambda2 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_lookupFileInLoadPath(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(x1)(st))(x5)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurry.c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3(x4)(x2)(x3)))))(x6)(st))(st)++++c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3 :: (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Distribution.C_FrontendParams -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleFlatCurry.c__case_5(x2)(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Nothing)(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.C_Nothing)(x6)(st))(x7)(st))(x8)(st))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_findFileInLoadPath(Curry.Module.OraclePrelude.op_43_43(x4)((Curry.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)))))(x9)(st))(x10)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurry.c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4))))(x11)(st))(x12)(st))(st)++++c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readFlatCurryWithParseOptions'46_'35lambda2'46_'35lambda3'46_'35lambda4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c_readFlatCurryFile(x2)(x1)(st))(st)++++c_flatCurryFileName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_flatCurryFileName x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OracleDistribution.c_inCurrySubdir(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(Curry.Module.OracleFileGoodies.c_stripSuffix(x1)(st))(x2)(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(x4)(st))(x5)(st))(st)++++c_flatCurryIntName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_flatCurryIntName x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OracleDistribution.c_inCurrySubdir(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(Curry.Module.OracleFileGoodies.c_stripSuffix(x1)(st))(x2)(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))(x4)(st))(x5)(st))(st)++++c_readFlatCurryFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readFlatCurryFile x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurry.c_readFlatCurryFile'46_'35lambda6(x2)))))(x3)(st))(st)++++c_readFlatCurryFile'46readExistingFCY'4614 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_readFlatCurryFile'46readExistingFCY'4614 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurry.c_readFlatCurryFile'46readExistingFCY'4614'46_'35lambda5))))(x3)(st))(st)++++c_readFlatCurryFile'46readExistingFCY'4614'46_'35lambda5 :: (Curry t1) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1))+c_readFlatCurryFile'46readExistingFCY'4614'46_'35lambda5 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.OracleReadShowTerm.c_readTerm(x2)(x1)(st))(x3)(st))(st)++++c_readFlatCurryFile'46_'35lambda6 :: (Curry t2) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t2))+c_readFlatCurryFile'46_'35lambda6 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c__case_4(x2)(x3)(x1)(st))(st)++++c_readFlatCurryFile'46_'35lambda6'46_'35lambda7 :: (Curry t3) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t3))+c_readFlatCurryFile'46_'35lambda6'46_'35lambda7 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c__case_3(x2)(x3)(x4)(x1)(st))(st)++++c_readFlatCurryInt :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readFlatCurryInt x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x1)(st))(x3)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurry.c_readFlatCurryInt'46_'35lambda8(x2)))))(x4)(st))(st)++++c_readFlatCurryInt'46_'35lambda8 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readFlatCurryInt'46_'35lambda8 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))(x1)(st))(x4)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurry.c_readFlatCurryInt'46_'35lambda8'46_'35lambda9(x3)(x2)))))(x5)(st))(st)++++c_readFlatCurryInt'46_'35lambda8'46_'35lambda9 :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readFlatCurryInt'46_'35lambda8'46_'35lambda9 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleFlatCurry.c__case_2(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_124_124(x2)(x4)(x1)(st))(x5)(st))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_findFileInLoadPath(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))(x6)(st))(x7)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurry.c_readFlatCurryInt'46_'35lambda8'46_'35lambda9'46_'35lambda10))))(x8)(st))(x9)(st))(st)++++c_readFlatCurryInt'46_'35lambda8'46_'35lambda9'46_'35lambda10 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_readFlatCurryInt'46_'35lambda8'46_'35lambda9'46_'35lambda10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c_readFlatCurryFile(x2)(x1)(st))(st)++++c_writeFCY :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeFCY x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_writeFile(x2)(Curry.Module.OracleReadShowTerm.c_showTerm(x3)(x1)(st))(x4)(st))(st)++++c_showQNameInModule :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showQNameInModule x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c__case_1(x2)(x3)(x1)(st))(st)++++c__case_1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c__case_1_case__5(x1)(x2)(x3)(st))(st)++++c__case_0 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c__case_0_case__4(x1)(x4)(x5)(x6)(st))(st)++++c__case_2 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c__case_2_case__3(x1)(x3)(x5)(st))(st)++++c__case_3 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c__case_3_case__2(x1)(x2)(x3)(x4)(st))(st)++++c__case_4 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c__case_4_case__1(x1)(x2)(x3)(st))(st)++++c__case_5 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c__case_5_case__0(x1)(x3)(x4)(x6)(st))(st)++++c__case_5_case__0 x1 x3 x4 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_done(x1)(st))(st)+c__case_5_case__0 x1 x3 x4 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleDistribution.c_callFrontendWithParams(Curry.Module.Distribution.C_FCY)(x3)(x4)(x1)(st))(st)+c__case_5_case__0 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurry.c__case_5_case__0(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_5_case__0 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurry._case_5_case__0")(x)++++c__case_4_case__1 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c_readFlatCurryFile'46readExistingFCY'4614(x2)(x1)(st))(st)+c__case_4_case__1 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleDistribution.c_inCurrySubdir(x2)(x1)(st)} in let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(x4)(x5)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurry.c_readFlatCurryFile'46_'35lambda6'46_'35lambda7(x2)(x4)))))(x6)(st))(st))(st)+c__case_4_case__1 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurry.c__case_4_case__1(x1)(x2)(x)(st))(i)(xs)(st)+c__case_4_case__1 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurry._case_4_case__1")(x)++++c__case_3_case__2 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurry.c_readFlatCurryFile'46readExistingFCY'4614(x3)(x1)(st))(st)+c__case_3_case__2 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('X'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.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('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))))))))))))(x1)(st))(x5)(st))(x6)(st))(st)+c__case_3_case__2 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurry.c__case_3_case__2(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_3_case__2 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurry._case_3_case__2")(x)++++c__case_2_case__3 x1 x3 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OracleDistribution.c_callFrontend(Curry.Module.Distribution.C_FINT)(x1)(st))(x3)(x6)(st))(st)+c__case_2_case__3 x1 x3 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_done(x1)(st))(st)+c__case_2_case__3 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurry.c__case_2_case__3(x1)(x3)(x)(st))(i)(xs)(st)+c__case_2_case__3 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurry._case_2_case__3")(x)++++c__case_0_case__4 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_0_case__4 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x4)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List))(x5)(x1)(st))(x7)(st))(st)+c__case_0_case__4 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurry.c__case_0_case__4(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_0_case__4 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurry._case_0_case__4")(x)++++c__case_1_case__5 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurry.c__case_0(x2)(x4)(x5)(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x4)(x2)(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_1_case__5 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurry.c__case_1_case__5(x1)(x2)(x)(st))(i)(xs)(st)+c__case_1_case__5 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurry._case_1_case__5")(x)++
+ dist/build/Curry/Module/OracleFlatCurryGoodies.hs view
@@ -0,0 +1,1881 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleFlatCurryGoodies (module Curry.Module.OracleFlatCurryGoodies) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.FlatCurryGoodies+import Curry.Module.FlatCurry+import Curry.Module.Prelude+import Curry.Module.OracleFlatCurry+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_trProg :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> t0))))))))))) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trProg x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_53(x2)(x3)(x1)(st))(st)++++c_progName :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_progName x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trProg(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_progName'46_'35lambda2))(st))))))(st)++++c_progName'46_'35lambda2 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_progName'46_'35lambda2 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_progImports :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_progImports x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trProg(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_progImports'46_'35lambda3))(st))))))(st)++++c_progImports'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_progImports'46_'35lambda3 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_progTypes :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl))+c_progTypes x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trProg(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_progTypes'46_'35lambda4))(st))))))(st)++++c_progTypes'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl+c_progTypes'46_'35lambda4 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)++++c_progFuncs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl))+c_progFuncs x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trProg(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_progFuncs'46_'35lambda5))(st))))))(st)++++c_progFuncs'46_'35lambda5 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl+c_progFuncs'46_'35lambda5 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)++++c_progOps :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl))+c_progOps x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trProg(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_progOps'46_'35lambda6))(st))))))(st)++++c_progOps'46_'35lambda6 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl+c_progOps'46_'35lambda6 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)++++c_updProg :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.FlatCurry.C_FuncDecl))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))+c_updProg x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trProg(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_updProg'46prog'4640(x5)(x3)(x2)(x6)(x4)))(st))))))(st)++++c_updProg'46prog'4640 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.FlatCurry.C_FuncDecl))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog+c_updProg'46prog'4640 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x1 st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))))(Curry.Module.FlatCurry.C_Prog(Curry.Module.Oracle.c_apply(x4)(x7)(x1)(st))(Curry.Module.Oracle.c_apply(x3)(x8)(x12)(st))(Curry.Module.Oracle.c_apply(x6)(x9)(x13)(st))(Curry.Module.Oracle.c_apply(x2)(x10)(x14)(st))(Curry.Module.Oracle.c_apply(x5)(x11)(x15)(st)))(st)++++c_updProgName :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))+c_updProgName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updProg(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updProgImports :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))+c_updProgImports x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updProgTypes :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))+c_updProgTypes x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updProgFuncs :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.FlatCurry.C_FuncDecl))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))+c_updProgFuncs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updProgOps :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))))+c_updProgOps x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_allVarsInProg :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_allVarsInProg x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.OracleFlatCurryGoodies.c_allVarsInFunc(x1)(st))(x2)(st))(Curry.Module.OracleFlatCurryGoodies.c_progFuncs(x3)(st))(x4)(st))(st)++++c_updProgExps :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))))+c_updProgExps x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updProgFuncs))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.c_map))(st))(Curry.Module.OracleFlatCurryGoodies.c_updFuncBody(x1)(st))(x2)(st))(x3)(st))(st)++++c_rnmAllVarsInProg :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))))+c_rnmAllVarsInProg x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updProgFuncs))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.c_map))(st))(Curry.Module.OracleFlatCurryGoodies.c_rnmAllVarsInFunc(x1)(st))(x2)(st))(x3)(st))(st)++++c_updQNamesInProg :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog))+c_updQNamesInProg x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryGoodies.c_updProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.OracleFlatCurryGoodies.c_updQNamesInType(x2)(x1)(st))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.OracleFlatCurryGoodies.c_updQNamesInFunc(x2)(x3)(st))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.OracleFlatCurryGoodies.c_updOpName(x2)(x4)(st))))))(x5)(st))(st)++++c_rnmProg :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog+c_rnmProg x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_updProgName(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(x2)))))(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_updQNamesInProg(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_rnmProg'46rnm'4662(x2)(x3)))))(x4)(st))(x3)(x5)(st))(x6)(st))(st)++++c_rnmProg'46rnm'4662 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0+c_rnmProg'46rnm'4662 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_52(x2)(x3)(x4)(x1)(st))(st)++++c_trType :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> t0))))))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> t0))))))))) -> Curry.Module.FlatCurry.C_TypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trType x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_49(x2)(x3)(x4)(x1)(st))(st)++++c_typeName :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_typeName x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trType(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_typeName'46_'35lambda7))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_typeName'46_'35lambda8))(st))))))(st)++++c_typeName'46_'35lambda7 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_typeName'46_'35lambda7 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_typeName'46_'35lambda8 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_typeName'46_'35lambda8 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_typeVisibility :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))+c_typeVisibility x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trType(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_typeVisibility'46_'35lambda9))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_typeVisibility'46_'35lambda10))(st))))))(st)++++c_typeVisibility'46_'35lambda9 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility+c_typeVisibility'46_'35lambda9 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_typeVisibility'46_'35lambda10 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility+c_typeVisibility'46_'35lambda10 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_typeParams :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_typeParams x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trType(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_typeParams'46_'35lambda11))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_typeParams'46_'35lambda12))(st))))))(st)++++c_typeParams'46_'35lambda11 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_typeParams'46_'35lambda11 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)++++c_typeParams'46_'35lambda12 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_typeParams'46_'35lambda12 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)++++c_typeConsDecls :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl))+c_typeConsDecls x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trType(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_typeConsDecls'46_'35lambda13))(st))(Curry.Module.OraclePrelude.c_failed(x1)(st))))))(st)++++c_typeConsDecls'46_'35lambda13 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl+c_typeConsDecls'46_'35lambda13 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)++++c_typeSyn :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))+c_typeSyn x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trType(Curry.Module.OraclePrelude.c_failed(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_typeSyn'46_'35lambda14))(st))))))(st)++++c_typeSyn'46_'35lambda14 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_typeSyn'46_'35lambda14 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)++++c_isTypeSyn :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isTypeSyn x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trType(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_isTypeSyn'46_'35lambda15))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_isTypeSyn'46_'35lambda16))(st))))))(st)++++c_isTypeSyn'46_'35lambda15 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTypeSyn'46_'35lambda15 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isTypeSyn'46_'35lambda16 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTypeSyn'46_'35lambda16 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)++++c_isDataTypeDecl :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isDataTypeDecl x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trType(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_isDataTypeDecl'46_'35lambda17))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_isDataTypeDecl'46_'35lambda18))(st))))))(st)++++c_isDataTypeDecl'46_'35lambda17 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isDataTypeDecl'46_'35lambda17 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_not(Curry.Module.OraclePrelude.c_null(x5)(x1)(st))(x6)(st))(st)++++c_isDataTypeDecl'46_'35lambda18 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isDataTypeDecl'46_'35lambda18 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isExternalType :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isExternalType x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trType(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_isExternalType'46_'35lambda19))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_isExternalType'46_'35lambda20))(st))))))(st)++++c_isExternalType'46_'35lambda19 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isExternalType'46_'35lambda19 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_null(x5)(x1)(st))(st)++++c_isExternalType'46_'35lambda20 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isExternalType'46_'35lambda20 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_updType :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl))+c_updType x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trType(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_updType'46typ'46148(x5)(x2)(x4)(x3)))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_updType'46typesyn'46148(x2)(x4)(x6)(x3)))(st))))))(st)++++c_updType'46typ'46148 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl+c_updType'46typ'46148 x2 x3 x4 x5 x6 x7 x8 x9 x1 st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(Curry.Module.FlatCurry.C_Type(Curry.Module.Oracle.c_apply(x3)(x6)(x1)(st))(Curry.Module.Oracle.c_apply(x5)(x7)(x10)(st))(Curry.Module.Oracle.c_apply(x4)(x8)(x11)(st))(Curry.Module.Oracle.c_apply(x2)(x9)(x12)(st)))(st)++++c_updType'46typesyn'46148 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl+c_updType'46typesyn'46148 x2 x3 x4 x5 x6 x7 x8 x9 x1 st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(Curry.Module.FlatCurry.C_TypeSyn(Curry.Module.Oracle.c_apply(x2)(x6)(x1)(st))(Curry.Module.Oracle.c_apply(x5)(x7)(x10)(st))(Curry.Module.Oracle.c_apply(x3)(x8)(x11)(st))(Curry.Module.Oracle.c_apply(x4)(x9)(x12)(st)))(st)++++c_updTypeName :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl))+c_updTypeName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updType(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updTypeVisibility :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl))+c_updTypeVisibility x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updTypeParams :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl))+c_updTypeParams x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updTypeConsDecls :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl))+c_updTypeConsDecls x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updTypeSynonym :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl))))+c_updTypeSynonym x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updType(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_updQNamesInType :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl))+c_updQNamesInType x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryGoodies.c_updType(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.OracleFlatCurryGoodies.c_updQNamesInConsDecl(x2)(x1)(st))))))(Curry.Module.OracleFlatCurryGoodies.c_updQNamesInTypeExpr(x2)(x3)(st))(x4)(st))(st)++++c_trCons :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> t0))))))))) -> Curry.Module.FlatCurry.C_ConsDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trCons x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_48(x2)(x3)(x1)(st))(st)++++c_consName :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_consName x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trCons(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_consName'46_'35lambda21))(st))))))(st)++++c_consName'46_'35lambda21 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_consName'46_'35lambda21 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_consArity :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))+c_consArity x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trCons(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_consArity'46_'35lambda22))(st))))))(st)++++c_consArity'46_'35lambda22 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_consArity'46_'35lambda22 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_consVisibility :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))+c_consVisibility x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trCons(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_consVisibility'46_'35lambda23))(st))))))(st)++++c_consVisibility'46_'35lambda23 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility+c_consVisibility'46_'35lambda23 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)++++c_consArgs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr))+c_consArgs x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trCons(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_consArgs'46_'35lambda24))(st))))))(st)++++c_consArgs'46_'35lambda24 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr+c_consArgs'46_'35lambda24 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)++++c_updCons :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl))+c_updCons x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trCons(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OracleFlatCurryGoodies.c_updCons'46cons'46192(x3)(x5)(x2)(x4)))(st))))))(st)++++c_updCons'46cons'46192 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl+c_updCons'46cons'46192 x2 x3 x4 x5 x6 x7 x8 x9 x1 st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(Curry.Module.FlatCurry.C_Cons(Curry.Module.Oracle.c_apply(x4)(x6)(x1)(st))(Curry.Module.Oracle.c_apply(x2)(x7)(x10)(st))(Curry.Module.Oracle.c_apply(x5)(x8)(x11)(st))(Curry.Module.Oracle.c_apply(x3)(x9)(x12)(st)))(st)++++c_updConsName :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl))+c_updConsName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updCons(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updConsArity :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl))+c_updConsArity x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updCons(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updConsVisibility :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl))+c_updConsVisibility x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updCons(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updConsArgs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl))))+c_updConsArgs x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updCons(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_updQNamesInConsDecl :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_ConsDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl))+c_updQNamesInConsDecl x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryGoodies.c_updCons(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.OracleFlatCurryGoodies.c_updQNamesInTypeExpr(x2)(x1)(st))))))(x3)(st))(st)++++c_tVarIndex :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_tVarIndex x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_47(x2)(x1)(st))(st)++++c_domain :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_domain x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_46(x2)(x1)(st))(st)++++c_range :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_range x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_45(x2)(x1)(st))(st)++++c_tConsName :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_tConsName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_44(x2)(x1)(st))(st)++++c_tConsArgs :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr+c_tConsArgs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_43(x2)(x1)(st))(st)++++c_trTypeExpr :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trTypeExpr x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_42(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_isTVar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isTVar x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isTVar'46_'35lambda25))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_isTVar'46_'35lambda26))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_isTVar'46_'35lambda27))(st))))))(st)++++c_isTVar'46_'35lambda25 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTVar'46_'35lambda25 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)++++c_isTVar'46_'35lambda26 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Bool) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTVar'46_'35lambda26 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isTVar'46_'35lambda27 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTVar'46_'35lambda27 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isTCons :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isTCons x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isTCons'46_'35lambda28))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_isTCons'46_'35lambda29))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_isTCons'46_'35lambda30))(st))))))(st)++++c_isTCons'46_'35lambda28 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTCons'46_'35lambda28 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isTCons'46_'35lambda29 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Bool) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTCons'46_'35lambda29 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)++++c_isTCons'46_'35lambda30 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTCons'46_'35lambda30 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isFuncType :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isFuncType x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isFuncType'46_'35lambda31))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_isFuncType'46_'35lambda32))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_isFuncType'46_'35lambda33))(st))))))(st)++++c_isFuncType'46_'35lambda31 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncType'46_'35lambda31 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isFuncType'46_'35lambda32 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Bool) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncType'46_'35lambda32 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isFuncType'46_'35lambda33 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncType'46_'35lambda33 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)++++c_updTVars :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))+c_updTVars x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trTypeExpr(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_TCons))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_FuncType))(st))))))(st)++++c_updTCons :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))+c_updTCons x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_TVar))))(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_FuncType))(st))))))(st)++++c_updFuncTypes :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))))+c_updFuncTypes x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_TVar))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_TCons))(st))))(st))(st)++++c_argTypes :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr+c_argTypes x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_41(x2)(x1)(st))(st)++++c_resultType :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_resultType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_40(x2)(x1)(st))(st)++++c_allVarsInTypeExpr :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_allVarsInTypeExpr x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trTypeExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))((Curry.Module.Prelude.:<)))(st))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_concat))))))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_43_43))(st))))))(st)++++c_rnmAllVarsInTypeExpr :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))+c_rnmAllVarsInTypeExpr x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryGoodies.c_updTVars(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_TVar))))(x2)(x1)(st))(x3)(st))(st)++++c_updQNamesInTypeExpr :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))+c_updQNamesInTypeExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updTCons(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_updQNamesInTypeExpr'46_'35lambda34(x2)))(st))(x1)(st))(st)++++c_updQNamesInTypeExpr'46_'35lambda34 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_updQNamesInTypeExpr'46_'35lambda34 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FlatCurry.C_TCons(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(x4))(st)++++c_trOp :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0))))))) -> Curry.Module.FlatCurry.C_OpDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trOp x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_39(x2)(x3)(x1)(st))(st)++++c_opName :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_opName x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trOp(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleFlatCurryGoodies.c_opName'46_'35lambda35))(st))))))(st)++++c_opName'46_'35lambda35 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Fixity -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_opName'46_'35lambda35 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_opFixity :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity))+c_opFixity x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trOp(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleFlatCurryGoodies.c_opFixity'46_'35lambda36))(st))))))(st)++++c_opFixity'46_'35lambda36 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Fixity -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity+c_opFixity'46_'35lambda36 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_opPrecedence :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))+c_opPrecedence x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trOp(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleFlatCurryGoodies.c_opPrecedence'46_'35lambda37))(st))))))(st)++++c_opPrecedence'46_'35lambda37 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Fixity -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_opPrecedence'46_'35lambda37 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)++++c_updOp :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl))+c_updOp x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trOp(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleFlatCurryGoodies.c_updOp'46op'46305(x3)(x2)(x4)))(st))))))(st)++++c_updOp'46op'46305 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Fixity -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl+c_updOp'46op'46305 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.FlatCurry.C_Op(Curry.Module.Oracle.c_apply(x3)(x5)(x1)(st))(Curry.Module.Oracle.c_apply(x2)(x6)(x8)(st))(Curry.Module.Oracle.c_apply(x4)(x7)(x9)(st)))(st)++++c_updOpName :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl))+c_updOpName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updOp(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updOpFixity :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Fixity -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl))+c_updOpFixity x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updOp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updOpPrecedence :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_OpDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl))))+c_updOpPrecedence x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updOp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_trFunc :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> t0))))))))))) -> Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trFunc x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_38(x2)(x3)(x1)(st))(st)++++c_funcName :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_funcName x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trFunc(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_funcName'46_'35lambda38))(st))))))(st)++++c_funcName'46_'35lambda38 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_funcName'46_'35lambda38 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_funcArity :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))+c_funcArity x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trFunc(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_funcArity'46_'35lambda39))(st))))))(st)++++c_funcArity'46_'35lambda39 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_funcArity'46_'35lambda39 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_funcVisibility :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))+c_funcVisibility x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trFunc(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_funcVisibility'46_'35lambda40))(st))))))(st)++++c_funcVisibility'46_'35lambda40 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility+c_funcVisibility'46_'35lambda40 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)++++c_funcType :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))+c_funcType x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trFunc(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_funcType'46_'35lambda41))(st))))))(st)++++c_funcType'46_'35lambda41 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_funcType'46_'35lambda41 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)++++c_funcRule :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))+c_funcRule x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trFunc(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_funcRule'46_'35lambda42))(st))))))(st)++++c_funcRule'46_'35lambda42 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule+c_funcRule'46_'35lambda42 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)++++c_updFunc :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))+c_updFunc x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trFunc(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))))))(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.cp(Curry.Module.Prelude.pa)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))))))))))(Curry.Module.OracleFlatCurryGoodies.c_updFunc'46func'46352(x3)(x2)(x6)(x5)(x4)))(st))))))(st)++++c_updFunc'46func'46352 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Visibility -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl+c_updFunc'46func'46352 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x1 st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))))(Curry.Module.FlatCurry.C_Func(Curry.Module.Oracle.c_apply(x3)(x7)(x1)(st))(Curry.Module.Oracle.c_apply(x2)(x8)(x12)(st))(Curry.Module.Oracle.c_apply(x6)(x9)(x13)(st))(Curry.Module.Oracle.c_apply(x5)(x10)(x14)(st))(Curry.Module.Oracle.c_apply(x4)(x11)(x15)(st)))(st)++++c_updFuncName :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))+c_updFuncName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updFunc(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updFuncArity :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))+c_updFuncArity x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updFuncVisibility :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Visibility -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))+c_updFuncVisibility x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updFuncType :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))+c_updFuncType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updFuncRule :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))))+c_updFuncRule x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_isExternal :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isExternal x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleFlatCurryGoodies.c_isRuleExternal(x1)(st))(Curry.Module.OracleFlatCurryGoodies.c_funcRule(x2)(st))(x3)(st))(st)++++c_allVarsInFunc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_allVarsInFunc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleFlatCurryGoodies.c_allVarsInRule(x1)(st))(Curry.Module.OracleFlatCurryGoodies.c_funcRule(x2)(st))(x3)(st))(st)++++c_funcArgs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_funcArgs x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleFlatCurryGoodies.c_ruleArgs(x1)(st))(Curry.Module.OracleFlatCurryGoodies.c_funcRule(x2)(st))(x3)(st))(st)++++c_funcBody :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_funcBody x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleFlatCurryGoodies.c_ruleBody(x1)(st))(Curry.Module.OracleFlatCurryGoodies.c_funcRule(x2)(st))(x3)(st))(st)++++c_funcRHS :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr+c_funcRHS x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryGoodies.c__case_37(x2)(Curry.Module.OraclePrelude.c_not(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_isExternal(x1)(st))(x2)(x3)(st))(x4)(st))(x5)(st))(st)++++c_funcRHS'46orCase'46374 :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr+c_funcRHS'46orCase'46374 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryGoodies.c__case_35(x2)(Curry.Module.OracleFlatCurryGoodies.c_isOr(x2)(x1)(st))(x3)(st))(st)++++c_rnmAllVarsInFunc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))))+c_rnmAllVarsInFunc x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_rnmAllVarsInRule))))(x1)(st))(st)++++c_updQNamesInFunc :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))+c_updQNamesInFunc x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryGoodies.c_updFunc(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.OracleFlatCurryGoodies.c_updQNamesInTypeExpr(x2)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_updQNamesInRule(x3)(st))(x2)(x4)(st))(x5)(st))(st)++++c_updFuncArgs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))))+c_updFuncArgs x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleFlatCurryGoodies.c_updFuncRule(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updRuleArgs))))(x2)(st))(st)++++c_updFuncBody :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_FuncDecl -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl))))+c_updFuncBody x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleFlatCurryGoodies.c_updFuncRule(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updRuleBody))))(x2)(st))(st)++++c_trRule :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trRule x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_32(x2)(x3)(x4)(x1)(st))(st)++++c_ruleArgs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_ruleArgs x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trRule(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_ruleArgs'46_'35lambda43))(st))(Curry.Module.OraclePrelude.c_failed(x1)(st))))))(st)++++c_ruleArgs'46_'35lambda43 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_ruleArgs'46_'35lambda43 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_ruleBody :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_ruleBody x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trRule(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_ruleBody'46_'35lambda44))(st))(Curry.Module.OraclePrelude.c_failed(x1)(st))))))(st)++++c_ruleBody'46_'35lambda44 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_ruleBody'46_'35lambda44 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_ruleExtDecl :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_ruleExtDecl x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trRule(Curry.Module.OraclePrelude.c_failed(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_isRuleExternal :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isRuleExternal x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trRule(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_isRuleExternal'46_'35lambda45))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isRuleExternal'46_'35lambda46))))))))(st)++++c_isRuleExternal'46_'35lambda45 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isRuleExternal'46_'35lambda45 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isRuleExternal'46_'35lambda46 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isRuleExternal'46_'35lambda46 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)++++c_updRule :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))+c_updRule x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trRule(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_updRule'46rule'46409(x2)(x3)))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updRule'46ext'46409(x4)))))))))(st)++++c_updRule'46rule'46409 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule+c_updRule'46rule'46409 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Rule(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(Curry.Module.Oracle.c_apply(x3)(x5)(x6)(st)))(st)++++c_updRule'46ext'46409 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule+c_updRule'46ext'46409 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FlatCurry.C_External(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st)))(st)++++c_updRuleArgs :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))+c_updRuleArgs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updRule(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updRuleBody :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))+c_updRuleBody x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updRule(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updRuleExtDecl :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))+c_updRuleExtDecl x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updRule(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(x1)(st))(st)++++c_allVarsInRule :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_allVarsInRule x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trRule(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_allVarsInRule'46_'35lambda47))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_allVarsInRule'46_'35lambda48))))))))(st)++++c_allVarsInRule'46_'35lambda47 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_allVarsInRule'46_'35lambda47 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OracleFlatCurryGoodies.c_allVars(x3)(x1)(st))(x4)(st))(st)++++c_allVarsInRule'46_'35lambda48 :: (Curry t1003) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1003+c_allVarsInRule'46_'35lambda48 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)++++c_rnmAllVarsInRule :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))+c_rnmAllVarsInRule x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryGoodies.c_updRule(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(Curry.Module.OracleFlatCurryGoodies.c_rnmAllVars(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x3)(st))(st)++++c_updQNamesInRule :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Rule -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule))))+c_updQNamesInRule x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updRuleBody))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updQNames))))(x1)(st))(st)++++c_trCombType :: (Curry t0) => t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0))) -> t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.FlatCurry.C_CombType -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trCombType x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_31(x2)(x3)(x4)(x5)(x6)(x1)(st))(st)++++c_isCombTypeFuncCall :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isCombTypeFuncCall x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trCombType(Curry.Module.Prelude.C_True)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeFuncCall'46_'35lambda49))))(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeFuncCall'46_'35lambda50))))))))(st)++++c_isCombTypeFuncCall'46_'35lambda49 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeFuncCall'46_'35lambda49 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isCombTypeFuncCall'46_'35lambda50 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeFuncCall'46_'35lambda50 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isCombTypeFuncPartCall :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isCombTypeFuncPartCall x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trCombType(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeFuncPartCall'46_'35lambda51))))(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeFuncPartCall'46_'35lambda52))))))))(st)++++c_isCombTypeFuncPartCall'46_'35lambda51 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeFuncPartCall'46_'35lambda51 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)++++c_isCombTypeFuncPartCall'46_'35lambda52 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeFuncPartCall'46_'35lambda52 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isCombTypeConsCall :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isCombTypeConsCall x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trCombType(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeConsCall'46_'35lambda53))))(Curry.Module.Prelude.C_True)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeConsCall'46_'35lambda54))))))))(st)++++c_isCombTypeConsCall'46_'35lambda53 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeConsCall'46_'35lambda53 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isCombTypeConsCall'46_'35lambda54 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeConsCall'46_'35lambda54 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isCombTypeConsPartCall :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isCombTypeConsPartCall x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trCombType(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeConsPartCall'46_'35lambda55))))(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeConsPartCall'46_'35lambda56))))))))(st)++++c_isCombTypeConsPartCall'46_'35lambda55 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeConsPartCall'46_'35lambda55 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_isCombTypeConsPartCall'46_'35lambda56 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCombTypeConsPartCall'46_'35lambda56 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)++++c_missingArgs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))+c_missingArgs x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trCombType(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_varNr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_varNr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_30(x2)(x1)(st))(st)++++c_literal :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal+c_literal x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_29(x2)(x1)(st))(st)++++c_combType :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_CombType+c_combType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_28(x2)(x1)(st))(st)++++c_combName :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_combName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_27(x2)(x1)(st))(st)++++c_combArgs :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr+c_combArgs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_26(x2)(x1)(st))(st)++++c_missingCombArgs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))+c_missingCombArgs x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleFlatCurryGoodies.c_missingArgs(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_combType))))(x2)(st))(st)++++c_letBinds :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)+c_letBinds x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_25(x2)(x1)(st))(st)++++c_letBody :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_letBody x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_24(x2)(x1)(st))(st)++++c_freeVars :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_freeVars x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_23(x2)(x1)(st))(st)++++c_freeExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_freeExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_22(x2)(x1)(st))(st)++++c_orExps :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr+c_orExps x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_21(x2)(x1)(st))(st)++++c_caseType :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_CaseType+c_caseType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_20(x2)(x1)(st))(st)++++c_caseExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_caseExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_19(x2)(x1)(st))(st)++++c_caseBranches :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_BranchExpr+c_caseBranches x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_18(x2)(x1)(st))(st)++++c_isVar :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isVar x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_17(x2)(x1)(st))(st)++++c_isLit :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isLit x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_16(x2)(x1)(st))(st)++++c_isComb :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isComb x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_15(x2)(x1)(st))(st)++++c_isLet :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isLet x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_14(x2)(x1)(st))(st)++++c_isFree :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFree x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_13(x2)(x1)(st))(st)++++c_isOr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isOr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_12(x2)(x1)(st))(st)++++c_isCase :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCase x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_11(x2)(x1)(st))(st)++++c_trExpr :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0))))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CaseType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0))))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))))) -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trExpr x2 x3 x4 x5 x6 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_10(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x10)(x1)(st))(st)++++c_trExpr'46_'35lambda64 :: (Curry t231) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> t231))) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t231+c_trExpr'46_'35lambda64 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_9(x2)(x3)(x1)(st))(st)++++c_trExpr'46_'35lambda65 :: (Curry t231,Curry t232) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t231 -> Curry.RunTimeSystem.State -> t232))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> t231))) -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t232+c_trExpr'46_'35lambda65 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_8(x2)(x3)(x4)(x1)(st))(st)++++c_updVars :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_updVars x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(st))))))(st)++++c_updLiterals :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_updLiterals x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(st))))))(st)++++c_updCombs :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CombType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_updCombs x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))))(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(st))))))(st)++++c_updLets :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_updLets x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(st))(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(st))))))(st)++++c_updFrees :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_updFrees x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(st))(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(st))))))(st)++++c_updOrs :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_updOrs x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(st))(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(st))))))(st)++++c_updCases :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_CaseType -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_BranchExpr) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_updCases x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(st))(x2)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(st))))))(st)++++c_updBranches :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_updBranches x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(st))(x2)))))(st)++++c_isFuncCall :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncCall x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleFlatCurryGoodies.c_isComb(x2)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeFuncCall(x3)(st))(Curry.Module.OracleFlatCurryGoodies.c_combType(x2)(x4)(st))(x5)(st))(x6)(st))(st)++++c_isFuncPartCall :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncPartCall x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleFlatCurryGoodies.c_isComb(x2)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeFuncPartCall(x3)(st))(Curry.Module.OracleFlatCurryGoodies.c_combType(x2)(x4)(st))(x5)(st))(x6)(st))(st)++++c_isConsCall :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isConsCall x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleFlatCurryGoodies.c_isComb(x2)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeConsCall(x3)(st))(Curry.Module.OracleFlatCurryGoodies.c_combType(x2)(x4)(st))(x5)(st))(x6)(st))(st)++++c_isConsPartCall :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isConsPartCall x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleFlatCurryGoodies.c_isComb(x2)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_isCombTypeConsPartCall(x3)(st))(Curry.Module.OracleFlatCurryGoodies.c_combType(x2)(x4)(st))(x5)(st))(x6)(st))(st)++++c_isGround :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isGround x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_7(x2)(x1)(st))(st)++++c_allVars :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_allVars x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_trExpr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))((Curry.Module.Prelude.:<)))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_allVars'46comb'46650))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_allVars'46lt'46650))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_allVars'46fr'46650))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_46))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleFlatCurryGoodies.c_allVars'46cas'46650))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_allVars'46branch'46650))(st))(x2)(x1)(st))(Curry.Module.Prelude.List)(x3)(st))(st)++++c_allVars'46comb'46650 :: (Curry t0,Curry t1,Curry t2) => t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t2)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t2))))+c_allVars'46comb'46650 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_46))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_allVars'46lt'46650 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t1))+c_allVars'46lt'46650 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(x3)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_46))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_allVars'46lt'46650'46_'35lambda67))))(x2)(x1)(st))(x4)(st))(x5)(st))(st)++++c_allVars'46lt'46650'46_'35lambda67 :: (Curry t283) => (Curry.Module.Prelude.T2 t283 (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t283) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t283)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t283) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t283))+c_allVars'46lt'46650'46_'35lambda67 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_5(x2)(x1)(st))(st)++++c_allVars'46fr'46650 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_allVars'46fr'46650 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43(x2)))))(x3)(x1)(st))(st)++++c_allVars'46cas'46650 :: (Curry t0,Curry t1,Curry t2) => t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2))+c_allVars'46cas'46650 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(x3)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_46))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x4)(x1)(st))(x5)(st))(st)++++c_allVars'46args'46650 :: Curry.Module.FlatCurry.C_Pattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_allVars'46args'46650 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryGoodies.c__case_4(x2)(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_isConsPattern(x1)(st))(x2)(x3)(st))(x4)(st))(st)++++c_allVars'46branch'46650 :: (Curry t0) => Curry.Module.FlatCurry.C_Pattern -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_allVars'46branch'46650 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryGoodies.c_allVars'46args'46650(x2)(x1)(st))))))(x3)(x4)(st))(st)++++c_rnmAllVars :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_rnmAllVars x2 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))(x2)(x7)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Comb))(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_rnmAllVars'46_'35lambda68(x2)))))))))(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(x8)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(st))(Curry.Module.OracleFlatCurryGoodies.c_updPatArgs(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(x5)(st))(x6)(st))))))(st))(st))(st)++++c_rnmAllVars'46_'35lambda68 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr+c_rnmAllVars'46_'35lambda68 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_2(x2)(x3)(x1)(st))(st)++++c_updQNames :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_updQNames x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleFlatCurryGoodies.c_updQNames'46comb'46673(x2)))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Let))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Free))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Or))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa))(Curry.Module.Prelude.cp(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))))(Curry.Module.FlatCurry.C_Case))(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.FlatCurry.C_Branch))(st))(Curry.Module.OracleFlatCurryGoodies.c_updPatCons(x2)(x1)(st))(x3)(st))))))(st)++++c_updQNames'46comb'46673 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.FlatCurry.C_CombType -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_updQNames'46comb'46673 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FlatCurry.C_Comb(x3)(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5))(st)++++c_trBranch :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> t0))))) -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trBranch x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_1(x2)(x3)(x1)(st))(st)++++c_branchPattern :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern))+c_branchPattern x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trBranch(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_branchPattern'46_'35lambda69))(st))))))(st)++++c_branchPattern'46_'35lambda69 :: Curry.Module.FlatCurry.C_Pattern -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern+c_branchPattern'46_'35lambda69 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_branchExpr :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_branchExpr x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trBranch(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_branchExpr'46_'35lambda70))(st))))))(st)++++c_branchExpr'46_'35lambda70 :: Curry.Module.FlatCurry.C_Pattern -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_branchExpr'46_'35lambda70 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_updBranch :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr))+c_updBranch x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trBranch(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_updBranch'46branch'46687(x3)(x2)))(st))))))(st)++++c_updBranch'46branch'46687 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern))) -> Curry.Module.FlatCurry.C_Pattern -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr+c_updBranch'46branch'46687 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Branch(Curry.Module.Oracle.c_apply(x3)(x4)(x1)(st))(Curry.Module.Oracle.c_apply(x2)(x5)(x6)(st)))(st)++++c_updBranchPattern :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr))+c_updBranchPattern x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updBranch(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updBranchExpr :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_BranchExpr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr))))+c_updBranchExpr x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updBranch(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_trPattern :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.FlatCurry.C_Pattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trPattern x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_0(x2)(x3)(x4)(x1)(st))(st)++++c_patCons :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_patCons x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trPattern(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_patCons'46_'35lambda71))(st))(Curry.Module.OraclePrelude.c_failed(x1)(st))))))(st)++++c_patCons'46_'35lambda71 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_patCons'46_'35lambda71 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_patArgs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_patArgs x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trPattern(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_patArgs'46_'35lambda72))(st))(Curry.Module.OraclePrelude.c_failed(x1)(st))))))(st)++++c_patArgs'46_'35lambda72 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_patArgs'46_'35lambda72 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_patLiteral :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal))+c_patLiteral x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trPattern(Curry.Module.OraclePrelude.c_failed(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_isConsPattern :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isConsPattern x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trPattern(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_isConsPattern'46_'35lambda73))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isConsPattern'46_'35lambda74))))))))(st)++++c_isConsPattern'46_'35lambda73 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isConsPattern'46_'35lambda73 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)++++c_isConsPattern'46_'35lambda74 :: Curry.Module.FlatCurry.C_Literal -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isConsPattern'46_'35lambda74 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_updPattern :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern))+c_updPattern x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trPattern(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlatCurryGoodies.c_updPattern'46pattern'46718(x3)(x2)))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_updPattern'46lpattern'46718(x4)))))))))(st)++++c_updPattern'46pattern'46718 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern+c_updPattern'46pattern'46718 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Pattern(Curry.Module.Oracle.c_apply(x3)(x4)(x1)(st))(Curry.Module.Oracle.c_apply(x2)(x5)(x6)(st)))(st)++++c_updPattern'46lpattern'46718 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal))) -> Curry.Module.FlatCurry.C_Literal -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern+c_updPattern'46lpattern'46718 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FlatCurry.C_LPattern(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st)))(st)++++c_updPatCons :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern))+c_updPatCons x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updPattern(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updPatArgs :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern))+c_updPatArgs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updPattern(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x1)(st))(st)++++c_updPatLiteral :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Literal -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Pattern))+c_updPatLiteral x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updPattern(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(x2)(x1)(st))(st)++++c_patExpr :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Pattern -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_patExpr x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trPattern(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_patExpr'46_'35lambda75))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Lit))))))))(st)++++c_patExpr'46_'35lambda75 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_patExpr'46_'35lambda75 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_ConsCall)(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.FlatCurry.C_Var))))))))(x1)(st))(st)++++c__case_0 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_0_case__53(x1)(x2)(x3)(x4)(st))(st)++++c__case_1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_1_case__52(x1)(x2)(x3)(st))(st)++++c__case_2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_2_case__51(x1)(x2)(x3)(st))(st)++++c__case_4 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_4_case__50(x1)(x2)(x3)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_3_case__49(x1)(x2)(st))(st)++++c__case_5 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_5_case__48(x1)(x2)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_7_case__47(x1)(x2)(st))(st)++++c__case_6 x2 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_6_case__46(x1)(x2)(x5)(x3)(st))(st)++++c__case_8 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_8_case__45(x1)(x2)(x3)(x4)(st))(st)++++c__case_9 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_9_case__44(x1)(x2)(x3)(st))(st)++++c__case_10 x2 x3 x4 x5 x6 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_10_case__43(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x10)(st))(st)++++c__case_11 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_11_case__42(x1)(x2)(st))(st)++++c__case_12 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_12_case__41(x1)(x2)(st))(st)++++c__case_13 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_13_case__40(x1)(x2)(st))(st)++++c__case_14 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_14_case__39(x1)(x2)(st))(st)++++c__case_15 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_15_case__38(x1)(x2)(st))(st)++++c__case_16 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_16_case__37(x1)(x2)(st))(st)++++c__case_17 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_17_case__36(x1)(x2)(st))(st)++++c__case_18 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_18_case__35(x1)(x2)(st))(st)++++c__case_19 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_19_case__34(x1)(x2)(st))(st)++++c__case_20 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_20_case__33(x1)(x2)(st))(st)++++c__case_21 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_21_case__32(x1)(x2)(st))(st)++++c__case_22 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_22_case__31(x1)(x2)(st))(st)++++c__case_23 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_23_case__30(x1)(x2)(st))(st)++++c__case_24 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_24_case__29(x1)(x2)(st))(st)++++c__case_25 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_25_case__28(x1)(x2)(st))(st)++++c__case_26 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_26_case__27(x1)(x2)(st))(st)++++c__case_27 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_27_case__26(x1)(x2)(st))(st)++++c__case_28 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_28_case__25(x1)(x2)(st))(st)++++c__case_29 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_29_case__24(x1)(x2)(st))(st)++++c__case_30 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_30_case__23(x1)(x2)(st))(st)++++c__case_31 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_31_case__22(x1)(x2)(x3)(x4)(x5)(x6)(st))(st)++++c__case_32 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_32_case__21(x1)(x2)(x3)(x4)(st))(st)++++c__case_35 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_35_case__20(x1)(x2)(x3)(st))(st)++++c__case_34 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_34_case__19(x1)(x2)(x3)(st))(st)++++c__case_33 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_33_case__18(x1)(x2)(x3)(st))(st)++++c__case_37 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_37_case__17(x1)(x2)(x3)(st))(st)++++c__case_36 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_36_case__16(x1)(x2)(st))(st)++++c__case_38 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_38_case__15(x1)(x2)(x3)(st))(st)++++c__case_39 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_39_case__14(x1)(x2)(x3)(st))(st)++++c__case_40 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_40_case__13(x1)(x2)(st))(st)++++c__case_41 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_41_case__12(x1)(x2)(st))(st)++++c__case_42 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_42_case__11(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_43 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_43_case__10(x1)(x2)(st))(st)++++c__case_44 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_44_case__9(x1)(x2)(st))(st)++++c__case_45 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_45_case__8(x1)(x2)(st))(st)++++c__case_46 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_46_case__7(x1)(x2)(st))(st)++++c__case_47 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_47_case__6(x1)(x2)(st))(st)++++c__case_48 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_48_case__5(x1)(x2)(x3)(st))(st)++++c__case_49 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_49_case__4(x1)(x2)(x3)(x4)(st))(st)++++c__case_52 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_52_case__3(x1)(x2)(x3)(x4)(st))(st)++++c__case_51 x2 x3 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_51_case__2(x1)(x2)(x5)(x6)(x7)(st))(st)++++c__case_50 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_50_case__1(x1)(x5)(x6)(x7)(st))(st)++++c__case_53 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_53_case__0(x1)(x2)(x3)(st))(st)++++c__case_53_case__0 x1 x2 x3@(Curry.Module.FlatCurry.C_Prog x4 x5 x6 x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x9)(st))(x6)(x10)(st))(x7)(x11)(st))(x8)(x12)(st))(st)+c__case_53_case__0 x1 x2 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_53_case__0(x1)(x2)(x)(st))(i)(xs)(st)+c__case_53_case__0 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_53_case__0")(x)++++c__case_50_case__1 x1 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x5)(x6))(st)+c__case_50_case__1 x1 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_50_case__1 x1 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_50_case__1(x1)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_50_case__1 x1 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_50_case__1")(x)++++c__case_51_case__2 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x2)(x6))(st)+c__case_51_case__2 x1 x2 x5 x6 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryGoodies.c__case_50(x5)(x6)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x8)(st))(st)+c__case_51_case__2 x1 x2 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_51_case__2(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_51_case__2 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_51_case__2")(x)++++c__case_52_case__3 x1 x2 x3 x4@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryGoodies.c__case_51(x2)(x3)(x5)(x6)(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_progName(x1)(st))(x3)(x7)(st))(x8)(st))(x9)(st))(st)+c__case_52_case__3 x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_52_case__3(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_52_case__3 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_52_case__3")(x)++++c__case_49_case__4 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Type x5 x6 x7 x8) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x6)(x13)(st))(x7)(x14)(st))(x8)(x15)(st))(st)+c__case_49_case__4 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_TypeSyn x9 x10 x11 x12) st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x9)(x1)(st))(x10)(x16)(st))(x11)(x17)(st))(x12)(x18)(st))(st)+c__case_49_case__4 x1 x2 x3 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_49_case__4(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_49_case__4 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_49_case__4")(x)++++c__case_48_case__5 x1 x2 x3@(Curry.Module.FlatCurry.C_Cons x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x8)(st))(x6)(x9)(st))(x7)(x10)(st))(st)+c__case_48_case__5 x1 x2 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_48_case__5(x1)(x2)(x)(st))(i)(xs)(st)+c__case_48_case__5 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_48_case__5")(x)++++c__case_47_case__6 x1 x2@(Curry.Module.FlatCurry.C_TVar x3) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_47_case__6 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_47_case__6(x1)(x)(st))(i)(xs)(st)+c__case_47_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_47_case__6")(x)++++c__case_46_case__7 x1 x2@(Curry.Module.FlatCurry.C_FuncType x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_46_case__7 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_46_case__7(x1)(x)(st))(i)(xs)(st)+c__case_46_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_46_case__7")(x)++++c__case_45_case__8 x1 x2@(Curry.Module.FlatCurry.C_FuncType x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_45_case__8 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_45_case__8(x1)(x)(st))(i)(xs)(st)+c__case_45_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_45_case__8")(x)++++c__case_44_case__9 x1 x2@(Curry.Module.FlatCurry.C_TCons x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_44_case__9 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_44_case__9(x1)(x)(st))(i)(xs)(st)+c__case_44_case__9 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_44_case__9")(x)++++c__case_43_case__10 x1 x2@(Curry.Module.FlatCurry.C_TCons x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_43_case__10 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_43_case__10(x1)(x)(st))(i)(xs)(st)+c__case_43_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_43_case__10")(x)++++c__case_42_case__11 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_TVar x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(x6)(x1)(st))(st)+c__case_42_case__11 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_TCons x7 x8) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x7)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trTypeExpr(x2)(x3)(x4)))))(x8)(x12)(st))(x13)(st))(st)+c__case_42_case__11 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_FuncType x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(let {x11 = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trTypeExpr(x2)(x3)(x4))))} in let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x4)(Curry.Module.Oracle.c_apply(x11)(x9)(x1)(st))(x14)(st))(Curry.Module.Oracle.c_apply(x11)(x10)(x15)(st))(x16)(st))(st))(st)+c__case_42_case__11 x1 x2 x3 x4 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_42_case__11(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_42_case__11 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_42_case__11")(x)++++c__case_41_case__12 x1 x2@(Curry.Module.FlatCurry.C_TVar x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_41_case__12 x1 x2@(Curry.Module.FlatCurry.C_TCons x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_41_case__12 x1 x2@(Curry.Module.FlatCurry.C_FuncType x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.OracleFlatCurryGoodies.c_argTypes(x7)(x1)(st)))(st)+c__case_41_case__12 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_41_case__12(x1)(x)(st))(i)(xs)(st)+c__case_41_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_41_case__12")(x)++++c__case_40_case__13 x1 x2@(Curry.Module.FlatCurry.C_TVar x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlatCurry.C_TVar(x3))(st)+c__case_40_case__13 x1 x2@(Curry.Module.FlatCurry.C_TCons x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlatCurry.C_TCons(x4)(x5))(st)+c__case_40_case__13 x1 x2@(Curry.Module.FlatCurry.C_FuncType x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_resultType(x7)(x1)(st))(st)+c__case_40_case__13 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_40_case__13(x1)(x)(st))(i)(xs)(st)+c__case_40_case__13 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_40_case__13")(x)++++c__case_39_case__14 x1 x2 x3@(Curry.Module.FlatCurry.C_Op x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x7)(st))(x6)(x8)(st))(st)+c__case_39_case__14 x1 x2 (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_39_case__14(x1)(x2)(x)(st))(i)(xs)(st)+c__case_39_case__14 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_39_case__14")(x)++++c__case_38_case__15 x1 x2 x3@(Curry.Module.FlatCurry.C_Func x4 x5 x6 x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x9)(st))(x6)(x10)(st))(x7)(x11)(st))(x8)(x12)(st))(st)+c__case_38_case__15 x1 x2 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_38_case__15(x1)(x2)(x)(st))(i)(xs)(st)+c__case_38_case__15 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_38_case__15")(x)++++c__case_36_case__16 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_36_case__16 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_36_case__16 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_36_case__16(x1)(x)(st))(i)(xs)(st)+c__case_36_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_36_case__16")(x)++++c__case_37_case__17 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryGoodies.c_funcRHS'46orCase'46374(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_funcBody(x1)(st))(x2)(x4)(st))(x5)(st))(st)+c__case_37_case__17 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryGoodies.c__case_36(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x6)(st))(st)+c__case_37_case__17 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_37_case__17(x1)(x2)(x)(st))(i)(xs)(st)+c__case_37_case__17 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_37_case__17")(x)++++c__case_33_case__18 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(st)+c__case_33_case__18 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_33_case__18 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_33_case__18(x1)(x2)(x)(st))(i)(xs)(st)+c__case_33_case__18 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_33_case__18")(x)++++c__case_34_case__19 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_funcRHS'46orCase'46374))))(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.OracleFlatCurryGoodies.c_branchExpr(x4)(st))(Curry.Module.OracleFlatCurryGoodies.c_caseBranches(x2)(x5)(st))(x6)(st))(x7)(st))(st)+c__case_34_case__19 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryGoodies.c__case_33(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x8)(st))(st)+c__case_34_case__19 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_34_case__19(x1)(x2)(x)(st))(i)(xs)(st)+c__case_34_case__19 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_34_case__19")(x)++++c__case_35_case__20 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_funcRHS'46orCase'46374))))(x1)(st))(Curry.Module.OracleFlatCurryGoodies.c_orExps(x2)(x4)(st))(x5)(st))(st)+c__case_35_case__20 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryGoodies.c__case_34(x2)(Curry.Module.OracleFlatCurryGoodies.c_isCase(x2)(x1)(st))(x6)(st))(st)+c__case_35_case__20 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_35_case__20(x1)(x2)(x)(st))(i)(xs)(st)+c__case_35_case__20 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_35_case__20")(x)++++c__case_32_case__21 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Rule x5 x6) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x6)(x8)(st))(st)+c__case_32_case__21 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_External x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x3)(x7)(x1)(st))(st)+c__case_32_case__21 x1 x2 x3 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_32_case__21(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_32_case__21 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_32_case__21")(x)++++c__case_31_case__22 x1 x2 x3 x4 x5 x6@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_31_case__22 x1 x2 x3 x4 x5 x6@(Curry.Module.FlatCurry.C_FuncPartCall x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x3)(x7)(x1)(st))(st)+c__case_31_case__22 x1 x2 x3 x4 x5 x6@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_31_case__22 x1 x2 x3 x4 x5 x6@(Curry.Module.FlatCurry.C_ConsPartCall x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x5)(x8)(x1)(st))(st)+c__case_31_case__22 x1 x2 x3 x4 x5 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_31_case__22(x1)(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_31_case__22 x1 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_31_case__22")(x)++++c__case_30_case__23 x1 x2@(Curry.Module.FlatCurry.C_Var x3) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_30_case__23 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_30_case__23(x1)(x)(st))(i)(xs)(st)+c__case_30_case__23 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_30_case__23")(x)++++c__case_29_case__24 x1 x2@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_29_case__24 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_29_case__24(x1)(x)(st))(i)(xs)(st)+c__case_29_case__24 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_29_case__24")(x)++++c__case_28_case__25 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_28_case__25 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_28_case__25(x1)(x)(st))(i)(xs)(st)+c__case_28_case__25 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_28_case__25")(x)++++c__case_27_case__26 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_27_case__26 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_27_case__26(x1)(x)(st))(i)(xs)(st)+c__case_27_case__26 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_27_case__26")(x)++++c__case_26_case__27 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_26_case__27 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_26_case__27(x1)(x)(st))(i)(xs)(st)+c__case_26_case__27 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_26_case__27")(x)++++c__case_25_case__28 x1 x2@(Curry.Module.FlatCurry.C_Let x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_25_case__28 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_25_case__28(x1)(x)(st))(i)(xs)(st)+c__case_25_case__28 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_25_case__28")(x)++++c__case_24_case__29 x1 x2@(Curry.Module.FlatCurry.C_Let x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_24_case__29 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_24_case__29(x1)(x)(st))(i)(xs)(st)+c__case_24_case__29 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_24_case__29")(x)++++c__case_23_case__30 x1 x2@(Curry.Module.FlatCurry.C_Free x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_23_case__30 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_23_case__30(x1)(x)(st))(i)(xs)(st)+c__case_23_case__30 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_23_case__30")(x)++++c__case_22_case__31 x1 x2@(Curry.Module.FlatCurry.C_Free x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_22_case__31 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_22_case__31(x1)(x)(st))(i)(xs)(st)+c__case_22_case__31 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_22_case__31")(x)++++c__case_21_case__32 x1 x2@(Curry.Module.FlatCurry.C_Or x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(st)+c__case_21_case__32 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_21_case__32(x1)(x)(st))(i)(xs)(st)+c__case_21_case__32 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_21_case__32")(x)++++c__case_20_case__33 x1 x2@(Curry.Module.FlatCurry.C_Case x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_20_case__33 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_20_case__33(x1)(x)(st))(i)(xs)(st)+c__case_20_case__33 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_20_case__33")(x)++++c__case_19_case__34 x1 x2@(Curry.Module.FlatCurry.C_Case x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_19_case__34 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_19_case__34(x1)(x)(st))(i)(xs)(st)+c__case_19_case__34 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_19_case__34")(x)++++c__case_18_case__35 x1 x2@(Curry.Module.FlatCurry.C_Case x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_18_case__35 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_18_case__35(x1)(x)(st))(i)(xs)(st)+c__case_18_case__35 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_18_case__35")(x)++++c__case_17_case__36 x1 x2@(Curry.Module.FlatCurry.C_Var x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_17_case__36 x1 x2@(Curry.Module.FlatCurry.C_Lit x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_17_case__36 x1 x2@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_17_case__36 x1 x2@(Curry.Module.FlatCurry.C_Let x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_17_case__36 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_17_case__36 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_17_case__36 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_17_case__36 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_17_case__36(x1)(x)(st))(i)(xs)(st)+c__case_17_case__36 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_17_case__36")(x)++++c__case_16_case__37 x1 x2@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_16_case__37 x1 x2@(Curry.Module.FlatCurry.C_Var x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_16_case__37 x1 x2@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_16_case__37 x1 x2@(Curry.Module.FlatCurry.C_Let x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_16_case__37 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_16_case__37 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_16_case__37 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_16_case__37 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_16_case__37(x1)(x)(st))(i)(xs)(st)+c__case_16_case__37 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_16_case__37")(x)++++c__case_15_case__38 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_15_case__38 x1 x2@(Curry.Module.FlatCurry.C_Var x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_15_case__38 x1 x2@(Curry.Module.FlatCurry.C_Lit x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_15_case__38 x1 x2@(Curry.Module.FlatCurry.C_Let x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_15_case__38 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_15_case__38 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_15_case__38 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_15_case__38 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_15_case__38(x1)(x)(st))(i)(xs)(st)+c__case_15_case__38 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_15_case__38")(x)++++c__case_14_case__39 x1 x2@(Curry.Module.FlatCurry.C_Let x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_14_case__39 x1 x2@(Curry.Module.FlatCurry.C_Var x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_14_case__39 x1 x2@(Curry.Module.FlatCurry.C_Lit x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_14_case__39 x1 x2@(Curry.Module.FlatCurry.C_Comb x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_14_case__39 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_14_case__39 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_14_case__39 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_14_case__39 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_14_case__39(x1)(x)(st))(i)(xs)(st)+c__case_14_case__39 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_14_case__39")(x)++++c__case_13_case__40 x1 x2@(Curry.Module.FlatCurry.C_Free x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_13_case__40 x1 x2@(Curry.Module.FlatCurry.C_Var x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_13_case__40 x1 x2@(Curry.Module.FlatCurry.C_Lit x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_13_case__40 x1 x2@(Curry.Module.FlatCurry.C_Comb x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_13_case__40 x1 x2@(Curry.Module.FlatCurry.C_Let x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_13_case__40 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_13_case__40 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_13_case__40 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_13_case__40(x1)(x)(st))(i)(xs)(st)+c__case_13_case__40 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_13_case__40")(x)++++c__case_12_case__41 x1 x2@(Curry.Module.FlatCurry.C_Or x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_12_case__41 x1 x2@(Curry.Module.FlatCurry.C_Var x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__41 x1 x2@(Curry.Module.FlatCurry.C_Lit x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__41 x1 x2@(Curry.Module.FlatCurry.C_Comb x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__41 x1 x2@(Curry.Module.FlatCurry.C_Let x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__41 x1 x2@(Curry.Module.FlatCurry.C_Free x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__41 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_12_case__41 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_12_case__41(x1)(x)(st))(i)(xs)(st)+c__case_12_case__41 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_12_case__41")(x)++++c__case_11_case__42 x1 x2@(Curry.Module.FlatCurry.C_Case x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_11_case__42 x1 x2@(Curry.Module.FlatCurry.C_Var x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_11_case__42 x1 x2@(Curry.Module.FlatCurry.C_Lit x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_11_case__42 x1 x2@(Curry.Module.FlatCurry.C_Comb x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_11_case__42 x1 x2@(Curry.Module.FlatCurry.C_Let x11 x12) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_11_case__42 x1 x2@(Curry.Module.FlatCurry.C_Free x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_11_case__42 x1 x2@(Curry.Module.FlatCurry.C_Or x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_11_case__42 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_11_case__42(x1)(x)(st))(i)(xs)(st)+c__case_11_case__42 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_11_case__42")(x)++++c__case_10_case__43 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10@(Curry.Module.FlatCurry.C_Var x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(x11)(x1)(st))(st)+c__case_10_case__43 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10@(Curry.Module.FlatCurry.C_Lit x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x3)(x12)(x1)(st))(st)+c__case_10_case__43 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10@(Curry.Module.FlatCurry.C_Comb x13 x14 x15) st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x4)(x13)(x1)(st))(x14)(x28)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)))))(x15)(x29)(st))(x30)(st))(st)+c__case_10_case__43 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10@(Curry.Module.FlatCurry.C_Let x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(let {x18 = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9))))} in let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x5)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr'46_'35lambda64(x18)))))(x16)(x1)(st))(x31)(st))(Curry.Module.Oracle.c_apply(x18)(x17)(x32)(st))(x33)(st))(st))(st)+c__case_10_case__43 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10@(Curry.Module.FlatCurry.C_Free x19 x20) st = let {x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x6)(x19)(x1)(st))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x20)(x34)(st))(x35)(st))(st)+c__case_10_case__43 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10@(Curry.Module.FlatCurry.C_Or x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(let {x23 = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9))))} in let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x7)(Curry.Module.Oracle.c_apply(x23)(x21)(x1)(st))(x36)(st))(Curry.Module.Oracle.c_apply(x23)(x22)(x37)(st))(x38)(st))(st))(st)+c__case_10_case__43 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10@(Curry.Module.FlatCurry.C_Case x24 x25 x26) st = Curry.Module.CEventOracle.c_replace(x1)(let {x27 = Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9))))} in let {x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x8)(x24)(x1)(st))(Curry.Module.Oracle.c_apply(x27)(x25)(x39)(st))(x40)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_trExpr'46_'35lambda65(x9)(x27)))))(x26)(x41)(st))(x42)(st))(st))(st)+c__case_10_case__43 x1 x2 x3 x4 x5 x6 x7 x8 x9 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_10_case__43(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_10_case__43 x1 x2 x3 x4 x5 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_10_case__43")(x)++++c__case_9_case__44 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T2(x4)(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st)))(st)+c__case_9_case__44 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_9_case__44(x1)(x2)(x)(st))(i)(xs)(st)+c__case_9_case__44 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_9_case__44")(x)++++c__case_8_case__45 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Branch x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(Curry.Module.Oracle.c_apply(x3)(x6)(x7)(st))(x8)(st))(st)+c__case_8_case__45 x1 x2 x3 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_8_case__45(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_8_case__45 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_8_case__45")(x)++++c__case_6_case__46 x1 x2 x5 x3@Curry.Module.FlatCurry.C_ConsCall st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryGoodies.c_isGround))))(x1)(st))(x5)(x8)(st))(st)+c__case_6_case__46 x1 x2 x5 x3@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_isLit(x2)(x1)(st))(st)+c__case_6_case__46 x1 x2 x5 x3@(Curry.Module.FlatCurry.C_FuncPartCall x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_isLit(x2)(x1)(st))(st)+c__case_6_case__46 x1 x2 x5 x3@(Curry.Module.FlatCurry.C_ConsPartCall x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_isLit(x2)(x1)(st))(st)+c__case_6_case__46 x1 x2 x5 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_6_case__46(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_6_case__46 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_6_case__46")(x)++++c__case_7_case__47 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c__case_6(x2)(x5)(x3)(x1)(st))(st)+c__case_7_case__47 x1 x2@(Curry.Module.FlatCurry.C_Var x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_isLit(x2)(x1)(st))(st)+c__case_7_case__47 x1 x2@(Curry.Module.FlatCurry.C_Lit x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_isLit(x2)(x1)(st))(st)+c__case_7_case__47 x1 x2@(Curry.Module.FlatCurry.C_Let x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_isLit(x2)(x1)(st))(st)+c__case_7_case__47 x1 x2@(Curry.Module.FlatCurry.C_Free x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_isLit(x2)(x1)(st))(st)+c__case_7_case__47 x1 x2@(Curry.Module.FlatCurry.C_Or x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_isLit(x2)(x1)(st))(st)+c__case_7_case__47 x1 x2@(Curry.Module.FlatCurry.C_Case x16 x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_isLit(x2)(x1)(st))(st)+c__case_7_case__47 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_7_case__47(x1)(x)(st))(i)(xs)(st)+c__case_7_case__47 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_7_case__47")(x)++++c__case_5_case__48 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x3)))))(x4)(x1)(st))(st)+c__case_5_case__48 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_5_case__48(x1)(x)(st))(i)(xs)(st)+c__case_5_case__48 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_5_case__48")(x)++++c__case_3_case__49 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_3_case__49 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_3_case__49 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_3_case__49(x1)(x)(st))(i)(xs)(st)+c__case_3_case__49 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_3_case__49")(x)++++c__case_4_case__50 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_patArgs(x1)(st))(x2)(x4)(st))(st)+c__case_4_case__50 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryGoodies.c__case_3(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x5)(st))(st)+c__case_4_case__50 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_4_case__50(x1)(x2)(x)(st))(i)(xs)(st)+c__case_4_case__50 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_4_case__50")(x)++++c__case_2_case__51 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T2(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5))(st)+c__case_2_case__51 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_2_case__51(x1)(x2)(x)(st))(i)(xs)(st)+c__case_2_case__51 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_2_case__51")(x)++++c__case_1_case__52 x1 x2 x3@(Curry.Module.FlatCurry.C_Branch x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x6)(st))(st)+c__case_1_case__52 x1 x2 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_1_case__52(x1)(x2)(x)(st))(i)(xs)(st)+c__case_1_case__52 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_1_case__52")(x)++++c__case_0_case__53 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Pattern x5 x6) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x6)(x8)(st))(st)+c__case_0_case__53 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_LPattern x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x3)(x7)(x1)(st))(st)+c__case_0_case__53 x1 x2 x3 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryGoodies.c__case_0_case__53(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_0_case__53 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryGoodies._case_0_case__53")(x)++
+ dist/build/Curry/Module/OracleFlatCurryRead.hs view
@@ -0,0 +1,250 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleFlatCurryRead (module Curry.Module.OracleFlatCurryRead) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.FlatCurryRead+import Curry.Module.Directory+import Curry.Module.Distribution+import Curry.Module.FileGoodies+import Curry.Module.FlatCurry+import Curry.Module.Prelude+import Curry.Module.Time+import Curry.Module.System+import Curry.Module.List+import Curry.Module.OracleDirectory+import Curry.Module.OracleDistribution+import Curry.Module.OracleFileGoodies+import Curry.Module.OracleFlatCurry+import Curry.Module.OraclePrelude+import Curry.Module.OracleTime+import Curry.Module.OracleSystem+import Curry.Module.OracleList++++-- begin included++++-- end included++c_readFlatCurryWithImports :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryWithImports x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_getLoadPathForFile(Curry.Module.OracleFlatCurry.c_flatCurryFileName(x2)(x1)(st))(x3)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryWithImports'46_'35lambda2(x2)))))(x4)(st))(st)++++c_readFlatCurryWithImports'46_'35lambda2 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryWithImports'46_'35lambda2 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryFileWithImports(x3)(Curry.Module.OracleFileGoodies.c_baseName(x2)(x1)(st))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List))(x4)(st))(st)++++c_readFlatCurryWithImportsInPath :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryWithImportsInPath x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c_readFlatCurryFileWithImports(x2)(x3)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List))(x1)(st))(st)++++c_readFlatCurryIntWithImports :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIntWithImports x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDistribution.c_getLoadPathForFile(Curry.Module.OracleFlatCurry.c_flatCurryIntName(x2)(x1)(st))(x3)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryIntWithImports'46_'35lambda3(x2)))))(x4)(st))(st)++++c_readFlatCurryIntWithImports'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIntWithImports'46_'35lambda3 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryFileWithImports(x3)(Curry.Module.OracleFileGoodies.c_baseName(x2)(x1)(st))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List)))(x4)(st))(st)++++c_readFlatCurryIntWithImportsInPath :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIntWithImportsInPath x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c_readFlatCurryFileWithImports(x2)(x3)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))(Curry.Module.Prelude.List)))(x1)(st))(st)++++c_readFlatCurryFileWithImports :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryFileWithImports x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStr((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))(x1)(st))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFlatCurryRead.c_tryReadFlatCurryFileWithImports(x2)(x3)(x4)(x5)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryFileWithImports'46_'35lambda4(x2)(x3)(x4)))))(x6)(st))(x7)(st))(st)++++c_readFlatCurryFileWithImports'46_'35lambda4 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryFileWithImports'46_'35lambda4 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OracleFlatCurryRead.c_parseFlatCurryFileWithImports(x2)(x3)(x4)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(x5)(x6)(st))(st)++++c_parseFlatCurryFileWithImports :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_parseFlatCurryFileWithImports x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))))))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_putStrLn))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List)))))(x1)(st))(x5)(st))(x6)(st))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleDistribution.c_callFrontendWithParams(Curry.Module.Distribution.C_FCY)(Curry.Module.OracleDistribution.c_setQuiet(Curry.Module.Prelude.C_True)(Curry.Module.OracleDistribution.c_setFullPath(x2)(Curry.Module.OracleDistribution.c_defaultParams(x7)(st))(x8)(st))(x9)(st))(x3)(x10)(st))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStr((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))(x11)(st))(Curry.Module.OracleFlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616(x2)(x4)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List)(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st)++++c_parseFlatCurryFileWithImports'46collectMods'4616 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_parseFlatCurryFileWithImports'46collectMods'4616 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c__case_5(x2)(x3)(x5)(x4)(x1)(st))(st)++++c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))))))))))))(x1)(st))(x8)(st))(x9)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6(x2)(x3)(x4)(x5)(x6)))))(x7)(x10)(st))(st)++++c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStr(Curry.Module.OraclePrelude.op_43_43(x7)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x1)(st))(x8)(st))(Curry.Module.OracleFlatCurry.c_readFlatCurryFile(x7)(x9)(st))(x10)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7(x2)(x3)(x4)(x5)(x6)))))(x11)(st))(st)++++c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616(x3)(x6)(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OracleFlatCurryRead.c_importsOf(x7)(x1)(st))(x8)(st))((Curry.Module.Prelude.:<)(x4)(x2))(x9)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7'46_'35lambda8(x7)))))(x10)(st))(st)++++c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7'46_'35lambda8 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)))+c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5'46_'35lambda6'46_'35lambda7'46_'35lambda8 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return((Curry.Module.Prelude.:<)(x2)(x3))(x1)(st))(st)++++c_tryReadFlatCurryFileWithImports :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))))+c_tryReadFlatCurryFileWithImports x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627(x2)(x4)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List)(x1)(st))(st)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))))+c_tryReadFlatCurryFileWithImports'46collectMods'4627 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c__case_3(x2)(x3)(x5)(x4)(x1)(st))(st)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))))+c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Nothing)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10(x2)(x3)(x4)(x5)(x6)))))(x7)(x8)(st))(st)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))))+c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627(x3)(x6)(Curry.Module.OraclePrelude.op_43_43(x5)(Curry.Module.OracleFlatCurryRead.c_importsOf(x7)(x1)(st))(x8)(st))((Curry.Module.Prelude.:<)(x4)(x2))(x9)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11(x7)))))(x10)(st))(st)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog))))+c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.OraclePrelude.c_maybe(Curry.Module.Prelude.C_Nothing)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11'46_'35lambda12(x2)))))(x3)(x1)(st))(x4)(st))(st)++++c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11'46_'35lambda12 :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Prog)+c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9'46_'35lambda10'46_'35lambda11'46_'35lambda12 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just((Curry.Module.Prelude.:<)(x2)(x3)))(st)++++c_importsOf :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_importsOf x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c__case_1(x2)(x1)(st))(st)++++c_readFlatCurryIfPossible :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIfPossible x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFileGoodies.c_lookupFileInPath(x3)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(Curry.Module.Prelude.List)))(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13(x2)(x3)(x4)))))(x5)(st))(st)++++c_readFlatCurryIfPossible'46_'35lambda13 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIfPossible'46_'35lambda13 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFileGoodies.c_lookupFileInPath(x3)(x4)(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14))))(x6)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16(x3)(x4)))))(x5)(x7)(st))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14 :: (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Nothing)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14'46_'35lambda15))))(x2)(x3)(st))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14'46_'35lambda15 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda14'46_'35lambda15 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFlatCurry.c_readFlatCurryFile(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))))(x3)(st))(x4)(st))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16 x2 x3 x4 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleFileGoodies.c_dirName(x4)(x1)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFileGoodies.c_lookupFileInPath(x2)(x3)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(Curry.Module.OracleDistribution.c_addCurrySubdir(x5)(x7)(st))(Curry.Module.Prelude.List)))(x8)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17(x4)))))(x9)(st))(st))(st))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Nothing)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18(x2)))))(x3)(x4)(st))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_getModificationTime(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19(x3)))))(x4)(st))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_getModificationTime(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20(x3)(x2)))))(x4)(st))(st)++++c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20 :: Curry.Module.Time.C_ClockTime -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.FlatCurry.C_Prog)))+c_readFlatCurryIfPossible'46_'35lambda13'46_'35lambda16'46_'35lambda17'46_'35lambda18'46_'35lambda19'46_'35lambda20 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryRead.c__case_0(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_62(Curry.Module.OracleTime.c_clockTimeToInt(x2)(x1)(st))(Curry.Module.OracleTime.c_clockTimeToInt(x4)(x5)(st))(x6)(st))(x7)(st))(st)++++c__case_0 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c__case_0_case__5(x1)(x3)(x5)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c__case_1_case__4(x1)(x2)(st))(st)++++c__case_3 x2 x3 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c__case_3_case__3(x1)(x2)(x3)(x5)(x4)(st))(st)++++c__case_2 x2 x3 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c__case_2_case__2(x1)(x2)(x3)(x5)(x6)(x7)(x8)(st))(st)++++c__case_5 x2 x3 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c__case_5_case__1(x1)(x2)(x3)(x5)(x4)(st))(st)++++c__case_4 x2 x3 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c__case_4_case__0(x1)(x2)(x3)(x5)(x6)(x7)(x8)(st))(st)++++c__case_4_case__0 x1 x2 x3 x5 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616(x2)(x3)(x7)(x5)(x1)(st))(st)+c__case_4_case__0 x1 x2 x3 x5 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFileGoodies.c_lookupFileInPath(x6)(x3)(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_parseFlatCurryFileWithImports'46collectMods'4616'46_'35lambda5(x5)(x2)(x6)(x7)(x3)))))(x9)(st))(st)+c__case_4_case__0 x1 x2 x3 x5 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryRead.c__case_4_case__0(x1)(x2)(x3)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_4_case__0 x1 x2 x3 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryRead._case_4_case__0")(x)++++c__case_5_case__1 x1 x2 x3 x5 x4@Curry.Module.Prelude.List st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStrLn((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.List)(x8)(st))(x9)(st))(st)+c__case_5_case__1 x1 x2 x3 x5 x4@((Curry.Module.Prelude.:<) x6 x7) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryRead.c__case_4(x2)(x3)(x5)(x6)(x7)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x6)(x1)(st))(x5)(x10)(st))(x11)(st))(st)+c__case_5_case__1 x1 x2 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryRead.c__case_5_case__1(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_5_case__1 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryRead._case_5_case__1")(x)++++c__case_2_case__2 x1 x2 x3 x5 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627(x2)(x3)(x7)(x5)(x1)(st))(st)+c__case_2_case__2 x1 x2 x3 x5 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFlatCurryRead.c_readFlatCurryIfPossible(x2)(x6)(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryRead.c_tryReadFlatCurryFileWithImports'46collectMods'4627'46_'35lambda9(x5)(x2)(x6)(x7)(x3)))))(x9)(st))(st)+c__case_2_case__2 x1 x2 x3 x5 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryRead.c__case_2_case__2(x1)(x2)(x3)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_2_case__2 x1 x2 x3 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryRead._case_2_case__2")(x)++++c__case_3_case__3 x1 x2 x3 x5 x4@Curry.Module.Prelude.List st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStrLn((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.List))(x8)(st))(x9)(st))(st)+c__case_3_case__3 x1 x2 x3 x5 x4@((Curry.Module.Prelude.:<) x6 x7) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryRead.c__case_2(x2)(x3)(x5)(x6)(x7)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x6)(x1)(st))(x5)(x10)(st))(x11)(st))(st)+c__case_3_case__3 x1 x2 x3 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryRead.c__case_3_case__3(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_3_case__3 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryRead._case_3_case__3")(x)++++c__case_1_case__4 x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_1_case__4 x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryRead.c__case_1_case__4(x1)(x)(st))(i)(xs)(st)+c__case_1_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryRead._case_1_case__4")(x)++++c__case_0_case__5 x1 x3 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Nothing)(x1)(st))(st)+c__case_0_case__5 x1 x3 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStr(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x1)(st))(x6)(st))(Curry.Module.OracleFlatCurry.c_readFlatCurryFile(x3)(x7)(st))(x8)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))))(x9)(st))(x10)(st))(st)+c__case_0_case__5 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryRead.c__case_0_case__5(x1)(x3)(x)(st))(i)(xs)(st)+c__case_0_case__5 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryRead._case_0_case__5")(x)++
+ dist/build/Curry/Module/OracleFlatCurryShow.hs view
@@ -0,0 +1,1494 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleFlatCurryShow (module Curry.Module.OracleFlatCurryShow) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.FlatCurryShow+import Curry.Module.Char+import Curry.Module.FlatCurry+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.OracleChar+import Curry.Module.OracleFlatCurry+import Curry.Module.OracleList+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_showFlatProg :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatProg x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_122(x2)(x1)(st))(st)++++c_showFlatVisibility :: Curry.Module.FlatCurry.C_Visibility -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatVisibility x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_119(x2)(x1)(st))(st)++++c_showFlatFixity :: Curry.Module.FlatCurry.C_Fixity -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatFixity x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_118(x2)(x1)(st))(st)++++c_showFlatOp :: Curry.Module.FlatCurry.C_OpDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatOp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_117(x2)(x1)(st))(st)++++c_showFlatType :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_116(x2)(x1)(st))(st)++++c_showFlatCons :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatCons x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_115(x2)(x1)(st))(st)++++c_showFlatFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatFunc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_114(x2)(x1)(st))(st)++++c_showFlatRule :: Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatRule x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_113(x2)(x1)(st))(st)++++c_showFlatTypeExpr :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatTypeExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_112(x2)(x1)(st))(st)++++c_showFlatCombType :: Curry.Module.FlatCurry.C_CombType -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatCombType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_111(x2)(x1)(st))(st)++++c_showFlatExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_110(x2)(x1)(st))(st)++++c_showFlatExpr'46showFlatBinding'4649 :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatExpr'46showFlatBinding'4649 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_108(x2)(x1)(st))(st)++++c_showFlatLit :: Curry.Module.FlatCurry.C_Literal -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatLit x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_107(x2)(x1)(st))(st)++++c_showFlatBranch :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatBranch x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_106(x2)(x1)(st))(st)++++c_showFlatPattern :: Curry.Module.FlatCurry.C_Pattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatPattern x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_105(x2)(x1)(st))(st)++++c_showFlatList :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatList x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatListElems(x2)(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(x4)(st))(x5)(st))(st)++++c_showFlatListElems :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatListElems x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(x2)(x3)(x1)(st))(x4)(st))(x5)(st))(st)++++c_showCurryType :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.Prelude.C_Bool -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryType x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_104(x2)(x3)(x4)(x1)(st))(st)++++c_showCurryType'46_'35lambda2 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryType'46_'35lambda2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.OracleFlatCurryShow.c_showCurryType(x2)(Curry.Module.Prelude.C_True)(x3)(x1)(st)))(st)++++c_isFuncType :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_97(x2)(x1)(st))(st)++++c_showCurryExpr :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryExpr x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_96(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_showCurryExpr'46_'35lambda3 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryExpr'46_'35lambda3 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_81(x2)(x3)(x4)(x1)(st))(st)++++c_showCurryVar :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryVar x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x3)(st))(st)++++c_showCurryId :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryId x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryShow.c__case_80(x2)(Curry.Module.OracleChar.c_isAlpha(Curry.Module.OraclePrelude.c_head(x2)(x1)(st))(x3)(st))(x4)(st))(st)++++c_showCurryLit :: Curry.Module.FlatCurry.C_Literal -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryLit x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_77(x2)(x1)(st))(st)++++c_showCurryCase :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryCase x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_76(x2)(x3)(x4)(x1)(st))(st)++++c_showCurryCase'46showPattern'46151 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryCase'46showPattern'46151 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_74(x2)(x3)(x1)(st))(st)++++c_showCurryFiniteList :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showCurryFiniteList x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_68(x2)(x3)(x4)(x1)(st))(st)++++c_showCurryStringConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryStringConstant x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_41(x2)(x1)(st))(st)++++c_showCharExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCharExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_14(x2)(x1)(st))(st)++++c_showCurryElems :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryElems x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(x2)(x3)(x1)(st))(x4)(st))(x5)(st))(st)++++c_showBracketsIf :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showBracketsIf x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_7(x3)(x2)(x1)(st))(st)++++c_sceBlanks :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_sceBlanks x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_take(x2)(Curry.Module.OraclePrelude.c_repeat(Curry.Module.Prelude.C_Char(' '))(x1)(st))(x3)(st))(st)++++c_isFiniteList :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFiniteList x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_6(x2)(x1)(st))(st)++++c_isStringConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isStringConstant x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_2(x2)(x1)(st))(st)++++c_isCharConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCharConstant x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_1(x2)(x1)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_1_case__122(x1)(x2)(st))(st)++++c__case_0 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_0_case__121(x1)(x3)(st))(st)++++c__case_2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_2_case__120(x1)(x2)(st))(st)++++c__case_6 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_6_case__119(x1)(x2)(st))(st)++++c__case_5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_5_case__118(x1)(x6)(x7)(x8)(st))(st)++++c__case_4 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_4_case__117(x1)(x7)(x8)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_3_case__116(x1)(x2)(st))(st)++++c__case_7 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_7_case__115(x1)(x3)(x2)(st))(st)++++c__case_14 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_14_case__114(x1)(x2)(st))(st)++++c__case_13 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_13_case__113(x1)(x3)(st))(st)++++c__case_12 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_12_case__112(x1)(x4)(x5)(x6)(st))(st)++++c__case_11 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_11_case__111(x1)(x4)(x5)(x6)(st))(st)++++c__case_10 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_10_case__110(x1)(x4)(x5)(x6)(st))(st)++++c__case_9 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_9_case__109(x1)(x4)(x5)(x6)(st))(st)++++c__case_8 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_8_case__108(x1)(x4)(x5)(st))(st)++++c__case_41 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_41_case__107(x1)(x2)(st))(st)++++c__case_40 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_40_case__106(x1)(x5)(x4)(st))(st)++++c__case_39 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_39_case__105(x1)(x5)(x7)(x6)(st))(st)++++c__case_38 x5 x7 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_38_case__104(x1)(x5)(x7)(x9)(x8)(st))(st)++++c__case_37 x5 x7 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_37_case__103(x1)(x5)(x7)(x9)(st))(st)++++c__case_36 x5 x7 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_36_case__102(x1)(x5)(x7)(x11)(x10)(st))(st)++++c__case_35 x5 x7 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_35_case__101(x1)(x5)(x7)(x11)(st))(st)++++c__case_34 x5 x7 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_34_case__100(x1)(x5)(x7)(x13)(x12)(st))(st)++++c__case_33 x5 x7 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_33_case__99(x1)(x5)(x7)(x13)(st))(st)++++c__case_32 x5 x7 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_32_case__98(x1)(x5)(x7)(x15)(x14)(st))(st)++++c__case_31 x5 x7 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_31_case__97(x1)(x5)(x7)(x15)(st))(st)++++c__case_30 x5 x7 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_30_case__96(x1)(x5)(x7)(x17)(x16)(st))(st)++++c__case_29 x5 x7 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_29_case__95(x1)(x5)(x7)(x17)(st))(st)++++c__case_28 x5 x7 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_28_case__94(x1)(x5)(x7)(x19)(x18)(st))(st)++++c__case_27 x5 x7 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_27_case__93(x1)(x5)(x7)(x19)(st))(st)++++c__case_26 x5 x7 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_26_case__92(x1)(x5)(x7)(x21)(x20)(st))(st)++++c__case_25 x5 x7 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_25_case__91(x1)(x5)(x7)(x21)(st))(st)++++c__case_24 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_24_case__90(x1)(x5)(x7)(st))(st)++++c__case_23 x5 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_23_case__89(x1)(x5)(x23)(x22)(st))(st)++++c__case_18 x5 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_18_case__88(x1)(x5)(x23)(st))(st)++++c__case_17 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_17_case__87(x1)(x5)(st))(st)++++c__case_16 x26 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_16_case__86(x1)(x26)(x27)(st))(st)++++c__case_15 x26 x28 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_15_case__85(x1)(x26)(x28)(x29)(st))(st)++++c__case_22 x5 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_22_case__84(x1)(x5)(x23)(st))(st)++++c__case_21 x5 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_21_case__83(x1)(x5)(x25)(x24)(st))(st)++++c__case_20 x5 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_20_case__82(x1)(x5)(x25)(st))(st)++++c__case_19 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_19_case__81(x1)(x5)(st))(st)++++c__case_68 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_68_case__80(x1)(x2)(x3)(x4)(st))(st)++++c__case_67 x2 x3 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_67_case__79(x1)(x2)(x3)(x7)(x6)(st))(st)++++c__case_66 x2 x3 x7 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_66_case__78(x1)(x2)(x3)(x7)(x9)(x8)(st))(st)++++c__case_65 x2 x3 x7 x9 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_65_case__77(x1)(x2)(x3)(x7)(x9)(x11)(x10)(st))(st)++++c__case_64 x2 x3 x7 x9 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_64_case__76(x1)(x2)(x3)(x7)(x9)(x11)(st))(st)++++c__case_63 x2 x3 x7 x9 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_63_case__75(x1)(x2)(x3)(x7)(x9)(x13)(x12)(st))(st)++++c__case_62 x2 x3 x7 x9 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_62_case__74(x1)(x2)(x3)(x7)(x9)(x13)(st))(st)++++c__case_61 x2 x3 x7 x9 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_61_case__73(x1)(x2)(x3)(x7)(x9)(x15)(x14)(st))(st)++++c__case_60 x2 x3 x7 x9 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_60_case__72(x1)(x2)(x3)(x7)(x9)(x15)(st))(st)++++c__case_59 x2 x3 x7 x9 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_59_case__71(x1)(x2)(x3)(x7)(x9)(x17)(x16)(st))(st)++++c__case_58 x2 x3 x7 x9 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_58_case__70(x1)(x2)(x3)(x7)(x9)(x17)(st))(st)++++c__case_57 x2 x3 x7 x9 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_57_case__69(x1)(x2)(x3)(x7)(x9)(x19)(x18)(st))(st)++++c__case_56 x2 x3 x7 x9 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_56_case__68(x1)(x2)(x3)(x7)(x9)(x19)(st))(st)++++c__case_55 x2 x3 x7 x9 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_55_case__67(x1)(x2)(x3)(x7)(x9)(x21)(x20)(st))(st)++++c__case_54 x2 x3 x7 x9 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_54_case__66(x1)(x2)(x3)(x7)(x9)(x21)(st))(st)++++c__case_53 x2 x3 x7 x9 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_53_case__65(x1)(x2)(x3)(x7)(x9)(x23)(x22)(st))(st)++++c__case_52 x2 x3 x7 x9 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_52_case__64(x1)(x2)(x3)(x7)(x9)(x23)(st))(st)++++c__case_51 x2 x3 x7 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_51_case__63(x1)(x2)(x3)(x7)(x9)(st))(st)++++c__case_50 x2 x3 x7 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_50_case__62(x1)(x2)(x3)(x7)(x25)(x24)(st))(st)++++c__case_45 x2 x3 x7 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_45_case__61(x1)(x2)(x3)(x7)(x25)(st))(st)++++c__case_44 x2 x3 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_44_case__60(x1)(x2)(x3)(x7)(st))(st)++++c__case_43 x2 x3 x28 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_43_case__59(x1)(x2)(x3)(x28)(x29)(st))(st)++++c__case_42 x2 x3 x28 x30 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_42_case__58(x1)(x2)(x3)(x28)(x30)(x31)(st))(st)++++c__case_49 x7 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_49_case__57(x1)(x7)(x25)(st))(st)++++c__case_48 x7 x27 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_48_case__56(x1)(x7)(x27)(x26)(st))(st)++++c__case_47 x7 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_47_case__55(x1)(x7)(x27)(st))(st)++++c__case_46 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_46_case__54(x1)(x7)(st))(st)++++c__case_74 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_74_case__53(x1)(x2)(x3)(st))(st)++++c__case_73 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_73_case__52(x1)(x2)(x4)(x5)(st))(st)++++c__case_72 x2 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_72_case__51(x1)(x2)(x4)(x6)(x7)(st))(st)++++c__case_69 x2 x4 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_69_case__50(x1)(x2)(x4)(x6)(x8)(x9)(x10)(st))(st)++++c__case_71 x2 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_71_case__49(x1)(x2)(x4)(x6)(x7)(st))(st)++++c__case_70 x2 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_70_case__48(x1)(x2)(x4)(x6)(x7)(st))(st)++++c__case_76 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_76_case__47(x1)(x2)(x3)(x4)(st))(st)++++c__case_75 x2 x3 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_75_case__46(x1)(x2)(x3)(x6)(x5)(st))(st)++++c__case_77 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_77_case__45(x1)(x2)(st))(st)++++c__case_80 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_80_case__44(x1)(x2)(x3)(st))(st)++++c__case_79 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_79_case__43(x1)(x2)(x3)(st))(st)++++c__case_78 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_78_case__42(x1)(x2)(x3)(st))(st)++++c__case_81 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_81_case__41(x1)(x2)(x3)(x4)(st))(st)++++c__case_96 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_96_case__40(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_82 x25 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_82_case__39(x1)(x26)(st))(st)++++c__case_83 x2 x3 x4 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_83_case__38(x1)(x2)(x3)(x4)(x20)(x19)(st))(st)++++c__case_95 x2 x3 x4 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_95_case__37(x1)(x2)(x3)(x4)(x8)(x9)(x10)(st))(st)++++c__case_94 x2 x3 x4 x8 x9 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_94_case__36(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x12)(st))(st)++++c__case_93 x2 x3 x4 x8 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_93_case__35(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x14)(st))(st)++++c__case_86 x2 x3 x4 x9 x11 x13 x15 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_86_case__34(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x17)(st))(st)++++c__case_85 x2 x3 x4 x9 x11 x13 x15 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_85_case__33(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x17)(st))(st)++++c__case_84 x2 x3 x4 x9 x11 x13 x15 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_84_case__32(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x17)(st))(st)++++c__case_92 x2 x3 x4 x8 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_92_case__31(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x14)(st))(st)++++c__case_91 x2 x3 x4 x8 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_91_case__30(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x14)(st))(st)++++c__case_90 x2 x3 x4 x8 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_90_case__29(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x14)(st))(st)++++c__case_88 x2 x3 x4 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_88_case__28(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x14)(st))(st)++++c__case_87 x2 x3 x4 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_87_case__27(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x14)(st))(st)++++c__case_89 x2 x4 x8 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_89_case__26(x1)(x2)(x4)(x8)(x9)(x11)(x13)(x14)(st))(st)++++c__case_97 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_97_case__25(x1)(x2)(st))(st)++++c__case_104 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_104_case__24(x1)(x2)(x3)(x4)(st))(st)++++c__case_102 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_102_case__23(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_101 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_101_case__22(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_100 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_100_case__21(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_99 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_99_case__20(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_98 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_98_case__19(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_103 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_103_case__18(x1)(x5)(x6)(st))(st)++++c__case_105 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_105_case__17(x1)(x2)(st))(st)++++c__case_106 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_106_case__16(x1)(x2)(st))(st)++++c__case_107 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_107_case__15(x1)(x2)(st))(st)++++c__case_108 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_108_case__14(x1)(x2)(st))(st)++++c__case_110 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_110_case__13(x1)(x2)(st))(st)++++c__case_109 x15 x16 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_109_case__12(x1)(x15)(x16)(x14)(st))(st)++++c__case_111 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_111_case__11(x1)(x2)(st))(st)++++c__case_112 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_112_case__10(x1)(x2)(st))(st)++++c__case_113 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_113_case__9(x1)(x2)(st))(st)++++c__case_114 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_114_case__8(x1)(x2)(st))(st)++++c__case_115 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_115_case__7(x1)(x2)(st))(st)++++c__case_116 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_116_case__6(x1)(x2)(st))(st)++++c__case_117 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_117_case__5(x1)(x2)(st))(st)++++c__case_118 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_118_case__4(x1)(x2)(st))(st)++++c__case_119 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_119_case__3(x1)(x2)(st))(st)++++c__case_122 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_122_case__2(x1)(x2)(st))(st)++++c__case_120 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_120_case__1(x1)(x5)(x6)(st))(st)++++c__case_121 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_121_case__0(x1)(x4)(x5)(st))(st)++++c__case_121_case__0 x1 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))))(st)+c__case_121_case__0 x1 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatListElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x4)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(st)+c__case_121_case__0 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_121_case__0(x1)(x4)(x)(st))(i)(xs)(st)+c__case_121_case__0 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_121_case__0")(x)++++c__case_120_case__1 x1 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))))(st)+c__case_120_case__1 x1 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatListElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showFlatType))))(x5)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x7)(st))(x8)(st))(st)+c__case_120_case__1 x1 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_120_case__1(x1)(x5)(x)(st))(i)(xs)(st)+c__case_120_case__1 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_120_case__1")(x)++++c__case_122_case__2 x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c__case_121(x4)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.List)(x8)(st))(x9)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c__case_120(x5)(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.List)(x10)(st))(x11)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatListElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showFlatFunc))))(x6)(x12)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showFlatOp))))(x7)(x13)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(st)+c__case_122_case__2 x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_122_case__2(x1)(x)(st))(i)(xs)(st)+c__case_122_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_122_case__2")(x)++++c__case_119_case__3 x1 x2@Curry.Module.FlatCurry.C_Public st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(st)+c__case_119_case__3 x1 x2@Curry.Module.FlatCurry.C_Private st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(st)+c__case_119_case__3 x1 (Curry.Module.FlatCurry.C_VisibilityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_119_case__3(x1)(x)(st))(i)(xs)(st)+c__case_119_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_119_case__3")(x)++++c__case_118_case__4 x1 x2@Curry.Module.FlatCurry.C_InfixOp st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(st)+c__case_118_case__4 x1 x2@Curry.Module.FlatCurry.C_InfixlOp st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(st)+c__case_118_case__4 x1 x2@Curry.Module.FlatCurry.C_InfixrOp st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(st)+c__case_118_case__4 x1 (Curry.Module.FlatCurry.C_FixityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_118_case__4(x1)(x)(st))(i)(xs)(st)+c__case_118_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_118_case__4")(x)++++c__case_117_case__5 x1 x2@(Curry.Module.FlatCurry.C_Op x3 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatFixity(x4)(x6)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x7)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x8)(st))(x9)(st))(x10)(st))(x11)(st))(st)+c__case_117_case__5 x1 (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_117_case__5(x1)(x)(st))(i)(xs)(st)+c__case_117_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_117_case__5")(x)++++c__case_116_case__6 x1 x2@(Curry.Module.FlatCurry.C_Type x3 x4 x5 x6) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatVisibility(x4)(x11)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x5)(x12)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showFlatCons))))(x6)(x13)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(st)+c__case_116_case__6 x1 x2@(Curry.Module.FlatCurry.C_TypeSyn x7 x8 x9 x10) st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatVisibility(x8)(x19)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x9)(x20)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatTypeExpr(x10)(x21)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x22)(st))(x23)(st))(x24)(st))(x25)(st))(x26)(st))(st)+c__case_116_case__6 x1 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_116_case__6(x1)(x)(st))(i)(xs)(st)+c__case_116_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_116_case__6")(x)++++c__case_115_case__7 x1 x2@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x7)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatVisibility(x5)(x8)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showFlatTypeExpr))))(x6)(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_115_case__7 x1 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_115_case__7(x1)(x)(st))(i)(xs)(st)+c__case_115_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_115_case__7")(x)++++c__case_114_case__8 x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x8)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatVisibility(x5)(x9)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatTypeExpr(x6)(x10)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatRule(x7)(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(x21)(st))(st)+c__case_114_case__8 x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_114_case__8(x1)(x)(st))(i)(xs)(st)+c__case_114_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_114_case__8")(x)++++c__case_113_case__9 x1 x2@(Curry.Module.FlatCurry.C_Rule x3 x4) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatExpr(x4)(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_113_case__9 x1 x2@(Curry.Module.FlatCurry.C_External x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(st)+c__case_113_case__9 x1 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_113_case__9(x1)(x)(st))(i)(xs)(st)+c__case_113_case__9 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_113_case__9")(x)++++c__case_112_case__10 x1 x2@(Curry.Module.FlatCurry.C_FuncType x3 x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatTypeExpr(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatTypeExpr(x4)(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_112_case__10 x1 x2@(Curry.Module.FlatCurry.C_TCons x5 x6) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showFlatTypeExpr))))(x6)(x13)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x14)(st))(x15)(st))(x16)(st))(st)+c__case_112_case__10 x1 x2@(Curry.Module.FlatCurry.C_TVar x7) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x7)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x17)(st))(x18)(st))(st)+c__case_112_case__10 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_112_case__10(x1)(x)(st))(i)(xs)(st)+c__case_112_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_112_case__10")(x)++++c__case_111_case__11 x1 x2@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))(st)+c__case_111_case__11 x1 x2@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))(st)+c__case_111_case__11 x1 x2@(Curry.Module.FlatCurry.C_FuncPartCall x3) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x5)(st))(x6)(st))(st)+c__case_111_case__11 x1 x2@(Curry.Module.FlatCurry.C_ConsPartCall x4) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x7)(st))(x8)(st))(st)+c__case_111_case__11 x1 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_111_case__11(x1)(x)(st))(i)(xs)(st)+c__case_111_case__11 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_111_case__11")(x)++++c__case_109_case__12 x1 x15 x16 x14@Curry.Module.FlatCurry.C_Rigid st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatExpr(x15)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showFlatBranch))))(x16)(x17)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x18)(st))(x19)(st))(x20)(st))(st)+c__case_109_case__12 x1 x15 x16 x14@Curry.Module.FlatCurry.C_Flex st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatExpr(x15)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showFlatBranch))))(x16)(x21)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x22)(st))(x23)(st))(x24)(st))(st)+c__case_109_case__12 x1 x15 x16 (Curry.Module.FlatCurry.C_CaseTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_109_case__12(x1)(x15)(x16)(x)(st))(i)(xs)(st)+c__case_109_case__12 x1 x15 x16 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_109_case__12")(x)++++c__case_110_case__13 x1 x2@(Curry.Module.FlatCurry.C_Var x3) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x17)(st))(x18)(st))(st)+c__case_110_case__13 x1 x2@(Curry.Module.FlatCurry.C_Lit x4) st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatLit(x4)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x19)(st))(x20)(st))(st)+c__case_110_case__13 x1 x2@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatCombType(x5)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x6)(x21)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showFlatExpr))))(x7)(x22)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x23)(st))(x24)(st))(x25)(st))(x26)(st))(x27)(st))(st)+c__case_110_case__13 x1 x2@(Curry.Module.FlatCurry.C_Let x8 x9) st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showFlatExpr'46showFlatBinding'4649))))(x8)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatExpr(x9)(x28)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x29)(st))(x30)(st))(x31)(st))(st)+c__case_110_case__13 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x10)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatExpr(x11)(x32)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x33)(st))(x34)(st))(x35)(st))(st)+c__case_110_case__13 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatExpr(x12)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatExpr(x13)(x36)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x37)(st))(x38)(st))(x39)(st))(x40)(st))(st)+c__case_110_case__13 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_109(x15)(x16)(x14)(x1)(st))(st)+c__case_110_case__13 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_110_case__13(x1)(x)(st))(i)(xs)(st)+c__case_110_case__13 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_110_case__13")(x)++++c__case_108_case__14 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatExpr(x4)(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_108_case__14 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_108_case__14(x1)(x)(st))(i)(xs)(st)+c__case_108_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_108_case__14")(x)++++c__case_107_case__15 x1 x2@(Curry.Module.FlatCurry.C_Intc x3) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(st)+c__case_107_case__15 x1 x2@(Curry.Module.FlatCurry.C_Floatc x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x8)(st))(x9)(st))(st)+c__case_107_case__15 x1 x2@(Curry.Module.FlatCurry.C_Charc x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(st)+c__case_107_case__15 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_107_case__15(x1)(x)(st))(i)(xs)(st)+c__case_107_case__15 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_107_case__15")(x)++++c__case_106_case__16 x1 x2@(Curry.Module.FlatCurry.C_Branch x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('B'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatPattern(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatExpr(x4)(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_106_case__16 x1 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_106_case__16(x1)(x)(st))(i)(xs)(st)+c__case_106_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_106_case__16")(x)++++c__case_105_case__17 x1 x2@(Curry.Module.FlatCurry.C_Pattern x3 x4) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x4)(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_105_case__17 x1 x2@(Curry.Module.FlatCurry.C_LPattern x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showFlatLit(x5)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(st)+c__case_105_case__17 x1 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_105_case__17(x1)(x)(st))(i)(xs)(st)+c__case_105_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_105_case__17")(x)++++c__case_103_case__18 x1 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x5)(x1)(st))(x7)(st))(Curry.Module.Prelude.List))(st)+c__case_103_case__18 x1 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.OraclePrelude.c_show(x5)(x1)(st)))(st)+c__case_103_case__18 x1 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_103_case__18(x1)(x5)(x)(st))(i)(xs)(st)+c__case_103_case__18 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_103_case__18")(x)++++c__case_98_case__19 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(x2)(x8)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showCurryType'46_'35lambda2(x2)))))(x11)(st))(x9)(x12)(st))(x13)(st))(x14)(st))(st)+c__case_98_case__19 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_98_case__19 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_98_case__19(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_98_case__19 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_98_case__19")(x)++++c__case_99_case__20 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showCurryType(x2)(Curry.Module.Prelude.C_False)))))(x9)(x1)(st))(x11)(st))(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x13)(st))(x14)(st))(st)+c__case_99_case__20 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_98(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x15)(st))(st)+c__case_99_case__20 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_99_case__20(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_99_case__20 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_99_case__20")(x)++++c__case_100_case__21 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryType(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.c_head(x9)(x1)(st))(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(x12)(st))(x13)(st))(st)+c__case_100_case__21 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryShow.c__case_99(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OraclePrelude.c_snd(x8)(x1)(st))(x14)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(x15)(st))(x16)(st))(st)+c__case_100_case__21 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_100_case__21(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_100_case__21 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_100_case__21")(x)++++c__case_101_case__22 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List)))))))(st)+c__case_101_case__22 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_100(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x1)(st))(x11)(st))(st)+c__case_101_case__22 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_101_case__22(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_101_case__22 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_101_case__22")(x)++++c__case_102_case__23 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(x8)(x1)(st))(st)+c__case_102_case__23 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryShow.c__case_101(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_head(x9)(x11)(st))(Curry.Module.FlatCurry.C_TCons(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.List))(x12)(st))(x13)(st))(x14)(st))(st)+c__case_102_case__23 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_102_case__23(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_102_case__23 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_102_case__23")(x)++++c__case_104_case__24 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_TVar x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_103(x5)(Curry.Module.OraclePrelude.op_60(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x1)(st))(x10)(st))(st)+c__case_104_case__24 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_FuncType x6 x7) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryType(x2)(Curry.Module.OracleFlatCurryShow.c_isFuncType(x6)(x1)(st))(x6)(x11)(st))(Curry.Module.OraclePrelude.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.OracleFlatCurryShow.c_showCurryType(x2)(Curry.Module.Prelude.C_False)(x7)(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_104_case__24 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_TCons x8 x9) st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_102(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.List)(x1)(st))(x16)(st))(st)+c__case_104_case__24 x1 x2 x3 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_104_case__24(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_104_case__24 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_104_case__24")(x)++++c__case_97_case__25 x1 x2@(Curry.Module.FlatCurry.C_TVar x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_97_case__25 x1 x2@(Curry.Module.FlatCurry.C_FuncType x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_97_case__25 x1 x2@(Curry.Module.FlatCurry.C_TCons x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_97_case__25 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_97_case__25(x1)(x)(st))(i)(xs)(st)+c__case_97_case__25 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_97_case__25")(x)++++c__case_89_case__26 x1 x2 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryStringConstant(Curry.Module.FlatCurry.C_Comb(x8)(x9)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(x15)(st))(x16)(st))(st)+c__case_89_case__26 x1 x2 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryFiniteList(x2)(x4)(Curry.Module.FlatCurry.C_Comb(x8)(x9)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(x1)(st))(x17)(st))(x18)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(x19)(st))(x20)(st))(st)+c__case_89_case__26 x1 x2 x4 x8 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_89_case__26(x1)(x2)(x4)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_89_case__26 x1 x2 x4 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_89_case__26")(x)++++c__case_87_case__27 x1 x2 x3 x4 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x11)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(x2)(x9)(x15)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x13)(x16)(st))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(x21)(st))(st)+c__case_87_case__27 x1 x2 x3 x4 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_87_case__27 x1 x2 x3 x4 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_87_case__27(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_87_case__27 x1 x2 x3 x4 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_87_case__27")(x)++++c__case_88_case__28 x1 x2 x3 x4 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x4)(x11)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x4)(x13)(x15)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(st)+c__case_88_case__28 x1 x2 x3 x4 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_87(x2)(x3)(x4)(x9)(x11)(x13)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x20)(st))(st)+c__case_88_case__28 x1 x2 x3 x4 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_88_case__28(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_88_case__28 x1 x2 x3 x4 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_88_case__28")(x)++++c__case_90_case__29 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_89(x2)(x4)(x8)(x9)(x11)(x13)(Curry.Module.OracleFlatCurryShow.c_isStringConstant(Curry.Module.FlatCurry.C_Comb(x8)(x9)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(x1)(st))(x15)(st))(st)+c__case_90_case__29 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryShow.c__case_88(x2)(x3)(x4)(x9)(x11)(x13)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_snd(x9)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))))(x16)(st))(x17)(st))(st)+c__case_90_case__29 x1 x2 x3 x4 x8 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_90_case__29(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_90_case__29 x1 x2 x3 x4 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_90_case__29")(x)++++c__case_91_case__30 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(x2)(x9)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)))))((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(st)+c__case_91_case__30 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_90(x2)(x3)(x4)(x8)(x9)(x11)(x13)(Curry.Module.OracleFlatCurryShow.c_isFiniteList(Curry.Module.FlatCurry.C_Comb(x8)(x9)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(x1)(st))(x19)(st))(st)+c__case_91_case__30 x1 x2 x3 x4 x8 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_91_case__30(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_91_case__30 x1 x2 x3 x4 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_91_case__30")(x)++++c__case_92_case__31 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x11)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x13)(x15)(st))(x16)(st))(x17)(st))(x18)(st))(st)+c__case_92_case__31 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryShow.c__case_91(x2)(x3)(x4)(x8)(x9)(x11)(x13)(Curry.Module.OracleChar.c_isAlpha(Curry.Module.OraclePrelude.c_head(Curry.Module.OraclePrelude.c_snd(x9)(x1)(st))(x19)(st))(x20)(st))(x21)(st))(st)+c__case_92_case__31 x1 x2 x3 x4 x8 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_92_case__31(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_92_case__31 x1 x2 x3 x4 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_92_case__31")(x)++++c__case_84_case__32 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_True st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryId(Curry.Module.Oracle.c_apply(x2)(x9)(x1)(st))(x18)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)))))((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x15)(x16))))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(st)+c__case_84_case__32 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_84_case__32 x1 x2 x3 x4 x9 x11 x13 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_84_case__32(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x)(st))(i)(xs)(st)+c__case_84_case__32 x1 x2 x3 x4 x9 x11 x13 x15 x16 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_84_case__32")(x)++++c__case_85_case__33 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_True st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x4)))))((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x15)(x16))))(x1)(st))(x18)(st))(x19)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x20)(st))(x21)(st))(st)+c__case_85_case__33 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_False st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_84(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x22)(st))(st)+c__case_85_case__33 x1 x2 x3 x4 x9 x11 x13 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_85_case__33(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x)(st))(i)(xs)(st)+c__case_85_case__33 x1 x2 x3 x4 x9 x11 x13 x15 x16 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_85_case__33")(x)++++c__case_86_case__34 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_True st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_sceBlanks(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x18)(st))(x11)(x19)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_sceBlanks(x4)(x20)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x21)(st))(x13)(x22)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_sceBlanks(x4)(x23)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x24)(st))(x15)(x25)(st))(x26)(st))(x27)(st))(x28)(st))(x29)(st))(x30)(st))(x31)(st))(x32)(st))(x33)(st))(x34)(st))(x35)(st))(x36)(st))(x37)(st))(st)+c__case_86_case__34 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_False st = let {x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryShow.c__case_85(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OraclePrelude.c_snd(x9)(x1)(st))(x38)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(x39)(st))(x40)(st))(st)+c__case_86_case__34 x1 x2 x3 x4 x9 x11 x13 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_86_case__34(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x)(st))(i)(xs)(st)+c__case_86_case__34 x1 x2 x3 x4 x9 x11 x13 x15 x16 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_86_case__34")(x)++++c__case_93_case__35 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.List st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_92(x2)(x3)(x4)(x8)(x9)(x11)(x13)(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x1)(st))(x17)(st))(st)+c__case_93_case__35 x1 x2 x3 x4 x8 x9 x11 x13 x14@((Curry.Module.Prelude.:<) x15 x16) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryShow.c__case_86(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x16)(Curry.Module.Prelude.List)(x18)(st))(x19)(st))(x20)(st))(st)+c__case_93_case__35 x1 x2 x3 x4 x8 x9 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_93_case__35(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_93_case__35 x1 x2 x3 x4 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_93_case__35")(x)++++c__case_94_case__36 x1 x2 x3 x4 x8 x9 x11 x12@Curry.Module.Prelude.List st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryId(Curry.Module.Oracle.c_apply(x2)(x9)(x1)(st))(x15)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x11)(x16)(st))(x17)(st))(x18)(st))(x19)(st))(st)+c__case_94_case__36 x1 x2 x3 x4 x8 x9 x11 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_93(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x14)(x1)(st))(st)+c__case_94_case__36 x1 x2 x3 x4 x8 x9 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_94_case__36(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x)(st))(i)(xs)(st)+c__case_94_case__36 x1 x2 x3 x4 x8 x9 x11 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_94_case__36")(x)++++c__case_95_case__37 x1 x2 x3 x4 x8 x9 x10@Curry.Module.Prelude.List st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryId(Curry.Module.Oracle.c_apply(x2)(x9)(x1)(st))(x13)(st))(st)+c__case_95_case__37 x1 x2 x3 x4 x8 x9 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_94(x2)(x3)(x4)(x8)(x9)(x11)(x12)(x1)(st))(st)+c__case_95_case__37 x1 x2 x3 x4 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_95_case__37(x1)(x2)(x3)(x4)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_95_case__37 x1 x2 x3 x4 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_95_case__37")(x)++++c__case_83_case__38 x1 x2 x3 x4 x20 x19@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(x3)(x4)(x20)(x1)(st))(st)+c__case_83_case__38 x1 x2 x3 x4 x20 x19@((Curry.Module.Prelude.:<) x21 x22) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))))))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showCurryVar))))((Curry.Module.Prelude.:<)(x21)(x22))(x1)(st))(x23)(st))(x24)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x4)(x20)(x25)(st))(x26)(st))(x27)(st))(x28)(st))(x29)(st))(st)+c__case_83_case__38 x1 x2 x3 x4 x20 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_83_case__38(x1)(x2)(x3)(x4)(x20)(x)(st))(i)(xs)(st)+c__case_83_case__38 x1 x2 x3 x4 x20 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_83_case__38")(x)++++c__case_82_case__39 x1 x26@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(st)+c__case_82_case__39 x1 x26@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(st)+c__case_82_case__39 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_82_case__39(x1)(x)(st))(i)(xs)(st)+c__case_82_case__39 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_82_case__39")(x)++++c__case_96_case__40 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Var x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c_showCurryVar(x6)(x1)(st))(st)+c__case_96_case__40 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Lit x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c_showCurryLit(x7)(x1)(st))(st)+c__case_96_case__40 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Comb x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_95(x2)(x3)(x4)(x8)(x9)(x10)(x1)(st))(st)+c__case_96_case__40 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Let x17 x18) st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)((Curry.Module.Prelude.:<)(x43)(Curry.Module.Prelude.List)))))))))))))))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_sceBlanks(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OracleFlatCurryShow.c_sceBlanks(x4)(x28)(st))(x29)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showCurryExpr'46_'35lambda3(x4)(x2)))))(x17)(x30)(st))(x31)(st))(x32)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_sceBlanks(x4)(x33)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(x34)(st))(x35)(st))(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x36)(st))(x18)(x37)(st))(x38)(st))(x39)(st))(x40)(st))(x41)(st))(x42)(st))(x43)(st))(st)+c__case_96_case__40 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Free x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_83(x2)(x3)(x4)(x20)(x19)(x1)(st))(st)+c__case_96_case__40 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Or x23 x24) st = let {x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x45 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x46 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x47 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x44)((Curry.Module.Prelude.:<)(x45)((Curry.Module.Prelude.:<)(x46)((Curry.Module.Prelude.:<)(x47)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x23)(x1)(st))(Curry.Module.OraclePrelude.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.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x24)(x44)(st))(x45)(st))(x46)(st))(x47)(st))(st)+c__case_96_case__40 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Case x25 x26 x27) st = let {x48 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x49 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x50 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x51 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x52 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x53 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x54 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x55 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x56 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x57 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x48)((Curry.Module.Prelude.:<)(x49)((Curry.Module.Prelude.:<)(x50)((Curry.Module.Prelude.:<)(x51)((Curry.Module.Prelude.:<)(x52)((Curry.Module.Prelude.:<)(x53)((Curry.Module.Prelude.:<)(x54)((Curry.Module.Prelude.:<)(x55)((Curry.Module.Prelude.:<)(x56)((Curry.Module.Prelude.:<)(x57)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OracleFlatCurryShow.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c__case_82(x25)(Curry.Module.OraclePrelude.op_61_61(x25)(Curry.Module.FlatCurry.C_Rigid)(x1)(st))(x48)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x26)(x49)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showCurryCase(x2)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x50)(st))))))(x27)(x51)(st))(Curry.Module.OracleFlatCurryShow.c_sceBlanks(x4)(x52)(st))(x53)(st))(x54)(st))(x55)(st))(x56)(st))(x57)(st))(st)+c__case_96_case__40 x1 x2 x3 x4 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_96_case__40(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_96_case__40 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_96_case__40")(x)++++c__case_81_case__41 x1 x2 x3 x4@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryVar(x5)(x1)(st))(Curry.Module.OraclePrelude.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.OracleFlatCurryShow.c_showCurryExpr(x3)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x7)(st))(x6)(x8)(st))(x9)(st))(x10)(st))(st)+c__case_81_case__41 x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_81_case__41(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_81_case__41 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_81_case__41")(x)++++c__case_78_case__42 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(x2))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x1)(st))(st)+c__case_78_case__42 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_78_case__42 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_78_case__42(x1)(x2)(x)(st))(i)(xs)(st)+c__case_78_case__42 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_78_case__42")(x)++++c__case_79_case__43 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_79_case__43 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_78(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x4)(st))(st)+c__case_79_case__43 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_79_case__43(x1)(x2)(x)(st))(i)(xs)(st)+c__case_79_case__43 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_79_case__43")(x)++++c__case_80_case__44 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_80_case__44 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_79(x2)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(x1)(st))(x4)(st))(st)+c__case_80_case__44 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_80_case__44(x1)(x2)(x)(st))(i)(xs)(st)+c__case_80_case__44 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_80_case__44")(x)++++c__case_77_case__45 x1 x2@(Curry.Module.FlatCurry.C_Intc x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(st)+c__case_77_case__45 x1 x2@(Curry.Module.FlatCurry.C_Floatc x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_show(x4)(x1)(st))(st)+c__case_77_case__45 x1 x2@(Curry.Module.FlatCurry.C_Charc x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))(st)+c__case_77_case__45 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_77_case__45(x1)(x)(st))(i)(xs)(st)+c__case_77_case__45 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_77_case__45")(x)++++c__case_75_case__46 x1 x2 x3 x6 x5@(Curry.Module.FlatCurry.C_Pattern x7 x8) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_sceBlanks(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryCase'46showPattern'46151(Curry.Module.Oracle.c_apply(x2)(x7)(x10)(st))(x8)(x11)(st))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x3)(x6)(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(st)+c__case_75_case__46 x1 x2 x3 x6 x5@(Curry.Module.FlatCurry.C_LPattern x9) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_sceBlanks(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryLit(x9)(x17)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x3)(x6)(x18)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(x23)(st))(st)+c__case_75_case__46 x1 x2 x3 x6 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_75_case__46(x1)(x2)(x3)(x6)(x)(st))(i)(xs)(st)+c__case_75_case__46 x1 x2 x3 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_75_case__46")(x)++++c__case_76_case__47 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Branch x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_75(x2)(x3)(x6)(x5)(x1)(st))(st)+c__case_76_case__47 x1 x2 x3 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_76_case__47(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_76_case__47 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_76_case__47")(x)++++c__case_70_case__48 x1 x2 x4 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryVar(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryVar(x6)(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_70_case__48 x1 x2 x4 x6 x7@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryVar(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryVar(x6)(x13)(st))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(st)+c__case_70_case__48 x1 x2 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_70_case__48(x1)(x2)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_70_case__48 x1 x2 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_70_case__48")(x)++++c__case_71_case__49 x1 x2 x4 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCurryVar(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryVar(x6)(x8)(st))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_71_case__49 x1 x2 x4 x6 x7@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_70(x2)(x4)(x6)(Curry.Module.OraclePrelude.op_61_61(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))))(x1)(st))(x13)(st))(st)+c__case_71_case__49 x1 x2 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_71_case__49(x1)(x2)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_71_case__49 x1 x2 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_71_case__49")(x)++++c__case_69_case__50 x1 x2 x4 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showCurryVar))))((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x8)(x9))))(x1)(st))(x11)(st))(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x13)(st))(x14)(st))(st)+c__case_69_case__50 x1 x2 x4 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryShow.c_showCurryVar))))((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x8)(x9))))(x1)(st))(x15)(st))(x16)(st))(st)+c__case_69_case__50 x1 x2 x4 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_69_case__50(x1)(x2)(x4)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_69_case__50 x1 x2 x4 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_69_case__50")(x)++++c__case_72_case__51 x1 x2 x4 x6 x7@Curry.Module.Prelude.List st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryShow.c__case_71(x2)(x4)(x6)(Curry.Module.OracleChar.c_isAlpha(Curry.Module.OraclePrelude.c_head(x2)(x1)(st))(x10)(st))(x11)(st))(st)+c__case_72_case__51 x1 x2 x4 x6 x7@((Curry.Module.Prelude.:<) x8 x9) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryShow.c__case_69(x2)(x4)(x6)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x2)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(x12)(st))(x13)(st))(st)+c__case_72_case__51 x1 x2 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_72_case__51(x1)(x2)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_72_case__51 x1 x2 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_72_case__51")(x)++++c__case_73_case__52 x1 x2 x4 x5@Curry.Module.Prelude.List st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_showCurryVar(x4)(x1)(st))(x8)(st))(x9)(st))(st)+c__case_73_case__52 x1 x2 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_72(x2)(x4)(x6)(x7)(x1)(st))(st)+c__case_73_case__52 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_73_case__52(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_73_case__52 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_73_case__52")(x)++++c__case_74_case__53 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_74_case__53 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_73(x2)(x4)(x5)(x1)(st))(st)+c__case_74_case__53 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_74_case__53(x1)(x2)(x)(st))(i)(xs)(st)+c__case_74_case__53 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_74_case__53")(x)++++c__case_46_case__54 x1 x7@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_46_case__54 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_46_case__54(x1)(x)(st))(i)(xs)(st)+c__case_46_case__54 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_46_case__54")(x)++++c__case_47_case__55 x1 x7 x27@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_46(x7)(x1)(st))(st)+c__case_47_case__55 x1 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_47_case__55(x1)(x7)(x)(st))(i)(xs)(st)+c__case_47_case__55 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_47_case__55")(x)++++c__case_48_case__56 x1 x7 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_47(x7)(x27)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_49_case__57 x1 x7 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_48(x7)(x27)(x26)(x1)(st))(st)+c__case_49_case__57 x1 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_49_case__57(x1)(x7)(x)(st))(i)(xs)(st)+c__case_49_case__57 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_49_case__57")(x)++++c__case_42_case__58 x1 x2 x3 x28 x30 x31@Curry.Module.Prelude.List st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryShow.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x3)(x28)(x1)(st))(Curry.Module.OracleFlatCurryShow.c_showCurryFiniteList(x2)(x3)(x30)(x32)(st)))(st)+c__case_42_case__58 x1 x2 x3 x28 x30 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_42_case__58(x1)(x2)(x3)(x28)(x30)(x)(st))(i)(xs)(st)+c__case_42_case__58 x1 x2 x3 x28 x30 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_42_case__58")(x)++++c__case_43_case__59 x1 x2 x3 x28 x29@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_42(x2)(x3)(x28)(x30)(x31)(x1)(st))(st)+c__case_43_case__59 x1 x2 x3 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_43_case__59(x1)(x2)(x3)(x28)(x)(st))(i)(xs)(st)+c__case_43_case__59 x1 x2 x3 x28 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_43_case__59")(x)++++c__case_44_case__60 x1 x2 x3 x7@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_43(x2)(x3)(x28)(x29)(x1)(st))(st)+c__case_44_case__60 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_44_case__60(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_44_case__60 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_44_case__60")(x)++++c__case_45_case__61 x1 x2 x3 x7 x25@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_44(x2)(x3)(x7)(x1)(st))(st)+c__case_45_case__61 x1 x2 x3 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_45_case__61(x1)(x2)(x3)(x7)(x)(st))(i)(xs)(st)+c__case_45_case__61 x1 x2 x3 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_45_case__61")(x)++++c__case_50_case__62 x1 x2 x3 x7 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_49(x7)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_45(x2)(x3)(x7)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_51_case__63 x1 x2 x3 x7 x9@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_50(x2)(x3)(x7)(x25)(x24)(x1)(st))(st)+c__case_51_case__63 x1 x2 x3 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_51_case__63(x1)(x2)(x3)(x7)(x)(st))(i)(xs)(st)+c__case_51_case__63 x1 x2 x3 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_51_case__63")(x)++++c__case_52_case__64 x1 x2 x3 x7 x9 x23@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_51(x2)(x3)(x7)(x9)(x1)(st))(st)+c__case_52_case__64 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_52_case__64(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_52_case__64 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_52_case__64")(x)++++c__case_53_case__65 x1 x2 x3 x7 x9 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_52(x2)(x3)(x7)(x9)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_54_case__66 x1 x2 x3 x7 x9 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_53(x2)(x3)(x7)(x9)(x23)(x22)(x1)(st))(st)+c__case_54_case__66 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_54_case__66(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_54_case__66 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_54_case__66")(x)++++c__case_55_case__67 x1 x2 x3 x7 x9 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_54(x2)(x3)(x7)(x9)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_56_case__68 x1 x2 x3 x7 x9 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_55(x2)(x3)(x7)(x9)(x21)(x20)(x1)(st))(st)+c__case_56_case__68 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_56_case__68(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_56_case__68 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_56_case__68")(x)++++c__case_57_case__69 x1 x2 x3 x7 x9 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_56(x2)(x3)(x7)(x9)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_58_case__70 x1 x2 x3 x7 x9 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_57(x2)(x3)(x7)(x9)(x19)(x18)(x1)(st))(st)+c__case_58_case__70 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_58_case__70(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_58_case__70 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_58_case__70")(x)++++c__case_59_case__71 x1 x2 x3 x7 x9 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_58(x2)(x3)(x7)(x9)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_60_case__72 x1 x2 x3 x7 x9 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_59(x2)(x3)(x7)(x9)(x17)(x16)(x1)(st))(st)+c__case_60_case__72 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_60_case__72(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_60_case__72 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_60_case__72")(x)++++c__case_61_case__73 x1 x2 x3 x7 x9 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_60(x2)(x3)(x7)(x9)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_62_case__74 x1 x2 x3 x7 x9 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_61(x2)(x3)(x7)(x9)(x15)(x14)(x1)(st))(st)+c__case_62_case__74 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_62_case__74(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_62_case__74 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_62_case__74")(x)++++c__case_63_case__75 x1 x2 x3 x7 x9 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_62(x2)(x3)(x7)(x9)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_64_case__76 x1 x2 x3 x7 x9 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_63(x2)(x3)(x7)(x9)(x13)(x12)(x1)(st))(st)+c__case_64_case__76 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_64_case__76(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_64_case__76 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_64_case__76")(x)++++c__case_65_case__77 x1 x2 x3 x7 x9 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('P'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_64(x2)(x3)(x7)(x9)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_66_case__78 x1 x2 x3 x7 x9 x8@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_65(x2)(x3)(x7)(x9)(x11)(x10)(x1)(st))(st)+c__case_66_case__78 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_66_case__78(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_66_case__78 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_66_case__78")(x)++++c__case_67_case__79 x1 x2 x3 x7 x6@(Curry.Module.Prelude.T2 x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_66(x2)(x3)(x7)(x9)(x8)(x1)(st))(st)+c__case_67_case__79 x1 x2 x3 x7 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_67_case__79(x1)(x2)(x3)(x7)(x)(st))(i)(xs)(st)+c__case_67_case__79 x1 x2 x3 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_67_case__79")(x)++++c__case_68_case__80 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_67(x2)(x3)(x7)(x6)(x1)(st))(st)+c__case_68_case__80 x1 x2 x3 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_68_case__80(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_68_case__80 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_68_case__80")(x)++++c__case_19_case__81 x1 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_19_case__81 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_19_case__81(x1)(x)(st))(i)(xs)(st)+c__case_19_case__81 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_19_case__81")(x)++++c__case_20_case__82 x1 x5 x25@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_19(x5)(x1)(st))(st)+c__case_20_case__82 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_20_case__82(x1)(x5)(x)(st))(i)(xs)(st)+c__case_20_case__82 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_20_case__82")(x)++++c__case_21_case__83 x1 x5 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_20(x5)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_22_case__84 x1 x5 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_21(x5)(x25)(x24)(x1)(st))(st)+c__case_22_case__84 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_22_case__84(x1)(x5)(x)(st))(i)(xs)(st)+c__case_22_case__84 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_22_case__84")(x)++++c__case_15_case__85 x1 x26 x28 x29@Curry.Module.Prelude.List st = let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryShow.c_showCharExpr(x26)(x1)(st))(Curry.Module.OracleFlatCurryShow.c_showCurryStringConstant(x28)(x30)(st))(x31)(st))(st)+c__case_15_case__85 x1 x26 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_15_case__85(x1)(x26)(x28)(x)(st))(i)(xs)(st)+c__case_15_case__85 x1 x26 x28 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_15_case__85")(x)++++c__case_16_case__86 x1 x26 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_15(x26)(x28)(x29)(x1)(st))(st)+c__case_16_case__86 x1 x26 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_16_case__86(x1)(x26)(x)(st))(i)(xs)(st)+c__case_16_case__86 x1 x26 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_16_case__86")(x)++++c__case_17_case__87 x1 x5@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_16(x26)(x27)(x1)(st))(st)+c__case_17_case__87 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_17_case__87(x1)(x)(st))(i)(xs)(st)+c__case_17_case__87 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_17_case__87")(x)++++c__case_18_case__88 x1 x5 x23@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_17(x5)(x1)(st))(st)+c__case_18_case__88 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_18_case__88(x1)(x5)(x)(st))(i)(xs)(st)+c__case_18_case__88 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_18_case__88")(x)++++c__case_23_case__89 x1 x5 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_22(x5)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_18(x5)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_24_case__90 x1 x5 x7@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_23(x5)(x23)(x22)(x1)(st))(st)+c__case_24_case__90 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_24_case__90(x1)(x5)(x)(st))(i)(xs)(st)+c__case_24_case__90 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_24_case__90")(x)++++c__case_25_case__91 x1 x5 x7 x21@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_24(x5)(x7)(x1)(st))(st)+c__case_25_case__91 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_25_case__91(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_25_case__91 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_25_case__91")(x)++++c__case_26_case__92 x1 x5 x7 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_25(x5)(x7)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_27_case__93 x1 x5 x7 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_26(x5)(x7)(x21)(x20)(x1)(st))(st)+c__case_27_case__93 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_27_case__93(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_27_case__93 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_27_case__93")(x)++++c__case_28_case__94 x1 x5 x7 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_27(x5)(x7)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_29_case__95 x1 x5 x7 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_28(x5)(x7)(x19)(x18)(x1)(st))(st)+c__case_29_case__95 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_29_case__95(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_29_case__95 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_29_case__95")(x)++++c__case_30_case__96 x1 x5 x7 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_29(x5)(x7)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_31_case__97 x1 x5 x7 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_30(x5)(x7)(x17)(x16)(x1)(st))(st)+c__case_31_case__97 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_31_case__97(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_31_case__97 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_31_case__97")(x)++++c__case_32_case__98 x1 x5 x7 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_31(x5)(x7)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_33_case__99 x1 x5 x7 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_32(x5)(x7)(x15)(x14)(x1)(st))(st)+c__case_33_case__99 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_33_case__99(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_33_case__99 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_33_case__99")(x)++++c__case_34_case__100 x1 x5 x7 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_33(x5)(x7)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_35_case__101 x1 x5 x7 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_34(x5)(x7)(x13)(x12)(x1)(st))(st)+c__case_35_case__101 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_35_case__101(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_35_case__101 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_35_case__101")(x)++++c__case_36_case__102 x1 x5 x7 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_35(x5)(x7)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_37_case__103 x1 x5 x7 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_36(x5)(x7)(x11)(x10)(x1)(st))(st)+c__case_37_case__103 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_37_case__103(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_37_case__103 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_37_case__103")(x)++++c__case_38_case__104 x1 x5 x7 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('P'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_37(x5)(x7)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_39_case__105 x1 x5 x7 x6@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_38(x5)(x7)(x9)(x8)(x1)(st))(st)+c__case_39_case__105 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_39_case__105(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_39_case__105 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_39_case__105")(x)++++c__case_40_case__106 x1 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_39(x5)(x7)(x6)(x1)(st))(st)+c__case_40_case__106 x1 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_40_case__106(x1)(x5)(x)(st))(i)(xs)(st)+c__case_40_case__106 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_40_case__106")(x)++++c__case_41_case__107 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_40(x5)(x4)(x1)(st))(st)+c__case_41_case__107 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_41_case__107(x1)(x)(st))(i)(xs)(st)+c__case_41_case__107 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_41_case__107")(x)++++c__case_8_case__108 x1 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(st)+c__case_8_case__108 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_8_case__108 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_8_case__108(x1)(x4)(x)(st))(i)(xs)(st)+c__case_8_case__108 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_8_case__108")(x)++++c__case_9_case__109 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_div(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(x7)(st))(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_div(Curry.Module.OraclePrelude.c_mod(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x9)(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)))))(x10)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(x11)(st))(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_mod(x5)(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)))))(x13)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(x14)(st))(x15)(st))(Curry.Module.Prelude.List)))))(st)+c__case_9_case__109 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_8(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x16)(st))(st)+c__case_9_case__109 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_9_case__109(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_9_case__109 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_9_case__109")(x)++++c__case_10_case__110 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List)))(st)+c__case_10_case__110 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryShow.c__case_9(x4)(x5)(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_60(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))(x1)(st))(Curry.Module.OraclePrelude.op_62(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_10_case__110 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_10_case__110(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_10_case__110 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_10_case__110")(x)++++c__case_11_case__111 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List)))(st)+c__case_11_case__111 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_10(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(x7)(st))(st)+c__case_11_case__111 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_11_case__111(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_11_case__111 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_11_case__111")(x)++++c__case_12_case__112 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))(st)+c__case_12_case__112 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_11(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(x7)(st))(st)+c__case_12_case__112 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_12_case__112(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_12_case__112 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_12_case__112")(x)++++c__case_13_case__113 x1 x3@(Curry.Module.FlatCurry.C_Charc x4) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_12(x4)(Curry.Module.OraclePrelude.c_ord(x4)(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('\"'))(x6)(st))(x7)(st))(st))(st)+c__case_13_case__113 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_13_case__113(x1)(x)(st))(i)(xs)(st)+c__case_13_case__113 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_13_case__113")(x)++++c__case_14_case__114 x1 x2@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_13(x3)(x1)(st))(st)+c__case_14_case__114 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_14_case__114(x1)(x)(st))(i)(xs)(st)+c__case_14_case__114 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_14_case__114")(x)++++c__case_7_case__115 x1 x3 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x1)(st)))(st)+c__case_7_case__115 x1 x3 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_7_case__115 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_7_case__115(x1)(x3)(x)(st))(i)(xs)(st)+c__case_7_case__115 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_7_case__115")(x)++++c__case_3_case__116 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_3_case__116 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_3_case__116 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_3_case__116(x1)(x)(st))(i)(xs)(st)+c__case_3_case__116 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_3_case__116")(x)++++c__case_4_case__117 x1 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c_isFiniteList(Curry.Module.OraclePrelude.op_33_33(x7)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x9)(st))(st)+c__case_4_case__117 x1 x7 x8@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryShow.c__case_3(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x10)(st))(st)+c__case_4_case__117 x1 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_4_case__117(x1)(x7)(x)(st))(i)(xs)(st)+c__case_4_case__117 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_4_case__117")(x)++++c__case_5_case__118 x1 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_5_case__118 x1 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryShow.c__case_4(x6)(x7)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_length(x7)(x9)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_5_case__118 x1 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_5_case__118(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_5_case__118 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_5_case__118")(x)++++c__case_6_case__119 x1 x2@(Curry.Module.FlatCurry.C_Var x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__119 x1 x2@(Curry.Module.FlatCurry.C_Lit x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__119 x1 x2@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryShow.c__case_5(x6)(x7)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x7)(Curry.Module.Prelude.List)(x17)(st))(x18)(st))(x19)(st))(st)+c__case_6_case__119 x1 x2@(Curry.Module.FlatCurry.C_Let x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__119 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__119 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__119 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__119 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_6_case__119(x1)(x)(st))(i)(xs)(st)+c__case_6_case__119 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_6_case__119")(x)++++c__case_2_case__120 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))))))))))))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x1)(st))(Curry.Module.OraclePrelude.c_null(x5)(x17)(st))(x18)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))(x19)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_length(x5)(x20)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x21)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleFlatCurryShow.c_isCharConstant(Curry.Module.OraclePrelude.c_head(x5)(x22)(st))(x23)(st))(Curry.Module.OracleFlatCurryShow.c_isStringConstant(Curry.Module.OraclePrelude.op_33_33(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x24)(st))(x25)(st))(x26)(st))(x27)(st))(x28)(st))(x29)(st))(st)+c__case_2_case__120 x1 x2@(Curry.Module.FlatCurry.C_Var x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__120 x1 x2@(Curry.Module.FlatCurry.C_Lit x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__120 x1 x2@(Curry.Module.FlatCurry.C_Let x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__120 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__120 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__120 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__120 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_2_case__120(x1)(x)(st))(i)(xs)(st)+c__case_2_case__120 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_2_case__120")(x)++++c__case_0_case__121 x1 x3@(Curry.Module.FlatCurry.C_Charc x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_0_case__121 x1 x3@(Curry.Module.FlatCurry.C_Intc x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_0_case__121 x1 x3@(Curry.Module.FlatCurry.C_Floatc x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_0_case__121 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_0_case__121(x1)(x)(st))(i)(xs)(st)+c__case_0_case__121 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_0_case__121")(x)++++c__case_1_case__122 x1 x2@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryShow.c__case_0(x3)(x1)(st))(st)+c__case_1_case__122 x1 x2@(Curry.Module.FlatCurry.C_Var x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__122 x1 x2@(Curry.Module.FlatCurry.C_Comb x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__122 x1 x2@(Curry.Module.FlatCurry.C_Let x11 x12) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__122 x1 x2@(Curry.Module.FlatCurry.C_Free x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__122 x1 x2@(Curry.Module.FlatCurry.C_Or x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__122 x1 x2@(Curry.Module.FlatCurry.C_Case x17 x18 x19) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__122 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryShow.c__case_1_case__122(x1)(x)(st))(i)(xs)(st)+c__case_1_case__122 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryShow._case_1_case__122")(x)++
+ dist/build/Curry/Module/OracleFlatCurryTools.hs view
@@ -0,0 +1,1505 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleFlatCurryTools (module Curry.Module.OracleFlatCurryTools) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.FlatCurryTools+import Curry.Module.Char+import Curry.Module.FlatCurry+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.OracleChar+import Curry.Module.OracleFlatCurry+import Curry.Module.OracleList+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_showFlatProg :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatProg x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_123(x2)(x1)(st))(st)++++c_showFlatVisibility :: Curry.Module.FlatCurry.C_Visibility -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatVisibility x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_120(x2)(x1)(st))(st)++++c_showFlatFixity :: Curry.Module.FlatCurry.C_Fixity -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatFixity x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_119(x2)(x1)(st))(st)++++c_showFlatOp :: Curry.Module.FlatCurry.C_OpDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatOp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_118(x2)(x1)(st))(st)++++c_showFlatType :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_117(x2)(x1)(st))(st)++++c_showFlatCons :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatCons x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_116(x2)(x1)(st))(st)++++c_showFlatFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatFunc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_115(x2)(x1)(st))(st)++++c_showFlatRule :: Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatRule x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_114(x2)(x1)(st))(st)++++c_showFlatTypeExpr :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatTypeExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_113(x2)(x1)(st))(st)++++c_showFlatCombType :: Curry.Module.FlatCurry.C_CombType -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatCombType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_112(x2)(x1)(st))(st)++++c_showFlatExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_111(x2)(x1)(st))(st)++++c_showFlatExpr'46showFlatBinding'4649 :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatExpr'46showFlatBinding'4649 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_109(x2)(x1)(st))(st)++++c_showFlatLit :: Curry.Module.FlatCurry.C_Literal -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatLit x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_108(x2)(x1)(st))(st)++++c_showFlatBranch :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatBranch x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_106(x2)(x1)(st))(st)++++c_showFlatPattern :: Curry.Module.FlatCurry.C_Pattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatPattern x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_105(x2)(x1)(st))(st)++++c_showFlatList :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatList x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatListElems(x2)(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(x4)(st))(x5)(st))(st)++++c_showFlatListElems :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showFlatListElems x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(x2)(x3)(x1)(st))(x4)(st))(x5)(st))(st)++++c_showCurryType :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.Prelude.C_Bool -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryType x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_104(x2)(x3)(x4)(x1)(st))(st)++++c_showCurryType'46_'35lambda2 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryType'46_'35lambda2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.OracleFlatCurryTools.c_showCurryType(x2)(Curry.Module.Prelude.C_True)(x3)(x1)(st)))(st)++++c_isFuncType :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFuncType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_97(x2)(x1)(st))(st)++++c_showCurryExpr :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryExpr x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_96(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_showCurryExpr'46_'35lambda3 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryExpr'46_'35lambda3 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_81(x2)(x3)(x4)(x1)(st))(st)++++c_showCurryVar :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryVar x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x3)(st))(st)++++c_showCurryId :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryId x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryTools.c__case_80(x2)(Curry.Module.OracleChar.c_isAlpha(Curry.Module.OraclePrelude.c_head(x2)(x1)(st))(x3)(st))(x4)(st))(st)++++c_showCurryLit :: Curry.Module.FlatCurry.C_Literal -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryLit x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_77(x2)(x1)(st))(st)++++c_showCurryCase :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryCase x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_76(x2)(x3)(x4)(x1)(st))(st)++++c_showCurryCase'46showPattern'46153 :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryCase'46showPattern'46153 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_74(x2)(x3)(x1)(st))(st)++++c_showCurryFiniteList :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.Prelude.C_Int -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_showCurryFiniteList x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_68(x2)(x3)(x4)(x1)(st))(st)++++c_showCurryStringConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryStringConstant x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_41(x2)(x1)(st))(st)++++c_showCharExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCharExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_14(x2)(x1)(st))(st)++++c_showCurryElems :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showCurryElems x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(x2)(x3)(x1)(st))(x4)(st))(x5)(st))(st)++++c_showBracketsIf :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showBracketsIf x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_7(x3)(x2)(x1)(st))(st)++++c_sceBlanks :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_sceBlanks x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_take(x2)(Curry.Module.OraclePrelude.c_repeat(Curry.Module.Prelude.C_Char(' '))(x1)(st))(x3)(st))(st)++++c_isFiniteList :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isFiniteList x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_6(x2)(x1)(st))(st)++++c_isStringConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isStringConstant x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_2(x2)(x1)(st))(st)++++c_isCharConstant :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isCharConstant x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_1(x2)(x1)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_1_case__123(x1)(x2)(st))(st)++++c__case_0 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_0_case__122(x1)(x3)(st))(st)++++c__case_2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_2_case__121(x1)(x2)(st))(st)++++c__case_6 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_6_case__120(x1)(x2)(st))(st)++++c__case_5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_5_case__119(x1)(x6)(x7)(x8)(st))(st)++++c__case_4 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_4_case__118(x1)(x7)(x8)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_3_case__117(x1)(x2)(st))(st)++++c__case_7 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_7_case__116(x1)(x3)(x2)(st))(st)++++c__case_14 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_14_case__115(x1)(x2)(st))(st)++++c__case_13 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_13_case__114(x1)(x3)(st))(st)++++c__case_12 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_12_case__113(x1)(x4)(x5)(x6)(st))(st)++++c__case_11 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_11_case__112(x1)(x4)(x5)(x6)(st))(st)++++c__case_10 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_10_case__111(x1)(x4)(x5)(x6)(st))(st)++++c__case_9 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_9_case__110(x1)(x4)(x5)(x6)(st))(st)++++c__case_8 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_8_case__109(x1)(x4)(x5)(st))(st)++++c__case_41 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_41_case__108(x1)(x2)(st))(st)++++c__case_40 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_40_case__107(x1)(x5)(x4)(st))(st)++++c__case_39 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_39_case__106(x1)(x5)(x7)(x6)(st))(st)++++c__case_38 x5 x7 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_38_case__105(x1)(x5)(x7)(x9)(x8)(st))(st)++++c__case_37 x5 x7 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_37_case__104(x1)(x5)(x7)(x9)(st))(st)++++c__case_36 x5 x7 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_36_case__103(x1)(x5)(x7)(x11)(x10)(st))(st)++++c__case_35 x5 x7 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_35_case__102(x1)(x5)(x7)(x11)(st))(st)++++c__case_34 x5 x7 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_34_case__101(x1)(x5)(x7)(x13)(x12)(st))(st)++++c__case_33 x5 x7 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_33_case__100(x1)(x5)(x7)(x13)(st))(st)++++c__case_32 x5 x7 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_32_case__99(x1)(x5)(x7)(x15)(x14)(st))(st)++++c__case_31 x5 x7 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_31_case__98(x1)(x5)(x7)(x15)(st))(st)++++c__case_30 x5 x7 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_30_case__97(x1)(x5)(x7)(x17)(x16)(st))(st)++++c__case_29 x5 x7 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_29_case__96(x1)(x5)(x7)(x17)(st))(st)++++c__case_28 x5 x7 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_28_case__95(x1)(x5)(x7)(x19)(x18)(st))(st)++++c__case_27 x5 x7 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_27_case__94(x1)(x5)(x7)(x19)(st))(st)++++c__case_26 x5 x7 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_26_case__93(x1)(x5)(x7)(x21)(x20)(st))(st)++++c__case_25 x5 x7 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_25_case__92(x1)(x5)(x7)(x21)(st))(st)++++c__case_24 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_24_case__91(x1)(x5)(x7)(st))(st)++++c__case_23 x5 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_23_case__90(x1)(x5)(x23)(x22)(st))(st)++++c__case_18 x5 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_18_case__89(x1)(x5)(x23)(st))(st)++++c__case_17 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_17_case__88(x1)(x5)(st))(st)++++c__case_16 x26 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_16_case__87(x1)(x26)(x27)(st))(st)++++c__case_15 x26 x28 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_15_case__86(x1)(x26)(x28)(x29)(st))(st)++++c__case_22 x5 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_22_case__85(x1)(x5)(x23)(st))(st)++++c__case_21 x5 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_21_case__84(x1)(x5)(x25)(x24)(st))(st)++++c__case_20 x5 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_20_case__83(x1)(x5)(x25)(st))(st)++++c__case_19 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_19_case__82(x1)(x5)(st))(st)++++c__case_68 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_68_case__81(x1)(x2)(x3)(x4)(st))(st)++++c__case_67 x2 x3 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_67_case__80(x1)(x2)(x3)(x7)(x6)(st))(st)++++c__case_66 x2 x3 x7 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_66_case__79(x1)(x2)(x3)(x7)(x9)(x8)(st))(st)++++c__case_65 x2 x3 x7 x9 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_65_case__78(x1)(x2)(x3)(x7)(x9)(x11)(x10)(st))(st)++++c__case_64 x2 x3 x7 x9 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_64_case__77(x1)(x2)(x3)(x7)(x9)(x11)(st))(st)++++c__case_63 x2 x3 x7 x9 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_63_case__76(x1)(x2)(x3)(x7)(x9)(x13)(x12)(st))(st)++++c__case_62 x2 x3 x7 x9 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_62_case__75(x1)(x2)(x3)(x7)(x9)(x13)(st))(st)++++c__case_61 x2 x3 x7 x9 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_61_case__74(x1)(x2)(x3)(x7)(x9)(x15)(x14)(st))(st)++++c__case_60 x2 x3 x7 x9 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_60_case__73(x1)(x2)(x3)(x7)(x9)(x15)(st))(st)++++c__case_59 x2 x3 x7 x9 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_59_case__72(x1)(x2)(x3)(x7)(x9)(x17)(x16)(st))(st)++++c__case_58 x2 x3 x7 x9 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_58_case__71(x1)(x2)(x3)(x7)(x9)(x17)(st))(st)++++c__case_57 x2 x3 x7 x9 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_57_case__70(x1)(x2)(x3)(x7)(x9)(x19)(x18)(st))(st)++++c__case_56 x2 x3 x7 x9 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_56_case__69(x1)(x2)(x3)(x7)(x9)(x19)(st))(st)++++c__case_55 x2 x3 x7 x9 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_55_case__68(x1)(x2)(x3)(x7)(x9)(x21)(x20)(st))(st)++++c__case_54 x2 x3 x7 x9 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_54_case__67(x1)(x2)(x3)(x7)(x9)(x21)(st))(st)++++c__case_53 x2 x3 x7 x9 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_53_case__66(x1)(x2)(x3)(x7)(x9)(x23)(x22)(st))(st)++++c__case_52 x2 x3 x7 x9 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_52_case__65(x1)(x2)(x3)(x7)(x9)(x23)(st))(st)++++c__case_51 x2 x3 x7 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_51_case__64(x1)(x2)(x3)(x7)(x9)(st))(st)++++c__case_50 x2 x3 x7 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_50_case__63(x1)(x2)(x3)(x7)(x25)(x24)(st))(st)++++c__case_45 x2 x3 x7 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_45_case__62(x1)(x2)(x3)(x7)(x25)(st))(st)++++c__case_44 x2 x3 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_44_case__61(x1)(x2)(x3)(x7)(st))(st)++++c__case_43 x2 x3 x28 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_43_case__60(x1)(x2)(x3)(x28)(x29)(st))(st)++++c__case_42 x2 x3 x28 x30 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_42_case__59(x1)(x2)(x3)(x28)(x30)(x31)(st))(st)++++c__case_49 x7 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_49_case__58(x1)(x7)(x25)(st))(st)++++c__case_48 x7 x27 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_48_case__57(x1)(x7)(x27)(x26)(st))(st)++++c__case_47 x7 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_47_case__56(x1)(x7)(x27)(st))(st)++++c__case_46 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_46_case__55(x1)(x7)(st))(st)++++c__case_74 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_74_case__54(x1)(x2)(x3)(st))(st)++++c__case_73 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_73_case__53(x1)(x2)(x4)(x5)(st))(st)++++c__case_72 x2 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_72_case__52(x1)(x2)(x4)(x6)(x7)(st))(st)++++c__case_69 x2 x4 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_69_case__51(x1)(x2)(x4)(x6)(x8)(x9)(x10)(st))(st)++++c__case_71 x2 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_71_case__50(x1)(x2)(x4)(x6)(x7)(st))(st)++++c__case_70 x2 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_70_case__49(x1)(x2)(x4)(x6)(x7)(st))(st)++++c__case_76 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_76_case__48(x1)(x2)(x3)(x4)(st))(st)++++c__case_75 x2 x3 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_75_case__47(x1)(x2)(x3)(x6)(x5)(st))(st)++++c__case_77 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_77_case__46(x1)(x2)(st))(st)++++c__case_80 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_80_case__45(x1)(x2)(x3)(st))(st)++++c__case_79 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_79_case__44(x1)(x2)(x3)(st))(st)++++c__case_78 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_78_case__43(x1)(x2)(x3)(st))(st)++++c__case_81 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_81_case__42(x1)(x2)(x3)(x4)(st))(st)++++c__case_96 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_96_case__41(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_82 x25 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_82_case__40(x1)(x26)(st))(st)++++c__case_83 x2 x3 x4 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_83_case__39(x1)(x2)(x3)(x4)(x20)(x19)(st))(st)++++c__case_95 x2 x3 x4 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_95_case__38(x1)(x2)(x3)(x4)(x8)(x9)(x10)(st))(st)++++c__case_94 x2 x3 x4 x8 x9 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_94_case__37(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x12)(st))(st)++++c__case_93 x2 x3 x4 x8 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_93_case__36(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x14)(st))(st)++++c__case_86 x2 x3 x4 x9 x11 x13 x15 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_86_case__35(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x17)(st))(st)++++c__case_85 x2 x3 x4 x9 x11 x13 x15 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_85_case__34(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x17)(st))(st)++++c__case_84 x2 x3 x4 x9 x11 x13 x15 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_84_case__33(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x17)(st))(st)++++c__case_92 x2 x3 x4 x8 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_92_case__32(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x14)(st))(st)++++c__case_91 x2 x3 x4 x8 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_91_case__31(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x14)(st))(st)++++c__case_90 x2 x3 x4 x8 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_90_case__30(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x14)(st))(st)++++c__case_88 x2 x3 x4 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_88_case__29(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x14)(st))(st)++++c__case_87 x2 x3 x4 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_87_case__28(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x14)(st))(st)++++c__case_89 x2 x4 x8 x9 x11 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_89_case__27(x1)(x2)(x4)(x8)(x9)(x11)(x13)(x14)(st))(st)++++c__case_97 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_97_case__26(x1)(x2)(st))(st)++++c__case_104 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_104_case__25(x1)(x2)(x3)(x4)(st))(st)++++c__case_102 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_102_case__24(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_101 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_101_case__23(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_100 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_100_case__22(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_99 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_99_case__21(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_98 x2 x3 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_98_case__20(x1)(x2)(x3)(x8)(x9)(x10)(st))(st)++++c__case_103 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_103_case__19(x1)(x5)(x6)(st))(st)++++c__case_105 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_105_case__18(x1)(x2)(st))(st)++++c__case_106 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_106_case__17(x1)(x2)(st))(st)++++c__case_108 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_108_case__16(x1)(x2)(st))(st)++++c__case_107 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_107_case__15(x1)(x5)(x6)(st))(st)++++c__case_109 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_109_case__14(x1)(x2)(st))(st)++++c__case_111 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_111_case__13(x1)(x2)(st))(st)++++c__case_110 x15 x16 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_110_case__12(x1)(x15)(x16)(x14)(st))(st)++++c__case_112 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_112_case__11(x1)(x2)(st))(st)++++c__case_113 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_113_case__10(x1)(x2)(st))(st)++++c__case_114 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_114_case__9(x1)(x2)(st))(st)++++c__case_115 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_115_case__8(x1)(x2)(st))(st)++++c__case_116 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_116_case__7(x1)(x2)(st))(st)++++c__case_117 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_117_case__6(x1)(x2)(st))(st)++++c__case_118 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_118_case__5(x1)(x2)(st))(st)++++c__case_119 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_119_case__4(x1)(x2)(st))(st)++++c__case_120 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_120_case__3(x1)(x2)(st))(st)++++c__case_123 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_123_case__2(x1)(x2)(st))(st)++++c__case_121 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_121_case__1(x1)(x5)(x6)(st))(st)++++c__case_122 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_122_case__0(x1)(x4)(x5)(st))(st)++++c__case_122_case__0 x1 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))))(st)+c__case_122_case__0 x1 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatListElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x4)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(st)+c__case_122_case__0 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_122_case__0(x1)(x4)(x)(st))(i)(xs)(st)+c__case_122_case__0 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_122_case__0")(x)++++c__case_121_case__1 x1 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))))(st)+c__case_121_case__1 x1 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatListElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showFlatType))))(x5)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x7)(st))(x8)(st))(st)+c__case_121_case__1 x1 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_121_case__1(x1)(x5)(x)(st))(i)(xs)(st)+c__case_121_case__1 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_121_case__1")(x)++++c__case_123_case__2 x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c__case_122(x4)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.List)(x8)(st))(x9)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c__case_121(x5)(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.List)(x10)(st))(x11)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatListElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showFlatFunc))))(x6)(x12)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showFlatOp))))(x7)(x13)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(st)+c__case_123_case__2 x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_123_case__2(x1)(x)(st))(i)(xs)(st)+c__case_123_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_123_case__2")(x)++++c__case_120_case__3 x1 x2@Curry.Module.FlatCurry.C_Public st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(st)+c__case_120_case__3 x1 x2@Curry.Module.FlatCurry.C_Private st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(st)+c__case_120_case__3 x1 (Curry.Module.FlatCurry.C_VisibilityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_120_case__3(x1)(x)(st))(i)(xs)(st)+c__case_120_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_120_case__3")(x)++++c__case_119_case__4 x1 x2@Curry.Module.FlatCurry.C_InfixOp st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(st)+c__case_119_case__4 x1 x2@Curry.Module.FlatCurry.C_InfixlOp st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(st)+c__case_119_case__4 x1 x2@Curry.Module.FlatCurry.C_InfixrOp st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(st)+c__case_119_case__4 x1 (Curry.Module.FlatCurry.C_FixityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_119_case__4(x1)(x)(st))(i)(xs)(st)+c__case_119_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_119_case__4")(x)++++c__case_118_case__5 x1 x2@(Curry.Module.FlatCurry.C_Op x3 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatFixity(x4)(x6)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x7)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x8)(st))(x9)(st))(x10)(st))(x11)(st))(st)+c__case_118_case__5 x1 (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_118_case__5(x1)(x)(st))(i)(xs)(st)+c__case_118_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_118_case__5")(x)++++c__case_117_case__6 x1 x2@(Curry.Module.FlatCurry.C_Type x3 x4 x5 x6) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatVisibility(x4)(x11)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x5)(x12)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showFlatCons))))(x6)(x13)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(st)+c__case_117_case__6 x1 x2@(Curry.Module.FlatCurry.C_TypeSyn x7 x8 x9 x10) st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x7)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatVisibility(x8)(x19)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x9)(x20)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatTypeExpr(x10)(x21)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x22)(st))(x23)(st))(x24)(st))(x25)(st))(x26)(st))(st)+c__case_117_case__6 x1 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_117_case__6(x1)(x)(st))(i)(xs)(st)+c__case_117_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_117_case__6")(x)++++c__case_116_case__7 x1 x2@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x7)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatVisibility(x5)(x8)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showFlatTypeExpr))))(x6)(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_116_case__7 x1 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_116_case__7(x1)(x)(st))(i)(xs)(st)+c__case_116_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_116_case__7")(x)++++c__case_115_case__8 x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x8)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatVisibility(x5)(x9)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatTypeExpr(x6)(x10)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatRule(x7)(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(x21)(st))(st)+c__case_115_case__8 x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_115_case__8(x1)(x)(st))(i)(xs)(st)+c__case_115_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_115_case__8")(x)++++c__case_114_case__9 x1 x2@(Curry.Module.FlatCurry.C_Rule x3 x4) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatExpr(x4)(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_114_case__9 x1 x2@(Curry.Module.FlatCurry.C_External x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(st)+c__case_114_case__9 x1 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_114_case__9(x1)(x)(st))(i)(xs)(st)+c__case_114_case__9 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_114_case__9")(x)++++c__case_113_case__10 x1 x2@(Curry.Module.FlatCurry.C_FuncType x3 x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatTypeExpr(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatTypeExpr(x4)(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_113_case__10 x1 x2@(Curry.Module.FlatCurry.C_TCons x5 x6) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showFlatTypeExpr))))(x6)(x13)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x14)(st))(x15)(st))(x16)(st))(st)+c__case_113_case__10 x1 x2@(Curry.Module.FlatCurry.C_TVar x7) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x7)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x17)(st))(x18)(st))(st)+c__case_113_case__10 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_113_case__10(x1)(x)(st))(i)(xs)(st)+c__case_113_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_113_case__10")(x)++++c__case_112_case__11 x1 x2@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))(st)+c__case_112_case__11 x1 x2@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))(st)+c__case_112_case__11 x1 x2@(Curry.Module.FlatCurry.C_FuncPartCall x3) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x5)(st))(x6)(st))(st)+c__case_112_case__11 x1 x2@(Curry.Module.FlatCurry.C_ConsPartCall x4) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x7)(st))(x8)(st))(st)+c__case_112_case__11 x1 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_112_case__11(x1)(x)(st))(i)(xs)(st)+c__case_112_case__11 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_112_case__11")(x)++++c__case_110_case__12 x1 x15 x16 x14@Curry.Module.FlatCurry.C_Rigid st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatExpr(x15)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showFlatBranch))))(x16)(x17)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x18)(st))(x19)(st))(x20)(st))(st)+c__case_110_case__12 x1 x15 x16 x14@Curry.Module.FlatCurry.C_Flex st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatExpr(x15)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showFlatBranch))))(x16)(x21)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x22)(st))(x23)(st))(x24)(st))(st)+c__case_110_case__12 x1 x15 x16 (Curry.Module.FlatCurry.C_CaseTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_110_case__12(x1)(x15)(x16)(x)(st))(i)(xs)(st)+c__case_110_case__12 x1 x15 x16 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_110_case__12")(x)++++c__case_111_case__13 x1 x2@(Curry.Module.FlatCurry.C_Var x3) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('V'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x17)(st))(x18)(st))(st)+c__case_111_case__13 x1 x2@(Curry.Module.FlatCurry.C_Lit x4) st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatLit(x4)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x19)(st))(x20)(st))(st)+c__case_111_case__13 x1 x2@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatCombType(x5)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x6)(x21)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showFlatExpr))))(x7)(x22)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x23)(st))(x24)(st))(x25)(st))(x26)(st))(x27)(st))(st)+c__case_111_case__13 x1 x2@(Curry.Module.FlatCurry.C_Let x8 x9) st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showFlatExpr'46showFlatBinding'4649))))(x8)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatExpr(x9)(x28)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x29)(st))(x30)(st))(x31)(st))(st)+c__case_111_case__13 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x10)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatExpr(x11)(x32)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x33)(st))(x34)(st))(x35)(st))(st)+c__case_111_case__13 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatExpr(x12)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatExpr(x13)(x36)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x37)(st))(x38)(st))(x39)(st))(x40)(st))(st)+c__case_111_case__13 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_110(x15)(x16)(x14)(x1)(st))(st)+c__case_111_case__13 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_111_case__13(x1)(x)(st))(i)(xs)(st)+c__case_111_case__13 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_111_case__13")(x)++++c__case_109_case__14 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatExpr(x4)(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_109_case__14 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_109_case__14(x1)(x)(st))(i)(xs)(st)+c__case_109_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_109_case__14")(x)++++c__case_107_case__15 x1 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))(x1)(st))(x7)(st))(st)+c__case_107_case__15 x1 x5 x6@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(Curry.Module.OraclePrelude.c_ord(x5)(x1)(st))(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))(x9)(st))(x10)(st))(st)+c__case_107_case__15 x1 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_107_case__15(x1)(x5)(x)(st))(i)(xs)(st)+c__case_107_case__15 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_107_case__15")(x)++++c__case_108_case__16 x1 x2@(Curry.Module.FlatCurry.C_Intc x3) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('I'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(st)+c__case_108_case__16 x1 x2@(Curry.Module.FlatCurry.C_Floatc x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x4)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x8)(st))(x9)(st))(st)+c__case_108_case__16 x1 x2@(Curry.Module.FlatCurry.C_Charc x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))))))(Curry.Module.OracleFlatCurryTools.c__case_107(x5)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(Curry.Module.OraclePrelude.c_ord(x5)(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))(x10)(st))(Curry.Module.OraclePrelude.op_60(Curry.Module.OraclePrelude.c_ord(x5)(x11)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x12)(st))(x13)(st))(x14)(st))(st)+c__case_108_case__16 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_108_case__16(x1)(x)(st))(i)(xs)(st)+c__case_108_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_108_case__16")(x)++++c__case_106_case__17 x1 x2@(Curry.Module.FlatCurry.C_Branch x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('B'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatPattern(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatExpr(x4)(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_106_case__17 x1 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_106_case__17(x1)(x)(st))(i)(xs)(st)+c__case_106_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_106_case__17")(x)++++c__case_105_case__18 x1 x2@(Curry.Module.FlatCurry.C_Pattern x3 x4) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatList(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x4)(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_105_case__18 x1 x2@(Curry.Module.FlatCurry.C_LPattern x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showFlatLit(x5)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(st)+c__case_105_case__18 x1 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_105_case__18(x1)(x)(st))(i)(xs)(st)+c__case_105_case__18 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_105_case__18")(x)++++c__case_103_case__19 x1 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x5)(x1)(st))(x7)(st))(Curry.Module.Prelude.List))(st)+c__case_103_case__19 x1 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.OraclePrelude.c_show(x5)(x1)(st)))(st)+c__case_103_case__19 x1 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_103_case__19(x1)(x5)(x)(st))(i)(xs)(st)+c__case_103_case__19 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_103_case__19")(x)++++c__case_98_case__20 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(x2)(x8)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showCurryType'46_'35lambda2(x2)))))(x11)(st))(x9)(x12)(st))(x13)(st))(x14)(st))(st)+c__case_98_case__20 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_98_case__20 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_98_case__20(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_98_case__20 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_98_case__20")(x)++++c__case_99_case__21 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showCurryType(x2)(Curry.Module.Prelude.C_False)))))(x9)(x1)(st))(x11)(st))(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x13)(st))(x14)(st))(st)+c__case_99_case__21 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_98(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x15)(st))(st)+c__case_99_case__21 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_99_case__21(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_99_case__21 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_99_case__21")(x)++++c__case_100_case__22 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryType(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.c_head(x9)(x1)(st))(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(x12)(st))(x13)(st))(st)+c__case_100_case__22 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryTools.c__case_99(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OraclePrelude.c_snd(x8)(x1)(st))(x14)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(x15)(st))(x16)(st))(st)+c__case_100_case__22 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_100_case__22(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_100_case__22 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_100_case__22")(x)++++c__case_101_case__23 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List)))))))(st)+c__case_101_case__23 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_100(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x1)(st))(x11)(st))(st)+c__case_101_case__23 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_101_case__23(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_101_case__23 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_101_case__23")(x)++++c__case_102_case__24 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(x8)(x1)(st))(st)+c__case_102_case__24 x1 x2 x3 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryTools.c__case_101(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_head(x9)(x11)(st))(Curry.Module.FlatCurry.C_TCons(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.List))(x12)(st))(x13)(st))(x14)(st))(st)+c__case_102_case__24 x1 x2 x3 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_102_case__24(x1)(x2)(x3)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_102_case__24 x1 x2 x3 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_102_case__24")(x)++++c__case_104_case__25 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_TVar x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_103(x5)(Curry.Module.OraclePrelude.op_60(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x1)(st))(x10)(st))(st)+c__case_104_case__25 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_FuncType x6 x7) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryType(x2)(Curry.Module.OracleFlatCurryTools.c_isFuncType(x6)(x1)(st))(x6)(x11)(st))(Curry.Module.OraclePrelude.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.OracleFlatCurryTools.c_showCurryType(x2)(Curry.Module.Prelude.C_False)(x7)(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_104_case__25 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_TCons x8 x9) st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_102(x2)(x3)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.List)(x1)(st))(x16)(st))(st)+c__case_104_case__25 x1 x2 x3 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_104_case__25(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_104_case__25 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_104_case__25")(x)++++c__case_97_case__26 x1 x2@(Curry.Module.FlatCurry.C_TVar x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_97_case__26 x1 x2@(Curry.Module.FlatCurry.C_FuncType x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_97_case__26 x1 x2@(Curry.Module.FlatCurry.C_TCons x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_97_case__26 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_97_case__26(x1)(x)(st))(i)(xs)(st)+c__case_97_case__26 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_97_case__26")(x)++++c__case_89_case__27 x1 x2 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryStringConstant(Curry.Module.FlatCurry.C_Comb(x8)(x9)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(x15)(st))(x16)(st))(st)+c__case_89_case__27 x1 x2 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryFiniteList(x2)(x4)(Curry.Module.FlatCurry.C_Comb(x8)(x9)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(x1)(st))(x17)(st))(x18)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))(x19)(st))(x20)(st))(st)+c__case_89_case__27 x1 x2 x4 x8 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_89_case__27(x1)(x2)(x4)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_89_case__27 x1 x2 x4 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_89_case__27")(x)++++c__case_87_case__28 x1 x2 x3 x4 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x11)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(x2)(x9)(x15)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x13)(x16)(st))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(x21)(st))(st)+c__case_87_case__28 x1 x2 x3 x4 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_87_case__28 x1 x2 x3 x4 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_87_case__28(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_87_case__28 x1 x2 x3 x4 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_87_case__28")(x)++++c__case_88_case__29 x1 x2 x3 x4 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x4)(x11)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x4)(x13)(x15)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(st)+c__case_88_case__29 x1 x2 x3 x4 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_87(x2)(x3)(x4)(x9)(x11)(x13)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x20)(st))(st)+c__case_88_case__29 x1 x2 x3 x4 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_88_case__29(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_88_case__29 x1 x2 x3 x4 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_88_case__29")(x)++++c__case_90_case__30 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_89(x2)(x4)(x8)(x9)(x11)(x13)(Curry.Module.OracleFlatCurryTools.c_isStringConstant(Curry.Module.FlatCurry.C_Comb(x8)(x9)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(x1)(st))(x15)(st))(st)+c__case_90_case__30 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryTools.c__case_88(x2)(x3)(x4)(x9)(x11)(x13)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_snd(x9)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))))(x16)(st))(x17)(st))(st)+c__case_90_case__30 x1 x2 x3 x4 x8 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_90_case__30(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_90_case__30 x1 x2 x3 x4 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_90_case__30")(x)++++c__case_91_case__31 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(x2)(x9)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)))))((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(st)+c__case_91_case__31 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_90(x2)(x3)(x4)(x8)(x9)(x11)(x13)(Curry.Module.OracleFlatCurryTools.c_isFiniteList(Curry.Module.FlatCurry.C_Comb(x8)(x9)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(x1)(st))(x19)(st))(st)+c__case_91_case__31 x1 x2 x3 x4 x8 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_91_case__31(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_91_case__31 x1 x2 x3 x4 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_91_case__31")(x)++++c__case_92_case__32 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x11)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x13)(x15)(st))(x16)(st))(x17)(st))(x18)(st))(st)+c__case_92_case__32 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.C_False st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryTools.c__case_91(x2)(x3)(x4)(x8)(x9)(x11)(x13)(Curry.Module.OracleChar.c_isAlpha(Curry.Module.OraclePrelude.c_head(Curry.Module.OraclePrelude.c_snd(x9)(x1)(st))(x19)(st))(x20)(st))(x21)(st))(st)+c__case_92_case__32 x1 x2 x3 x4 x8 x9 x11 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_92_case__32(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_92_case__32 x1 x2 x3 x4 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_92_case__32")(x)++++c__case_84_case__33 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_True st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryId(Curry.Module.Oracle.c_apply(x2)(x9)(x1)(st))(x18)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)))))((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x15)(x16))))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(st)+c__case_84_case__33 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_84_case__33 x1 x2 x3 x4 x9 x11 x13 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_84_case__33(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x)(st))(i)(xs)(st)+c__case_84_case__33 x1 x2 x3 x4 x9 x11 x13 x15 x16 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_84_case__33")(x)++++c__case_85_case__34 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_True st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x4)))))((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x15)(x16))))(x1)(st))(x18)(st))(x19)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x20)(st))(x21)(st))(st)+c__case_85_case__34 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_False st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_84(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x22)(st))(st)+c__case_85_case__34 x1 x2 x3 x4 x9 x11 x13 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_85_case__34(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x)(st))(i)(xs)(st)+c__case_85_case__34 x1 x2 x3 x4 x9 x11 x13 x15 x16 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_85_case__34")(x)++++c__case_86_case__35 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_True st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_sceBlanks(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x18)(st))(x11)(x19)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_sceBlanks(x4)(x20)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x21)(st))(x13)(x22)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_sceBlanks(x4)(x23)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x24)(st))(x15)(x25)(st))(x26)(st))(x27)(st))(x28)(st))(x29)(st))(x30)(st))(x31)(st))(x32)(st))(x33)(st))(x34)(st))(x35)(st))(x36)(st))(x37)(st))(st)+c__case_86_case__35 x1 x2 x3 x4 x9 x11 x13 x15 x16 x17@Curry.Module.Prelude.C_False st = let {x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryTools.c__case_85(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OraclePrelude.c_snd(x9)(x1)(st))(x38)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(x39)(st))(x40)(st))(st)+c__case_86_case__35 x1 x2 x3 x4 x9 x11 x13 x15 x16 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_86_case__35(x1)(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(x)(st))(i)(xs)(st)+c__case_86_case__35 x1 x2 x3 x4 x9 x11 x13 x15 x16 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_86_case__35")(x)++++c__case_93_case__36 x1 x2 x3 x4 x8 x9 x11 x13 x14@Curry.Module.Prelude.List st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_92(x2)(x3)(x4)(x8)(x9)(x11)(x13)(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x1)(st))(x17)(st))(st)+c__case_93_case__36 x1 x2 x3 x4 x8 x9 x11 x13 x14@((Curry.Module.Prelude.:<) x15 x16) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryTools.c__case_86(x2)(x3)(x4)(x9)(x11)(x13)(x15)(x16)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('_'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x16)(Curry.Module.Prelude.List)(x18)(st))(x19)(st))(x20)(st))(st)+c__case_93_case__36 x1 x2 x3 x4 x8 x9 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_93_case__36(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_93_case__36 x1 x2 x3 x4 x8 x9 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_93_case__36")(x)++++c__case_94_case__37 x1 x2 x3 x4 x8 x9 x11 x12@Curry.Module.Prelude.List st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryId(Curry.Module.Oracle.c_apply(x2)(x9)(x1)(st))(x15)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x11)(x16)(st))(x17)(st))(x18)(st))(x19)(st))(st)+c__case_94_case__37 x1 x2 x3 x4 x8 x9 x11 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_93(x2)(x3)(x4)(x8)(x9)(x11)(x13)(x14)(x1)(st))(st)+c__case_94_case__37 x1 x2 x3 x4 x8 x9 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_94_case__37(x1)(x2)(x3)(x4)(x8)(x9)(x11)(x)(st))(i)(xs)(st)+c__case_94_case__37 x1 x2 x3 x4 x8 x9 x11 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_94_case__37")(x)++++c__case_95_case__38 x1 x2 x3 x4 x8 x9 x10@Curry.Module.Prelude.List st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryId(Curry.Module.Oracle.c_apply(x2)(x9)(x1)(st))(x13)(st))(st)+c__case_95_case__38 x1 x2 x3 x4 x8 x9 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_94(x2)(x3)(x4)(x8)(x9)(x11)(x12)(x1)(st))(st)+c__case_95_case__38 x1 x2 x3 x4 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_95_case__38(x1)(x2)(x3)(x4)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_95_case__38 x1 x2 x3 x4 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_95_case__38")(x)++++c__case_83_case__39 x1 x2 x3 x4 x20 x19@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(x3)(x4)(x20)(x1)(st))(st)+c__case_83_case__39 x1 x2 x3 x4 x20 x19@((Curry.Module.Prelude.:<) x21 x22) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))))))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showCurryVar))))((Curry.Module.Prelude.:<)(x21)(x22))(x1)(st))(x23)(st))(x24)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x4)(x20)(x25)(st))(x26)(st))(x27)(st))(x28)(st))(x29)(st))(st)+c__case_83_case__39 x1 x2 x3 x4 x20 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_83_case__39(x1)(x2)(x3)(x4)(x20)(x)(st))(i)(xs)(st)+c__case_83_case__39 x1 x2 x3 x4 x20 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_83_case__39")(x)++++c__case_82_case__40 x1 x26@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(st)+c__case_82_case__40 x1 x26@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(st)+c__case_82_case__40 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_82_case__40(x1)(x)(st))(i)(xs)(st)+c__case_82_case__40 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_82_case__40")(x)++++c__case_96_case__41 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Var x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c_showCurryVar(x6)(x1)(st))(st)+c__case_96_case__41 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Lit x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c_showCurryLit(x7)(x1)(st))(st)+c__case_96_case__41 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Comb x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_95(x2)(x3)(x4)(x8)(x9)(x10)(x1)(st))(st)+c__case_96_case__41 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Let x17 x18) st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)((Curry.Module.Prelude.:<)(x43)(Curry.Module.Prelude.List)))))))))))))))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_sceBlanks(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OracleFlatCurryTools.c_sceBlanks(x4)(x28)(st))(x29)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showCurryExpr'46_'35lambda3(x4)(x2)))))(x17)(x30)(st))(x31)(st))(x32)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_sceBlanks(x4)(x33)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(x34)(st))(x35)(st))(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x36)(st))(x18)(x37)(st))(x38)(st))(x39)(st))(x40)(st))(x41)(st))(x42)(st))(x43)(st))(st)+c__case_96_case__41 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Free x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_83(x2)(x3)(x4)(x20)(x19)(x1)(st))(st)+c__case_96_case__41 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Or x23 x24) st = let {x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x45 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x46 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x47 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x44)((Curry.Module.Prelude.:<)(x45)((Curry.Module.Prelude.:<)(x46)((Curry.Module.Prelude.:<)(x47)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x23)(x1)(st))(Curry.Module.OraclePrelude.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.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x24)(x44)(st))(x45)(st))(x46)(st))(x47)(st))(st)+c__case_96_case__41 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Case x25 x26 x27) st = let {x48 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x49 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x50 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x51 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x52 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x53 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x54 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x55 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x56 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x57 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x48)((Curry.Module.Prelude.:<)(x49)((Curry.Module.Prelude.:<)(x50)((Curry.Module.Prelude.:<)(x51)((Curry.Module.Prelude.:<)(x52)((Curry.Module.Prelude.:<)(x53)((Curry.Module.Prelude.:<)(x54)((Curry.Module.Prelude.:<)(x55)((Curry.Module.Prelude.:<)(x56)((Curry.Module.Prelude.:<)(x57)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OracleFlatCurryTools.c_showBracketsIf(x3)(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c__case_82(x25)(Curry.Module.OraclePrelude.op_61_61(x25)(Curry.Module.FlatCurry.C_Rigid)(x1)(st))(x48)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_True)(x4)(x26)(x49)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showCurryCase(x2)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x50)(st))))))(x27)(x51)(st))(Curry.Module.OracleFlatCurryTools.c_sceBlanks(x4)(x52)(st))(x53)(st))(x54)(st))(x55)(st))(x56)(st))(x57)(st))(st)+c__case_96_case__41 x1 x2 x3 x4 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_96_case__41(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_96_case__41 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_96_case__41")(x)++++c__case_81_case__42 x1 x2 x3 x4@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryVar(x5)(x1)(st))(Curry.Module.OraclePrelude.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.OracleFlatCurryTools.c_showCurryExpr(x3)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x7)(st))(x6)(x8)(st))(x9)(st))(x10)(st))(st)+c__case_81_case__42 x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_81_case__42(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_81_case__42 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_81_case__42")(x)++++c__case_78_case__43 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(x2))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x1)(st))(st)+c__case_78_case__43 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_78_case__43 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_78_case__43(x1)(x2)(x)(st))(i)(xs)(st)+c__case_78_case__43 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_78_case__43")(x)++++c__case_79_case__44 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_79_case__44 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_78(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x4)(st))(st)+c__case_79_case__44 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_79_case__44(x1)(x2)(x)(st))(i)(xs)(st)+c__case_79_case__44 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_79_case__44")(x)++++c__case_80_case__45 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_80_case__45 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_79(x2)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(x1)(st))(x4)(st))(st)+c__case_80_case__45 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_80_case__45(x1)(x2)(x)(st))(i)(xs)(st)+c__case_80_case__45 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_80_case__45")(x)++++c__case_77_case__46 x1 x2@(Curry.Module.FlatCurry.C_Intc x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(st)+c__case_77_case__46 x1 x2@(Curry.Module.FlatCurry.C_Floatc x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_show(x4)(x1)(st))(st)+c__case_77_case__46 x1 x2@(Curry.Module.FlatCurry.C_Charc x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))(st)+c__case_77_case__46 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_77_case__46(x1)(x)(st))(i)(xs)(st)+c__case_77_case__46 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_77_case__46")(x)++++c__case_75_case__47 x1 x2 x3 x6 x5@(Curry.Module.FlatCurry.C_Pattern x7 x8) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_sceBlanks(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryCase'46showPattern'46153(Curry.Module.Oracle.c_apply(x2)(x7)(x10)(st))(x8)(x11)(st))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x3)(x6)(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(st)+c__case_75_case__47 x1 x2 x3 x6 x5@(Curry.Module.FlatCurry.C_LPattern x9) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_sceBlanks(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryLit(x9)(x17)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x3)(x6)(x18)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(x23)(st))(st)+c__case_75_case__47 x1 x2 x3 x6 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_75_case__47(x1)(x2)(x3)(x6)(x)(st))(i)(xs)(st)+c__case_75_case__47 x1 x2 x3 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_75_case__47")(x)++++c__case_76_case__48 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Branch x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_75(x2)(x3)(x6)(x5)(x1)(st))(st)+c__case_76_case__48 x1 x2 x3 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_76_case__48(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_76_case__48 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_76_case__48")(x)++++c__case_70_case__49 x1 x2 x4 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryVar(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryVar(x6)(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_70_case__49 x1 x2 x4 x6 x7@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryVar(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryVar(x6)(x13)(st))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(st)+c__case_70_case__49 x1 x2 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_70_case__49(x1)(x2)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_70_case__49 x1 x2 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_70_case__49")(x)++++c__case_71_case__50 x1 x2 x4 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCurryVar(x4)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryVar(x6)(x8)(st))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_71_case__50 x1 x2 x4 x6 x7@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_70(x2)(x4)(x6)(Curry.Module.OraclePrelude.op_61_61(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))))(x1)(st))(x13)(st))(st)+c__case_71_case__50 x1 x2 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_71_case__50(x1)(x2)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_71_case__50 x1 x2 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_71_case__50")(x)++++c__case_69_case__51 x1 x2 x4 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showCurryVar))))((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x8)(x9))))(x1)(st))(x11)(st))(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x13)(st))(x14)(st))(st)+c__case_69_case__51 x1 x2 x4 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryElems(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryTools.c_showCurryVar))))((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x8)(x9))))(x1)(st))(x15)(st))(x16)(st))(st)+c__case_69_case__51 x1 x2 x4 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_69_case__51(x1)(x2)(x4)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_69_case__51 x1 x2 x4 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_69_case__51")(x)++++c__case_72_case__52 x1 x2 x4 x6 x7@Curry.Module.Prelude.List st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryTools.c__case_71(x2)(x4)(x6)(Curry.Module.OracleChar.c_isAlpha(Curry.Module.OraclePrelude.c_head(x2)(x1)(st))(x10)(st))(x11)(st))(st)+c__case_72_case__52 x1 x2 x4 x6 x7@((Curry.Module.Prelude.:<) x8 x9) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlatCurryTools.c__case_69(x2)(x4)(x6)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x2)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(x12)(st))(x13)(st))(st)+c__case_72_case__52 x1 x2 x4 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_72_case__52(x1)(x2)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_72_case__52 x1 x2 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_72_case__52")(x)++++c__case_73_case__53 x1 x2 x4 x5@Curry.Module.Prelude.List st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_showCurryVar(x4)(x1)(st))(x8)(st))(x9)(st))(st)+c__case_73_case__53 x1 x2 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_72(x2)(x4)(x6)(x7)(x1)(st))(st)+c__case_73_case__53 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_73_case__53(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_73_case__53 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_73_case__53")(x)++++c__case_74_case__54 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_74_case__54 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_73(x2)(x4)(x5)(x1)(st))(st)+c__case_74_case__54 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_74_case__54(x1)(x2)(x)(st))(i)(xs)(st)+c__case_74_case__54 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_74_case__54")(x)++++c__case_46_case__55 x1 x7@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_46_case__55 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_46_case__55(x1)(x)(st))(i)(xs)(st)+c__case_46_case__55 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_46_case__55")(x)++++c__case_47_case__56 x1 x7 x27@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_46(x7)(x1)(st))(st)+c__case_47_case__56 x1 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_47_case__56(x1)(x7)(x)(st))(i)(xs)(st)+c__case_47_case__56 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_47_case__56")(x)++++c__case_48_case__57 x1 x7 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_47(x7)(x27)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_49_case__58 x1 x7 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_48(x7)(x27)(x26)(x1)(st))(st)+c__case_49_case__58 x1 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_49_case__58(x1)(x7)(x)(st))(i)(xs)(st)+c__case_49_case__58 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_49_case__58")(x)++++c__case_42_case__59 x1 x2 x3 x28 x30 x31@Curry.Module.Prelude.List st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryTools.c_showCurryExpr(x2)(Curry.Module.Prelude.C_False)(x3)(x28)(x1)(st))(Curry.Module.OracleFlatCurryTools.c_showCurryFiniteList(x2)(x3)(x30)(x32)(st)))(st)+c__case_42_case__59 x1 x2 x3 x28 x30 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_42_case__59(x1)(x2)(x3)(x28)(x30)(x)(st))(i)(xs)(st)+c__case_42_case__59 x1 x2 x3 x28 x30 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_42_case__59")(x)++++c__case_43_case__60 x1 x2 x3 x28 x29@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_42(x2)(x3)(x28)(x30)(x31)(x1)(st))(st)+c__case_43_case__60 x1 x2 x3 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_43_case__60(x1)(x2)(x3)(x28)(x)(st))(i)(xs)(st)+c__case_43_case__60 x1 x2 x3 x28 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_43_case__60")(x)++++c__case_44_case__61 x1 x2 x3 x7@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_43(x2)(x3)(x28)(x29)(x1)(st))(st)+c__case_44_case__61 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_44_case__61(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_44_case__61 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_44_case__61")(x)++++c__case_45_case__62 x1 x2 x3 x7 x25@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_44(x2)(x3)(x7)(x1)(st))(st)+c__case_45_case__62 x1 x2 x3 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_45_case__62(x1)(x2)(x3)(x7)(x)(st))(i)(xs)(st)+c__case_45_case__62 x1 x2 x3 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_45_case__62")(x)++++c__case_50_case__63 x1 x2 x3 x7 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_49(x7)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_45(x2)(x3)(x7)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_51_case__64 x1 x2 x3 x7 x9@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_50(x2)(x3)(x7)(x25)(x24)(x1)(st))(st)+c__case_51_case__64 x1 x2 x3 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_51_case__64(x1)(x2)(x3)(x7)(x)(st))(i)(xs)(st)+c__case_51_case__64 x1 x2 x3 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_51_case__64")(x)++++c__case_52_case__65 x1 x2 x3 x7 x9 x23@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_51(x2)(x3)(x7)(x9)(x1)(st))(st)+c__case_52_case__65 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_52_case__65(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_52_case__65 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_52_case__65")(x)++++c__case_53_case__66 x1 x2 x3 x7 x9 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_52(x2)(x3)(x7)(x9)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_54_case__67 x1 x2 x3 x7 x9 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_53(x2)(x3)(x7)(x9)(x23)(x22)(x1)(st))(st)+c__case_54_case__67 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_54_case__67(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_54_case__67 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_54_case__67")(x)++++c__case_55_case__68 x1 x2 x3 x7 x9 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_54(x2)(x3)(x7)(x9)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_56_case__69 x1 x2 x3 x7 x9 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_55(x2)(x3)(x7)(x9)(x21)(x20)(x1)(st))(st)+c__case_56_case__69 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_56_case__69(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_56_case__69 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_56_case__69")(x)++++c__case_57_case__70 x1 x2 x3 x7 x9 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_56(x2)(x3)(x7)(x9)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_58_case__71 x1 x2 x3 x7 x9 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_57(x2)(x3)(x7)(x9)(x19)(x18)(x1)(st))(st)+c__case_58_case__71 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_58_case__71(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_58_case__71 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_58_case__71")(x)++++c__case_59_case__72 x1 x2 x3 x7 x9 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_58(x2)(x3)(x7)(x9)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_60_case__73 x1 x2 x3 x7 x9 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_59(x2)(x3)(x7)(x9)(x17)(x16)(x1)(st))(st)+c__case_60_case__73 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_60_case__73(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_60_case__73 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_60_case__73")(x)++++c__case_61_case__74 x1 x2 x3 x7 x9 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_60(x2)(x3)(x7)(x9)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_62_case__75 x1 x2 x3 x7 x9 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_61(x2)(x3)(x7)(x9)(x15)(x14)(x1)(st))(st)+c__case_62_case__75 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_62_case__75(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_62_case__75 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_62_case__75")(x)++++c__case_63_case__76 x1 x2 x3 x7 x9 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_62(x2)(x3)(x7)(x9)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_64_case__77 x1 x2 x3 x7 x9 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_63(x2)(x3)(x7)(x9)(x13)(x12)(x1)(st))(st)+c__case_64_case__77 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_64_case__77(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_64_case__77 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_64_case__77")(x)++++c__case_65_case__78 x1 x2 x3 x7 x9 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_64(x2)(x3)(x7)(x9)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_66_case__79 x1 x2 x3 x7 x9 x8@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_65(x2)(x3)(x7)(x9)(x11)(x10)(x1)(st))(st)+c__case_66_case__79 x1 x2 x3 x7 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_66_case__79(x1)(x2)(x3)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_66_case__79 x1 x2 x3 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_66_case__79")(x)++++c__case_67_case__80 x1 x2 x3 x7 x6@(Curry.Module.Prelude.T2 x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_66(x2)(x3)(x7)(x9)(x8)(x1)(st))(st)+c__case_67_case__80 x1 x2 x3 x7 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_67_case__80(x1)(x2)(x3)(x7)(x)(st))(i)(xs)(st)+c__case_67_case__80 x1 x2 x3 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_67_case__80")(x)++++c__case_68_case__81 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_67(x2)(x3)(x7)(x6)(x1)(st))(st)+c__case_68_case__81 x1 x2 x3 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_68_case__81(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_68_case__81 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_68_case__81")(x)++++c__case_19_case__82 x1 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_19_case__82 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_19_case__82(x1)(x)(st))(i)(xs)(st)+c__case_19_case__82 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_19_case__82")(x)++++c__case_20_case__83 x1 x5 x25@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_19(x5)(x1)(st))(st)+c__case_20_case__83 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_20_case__83(x1)(x5)(x)(st))(i)(xs)(st)+c__case_20_case__83 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_20_case__83")(x)++++c__case_21_case__84 x1 x5 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char(']'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_20(x5)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_22_case__85 x1 x5 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_21(x5)(x25)(x24)(x1)(st))(st)+c__case_22_case__85 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_22_case__85(x1)(x5)(x)(st))(i)(xs)(st)+c__case_22_case__85 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_22_case__85")(x)++++c__case_15_case__86 x1 x26 x28 x29@Curry.Module.Prelude.List st = let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryTools.c_showCharExpr(x26)(x1)(st))(Curry.Module.OracleFlatCurryTools.c_showCurryStringConstant(x28)(x30)(st))(x31)(st))(st)+c__case_15_case__86 x1 x26 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_15_case__86(x1)(x26)(x28)(x)(st))(i)(xs)(st)+c__case_15_case__86 x1 x26 x28 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_15_case__86")(x)++++c__case_16_case__87 x1 x26 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_15(x26)(x28)(x29)(x1)(st))(st)+c__case_16_case__87 x1 x26 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_16_case__87(x1)(x26)(x)(st))(i)(xs)(st)+c__case_16_case__87 x1 x26 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_16_case__87")(x)++++c__case_17_case__88 x1 x5@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_16(x26)(x27)(x1)(st))(st)+c__case_17_case__88 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_17_case__88(x1)(x)(st))(i)(xs)(st)+c__case_17_case__88 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_17_case__88")(x)++++c__case_18_case__89 x1 x5 x23@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_17(x5)(x1)(st))(st)+c__case_18_case__89 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_18_case__89(x1)(x5)(x)(st))(i)(xs)(st)+c__case_18_case__89 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_18_case__89")(x)++++c__case_23_case__90 x1 x5 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('['))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_22(x5)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char(':'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_18(x5)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_24_case__91 x1 x5 x7@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_23(x5)(x23)(x22)(x1)(st))(st)+c__case_24_case__91 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_24_case__91(x1)(x5)(x)(st))(i)(xs)(st)+c__case_24_case__91 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_24_case__91")(x)++++c__case_25_case__92 x1 x5 x7 x21@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_24(x5)(x7)(x1)(st))(st)+c__case_25_case__92 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_25_case__92(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_25_case__92 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_25_case__92")(x)++++c__case_26_case__93 x1 x5 x7 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_25(x5)(x7)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_27_case__94 x1 x5 x7 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_26(x5)(x7)(x21)(x20)(x1)(st))(st)+c__case_27_case__94 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_27_case__94(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_27_case__94 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_27_case__94")(x)++++c__case_28_case__95 x1 x5 x7 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_27(x5)(x7)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_29_case__96 x1 x5 x7 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_28(x5)(x7)(x19)(x18)(x1)(st))(st)+c__case_29_case__96 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_29_case__96(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_29_case__96 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_29_case__96")(x)++++c__case_30_case__97 x1 x5 x7 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_29(x5)(x7)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_31_case__98 x1 x5 x7 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_30(x5)(x7)(x17)(x16)(x1)(st))(st)+c__case_31_case__98 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_31_case__98(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_31_case__98 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_31_case__98")(x)++++c__case_32_case__99 x1 x5 x7 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_31(x5)(x7)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_33_case__100 x1 x5 x7 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_32(x5)(x7)(x15)(x14)(x1)(st))(st)+c__case_33_case__100 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_33_case__100(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_33_case__100 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_33_case__100")(x)++++c__case_34_case__101 x1 x5 x7 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_33(x5)(x7)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_35_case__102 x1 x5 x7 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_34(x5)(x7)(x13)(x12)(x1)(st))(st)+c__case_35_case__102 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_35_case__102(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_35_case__102 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_35_case__102")(x)++++c__case_36_case__103 x1 x5 x7 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_35(x5)(x7)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_37_case__104 x1 x5 x7 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_36(x5)(x7)(x11)(x10)(x1)(st))(st)+c__case_37_case__104 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_37_case__104(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_37_case__104 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_37_case__104")(x)++++c__case_38_case__105 x1 x5 x7 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_37(x5)(x7)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_39_case__106 x1 x5 x7 x6@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_38(x5)(x7)(x9)(x8)(x1)(st))(st)+c__case_39_case__106 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_39_case__106(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_39_case__106 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_39_case__106")(x)++++c__case_40_case__107 x1 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_39(x5)(x7)(x6)(x1)(st))(st)+c__case_40_case__107 x1 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_40_case__107(x1)(x5)(x)(st))(i)(xs)(st)+c__case_40_case__107 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_40_case__107")(x)++++c__case_41_case__108 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_40(x5)(x4)(x1)(st))(st)+c__case_41_case__108 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_41_case__108(x1)(x)(st))(i)(xs)(st)+c__case_41_case__108 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_41_case__108")(x)++++c__case_8_case__109 x1 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(st)+c__case_8_case__109 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_8_case__109 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_8_case__109(x1)(x4)(x)(st))(i)(xs)(st)+c__case_8_case__109 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_8_case__109")(x)++++c__case_9_case__110 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_div(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(x7)(st))(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_div(Curry.Module.OraclePrelude.c_mod(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x9)(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)))))(x10)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(x11)(st))(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_mod(x5)(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)))))(x13)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(x14)(st))(x15)(st))(Curry.Module.Prelude.List)))))(st)+c__case_9_case__110 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_8(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x16)(st))(st)+c__case_9_case__110 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_9_case__110(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_9_case__110 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_9_case__110")(x)++++c__case_10_case__111 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List)))(st)+c__case_10_case__111 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryTools.c__case_9(x4)(x5)(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_60(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))(x1)(st))(Curry.Module.OraclePrelude.op_62(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_10_case__111 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_10_case__111(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_10_case__111 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_10_case__111")(x)++++c__case_11_case__112 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.Prelude.List)))(st)+c__case_11_case__112 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_10(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(x7)(st))(st)+c__case_11_case__112 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_11_case__112(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_11_case__112 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_11_case__112")(x)++++c__case_12_case__113 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))(st)+c__case_12_case__113 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_11(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(x7)(st))(st)+c__case_12_case__113 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_12_case__113(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_12_case__113 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_12_case__113")(x)++++c__case_13_case__114 x1 x3@(Curry.Module.FlatCurry.C_Charc x4) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_12(x4)(Curry.Module.OraclePrelude.c_ord(x4)(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('\"'))(x6)(st))(x7)(st))(st))(st)+c__case_13_case__114 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_13_case__114(x1)(x)(st))(i)(xs)(st)+c__case_13_case__114 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_13_case__114")(x)++++c__case_14_case__115 x1 x2@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_13(x3)(x1)(st))(st)+c__case_14_case__115 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_14_case__115(x1)(x)(st))(i)(xs)(st)+c__case_14_case__115 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_14_case__115")(x)++++c__case_7_case__116 x1 x3 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List))(x1)(st)))(st)+c__case_7_case__116 x1 x3 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_7_case__116 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_7_case__116(x1)(x3)(x)(st))(i)(xs)(st)+c__case_7_case__116 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_7_case__116")(x)++++c__case_3_case__117 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_3_case__117 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_3_case__117 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_3_case__117(x1)(x)(st))(i)(xs)(st)+c__case_3_case__117 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_3_case__117")(x)++++c__case_4_case__118 x1 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c_isFiniteList(Curry.Module.OraclePrelude.op_33_33(x7)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x9)(st))(st)+c__case_4_case__118 x1 x7 x8@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryTools.c__case_3(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x10)(st))(st)+c__case_4_case__118 x1 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_4_case__118(x1)(x7)(x)(st))(i)(xs)(st)+c__case_4_case__118 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_4_case__118")(x)++++c__case_5_case__119 x1 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_5_case__119 x1 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))))(Curry.Module.OracleFlatCurryTools.c__case_4(x6)(x7)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_length(x7)(x9)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_5_case__119 x1 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_5_case__119(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_5_case__119 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_5_case__119")(x)++++c__case_6_case__120 x1 x2@(Curry.Module.FlatCurry.C_Var x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__120 x1 x2@(Curry.Module.FlatCurry.C_Lit x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__120 x1 x2@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))(Curry.Module.OracleFlatCurryTools.c__case_5(x6)(x7)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(x7)(Curry.Module.Prelude.List)(x17)(st))(x18)(st))(x19)(st))(st)+c__case_6_case__120 x1 x2@(Curry.Module.FlatCurry.C_Let x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__120 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__120 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__120 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_6_case__120 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_6_case__120(x1)(x)(st))(i)(xs)(st)+c__case_6_case__120 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_6_case__120")(x)++++c__case_2_case__121 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))))))))))))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x1)(st))(Curry.Module.OraclePrelude.c_null(x5)(x17)(st))(x18)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))(x19)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_length(x5)(x20)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x21)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleFlatCurryTools.c_isCharConstant(Curry.Module.OraclePrelude.c_head(x5)(x22)(st))(x23)(st))(Curry.Module.OracleFlatCurryTools.c_isStringConstant(Curry.Module.OraclePrelude.op_33_33(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x24)(st))(x25)(st))(x26)(st))(x27)(st))(x28)(st))(x29)(st))(st)+c__case_2_case__121 x1 x2@(Curry.Module.FlatCurry.C_Var x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__121 x1 x2@(Curry.Module.FlatCurry.C_Lit x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__121 x1 x2@(Curry.Module.FlatCurry.C_Let x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__121 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__121 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__121 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_2_case__121 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_2_case__121(x1)(x)(st))(i)(xs)(st)+c__case_2_case__121 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_2_case__121")(x)++++c__case_0_case__122 x1 x3@(Curry.Module.FlatCurry.C_Charc x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_0_case__122 x1 x3@(Curry.Module.FlatCurry.C_Intc x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_0_case__122 x1 x3@(Curry.Module.FlatCurry.C_Floatc x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_0_case__122 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_0_case__122(x1)(x)(st))(i)(xs)(st)+c__case_0_case__122 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_0_case__122")(x)++++c__case_1_case__123 x1 x2@(Curry.Module.FlatCurry.C_Lit x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryTools.c__case_0(x3)(x1)(st))(st)+c__case_1_case__123 x1 x2@(Curry.Module.FlatCurry.C_Var x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__123 x1 x2@(Curry.Module.FlatCurry.C_Comb x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__123 x1 x2@(Curry.Module.FlatCurry.C_Let x11 x12) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__123 x1 x2@(Curry.Module.FlatCurry.C_Free x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__123 x1 x2@(Curry.Module.FlatCurry.C_Or x15 x16) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__123 x1 x2@(Curry.Module.FlatCurry.C_Case x17 x18 x19) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_1_case__123 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryTools.c__case_1_case__123(x1)(x)(st))(i)(xs)(st)+c__case_1_case__123 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryTools._case_1_case__123")(x)++
+ dist/build/Curry/Module/OracleFlatCurryXML.hs view
@@ -0,0 +1,10163 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleFlatCurryXML (module Curry.Module.OracleFlatCurryXML) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.FlatCurryXML+import Curry.Module.FlatCurry+import Curry.Module.Prelude+import Curry.Module.Read+import Curry.Module.XML+import Curry.Module.OracleFlatCurry+import Curry.Module.OraclePrelude+import Curry.Module.OracleRead+import Curry.Module.OracleXML++++-- begin included++++-- end included++c_flatCurryDtd :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_flatCurryDtd x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('~'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(st)++++c_flatCurry2XmlFile :: Curry.Module.FlatCurry.C_Prog -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_flatCurry2XmlFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_writeFile(x3)(Curry.Module.OracleXML.c_showXmlDocWithParams((Curry.Module.Prelude.:<)(Curry.Module.XML.C_DtdUrl(Curry.Module.OracleFlatCurryXML.c_flatCurryDtd(x1)(st)))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryXML.c_flatCurry2Xml(x2)(x4)(st))(x5)(st))(x6)(st))(st)++++c_flatCurry2Xml :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_flatCurry2Xml x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1068(x2)(x1)(st))(st)++++c_flatCurry2Xml'46_'35lambda2 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_flatCurry2Xml'46_'35lambda2 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xtxt(x2)(x1)(st))(Curry.Module.Prelude.List))(x3)(st))(st)++++c_qname2xmlattrs :: (Curry t0) => (Curry.Module.Prelude.T2 t0 t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0)+c_qname2xmlattrs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1067(x2)(x1)(st))(st)++++c_xmlShowVisibity :: Curry.Module.FlatCurry.C_Visibility -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_xmlShowVisibity x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1066(x2)(x1)(st))(st)++++c_xmlShowType :: Curry.Module.FlatCurry.C_TypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowType x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1065(x2)(x1)(st))(st)++++c_xmlShowCons :: Curry.Module.FlatCurry.C_ConsDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowCons x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1064(x2)(x1)(st))(st)++++c_xmlShowTypeExpr :: Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowTypeExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1063(x2)(x1)(st))(st)++++c_xmlShowTVar :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowTVar x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xtxt(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x3)(st))(Curry.Module.Prelude.List))(x4)(st))(st)++++c_xmlShowFunc :: Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowFunc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1062(x2)(x1)(st))(st)++++c_xmlShowRule :: Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowRule x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1061(x2)(x1)(st))(st)++++c_xmlShowVar :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowVar x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xtxt(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x3)(st))(Curry.Module.Prelude.List))(x4)(st))(st)++++c_xmlShowExpr :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1060(x2)(x1)(st))(st)++++c_xmlShowExpr'46_'35lambda3 :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowExpr'46_'35lambda3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1057(x2)(x1)(st))(st)++++c_xmlShowLit :: Curry.Module.FlatCurry.C_Literal -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowLit x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1056(x2)(x1)(st))(st)++++c_xmlShowBranch :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowBranch x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1055(x2)(x1)(st))(st)++++c_xmlShowOp :: Curry.Module.FlatCurry.C_OpDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xmlShowOp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1053(x2)(x1)(st))(st)++++c_xmlFile2FlatCurry :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_xmlFile2FlatCurry x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleXML.c_readXmlFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlFile2FlatCurry'46_'35lambda4))))(x3)(st))(st)++++c_xmlFile2FlatCurry'46_'35lambda4 :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.FlatCurry.C_Prog))+c_xmlFile2FlatCurry'46_'35lambda4 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.OracleFlatCurryXML.c_xml2FlatCurry(x2)(x1)(st))(x3)(st))(st)++++c_xml2FlatCurry :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Prog+c_xml2FlatCurry x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1052(x2)(x1)(st))(st)++++c_xml2FlatCurry'46_'35lambda5 :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xml2FlatCurry'46_'35lambda5 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_950(x2)(x1)(st))(st)++++c_xml2FlatCurry'46_'35lambda6 :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_FuncDecl+c_xml2FlatCurry'46_'35lambda6 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_935(x2)(x1)(st))(st)++++c_xml2FlatCurry'46_'35lambda7 :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_OpDecl+c_xml2FlatCurry'46_'35lambda7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_881(x2)(x1)(st))(st)++++c_flatx2typedecl :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeDecl+c_flatx2typedecl x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_821(x2)(x1)(st))(st)++++c_flatx2typedecl'46_'35lambda8 :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_flatx2typedecl'46_'35lambda8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_715(x2)(x1)(st))(st)++++c_flatx2typedecl'46_'35lambda9 :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_ConsDecl+c_flatx2typedecl'46_'35lambda9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_704(x2)(x1)(st))(st)++++c_flatx2typedecl'46_'35lambda10 :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_flatx2typedecl'46_'35lambda10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_653(x2)(x1)(st))(st)++++c_flatx2FunBody :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Rule+c_flatx2FunBody x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_642(x2)(x1)(st))(st)++++c_flatx2var :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_flatx2var x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_592(x2)(x1)(st))(st)++++c_flatx2exp :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_flatx2exp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_583(x2)(x1)(st))(st)++++c_flatx2exp'46_'35selFP3'35bindings :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)+c_flatx2exp'46_'35selFP3'35bindings x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_302(x2)(x1)(st))(st)++++c_flatx2exp'46_'35selFP4'35exp :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_flatx2exp'46_'35selFP4'35exp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_301(x2)(x1)(st))(st)++++c_flatx2exp'46_'35selFP6'35bindings :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)+c_flatx2exp'46_'35selFP6'35bindings x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_300(x2)(x1)(st))(st)++++c_flatx2exp'46_'35selFP7'35exp :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_flatx2exp'46_'35selFP7'35exp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_299(x2)(x1)(st))(st)++++c_flatx2let :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr+c_flatx2let x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_298(x2)(x1)(st))(st)++++c_flatx2let'46_'35selFP9'35bindings :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)+c_flatx2let'46_'35selFP9'35bindings x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_267(x2)(x1)(st))(st)++++c_flatx2let'46_'35selFP10'35exp :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_flatx2let'46_'35selFP10'35exp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_266(x2)(x1)(st))(st)++++c_flatx2branch :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_BranchExpr+c_flatx2branch x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_265(x2)(x1)(st))(st)++++c_flatx2lit :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Literal+c_flatx2lit x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_167(x2)(x1)(st))(st)++++c_flatx2texp :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_TypeExpr+c_flatx2texp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_134(x2)(x1)(st))(st)++++c_xvis2vis :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Visibility+c_xvis2vis x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_70(x2)(x1)(st))(st)++++c_flatx2Fixity :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Fixity+c_flatx2Fixity x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_24(x2)(x1)(st))(st)++++c__case_24 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_24_case__1068(x1)(x2)(st))(st)++++c__case_23 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_23_case__1067(x1)(x4)(x3)(st))(st)++++c__case_22 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_22_case__1066(x1)(x4)(st))(st)++++c__case_21 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_21_case__1065(x1)(x6)(x5)(st))(st)++++c__case_20 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_20_case__1064(x1)(x6)(st))(st)++++c__case_19 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_19_case__1063(x1)(x8)(x7)(st))(st)++++c__case_18 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_18_case__1062(x1)(x8)(st))(st)++++c__case_17 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_17_case__1061(x1)(x10)(x9)(st))(st)++++c__case_16 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_16_case__1060(x1)(x10)(st))(st)++++c__case_15 x12 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_15_case__1059(x1)(x12)(x11)(st))(st)++++c__case_14 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_14_case__1058(x1)(x12)(st))(st)++++c__case_13 x14 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_13_case__1057(x1)(x14)(x13)(st))(st)++++c__case_4 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_4_case__1056(x1)(x14)(st))(st)++++c__case_3 x22 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_3_case__1055(x1)(x22)(x21)(st))(st)++++c__case_2 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_2_case__1054(x1)(x22)(st))(st)++++c__case_1 x24 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1_case__1053(x1)(x24)(x23)(st))(st)++++c__case_0 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_0_case__1052(x1)(x24)(st))(st)++++c__case_9 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_9_case__1051(x1)(x14)(st))(st)++++c__case_8 x18 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_8_case__1050(x1)(x18)(x17)(st))(st)++++c__case_7 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_7_case__1049(x1)(x18)(st))(st)++++c__case_6 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_6_case__1048(x1)(x20)(x19)(st))(st)++++c__case_5 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_5_case__1047(x1)(x20)(st))(st)++++c__case_12 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_12_case__1046(x1)(x14)(st))(st)++++c__case_11 x16 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_11_case__1045(x1)(x16)(x15)(st))(st)++++c__case_10 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_10_case__1044(x1)(x16)(st))(st)++++c__case_70 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_70_case__1043(x1)(x2)(st))(st)++++c__case_69 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_69_case__1042(x1)(x4)(x3)(st))(st)++++c__case_68 x4 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_68_case__1041(x1)(x4)(x6)(x5)(st))(st)++++c__case_67 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_67_case__1040(x1)(x4)(x6)(st))(st)++++c__case_66 x4 x8 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_66_case__1039(x1)(x4)(x8)(x7)(st))(st)++++c__case_65 x4 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_65_case__1038(x1)(x4)(x8)(st))(st)++++c__case_64 x4 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_64_case__1037(x1)(x4)(x10)(x9)(st))(st)++++c__case_63 x4 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_63_case__1036(x1)(x4)(x10)(st))(st)++++c__case_62 x4 x12 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_62_case__1035(x1)(x4)(x12)(x11)(st))(st)++++c__case_61 x4 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_61_case__1034(x1)(x4)(x12)(st))(st)++++c__case_60 x4 x14 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_60_case__1033(x1)(x4)(x14)(x13)(st))(st)++++c__case_59 x4 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_59_case__1032(x1)(x4)(x14)(st))(st)++++c__case_58 x4 x16 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_58_case__1031(x1)(x4)(x16)(x15)(st))(st)++++c__case_57 x4 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_57_case__1030(x1)(x4)(x16)(st))(st)++++c__case_56 x4 x18 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_56_case__1029(x1)(x4)(x18)(x17)(st))(st)++++c__case_55 x4 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_55_case__1028(x1)(x4)(x18)(st))(st)++++c__case_54 x4 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_54_case__1027(x1)(x4)(x20)(x19)(st))(st)++++c__case_53 x4 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_53_case__1026(x1)(x4)(x20)(st))(st)++++c__case_52 x4 x22 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_52_case__1025(x1)(x4)(x22)(x21)(st))(st)++++c__case_51 x4 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_51_case__1024(x1)(x4)(x22)(st))(st)++++c__case_50 x4 x24 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_50_case__1023(x1)(x4)(x24)(x23)(st))(st)++++c__case_49 x4 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_49_case__1022(x1)(x4)(x24)(st))(st)++++c__case_48 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_48_case__1021(x1)(x4)(st))(st)++++c__case_47 x26 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_47_case__1020(x1)(x26)(x25)(st))(st)++++c__case_46 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_46_case__1019(x1)(x26)(st))(st)++++c__case_45 x28 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_45_case__1018(x1)(x28)(x27)(st))(st)++++c__case_35 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_35_case__1017(x1)(x28)(st))(st)++++c__case_34 x38 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_34_case__1016(x1)(x38)(x37)(st))(st)++++c__case_33 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_33_case__1015(x1)(x38)(st))(st)++++c__case_32 x40 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_32_case__1014(x1)(x40)(x39)(st))(st)++++c__case_31 x40 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_31_case__1013(x1)(x40)(st))(st)++++c__case_30 x42 x41 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_30_case__1012(x1)(x42)(x41)(st))(st)++++c__case_29 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_29_case__1011(x1)(x42)(st))(st)++++c__case_28 x44 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_28_case__1010(x1)(x44)(x43)(st))(st)++++c__case_27 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_27_case__1009(x1)(x44)(st))(st)++++c__case_26 x46 x45 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_26_case__1008(x1)(x46)(x45)(st))(st)++++c__case_25 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_25_case__1007(x1)(x46)(st))(st)++++c__case_44 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_44_case__1006(x1)(x28)(st))(st)++++c__case_43 x30 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_43_case__1005(x1)(x30)(x29)(st))(st)++++c__case_42 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_42_case__1004(x1)(x30)(st))(st)++++c__case_41 x32 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_41_case__1003(x1)(x32)(x31)(st))(st)++++c__case_40 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_40_case__1002(x1)(x32)(st))(st)++++c__case_39 x34 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_39_case__1001(x1)(x34)(x33)(st))(st)++++c__case_38 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_38_case__1000(x1)(x34)(st))(st)++++c__case_37 x36 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_37_case__999(x1)(x36)(x35)(st))(st)++++c__case_36 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_36_case__998(x1)(x36)(st))(st)++++c__case_134 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_134_case__997(x1)(x2)(st))(st)++++c__case_133 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_133_case__996(x1)(x4)(x5)(x3)(st))(st)++++c__case_132 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_132_case__995(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_89 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_89_case__994(x1)(x4)(x5)(x7)(st))(st)++++c__case_88 x4 x5 x49 x48 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_88_case__993(x1)(x4)(x5)(x49)(x48)(st))(st)++++c__case_87 x4 x5 x49 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_87_case__992(x1)(x4)(x5)(x49)(st))(st)++++c__case_86 x4 x5 x51 x50 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_86_case__991(x1)(x4)(x5)(x51)(x50)(st))(st)++++c__case_85 x4 x5 x51 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_85_case__990(x1)(x4)(x5)(x51)(st))(st)++++c__case_84 x4 x5 x53 x52 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_84_case__989(x1)(x4)(x5)(x53)(x52)(st))(st)++++c__case_83 x4 x5 x53 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_83_case__988(x1)(x4)(x5)(x53)(st))(st)++++c__case_82 x4 x5 x55 x54 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_82_case__987(x1)(x4)(x5)(x55)(x54)(st))(st)++++c__case_81 x4 x5 x55 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_81_case__986(x1)(x4)(x5)(x55)(st))(st)++++c__case_80 x4 x5 x57 x56 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_80_case__985(x1)(x4)(x5)(x57)(x56)(st))(st)++++c__case_79 x4 x5 x57 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_79_case__984(x1)(x4)(x5)(x57)(st))(st)++++c__case_78 x4 x5 x59 x58 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_78_case__983(x1)(x4)(x5)(x59)(x58)(st))(st)++++c__case_77 x4 x5 x59 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_77_case__982(x1)(x4)(x5)(x59)(st))(st)++++c__case_76 x4 x5 x61 x60 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_76_case__981(x1)(x4)(x5)(x61)(x60)(st))(st)++++c__case_75 x4 x5 x61 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_75_case__980(x1)(x4)(x5)(x61)(st))(st)++++c__case_74 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_74_case__979(x1)(x5)(x4)(st))(st)++++c__case_73 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_73_case__978(x1)(x5)(st))(st)++++c__case_72 x62 x63 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_72_case__977(x1)(x62)(x63)(st))(st)++++c__case_71 x62 x64 x65 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_71_case__976(x1)(x62)(x64)(x65)(st))(st)++++c__case_131 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_131_case__975(x1)(x4)(x5)(x7)(st))(st)++++c__case_130 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_130_case__974(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_123 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_123_case__973(x1)(x4)(x5)(x9)(st))(st)++++c__case_122 x4 x5 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_122_case__972(x1)(x4)(x5)(x15)(x14)(st))(st)++++c__case_121 x4 x5 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_121_case__971(x1)(x4)(x5)(x15)(st))(st)++++c__case_120 x4 x5 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_120_case__970(x1)(x4)(x5)(x17)(x16)(st))(st)++++c__case_119 x4 x5 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_119_case__969(x1)(x4)(x5)(x17)(st))(st)++++c__case_118 x4 x5 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_118_case__968(x1)(x4)(x5)(x19)(x18)(st))(st)++++c__case_117 x4 x5 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_117_case__967(x1)(x4)(x5)(x19)(st))(st)++++c__case_116 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_116_case__966(x1)(x5)(x4)(st))(st)++++c__case_115 x5 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_115_case__965(x1)(x5)(x21)(x20)(st))(st)++++c__case_114 x5 x21 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_114_case__964(x1)(x5)(x21)(x23)(x22)(st))(st)++++c__case_113 x5 x21 x23 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_113_case__963(x1)(x5)(x21)(x23)(x25)(x24)(st))(st)++++c__case_112 x5 x21 x23 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_112_case__962(x1)(x5)(x21)(x23)(x25)(st))(st)++++c__case_111 x5 x21 x23 x27 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_111_case__961(x1)(x5)(x21)(x23)(x27)(x26)(st))(st)++++c__case_110 x5 x21 x23 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_110_case__960(x1)(x5)(x21)(x23)(x27)(st))(st)++++c__case_109 x5 x21 x23 x29 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_109_case__959(x1)(x5)(x21)(x23)(x29)(x28)(st))(st)++++c__case_108 x5 x21 x23 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_108_case__958(x1)(x5)(x21)(x23)(x29)(st))(st)++++c__case_107 x5 x21 x23 x31 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_107_case__957(x1)(x5)(x21)(x23)(x31)(x30)(st))(st)++++c__case_106 x5 x21 x23 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_106_case__956(x1)(x5)(x21)(x23)(x31)(st))(st)++++c__case_105 x5 x21 x23 x33 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_105_case__955(x1)(x5)(x21)(x23)(x33)(x32)(st))(st)++++c__case_104 x5 x21 x23 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_104_case__954(x1)(x5)(x21)(x23)(x33)(st))(st)++++c__case_103 x5 x21 x23 x35 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_103_case__953(x1)(x5)(x21)(x23)(x35)(x34)(st))(st)++++c__case_102 x5 x21 x23 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_102_case__952(x1)(x5)(x21)(x23)(x35)(st))(st)++++c__case_101 x5 x23 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_101_case__951(x1)(x5)(x23)(x21)(st))(st)++++c__case_100 x5 x23 x37 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_100_case__950(x1)(x5)(x23)(x37)(x36)(st))(st)++++c__case_99 x5 x23 x37 x39 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_99_case__949(x1)(x5)(x23)(x37)(x39)(x38)(st))(st)++++c__case_98 x5 x23 x37 x39 x41 x40 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_98_case__948(x1)(x5)(x23)(x37)(x39)(x41)(x40)(st))(st)++++c__case_97 x5 x23 x37 x39 x41 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_97_case__947(x1)(x5)(x23)(x37)(x39)(x41)(st))(st)++++c__case_96 x5 x23 x37 x39 x43 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_96_case__946(x1)(x5)(x23)(x37)(x39)(x43)(x42)(st))(st)++++c__case_95 x5 x23 x37 x39 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_95_case__945(x1)(x5)(x23)(x37)(x39)(x43)(st))(st)++++c__case_94 x5 x23 x37 x39 x45 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_94_case__944(x1)(x5)(x23)(x37)(x39)(x45)(x44)(st))(st)++++c__case_93 x5 x23 x37 x39 x45 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_93_case__943(x1)(x5)(x23)(x37)(x39)(x45)(st))(st)++++c__case_92 x5 x23 x37 x39 x47 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_92_case__942(x1)(x5)(x23)(x37)(x39)(x47)(x46)(st))(st)++++c__case_91 x5 x23 x37 x39 x47 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_91_case__941(x1)(x5)(x23)(x37)(x39)(x47)(st))(st)++++c__case_90 x5 x23 x39 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_90_case__940(x1)(x5)(x23)(x39)(x37)(st))(st)++++c__case_129 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_129_case__939(x1)(x4)(x5)(x9)(st))(st)++++c__case_128 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_128_case__938(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_127 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_127_case__937(x1)(x4)(x5)(x11)(st))(st)++++c__case_126 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_126_case__936(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_125 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_125_case__935(x1)(x4)(x5)(x13)(st))(st)++++c__case_124 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_124_case__934(x1)(x5)(x4)(st))(st)++++c__case_167 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_167_case__933(x1)(x2)(st))(st)++++c__case_166 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_166_case__932(x1)(x4)(x5)(x3)(st))(st)++++c__case_165 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_165_case__931(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_144 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_144_case__930(x1)(x4)(x5)(x7)(st))(st)++++c__case_143 x4 x5 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_143_case__929(x1)(x4)(x5)(x25)(x24)(st))(st)++++c__case_142 x4 x5 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_142_case__928(x1)(x4)(x5)(x25)(st))(st)++++c__case_141 x4 x5 x27 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_141_case__927(x1)(x4)(x5)(x27)(x26)(st))(st)++++c__case_140 x4 x5 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_140_case__926(x1)(x4)(x5)(x27)(st))(st)++++c__case_139 x4 x5 x29 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_139_case__925(x1)(x4)(x5)(x29)(x28)(st))(st)++++c__case_138 x4 x5 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_138_case__924(x1)(x4)(x5)(x29)(st))(st)++++c__case_137 x4 x5 x31 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_137_case__923(x1)(x4)(x5)(x31)(x30)(st))(st)++++c__case_136 x4 x5 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_136_case__922(x1)(x4)(x5)(x31)(st))(st)++++c__case_135 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_135_case__921(x1)(x5)(x4)(st))(st)++++c__case_156 x4 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_156_case__920(x1)(x4)(x7)(st))(st)++++c__case_155 x4 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_155_case__919(x1)(x4)(x15)(x14)(st))(st)++++c__case_154 x4 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_154_case__918(x1)(x4)(x15)(st))(st)++++c__case_153 x4 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_153_case__917(x1)(x4)(x17)(x16)(st))(st)++++c__case_152 x4 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_152_case__916(x1)(x4)(x17)(st))(st)++++c__case_151 x4 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_151_case__915(x1)(x4)(x19)(x18)(st))(st)++++c__case_150 x4 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_150_case__914(x1)(x4)(x19)(st))(st)++++c__case_149 x4 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_149_case__913(x1)(x4)(x21)(x20)(st))(st)++++c__case_148 x4 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_148_case__912(x1)(x4)(x21)(st))(st)++++c__case_147 x4 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_147_case__911(x1)(x4)(x23)(x22)(st))(st)++++c__case_146 x4 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_146_case__910(x1)(x4)(x23)(st))(st)++++c__case_145 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_145_case__909(x1)(x4)(st))(st)++++c__case_164 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_164_case__908(x1)(x4)(x5)(x7)(st))(st)++++c__case_163 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_163_case__907(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_162 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_162_case__906(x1)(x4)(x5)(x9)(st))(st)++++c__case_161 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_161_case__905(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_160 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_160_case__904(x1)(x4)(x5)(x11)(st))(st)++++c__case_159 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_159_case__903(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_158 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_158_case__902(x1)(x4)(x5)(x13)(st))(st)++++c__case_157 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_157_case__901(x1)(x5)(x4)(st))(st)++++c__case_265 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_265_case__900(x1)(x2)(st))(st)++++c__case_264 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_264_case__899(x1)(x4)(x5)(x3)(st))(st)++++c__case_263 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_263_case__898(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_262 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_262_case__897(x1)(x4)(x5)(x7)(st))(st)++++c__case_261 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_261_case__896(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_260 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_260_case__895(x1)(x4)(x5)(x9)(st))(st)++++c__case_259 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_259_case__894(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_258 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_258_case__893(x1)(x4)(x5)(x11)(st))(st)++++c__case_257 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_257_case__892(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_256 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_256_case__891(x1)(x4)(x5)(x13)(st))(st)++++c__case_255 x4 x5 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_255_case__890(x1)(x4)(x5)(x15)(x14)(st))(st)++++c__case_254 x4 x5 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_254_case__889(x1)(x4)(x5)(x15)(st))(st)++++c__case_253 x4 x5 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_253_case__888(x1)(x4)(x5)(x17)(x16)(st))(st)++++c__case_252 x4 x5 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_252_case__887(x1)(x4)(x5)(x17)(st))(st)++++c__case_251 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_251_case__886(x1)(x5)(x4)(st))(st)++++c__case_250 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_250_case__885(x1)(x5)(st))(st)++++c__case_249 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_249_case__884(x1)(x19)(x18)(st))(st)++++c__case_248 x19 x21 x22 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_248_case__883(x1)(x19)(x21)(x22)(x20)(st))(st)++++c__case_247 x19 x21 x22 x24 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_247_case__882(x1)(x19)(x21)(x22)(x24)(x23)(st))(st)++++c__case_184 x19 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_184_case__881(x1)(x19)(x24)(st))(st)++++c__case_183 x19 x86 x85 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_183_case__880(x1)(x19)(x86)(x85)(st))(st)++++c__case_182 x19 x86 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_182_case__879(x1)(x19)(x86)(st))(st)++++c__case_181 x19 x88 x87 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_181_case__878(x1)(x19)(x88)(x87)(st))(st)++++c__case_180 x19 x88 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_180_case__877(x1)(x19)(x88)(st))(st)++++c__case_179 x19 x90 x89 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_179_case__876(x1)(x19)(x90)(x89)(st))(st)++++c__case_178 x19 x90 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_178_case__875(x1)(x19)(x90)(st))(st)++++c__case_177 x19 x92 x91 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_177_case__874(x1)(x19)(x92)(x91)(st))(st)++++c__case_176 x19 x92 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_176_case__873(x1)(x19)(x92)(st))(st)++++c__case_175 x19 x94 x93 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_175_case__872(x1)(x19)(x94)(x93)(st))(st)++++c__case_174 x19 x94 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_174_case__871(x1)(x19)(x94)(st))(st)++++c__case_173 x19 x96 x95 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_173_case__870(x1)(x19)(x96)(x95)(st))(st)++++c__case_172 x19 x96 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_172_case__869(x1)(x19)(x96)(st))(st)++++c__case_171 x19 x98 x97 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_171_case__868(x1)(x19)(x98)(x97)(st))(st)++++c__case_170 x19 x98 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_170_case__867(x1)(x19)(x98)(st))(st)++++c__case_169 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_169_case__866(x1)(x19)(st))(st)++++c__case_168 x100 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_168_case__865(x1)(x100)(st))(st)++++c__case_204 x19 x21 x22 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_204_case__864(x1)(x19)(x21)(x22)(x24)(st))(st)++++c__case_203 x19 x21 x22 x68 x67 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_203_case__863(x1)(x19)(x21)(x22)(x68)(x67)(st))(st)++++c__case_202 x19 x21 x22 x68 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_202_case__862(x1)(x19)(x21)(x22)(x68)(st))(st)++++c__case_201 x19 x21 x22 x70 x69 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_201_case__861(x1)(x19)(x21)(x22)(x70)(x69)(st))(st)++++c__case_200 x19 x21 x22 x70 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_200_case__860(x1)(x19)(x21)(x22)(x70)(st))(st)++++c__case_199 x19 x21 x22 x72 x71 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_199_case__859(x1)(x19)(x21)(x22)(x72)(x71)(st))(st)++++c__case_198 x19 x21 x22 x72 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_198_case__858(x1)(x19)(x21)(x22)(x72)(st))(st)++++c__case_197 x19 x21 x22 x74 x73 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_197_case__857(x1)(x19)(x21)(x22)(x74)(x73)(st))(st)++++c__case_196 x19 x21 x22 x74 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_196_case__856(x1)(x19)(x21)(x22)(x74)(st))(st)++++c__case_195 x19 x21 x22 x76 x75 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_195_case__855(x1)(x19)(x21)(x22)(x76)(x75)(st))(st)++++c__case_194 x19 x21 x22 x76 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_194_case__854(x1)(x19)(x21)(x22)(x76)(st))(st)++++c__case_193 x19 x21 x22 x78 x77 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_193_case__853(x1)(x19)(x21)(x22)(x78)(x77)(st))(st)++++c__case_192 x19 x21 x22 x78 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_192_case__852(x1)(x19)(x21)(x22)(x78)(st))(st)++++c__case_191 x19 x21 x22 x80 x79 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_191_case__851(x1)(x19)(x21)(x22)(x80)(x79)(st))(st)++++c__case_190 x19 x21 x22 x80 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_190_case__850(x1)(x19)(x21)(x22)(x80)(st))(st)++++c__case_189 x19 x22 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_189_case__849(x1)(x19)(x22)(x21)(st))(st)++++c__case_188 x19 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_188_case__848(x1)(x19)(x22)(st))(st)++++c__case_187 x19 x81 x82 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_187_case__847(x1)(x19)(x81)(x82)(st))(st)++++c__case_186 x81 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_186_case__846(x1)(x81)(x19)(st))(st)++++c__case_185 x81 x83 x84 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_185_case__845(x1)(x81)(x83)(x84)(st))(st)++++c__case_246 x19 x21 x22 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_246_case__844(x1)(x19)(x21)(x22)(x24)(st))(st)++++c__case_245 x19 x21 x22 x26 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_245_case__843(x1)(x19)(x21)(x22)(x26)(x25)(st))(st)++++c__case_244 x19 x21 x22 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_244_case__842(x1)(x19)(x21)(x22)(x26)(st))(st)++++c__case_243 x19 x21 x22 x28 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_243_case__841(x1)(x19)(x21)(x22)(x28)(x27)(st))(st)++++c__case_242 x19 x21 x22 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_242_case__840(x1)(x19)(x21)(x22)(x28)(st))(st)++++c__case_241 x19 x21 x22 x30 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_241_case__839(x1)(x19)(x21)(x22)(x30)(x29)(st))(st)++++c__case_240 x19 x21 x22 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_240_case__838(x1)(x19)(x21)(x22)(x30)(st))(st)++++c__case_239 x19 x21 x22 x32 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_239_case__837(x1)(x19)(x21)(x22)(x32)(x31)(st))(st)++++c__case_238 x19 x21 x22 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_238_case__836(x1)(x19)(x21)(x22)(x32)(st))(st)++++c__case_237 x19 x21 x22 x34 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_237_case__835(x1)(x19)(x21)(x22)(x34)(x33)(st))(st)++++c__case_236 x19 x21 x22 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_236_case__834(x1)(x19)(x21)(x22)(x34)(st))(st)++++c__case_235 x19 x21 x22 x36 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_235_case__833(x1)(x19)(x21)(x22)(x36)(x35)(st))(st)++++c__case_234 x19 x21 x22 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_234_case__832(x1)(x19)(x21)(x22)(x36)(st))(st)++++c__case_233 x19 x22 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_233_case__831(x1)(x19)(x22)(x21)(st))(st)++++c__case_232 x19 x22 x38 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_232_case__830(x1)(x19)(x22)(x38)(x37)(st))(st)++++c__case_231 x19 x22 x38 x40 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_231_case__829(x1)(x19)(x22)(x38)(x40)(x39)(st))(st)++++c__case_230 x19 x22 x38 x40 x42 x41 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_230_case__828(x1)(x19)(x22)(x38)(x40)(x42)(x41)(st))(st)++++c__case_229 x19 x22 x38 x40 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_229_case__827(x1)(x19)(x22)(x38)(x40)(x42)(st))(st)++++c__case_228 x19 x22 x38 x40 x44 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_228_case__826(x1)(x19)(x22)(x38)(x40)(x44)(x43)(st))(st)++++c__case_227 x19 x22 x38 x40 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_227_case__825(x1)(x19)(x22)(x38)(x40)(x44)(st))(st)++++c__case_226 x19 x22 x38 x40 x46 x45 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_226_case__824(x1)(x19)(x22)(x38)(x40)(x46)(x45)(st))(st)++++c__case_225 x19 x22 x38 x40 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_225_case__823(x1)(x19)(x22)(x38)(x40)(x46)(st))(st)++++c__case_224 x19 x22 x38 x40 x48 x47 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_224_case__822(x1)(x19)(x22)(x38)(x40)(x48)(x47)(st))(st)++++c__case_223 x19 x22 x38 x40 x48 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_223_case__821(x1)(x19)(x22)(x38)(x40)(x48)(st))(st)++++c__case_222 x19 x22 x38 x40 x50 x49 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_222_case__820(x1)(x19)(x22)(x38)(x40)(x50)(x49)(st))(st)++++c__case_221 x19 x22 x38 x40 x50 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_221_case__819(x1)(x19)(x22)(x38)(x40)(x50)(st))(st)++++c__case_220 x19 x22 x38 x40 x52 x51 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_220_case__818(x1)(x19)(x22)(x38)(x40)(x52)(x51)(st))(st)++++c__case_219 x19 x22 x38 x40 x52 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_219_case__817(x1)(x19)(x22)(x38)(x40)(x52)(st))(st)++++c__case_218 x19 x22 x40 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_218_case__816(x1)(x19)(x22)(x40)(x38)(st))(st)++++c__case_217 x19 x22 x40 x54 x53 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_217_case__815(x1)(x19)(x22)(x40)(x54)(x53)(st))(st)++++c__case_216 x19 x22 x40 x54 x56 x55 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_216_case__814(x1)(x19)(x22)(x40)(x54)(x56)(x55)(st))(st)++++c__case_215 x19 x22 x40 x54 x56 x58 x57 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_215_case__813(x1)(x19)(x22)(x40)(x54)(x56)(x58)(x57)(st))(st)++++c__case_214 x19 x22 x40 x54 x56 x58 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_214_case__812(x1)(x19)(x22)(x40)(x54)(x56)(x58)(st))(st)++++c__case_213 x19 x22 x40 x54 x56 x60 x59 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_213_case__811(x1)(x19)(x22)(x40)(x54)(x56)(x60)(x59)(st))(st)++++c__case_212 x19 x22 x40 x54 x56 x60 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_212_case__810(x1)(x19)(x22)(x40)(x54)(x56)(x60)(st))(st)++++c__case_211 x19 x22 x40 x54 x56 x62 x61 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_211_case__809(x1)(x19)(x22)(x40)(x54)(x56)(x62)(x61)(st))(st)++++c__case_210 x19 x22 x40 x54 x56 x62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_210_case__808(x1)(x19)(x22)(x40)(x54)(x56)(x62)(st))(st)++++c__case_209 x19 x22 x40 x54 x56 x64 x63 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_209_case__807(x1)(x19)(x22)(x40)(x54)(x56)(x64)(x63)(st))(st)++++c__case_208 x19 x22 x40 x54 x56 x64 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_208_case__806(x1)(x19)(x22)(x40)(x54)(x56)(x64)(st))(st)++++c__case_207 x19 x22 x40 x56 x54 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_207_case__805(x1)(x19)(x22)(x40)(x56)(x54)(st))(st)++++c__case_206 x22 x40 x56 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_206_case__804(x1)(x22)(x40)(x56)(x19)(st))(st)++++c__case_205 x22 x40 x56 x65 x66 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_205_case__803(x1)(x22)(x40)(x56)(x65)(x66)(st))(st)++++c__case_266 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_266_case__802(x1)(x2)(st))(st)++++c__case_267 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_267_case__801(x1)(x2)(st))(st)++++c__case_298 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_298_case__800(x1)(x2)(st))(st)++++c__case_297 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_297_case__799(x1)(x3)(x4)(st))(st)++++c__case_296 x5 x6 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_296_case__798(x1)(x5)(x6)(x3)(st))(st)++++c__case_295 x5 x6 x8 x9 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_295_case__797(x1)(x5)(x6)(x8)(x9)(x7)(st))(st)++++c__case_294 x5 x6 x8 x9 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_294_case__796(x1)(x5)(x6)(x8)(x9)(x11)(x10)(st))(st)++++c__case_293 x5 x6 x8 x9 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_293_case__795(x1)(x5)(x6)(x8)(x9)(x11)(st))(st)++++c__case_292 x5 x6 x8 x9 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_292_case__794(x1)(x5)(x6)(x8)(x9)(x13)(x12)(st))(st)++++c__case_291 x5 x6 x8 x9 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_291_case__793(x1)(x5)(x6)(x8)(x9)(x13)(st))(st)++++c__case_290 x5 x6 x8 x9 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_290_case__792(x1)(x5)(x6)(x8)(x9)(x15)(x14)(st))(st)++++c__case_289 x5 x6 x8 x9 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_289_case__791(x1)(x5)(x6)(x8)(x9)(x15)(st))(st)++++c__case_288 x5 x6 x8 x9 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_288_case__790(x1)(x5)(x6)(x8)(x9)(x17)(x16)(st))(st)++++c__case_287 x5 x6 x8 x9 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_287_case__789(x1)(x5)(x6)(x8)(x9)(x17)(st))(st)++++c__case_286 x5 x6 x8 x9 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_286_case__788(x1)(x5)(x6)(x8)(x9)(x19)(x18)(st))(st)++++c__case_285 x5 x6 x8 x9 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_285_case__787(x1)(x5)(x6)(x8)(x9)(x19)(st))(st)++++c__case_284 x5 x6 x8 x9 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_284_case__786(x1)(x5)(x6)(x8)(x9)(x21)(x20)(st))(st)++++c__case_283 x5 x6 x8 x9 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_283_case__785(x1)(x5)(x6)(x8)(x9)(x21)(st))(st)++++c__case_282 x5 x6 x8 x9 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_282_case__784(x1)(x5)(x6)(x8)(x9)(x23)(x22)(st))(st)++++c__case_281 x5 x6 x8 x9 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_281_case__783(x1)(x5)(x6)(x8)(x9)(x23)(st))(st)++++c__case_280 x5 x6 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_280_case__782(x1)(x5)(x6)(x9)(x8)(st))(st)++++c__case_279 x5 x6 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_279_case__781(x1)(x5)(x6)(x9)(st))(st)++++c__case_278 x5 x6 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_278_case__780(x1)(x5)(x6)(x25)(x24)(st))(st)++++c__case_277 x5 x6 x25 x27 x28 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_277_case__779(x1)(x5)(x6)(x25)(x27)(x28)(x26)(st))(st)++++c__case_276 x5 x6 x25 x27 x28 x30 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_276_case__778(x1)(x5)(x6)(x25)(x27)(x28)(x30)(x29)(st))(st)++++c__case_275 x5 x6 x25 x27 x28 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_275_case__777(x1)(x5)(x6)(x25)(x27)(x28)(x30)(st))(st)++++c__case_274 x5 x6 x25 x27 x28 x32 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_274_case__776(x1)(x5)(x6)(x25)(x27)(x28)(x32)(x31)(st))(st)++++c__case_273 x5 x6 x25 x27 x28 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_273_case__775(x1)(x5)(x6)(x25)(x27)(x28)(x32)(st))(st)++++c__case_272 x5 x6 x25 x27 x28 x34 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_272_case__774(x1)(x5)(x6)(x25)(x27)(x28)(x34)(x33)(st))(st)++++c__case_271 x5 x6 x25 x27 x28 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_271_case__773(x1)(x5)(x6)(x25)(x27)(x28)(x34)(st))(st)++++c__case_270 x5 x6 x25 x28 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_270_case__772(x1)(x5)(x6)(x25)(x28)(x27)(st))(st)++++c__case_269 x5 x6 x28 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_269_case__771(x1)(x5)(x6)(x28)(x25)(st))(st)++++c__case_268 x5 x6 x28 x35 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_268_case__770(x1)(x5)(x6)(x28)(x35)(x36)(st))(st)++++c__case_299 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_299_case__769(x1)(x2)(st))(st)++++c__case_300 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_300_case__768(x1)(x2)(st))(st)++++c__case_301 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_301_case__767(x1)(x2)(st))(st)++++c__case_302 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_302_case__766(x1)(x2)(st))(st)++++c__case_583 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_583_case__765(x1)(x2)(st))(st)++++c__case_582 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_582_case__764(x1)(x4)(x5)(x3)(st))(st)++++c__case_581 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_581_case__763(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_309 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_309_case__762(x1)(x4)(x5)(x7)(st))(st)++++c__case_308 x4 x5 x278 x277 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_308_case__761(x1)(x4)(x5)(x278)(x277)(st))(st)++++c__case_307 x4 x5 x278 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_307_case__760(x1)(x4)(x5)(x278)(st))(st)++++c__case_306 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_306_case__759(x1)(x5)(x4)(st))(st)++++c__case_305 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_305_case__758(x1)(x5)(st))(st)++++c__case_304 x279 x280 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_304_case__757(x1)(x279)(x280)(st))(st)++++c__case_303 x279 x281 x282 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_303_case__756(x1)(x279)(x281)(x282)(st))(st)++++c__case_417 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_417_case__755(x1)(x4)(x5)(x7)(st))(st)++++c__case_416 x4 x5 x170 x169 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_416_case__754(x1)(x4)(x5)(x170)(x169)(st))(st)++++c__case_316 x4 x5 x170 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_316_case__753(x1)(x4)(x5)(x170)(st))(st)++++c__case_315 x4 x5 x272 x271 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_315_case__752(x1)(x4)(x5)(x272)(x271)(st))(st)++++c__case_314 x4 x5 x272 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_314_case__751(x1)(x4)(x5)(x272)(st))(st)++++c__case_313 x4 x5 x274 x273 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_313_case__750(x1)(x4)(x5)(x274)(x273)(st))(st)++++c__case_312 x4 x5 x274 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_312_case__749(x1)(x4)(x5)(x274)(st))(st)++++c__case_311 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_311_case__748(x1)(x5)(x4)(st))(st)++++c__case_310 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_310_case__747(x1)(x5)(st))(st)++++c__case_415 x4 x5 x170 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_415_case__746(x1)(x4)(x5)(x170)(st))(st)++++c__case_414 x4 x5 x172 x171 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_414_case__745(x1)(x4)(x5)(x172)(x171)(st))(st)++++c__case_413 x4 x5 x172 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_413_case__744(x1)(x4)(x5)(x172)(st))(st)++++c__case_412 x4 x5 x174 x173 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_412_case__743(x1)(x4)(x5)(x174)(x173)(st))(st)++++c__case_411 x4 x5 x174 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_411_case__742(x1)(x4)(x5)(x174)(st))(st)++++c__case_410 x4 x5 x176 x175 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_410_case__741(x1)(x4)(x5)(x176)(x175)(st))(st)++++c__case_375 x4 x5 x176 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_375_case__740(x1)(x4)(x5)(x176)(st))(st)++++c__case_374 x4 x5 x212 x211 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_374_case__739(x1)(x4)(x5)(x212)(x211)(st))(st)++++c__case_373 x4 x5 x212 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_373_case__738(x1)(x4)(x5)(x212)(st))(st)++++c__case_372 x4 x5 x214 x213 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_372_case__737(x1)(x4)(x5)(x214)(x213)(st))(st)++++c__case_371 x4 x5 x214 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_371_case__736(x1)(x4)(x5)(x214)(st))(st)++++c__case_370 x4 x5 x216 x215 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_370_case__735(x1)(x4)(x5)(x216)(x215)(st))(st)++++c__case_369 x4 x5 x216 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_369_case__734(x1)(x4)(x5)(x216)(st))(st)++++c__case_368 x4 x5 x218 x217 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_368_case__733(x1)(x4)(x5)(x218)(x217)(st))(st)++++c__case_367 x4 x5 x218 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_367_case__732(x1)(x4)(x5)(x218)(st))(st)++++c__case_366 x4 x5 x220 x219 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_366_case__731(x1)(x4)(x5)(x220)(x219)(st))(st)++++c__case_365 x4 x5 x220 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_365_case__730(x1)(x4)(x5)(x220)(st))(st)++++c__case_364 x4 x5 x222 x221 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_364_case__729(x1)(x4)(x5)(x222)(x221)(st))(st)++++c__case_363 x4 x5 x222 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_363_case__728(x1)(x4)(x5)(x222)(st))(st)++++c__case_362 x4 x5 x224 x223 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_362_case__727(x1)(x4)(x5)(x224)(x223)(st))(st)++++c__case_361 x4 x5 x224 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_361_case__726(x1)(x4)(x5)(x224)(st))(st)++++c__case_360 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_360_case__725(x1)(x5)(x4)(st))(st)++++c__case_359 x5 x226 x225 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_359_case__724(x1)(x5)(x226)(x225)(st))(st)++++c__case_358 x5 x226 x228 x227 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_358_case__723(x1)(x5)(x226)(x228)(x227)(st))(st)++++c__case_357 x5 x226 x228 x230 x229 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_357_case__722(x1)(x5)(x226)(x228)(x230)(x229)(st))(st)++++c__case_356 x5 x226 x228 x230 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_356_case__721(x1)(x5)(x226)(x228)(x230)(st))(st)++++c__case_355 x5 x226 x228 x232 x231 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_355_case__720(x1)(x5)(x226)(x228)(x232)(x231)(st))(st)++++c__case_354 x5 x226 x228 x232 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_354_case__719(x1)(x5)(x226)(x228)(x232)(st))(st)++++c__case_353 x5 x226 x228 x234 x233 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_353_case__718(x1)(x5)(x226)(x228)(x234)(x233)(st))(st)++++c__case_352 x5 x226 x228 x234 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_352_case__717(x1)(x5)(x226)(x228)(x234)(st))(st)++++c__case_351 x5 x226 x228 x236 x235 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_351_case__716(x1)(x5)(x226)(x228)(x236)(x235)(st))(st)++++c__case_350 x5 x226 x228 x236 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_350_case__715(x1)(x5)(x226)(x228)(x236)(st))(st)++++c__case_349 x5 x226 x228 x238 x237 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_349_case__714(x1)(x5)(x226)(x228)(x238)(x237)(st))(st)++++c__case_348 x5 x226 x228 x238 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_348_case__713(x1)(x5)(x226)(x228)(x238)(st))(st)++++c__case_347 x5 x226 x228 x240 x239 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_347_case__712(x1)(x5)(x226)(x228)(x240)(x239)(st))(st)++++c__case_346 x5 x226 x228 x240 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_346_case__711(x1)(x5)(x226)(x228)(x240)(st))(st)++++c__case_345 x5 x228 x226 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_345_case__710(x1)(x5)(x228)(x226)(st))(st)++++c__case_344 x5 x228 x242 x241 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_344_case__709(x1)(x5)(x228)(x242)(x241)(st))(st)++++c__case_343 x5 x228 x242 x244 x243 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_343_case__708(x1)(x5)(x228)(x242)(x244)(x243)(st))(st)++++c__case_342 x5 x228 x242 x244 x246 x245 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_342_case__707(x1)(x5)(x228)(x242)(x244)(x246)(x245)(st))(st)++++c__case_341 x5 x228 x242 x244 x246 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_341_case__706(x1)(x5)(x228)(x242)(x244)(x246)(st))(st)++++c__case_340 x5 x228 x242 x244 x248 x247 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_340_case__705(x1)(x5)(x228)(x242)(x244)(x248)(x247)(st))(st)++++c__case_339 x5 x228 x242 x244 x248 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_339_case__704(x1)(x5)(x228)(x242)(x244)(x248)(st))(st)++++c__case_338 x5 x228 x242 x244 x250 x249 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_338_case__703(x1)(x5)(x228)(x242)(x244)(x250)(x249)(st))(st)++++c__case_337 x5 x228 x242 x244 x250 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_337_case__702(x1)(x5)(x228)(x242)(x244)(x250)(st))(st)++++c__case_336 x5 x228 x242 x244 x252 x251 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_336_case__701(x1)(x5)(x228)(x242)(x244)(x252)(x251)(st))(st)++++c__case_335 x5 x228 x242 x244 x252 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_335_case__700(x1)(x5)(x228)(x242)(x244)(x252)(st))(st)++++c__case_334 x5 x228 x244 x242 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_334_case__699(x1)(x5)(x228)(x244)(x242)(st))(st)++++c__case_333 x5 x228 x244 x254 x253 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_333_case__698(x1)(x5)(x228)(x244)(x254)(x253)(st))(st)++++c__case_332 x5 x228 x244 x254 x256 x255 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_332_case__697(x1)(x5)(x228)(x244)(x254)(x256)(x255)(st))(st)++++c__case_331 x5 x228 x244 x254 x256 x258 x257 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_331_case__696(x1)(x5)(x228)(x244)(x254)(x256)(x258)(x257)(st))(st)++++c__case_330 x5 x228 x244 x254 x256 x258 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_330_case__695(x1)(x5)(x228)(x244)(x254)(x256)(x258)(st))(st)++++c__case_329 x5 x228 x244 x254 x256 x260 x259 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_329_case__694(x1)(x5)(x228)(x244)(x254)(x256)(x260)(x259)(st))(st)++++c__case_328 x5 x228 x244 x254 x256 x260 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_328_case__693(x1)(x5)(x228)(x244)(x254)(x256)(x260)(st))(st)++++c__case_327 x5 x228 x244 x254 x256 x262 x261 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_327_case__692(x1)(x5)(x228)(x244)(x254)(x256)(x262)(x261)(st))(st)++++c__case_326 x5 x228 x244 x254 x256 x262 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_326_case__691(x1)(x5)(x228)(x244)(x254)(x256)(x262)(st))(st)++++c__case_325 x5 x228 x244 x254 x256 x264 x263 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_325_case__690(x1)(x5)(x228)(x244)(x254)(x256)(x264)(x263)(st))(st)++++c__case_324 x5 x228 x244 x254 x256 x264 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_324_case__689(x1)(x5)(x228)(x244)(x254)(x256)(x264)(st))(st)++++c__case_323 x5 x228 x244 x254 x256 x266 x265 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_323_case__688(x1)(x5)(x228)(x244)(x254)(x256)(x266)(x265)(st))(st)++++c__case_322 x5 x228 x244 x254 x256 x266 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_322_case__687(x1)(x5)(x228)(x244)(x254)(x256)(x266)(st))(st)++++c__case_321 x5 x228 x244 x254 x256 x268 x267 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_321_case__686(x1)(x5)(x228)(x244)(x254)(x256)(x268)(x267)(st))(st)++++c__case_320 x5 x228 x244 x254 x256 x268 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_320_case__685(x1)(x5)(x228)(x244)(x254)(x256)(x268)(st))(st)++++c__case_319 x5 x228 x244 x254 x256 x270 x269 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_319_case__684(x1)(x5)(x228)(x244)(x254)(x256)(x270)(x269)(st))(st)++++c__case_318 x5 x228 x244 x254 x256 x270 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_318_case__683(x1)(x5)(x228)(x244)(x254)(x256)(x270)(st))(st)++++c__case_317 x5 x228 x244 x256 x254 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_317_case__682(x1)(x5)(x228)(x244)(x256)(x254)(st))(st)++++c__case_409 x4 x5 x176 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_409_case__681(x1)(x4)(x5)(x176)(st))(st)++++c__case_408 x4 x5 x178 x177 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_408_case__680(x1)(x4)(x5)(x178)(x177)(st))(st)++++c__case_407 x4 x5 x178 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_407_case__679(x1)(x4)(x5)(x178)(st))(st)++++c__case_406 x4 x5 x180 x179 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_406_case__678(x1)(x4)(x5)(x180)(x179)(st))(st)++++c__case_405 x4 x5 x180 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_405_case__677(x1)(x4)(x5)(x180)(st))(st)++++c__case_404 x4 x5 x182 x181 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_404_case__676(x1)(x4)(x5)(x182)(x181)(st))(st)++++c__case_403 x4 x5 x182 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_403_case__675(x1)(x4)(x5)(x182)(st))(st)++++c__case_402 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_402_case__674(x1)(x5)(x4)(st))(st)++++c__case_401 x5 x184 x183 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_401_case__673(x1)(x5)(x184)(x183)(st))(st)++++c__case_400 x5 x184 x186 x185 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_400_case__672(x1)(x5)(x184)(x186)(x185)(st))(st)++++c__case_399 x5 x184 x186 x188 x187 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_399_case__671(x1)(x5)(x184)(x186)(x188)(x187)(st))(st)++++c__case_398 x5 x184 x186 x188 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_398_case__670(x1)(x5)(x184)(x186)(x188)(st))(st)++++c__case_397 x5 x184 x186 x190 x189 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_397_case__669(x1)(x5)(x184)(x186)(x190)(x189)(st))(st)++++c__case_396 x5 x184 x186 x190 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_396_case__668(x1)(x5)(x184)(x186)(x190)(st))(st)++++c__case_395 x5 x184 x186 x192 x191 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_395_case__667(x1)(x5)(x184)(x186)(x192)(x191)(st))(st)++++c__case_394 x5 x184 x186 x192 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_394_case__666(x1)(x5)(x184)(x186)(x192)(st))(st)++++c__case_393 x5 x184 x186 x194 x193 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_393_case__665(x1)(x5)(x184)(x186)(x194)(x193)(st))(st)++++c__case_392 x5 x184 x186 x194 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_392_case__664(x1)(x5)(x184)(x186)(x194)(st))(st)++++c__case_391 x5 x184 x186 x196 x195 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_391_case__663(x1)(x5)(x184)(x186)(x196)(x195)(st))(st)++++c__case_390 x5 x184 x186 x196 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_390_case__662(x1)(x5)(x184)(x186)(x196)(st))(st)++++c__case_389 x5 x184 x186 x198 x197 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_389_case__661(x1)(x5)(x184)(x186)(x198)(x197)(st))(st)++++c__case_388 x5 x184 x186 x198 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_388_case__660(x1)(x5)(x184)(x186)(x198)(st))(st)++++c__case_387 x5 x186 x184 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_387_case__659(x1)(x5)(x186)(x184)(st))(st)++++c__case_386 x5 x186 x200 x199 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_386_case__658(x1)(x5)(x186)(x200)(x199)(st))(st)++++c__case_385 x5 x186 x200 x202 x201 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_385_case__657(x1)(x5)(x186)(x200)(x202)(x201)(st))(st)++++c__case_384 x5 x186 x200 x202 x204 x203 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_384_case__656(x1)(x5)(x186)(x200)(x202)(x204)(x203)(st))(st)++++c__case_383 x5 x186 x200 x202 x204 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_383_case__655(x1)(x5)(x186)(x200)(x202)(x204)(st))(st)++++c__case_382 x5 x186 x200 x202 x206 x205 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_382_case__654(x1)(x5)(x186)(x200)(x202)(x206)(x205)(st))(st)++++c__case_381 x5 x186 x200 x202 x206 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_381_case__653(x1)(x5)(x186)(x200)(x202)(x206)(st))(st)++++c__case_380 x5 x186 x200 x202 x208 x207 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_380_case__652(x1)(x5)(x186)(x200)(x202)(x208)(x207)(st))(st)++++c__case_379 x5 x186 x200 x202 x208 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_379_case__651(x1)(x5)(x186)(x200)(x202)(x208)(st))(st)++++c__case_378 x5 x186 x200 x202 x210 x209 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_378_case__650(x1)(x5)(x186)(x200)(x202)(x210)(x209)(st))(st)++++c__case_377 x5 x186 x200 x202 x210 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_377_case__649(x1)(x5)(x186)(x200)(x202)(x210)(st))(st)++++c__case_376 x5 x186 x202 x200 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_376_case__648(x1)(x5)(x186)(x202)(x200)(st))(st)++++c__case_555 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_555_case__647(x1)(x4)(x5)(x7)(st))(st)++++c__case_554 x4 x5 x33 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_554_case__646(x1)(x4)(x5)(x33)(x32)(st))(st)++++c__case_426 x4 x5 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_426_case__645(x1)(x4)(x5)(x33)(st))(st)++++c__case_425 x4 x5 x162 x161 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_425_case__644(x1)(x4)(x5)(x162)(x161)(st))(st)++++c__case_424 x4 x5 x162 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_424_case__643(x1)(x4)(x5)(x162)(st))(st)++++c__case_423 x4 x5 x164 x163 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_423_case__642(x1)(x4)(x5)(x164)(x163)(st))(st)++++c__case_422 x4 x5 x164 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_422_case__641(x1)(x4)(x5)(x164)(st))(st)++++c__case_421 x4 x5 x166 x165 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_421_case__640(x1)(x4)(x5)(x166)(x165)(st))(st)++++c__case_420 x4 x5 x166 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_420_case__639(x1)(x4)(x5)(x166)(st))(st)++++c__case_419 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_419_case__638(x1)(x5)(x4)(st))(st)++++c__case_418 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_418_case__637(x1)(x5)(st))(st)++++c__case_454 x4 x5 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_454_case__636(x1)(x4)(x5)(x33)(st))(st)++++c__case_453 x4 x5 x135 x134 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_453_case__635(x1)(x4)(x5)(x135)(x134)(st))(st)++++c__case_452 x4 x5 x135 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_452_case__634(x1)(x4)(x5)(x135)(st))(st)++++c__case_451 x4 x5 x137 x136 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_451_case__633(x1)(x4)(x5)(x137)(x136)(st))(st)++++c__case_450 x4 x5 x137 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_450_case__632(x1)(x4)(x5)(x137)(st))(st)++++c__case_449 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_449_case__631(x1)(x5)(x4)(st))(st)++++c__case_448 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_448_case__630(x1)(x5)(st))(st)++++c__case_447 x139 x138 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_447_case__629(x1)(x139)(x138)(st))(st)++++c__case_446 x139 x141 x142 x140 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_446_case__628(x1)(x139)(x141)(x142)(x140)(st))(st)++++c__case_445 x139 x141 x142 x144 x143 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_445_case__627(x1)(x139)(x141)(x142)(x144)(x143)(st))(st)++++c__case_444 x139 x141 x142 x144 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_444_case__626(x1)(x139)(x141)(x142)(x144)(st))(st)++++c__case_443 x139 x141 x142 x146 x145 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_443_case__625(x1)(x139)(x141)(x142)(x146)(x145)(st))(st)++++c__case_442 x139 x141 x142 x146 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_442_case__624(x1)(x139)(x141)(x142)(x146)(st))(st)++++c__case_441 x139 x141 x142 x148 x147 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_441_case__623(x1)(x139)(x141)(x142)(x148)(x147)(st))(st)++++c__case_440 x139 x141 x142 x148 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_440_case__622(x1)(x139)(x141)(x142)(x148)(st))(st)++++c__case_439 x139 x141 x142 x150 x149 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_439_case__621(x1)(x139)(x141)(x142)(x150)(x149)(st))(st)++++c__case_438 x139 x141 x142 x150 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_438_case__620(x1)(x139)(x141)(x142)(x150)(st))(st)++++c__case_437 x139 x141 x142 x152 x151 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_437_case__619(x1)(x139)(x141)(x142)(x152)(x151)(st))(st)++++c__case_436 x139 x141 x142 x152 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_436_case__618(x1)(x139)(x141)(x142)(x152)(st))(st)++++c__case_435 x139 x141 x142 x154 x153 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_435_case__617(x1)(x139)(x141)(x142)(x154)(x153)(st))(st)++++c__case_434 x139 x141 x142 x154 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_434_case__616(x1)(x139)(x141)(x142)(x154)(st))(st)++++c__case_433 x139 x141 x142 x156 x155 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_433_case__615(x1)(x139)(x141)(x142)(x156)(x155)(st))(st)++++c__case_432 x139 x141 x142 x156 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_432_case__614(x1)(x139)(x141)(x142)(x156)(st))(st)++++c__case_431 x139 x141 x142 x158 x157 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_431_case__613(x1)(x139)(x141)(x142)(x158)(x157)(st))(st)++++c__case_430 x139 x141 x142 x158 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_430_case__612(x1)(x139)(x141)(x142)(x158)(st))(st)++++c__case_429 x139 x142 x141 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_429_case__611(x1)(x139)(x142)(x141)(st))(st)++++c__case_428 x142 x139 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_428_case__610(x1)(x142)(x139)(st))(st)++++c__case_427 x142 x159 x160 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_427_case__609(x1)(x142)(x159)(x160)(st))(st)++++c__case_553 x4 x5 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_553_case__608(x1)(x4)(x5)(x33)(st))(st)++++c__case_552 x4 x5 x35 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_552_case__607(x1)(x4)(x5)(x35)(x34)(st))(st)++++c__case_551 x4 x5 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_551_case__606(x1)(x4)(x5)(x35)(st))(st)++++c__case_550 x4 x5 x37 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_550_case__605(x1)(x4)(x5)(x37)(x36)(st))(st)++++c__case_549 x4 x5 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_549_case__604(x1)(x4)(x5)(x37)(st))(st)++++c__case_548 x4 x5 x39 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_548_case__603(x1)(x4)(x5)(x39)(x38)(st))(st)++++c__case_513 x4 x5 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_513_case__602(x1)(x4)(x5)(x39)(st))(st)++++c__case_512 x4 x5 x75 x74 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_512_case__601(x1)(x4)(x5)(x75)(x74)(st))(st)++++c__case_511 x4 x5 x75 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_511_case__600(x1)(x4)(x5)(x75)(st))(st)++++c__case_510 x4 x5 x77 x76 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_510_case__599(x1)(x4)(x5)(x77)(x76)(st))(st)++++c__case_509 x4 x5 x77 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_509_case__598(x1)(x4)(x5)(x77)(st))(st)++++c__case_508 x4 x5 x79 x78 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_508_case__597(x1)(x4)(x5)(x79)(x78)(st))(st)++++c__case_507 x4 x5 x79 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_507_case__596(x1)(x4)(x5)(x79)(st))(st)++++c__case_506 x4 x5 x81 x80 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_506_case__595(x1)(x4)(x5)(x81)(x80)(st))(st)++++c__case_505 x4 x5 x81 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_505_case__594(x1)(x4)(x5)(x81)(st))(st)++++c__case_504 x4 x5 x83 x82 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_504_case__593(x1)(x4)(x5)(x83)(x82)(st))(st)++++c__case_503 x4 x5 x83 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_503_case__592(x1)(x4)(x5)(x83)(st))(st)++++c__case_502 x4 x5 x85 x84 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_502_case__591(x1)(x4)(x5)(x85)(x84)(st))(st)++++c__case_501 x4 x5 x85 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_501_case__590(x1)(x4)(x5)(x85)(st))(st)++++c__case_500 x4 x5 x87 x86 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_500_case__589(x1)(x4)(x5)(x87)(x86)(st))(st)++++c__case_499 x4 x5 x87 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_499_case__588(x1)(x4)(x5)(x87)(st))(st)++++c__case_498 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_498_case__587(x1)(x5)(x4)(st))(st)++++c__case_497 x5 x89 x88 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_497_case__586(x1)(x5)(x89)(x88)(st))(st)++++c__case_496 x5 x89 x91 x90 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_496_case__585(x1)(x5)(x89)(x91)(x90)(st))(st)++++c__case_495 x5 x89 x91 x93 x92 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_495_case__584(x1)(x5)(x89)(x91)(x93)(x92)(st))(st)++++c__case_494 x5 x89 x91 x93 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_494_case__583(x1)(x5)(x89)(x91)(x93)(st))(st)++++c__case_493 x5 x89 x91 x95 x94 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_493_case__582(x1)(x5)(x89)(x91)(x95)(x94)(st))(st)++++c__case_492 x5 x89 x91 x95 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_492_case__581(x1)(x5)(x89)(x91)(x95)(st))(st)++++c__case_491 x5 x89 x91 x97 x96 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_491_case__580(x1)(x5)(x89)(x91)(x97)(x96)(st))(st)++++c__case_490 x5 x89 x91 x97 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_490_case__579(x1)(x5)(x89)(x91)(x97)(st))(st)++++c__case_489 x5 x89 x91 x99 x98 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_489_case__578(x1)(x5)(x89)(x91)(x99)(x98)(st))(st)++++c__case_488 x5 x89 x91 x99 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_488_case__577(x1)(x5)(x89)(x91)(x99)(st))(st)++++c__case_487 x5 x89 x91 x101 x100 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_487_case__576(x1)(x5)(x89)(x91)(x101)(x100)(st))(st)++++c__case_486 x5 x89 x91 x101 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_486_case__575(x1)(x5)(x89)(x91)(x101)(st))(st)++++c__case_485 x5 x89 x91 x103 x102 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_485_case__574(x1)(x5)(x89)(x91)(x103)(x102)(st))(st)++++c__case_484 x5 x89 x91 x103 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_484_case__573(x1)(x5)(x89)(x91)(x103)(st))(st)++++c__case_483 x5 x91 x89 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_483_case__572(x1)(x5)(x91)(x89)(st))(st)++++c__case_482 x5 x91 x105 x104 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_482_case__571(x1)(x5)(x91)(x105)(x104)(st))(st)++++c__case_481 x5 x91 x105 x107 x106 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_481_case__570(x1)(x5)(x91)(x105)(x107)(x106)(st))(st)++++c__case_480 x5 x91 x105 x107 x109 x108 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_480_case__569(x1)(x5)(x91)(x105)(x107)(x109)(x108)(st))(st)++++c__case_479 x5 x91 x105 x107 x109 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_479_case__568(x1)(x5)(x91)(x105)(x107)(x109)(st))(st)++++c__case_478 x5 x91 x105 x107 x111 x110 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_478_case__567(x1)(x5)(x91)(x105)(x107)(x111)(x110)(st))(st)++++c__case_477 x5 x91 x105 x107 x111 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_477_case__566(x1)(x5)(x91)(x105)(x107)(x111)(st))(st)++++c__case_476 x5 x91 x105 x107 x113 x112 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_476_case__565(x1)(x5)(x91)(x105)(x107)(x113)(x112)(st))(st)++++c__case_475 x5 x91 x105 x107 x113 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_475_case__564(x1)(x5)(x91)(x105)(x107)(x113)(st))(st)++++c__case_474 x5 x91 x105 x107 x115 x114 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_474_case__563(x1)(x5)(x91)(x105)(x107)(x115)(x114)(st))(st)++++c__case_473 x5 x91 x105 x107 x115 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_473_case__562(x1)(x5)(x91)(x105)(x107)(x115)(st))(st)++++c__case_472 x5 x91 x107 x105 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_472_case__561(x1)(x5)(x91)(x107)(x105)(st))(st)++++c__case_471 x5 x91 x107 x117 x116 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_471_case__560(x1)(x5)(x91)(x107)(x117)(x116)(st))(st)++++c__case_470 x5 x91 x107 x117 x119 x118 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_470_case__559(x1)(x5)(x91)(x107)(x117)(x119)(x118)(st))(st)++++c__case_469 x5 x91 x107 x117 x119 x121 x120 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_469_case__558(x1)(x5)(x91)(x107)(x117)(x119)(x121)(x120)(st))(st)++++c__case_468 x5 x91 x107 x117 x119 x121 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_468_case__557(x1)(x5)(x91)(x107)(x117)(x119)(x121)(st))(st)++++c__case_467 x5 x91 x107 x117 x119 x123 x122 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_467_case__556(x1)(x5)(x91)(x107)(x117)(x119)(x123)(x122)(st))(st)++++c__case_466 x5 x91 x107 x117 x119 x123 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_466_case__555(x1)(x5)(x91)(x107)(x117)(x119)(x123)(st))(st)++++c__case_465 x5 x91 x107 x117 x119 x125 x124 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_465_case__554(x1)(x5)(x91)(x107)(x117)(x119)(x125)(x124)(st))(st)++++c__case_464 x5 x91 x107 x117 x119 x125 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_464_case__553(x1)(x5)(x91)(x107)(x117)(x119)(x125)(st))(st)++++c__case_463 x5 x91 x107 x117 x119 x127 x126 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_463_case__552(x1)(x5)(x91)(x107)(x117)(x119)(x127)(x126)(st))(st)++++c__case_462 x5 x91 x107 x117 x119 x127 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_462_case__551(x1)(x5)(x91)(x107)(x117)(x119)(x127)(st))(st)++++c__case_461 x5 x91 x107 x117 x119 x129 x128 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_461_case__550(x1)(x5)(x91)(x107)(x117)(x119)(x129)(x128)(st))(st)++++c__case_460 x5 x91 x107 x117 x119 x129 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_460_case__549(x1)(x5)(x91)(x107)(x117)(x119)(x129)(st))(st)++++c__case_459 x5 x91 x107 x117 x119 x131 x130 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_459_case__548(x1)(x5)(x91)(x107)(x117)(x119)(x131)(x130)(st))(st)++++c__case_458 x5 x91 x107 x117 x119 x131 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_458_case__547(x1)(x5)(x91)(x107)(x117)(x119)(x131)(st))(st)++++c__case_457 x5 x91 x107 x117 x119 x133 x132 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_457_case__546(x1)(x5)(x91)(x107)(x117)(x119)(x133)(x132)(st))(st)++++c__case_456 x5 x91 x107 x117 x119 x133 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_456_case__545(x1)(x5)(x91)(x107)(x117)(x119)(x133)(st))(st)++++c__case_455 x5 x91 x107 x119 x117 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_455_case__544(x1)(x5)(x91)(x107)(x119)(x117)(st))(st)++++c__case_547 x4 x5 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_547_case__543(x1)(x4)(x5)(x39)(st))(st)++++c__case_546 x4 x5 x41 x40 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_546_case__542(x1)(x4)(x5)(x41)(x40)(st))(st)++++c__case_545 x4 x5 x41 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_545_case__541(x1)(x4)(x5)(x41)(st))(st)++++c__case_544 x4 x5 x43 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_544_case__540(x1)(x4)(x5)(x43)(x42)(st))(st)++++c__case_543 x4 x5 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_543_case__539(x1)(x4)(x5)(x43)(st))(st)++++c__case_542 x4 x5 x45 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_542_case__538(x1)(x4)(x5)(x45)(x44)(st))(st)++++c__case_541 x4 x5 x45 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_541_case__537(x1)(x4)(x5)(x45)(st))(st)++++c__case_540 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_540_case__536(x1)(x5)(x4)(st))(st)++++c__case_539 x5 x47 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_539_case__535(x1)(x5)(x47)(x46)(st))(st)++++c__case_538 x5 x47 x49 x48 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_538_case__534(x1)(x5)(x47)(x49)(x48)(st))(st)++++c__case_537 x5 x47 x49 x51 x50 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_537_case__533(x1)(x5)(x47)(x49)(x51)(x50)(st))(st)++++c__case_536 x5 x47 x49 x51 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_536_case__532(x1)(x5)(x47)(x49)(x51)(st))(st)++++c__case_535 x5 x47 x49 x53 x52 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_535_case__531(x1)(x5)(x47)(x49)(x53)(x52)(st))(st)++++c__case_534 x5 x47 x49 x53 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_534_case__530(x1)(x5)(x47)(x49)(x53)(st))(st)++++c__case_533 x5 x47 x49 x55 x54 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_533_case__529(x1)(x5)(x47)(x49)(x55)(x54)(st))(st)++++c__case_532 x5 x47 x49 x55 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_532_case__528(x1)(x5)(x47)(x49)(x55)(st))(st)++++c__case_531 x5 x47 x49 x57 x56 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_531_case__527(x1)(x5)(x47)(x49)(x57)(x56)(st))(st)++++c__case_530 x5 x47 x49 x57 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_530_case__526(x1)(x5)(x47)(x49)(x57)(st))(st)++++c__case_529 x5 x47 x49 x59 x58 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_529_case__525(x1)(x5)(x47)(x49)(x59)(x58)(st))(st)++++c__case_528 x5 x47 x49 x59 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_528_case__524(x1)(x5)(x47)(x49)(x59)(st))(st)++++c__case_527 x5 x47 x49 x61 x60 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_527_case__523(x1)(x5)(x47)(x49)(x61)(x60)(st))(st)++++c__case_526 x5 x47 x49 x61 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_526_case__522(x1)(x5)(x47)(x49)(x61)(st))(st)++++c__case_525 x5 x49 x47 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_525_case__521(x1)(x5)(x49)(x47)(st))(st)++++c__case_524 x5 x49 x63 x62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_524_case__520(x1)(x5)(x49)(x63)(x62)(st))(st)++++c__case_523 x5 x49 x63 x65 x64 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_523_case__519(x1)(x5)(x49)(x63)(x65)(x64)(st))(st)++++c__case_522 x5 x49 x63 x65 x67 x66 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_522_case__518(x1)(x5)(x49)(x63)(x65)(x67)(x66)(st))(st)++++c__case_521 x5 x49 x63 x65 x67 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_521_case__517(x1)(x5)(x49)(x63)(x65)(x67)(st))(st)++++c__case_520 x5 x49 x63 x65 x69 x68 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_520_case__516(x1)(x5)(x49)(x63)(x65)(x69)(x68)(st))(st)++++c__case_519 x5 x49 x63 x65 x69 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_519_case__515(x1)(x5)(x49)(x63)(x65)(x69)(st))(st)++++c__case_518 x5 x49 x63 x65 x71 x70 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_518_case__514(x1)(x5)(x49)(x63)(x65)(x71)(x70)(st))(st)++++c__case_517 x5 x49 x63 x65 x71 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_517_case__513(x1)(x5)(x49)(x63)(x65)(x71)(st))(st)++++c__case_516 x5 x49 x63 x65 x73 x72 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_516_case__512(x1)(x5)(x49)(x63)(x65)(x73)(x72)(st))(st)++++c__case_515 x5 x49 x63 x65 x73 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_515_case__511(x1)(x5)(x49)(x63)(x65)(x73)(st))(st)++++c__case_514 x5 x49 x65 x63 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_514_case__510(x1)(x5)(x49)(x65)(x63)(st))(st)++++c__case_574 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_574_case__509(x1)(x4)(x5)(x7)(st))(st)++++c__case_573 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_573_case__508(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_566 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_566_case__507(x1)(x4)(x5)(x13)(st))(st)++++c__case_565 x4 x5 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_565_case__506(x1)(x4)(x5)(x19)(x18)(st))(st)++++c__case_564 x4 x5 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_564_case__505(x1)(x4)(x5)(x19)(st))(st)++++c__case_562 x4 x5 x24 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_562_case__504(x1)(x4)(x5)(x24)(x23)(st))(st)++++c__case_561 x4 x5 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_561_case__503(x1)(x4)(x5)(x24)(st))(st)++++c__case_560 x4 x5 x26 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_560_case__502(x1)(x4)(x5)(x26)(x25)(st))(st)++++c__case_559 x4 x5 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_559_case__501(x1)(x4)(x5)(x26)(st))(st)++++c__case_558 x4 x5 x28 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_558_case__500(x1)(x4)(x5)(x28)(x27)(st))(st)++++c__case_557 x4 x5 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_557_case__499(x1)(x4)(x5)(x28)(st))(st)++++c__case_556 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_556_case__498(x1)(x5)(x4)(st))(st)++++c__case_563 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_563_case__497(x1)(x5)(x4)(st))(st)++++c__case_572 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_572_case__496(x1)(x4)(x5)(x13)(st))(st)++++c__case_571 x4 x5 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_571_case__495(x1)(x4)(x5)(x15)(x14)(st))(st)++++c__case_570 x4 x5 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_570_case__494(x1)(x4)(x5)(x15)(st))(st)++++c__case_569 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_569_case__493(x1)(x5)(x4)(st))(st)++++c__case_568 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_568_case__492(x1)(x5)(st))(st)++++c__case_567 x16 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_567_case__491(x1)(x16)(x17)(st))(st)++++c__case_580 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_580_case__490(x1)(x4)(x5)(x7)(st))(st)++++c__case_579 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_579_case__489(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_578 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_578_case__488(x1)(x4)(x5)(x9)(st))(st)++++c__case_577 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_577_case__487(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_576 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_576_case__486(x1)(x4)(x5)(x11)(st))(st)++++c__case_575 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_575_case__485(x1)(x5)(x4)(st))(st)++++c__case_592 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_592_case__484(x1)(x2)(st))(st)++++c__case_591 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_591_case__483(x1)(x4)(x5)(x3)(st))(st)++++c__case_590 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_590_case__482(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_589 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_589_case__481(x1)(x4)(x5)(x7)(st))(st)++++c__case_588 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_588_case__480(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_587 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_587_case__479(x1)(x4)(x5)(x9)(st))(st)++++c__case_586 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_586_case__478(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_585 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_585_case__477(x1)(x4)(x5)(x11)(st))(st)++++c__case_584 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_584_case__476(x1)(x5)(x4)(st))(st)++++c__case_642 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_642_case__475(x1)(x2)(st))(st)++++c__case_641 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_641_case__474(x1)(x4)(x5)(x3)(st))(st)++++c__case_640 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_640_case__473(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_623 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_623_case__472(x1)(x4)(x5)(x7)(st))(st)++++c__case_622 x4 x5 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_622_case__471(x1)(x4)(x5)(x23)(x22)(st))(st)++++c__case_621 x4 x5 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_621_case__470(x1)(x4)(x5)(x23)(st))(st)++++c__case_620 x4 x5 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_620_case__469(x1)(x4)(x5)(x25)(x24)(st))(st)++++c__case_619 x4 x5 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_619_case__468(x1)(x4)(x5)(x25)(st))(st)++++c__case_618 x4 x5 x27 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_618_case__467(x1)(x4)(x5)(x27)(x26)(st))(st)++++c__case_617 x4 x5 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_617_case__466(x1)(x4)(x5)(x27)(st))(st)++++c__case_616 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_616_case__465(x1)(x5)(x4)(st))(st)++++c__case_615 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_615_case__464(x1)(x5)(st))(st)++++c__case_614 x29 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_614_case__463(x1)(x29)(x28)(st))(st)++++c__case_613 x29 x31 x32 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_613_case__462(x1)(x29)(x31)(x32)(x30)(st))(st)++++c__case_612 x29 x31 x32 x34 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_612_case__461(x1)(x29)(x31)(x32)(x34)(x33)(st))(st)++++c__case_611 x29 x31 x32 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_611_case__460(x1)(x29)(x31)(x32)(x34)(st))(st)++++c__case_610 x29 x31 x32 x36 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_610_case__459(x1)(x29)(x31)(x32)(x36)(x35)(st))(st)++++c__case_609 x29 x31 x32 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_609_case__458(x1)(x29)(x31)(x32)(x36)(st))(st)++++c__case_608 x29 x31 x32 x38 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_608_case__457(x1)(x29)(x31)(x32)(x38)(x37)(st))(st)++++c__case_607 x29 x31 x32 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_607_case__456(x1)(x29)(x31)(x32)(x38)(st))(st)++++c__case_606 x29 x32 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_606_case__455(x1)(x29)(x32)(x31)(st))(st)++++c__case_605 x32 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_605_case__454(x1)(x32)(x29)(st))(st)++++c__case_604 x32 x40 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_604_case__453(x1)(x32)(x40)(x39)(st))(st)++++c__case_603 x32 x40 x42 x43 x41 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_603_case__452(x1)(x32)(x40)(x42)(x43)(x41)(st))(st)++++c__case_602 x32 x40 x42 x43 x45 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_602_case__451(x1)(x32)(x40)(x42)(x43)(x45)(x44)(st))(st)++++c__case_601 x32 x40 x42 x43 x45 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_601_case__450(x1)(x32)(x40)(x42)(x43)(x45)(st))(st)++++c__case_600 x32 x40 x42 x43 x47 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_600_case__449(x1)(x32)(x40)(x42)(x43)(x47)(x46)(st))(st)++++c__case_599 x32 x40 x42 x43 x47 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_599_case__448(x1)(x32)(x40)(x42)(x43)(x47)(st))(st)++++c__case_598 x32 x40 x42 x43 x49 x48 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_598_case__447(x1)(x32)(x40)(x42)(x43)(x49)(x48)(st))(st)++++c__case_597 x32 x40 x42 x43 x49 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_597_case__446(x1)(x32)(x40)(x42)(x43)(x49)(st))(st)++++c__case_596 x32 x40 x43 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_596_case__445(x1)(x32)(x40)(x43)(x42)(st))(st)++++c__case_595 x32 x40 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_595_case__444(x1)(x32)(x40)(x43)(st))(st)++++c__case_594 x32 x40 x50 x51 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_594_case__443(x1)(x32)(x40)(x50)(x51)(st))(st)++++c__case_593 x32 x50 x40 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_593_case__442(x1)(x32)(x50)(x40)(st))(st)++++c__case_639 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_639_case__441(x1)(x4)(x5)(x7)(st))(st)++++c__case_638 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_638_case__440(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_637 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_637_case__439(x1)(x4)(x5)(x9)(st))(st)++++c__case_636 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_636_case__438(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_635 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_635_case__437(x1)(x4)(x5)(x11)(st))(st)++++c__case_634 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_634_case__436(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_633 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_633_case__435(x1)(x4)(x5)(x13)(st))(st)++++c__case_632 x4 x5 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_632_case__434(x1)(x4)(x5)(x15)(x14)(st))(st)++++c__case_631 x4 x5 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_631_case__433(x1)(x4)(x5)(x15)(st))(st)++++c__case_630 x4 x5 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_630_case__432(x1)(x4)(x5)(x17)(x16)(st))(st)++++c__case_629 x4 x5 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_629_case__431(x1)(x4)(x5)(x17)(st))(st)++++c__case_628 x4 x5 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_628_case__430(x1)(x4)(x5)(x19)(x18)(st))(st)++++c__case_627 x4 x5 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_627_case__429(x1)(x4)(x5)(x19)(st))(st)++++c__case_626 x4 x5 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_626_case__428(x1)(x4)(x5)(x21)(x20)(st))(st)++++c__case_625 x4 x5 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_625_case__427(x1)(x4)(x5)(x21)(st))(st)++++c__case_624 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_624_case__426(x1)(x5)(x4)(st))(st)++++c__case_653 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_653_case__425(x1)(x2)(st))(st)++++c__case_652 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_652_case__424(x1)(x4)(x5)(x3)(st))(st)++++c__case_651 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_651_case__423(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_650 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_650_case__422(x1)(x4)(x5)(x7)(st))(st)++++c__case_649 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_649_case__421(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_648 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_648_case__420(x1)(x4)(x5)(x9)(st))(st)++++c__case_647 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_647_case__419(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_646 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_646_case__418(x1)(x4)(x5)(x11)(st))(st)++++c__case_645 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_645_case__417(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_644 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_644_case__416(x1)(x4)(x5)(x13)(st))(st)++++c__case_643 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_643_case__415(x1)(x5)(x4)(st))(st)++++c__case_704 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_704_case__414(x1)(x2)(st))(st)++++c__case_703 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_703_case__413(x1)(x4)(x5)(x3)(st))(st)++++c__case_702 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_702_case__412(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_701 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_701_case__411(x1)(x4)(x5)(x7)(st))(st)++++c__case_700 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_700_case__410(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_699 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_699_case__409(x1)(x4)(x5)(x9)(st))(st)++++c__case_698 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_698_case__408(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_697 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_697_case__407(x1)(x4)(x5)(x11)(st))(st)++++c__case_696 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_696_case__406(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_695 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_695_case__405(x1)(x4)(x5)(x13)(st))(st)++++c__case_694 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_694_case__404(x1)(x5)(x4)(st))(st)++++c__case_693 x5 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_693_case__403(x1)(x5)(x15)(x14)(st))(st)++++c__case_692 x5 x15 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_692_case__402(x1)(x5)(x15)(x17)(x16)(st))(st)++++c__case_691 x5 x15 x17 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_691_case__401(x1)(x5)(x15)(x17)(x19)(x18)(st))(st)++++c__case_690 x5 x15 x17 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_690_case__400(x1)(x5)(x15)(x17)(x19)(st))(st)++++c__case_689 x5 x15 x17 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_689_case__399(x1)(x5)(x15)(x17)(x21)(x20)(st))(st)++++c__case_688 x5 x15 x17 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_688_case__398(x1)(x5)(x15)(x17)(x21)(st))(st)++++c__case_687 x5 x15 x17 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_687_case__397(x1)(x5)(x15)(x17)(x23)(x22)(st))(st)++++c__case_686 x5 x15 x17 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_686_case__396(x1)(x5)(x15)(x17)(x23)(st))(st)++++c__case_685 x5 x15 x17 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_685_case__395(x1)(x5)(x15)(x17)(x25)(x24)(st))(st)++++c__case_684 x5 x15 x17 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_684_case__394(x1)(x5)(x15)(x17)(x25)(st))(st)++++c__case_683 x5 x15 x17 x27 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_683_case__393(x1)(x5)(x15)(x17)(x27)(x26)(st))(st)++++c__case_682 x5 x15 x17 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_682_case__392(x1)(x5)(x15)(x17)(x27)(st))(st)++++c__case_681 x5 x15 x17 x29 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_681_case__391(x1)(x5)(x15)(x17)(x29)(x28)(st))(st)++++c__case_680 x5 x15 x17 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_680_case__390(x1)(x5)(x15)(x17)(x29)(st))(st)++++c__case_679 x5 x17 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_679_case__389(x1)(x5)(x17)(x15)(st))(st)++++c__case_678 x5 x17 x31 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_678_case__388(x1)(x5)(x17)(x31)(x30)(st))(st)++++c__case_677 x5 x17 x31 x33 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_677_case__387(x1)(x5)(x17)(x31)(x33)(x32)(st))(st)++++c__case_676 x5 x17 x31 x33 x35 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_676_case__386(x1)(x5)(x17)(x31)(x33)(x35)(x34)(st))(st)++++c__case_675 x5 x17 x31 x33 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_675_case__385(x1)(x5)(x17)(x31)(x33)(x35)(st))(st)++++c__case_674 x5 x17 x31 x33 x37 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_674_case__384(x1)(x5)(x17)(x31)(x33)(x37)(x36)(st))(st)++++c__case_673 x5 x17 x31 x33 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_673_case__383(x1)(x5)(x17)(x31)(x33)(x37)(st))(st)++++c__case_672 x5 x17 x31 x33 x39 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_672_case__382(x1)(x5)(x17)(x31)(x33)(x39)(x38)(st))(st)++++c__case_671 x5 x17 x31 x33 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_671_case__381(x1)(x5)(x17)(x31)(x33)(x39)(st))(st)++++c__case_670 x5 x17 x31 x33 x41 x40 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_670_case__380(x1)(x5)(x17)(x31)(x33)(x41)(x40)(st))(st)++++c__case_669 x5 x17 x31 x33 x41 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_669_case__379(x1)(x5)(x17)(x31)(x33)(x41)(st))(st)++++c__case_668 x5 x17 x33 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_668_case__378(x1)(x5)(x17)(x33)(x31)(st))(st)++++c__case_667 x5 x17 x33 x43 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_667_case__377(x1)(x5)(x17)(x33)(x43)(x42)(st))(st)++++c__case_666 x5 x17 x33 x43 x45 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_666_case__376(x1)(x5)(x17)(x33)(x43)(x45)(x44)(st))(st)++++c__case_665 x5 x17 x33 x43 x45 x47 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_665_case__375(x1)(x5)(x17)(x33)(x43)(x45)(x47)(x46)(st))(st)++++c__case_664 x5 x17 x33 x43 x45 x47 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_664_case__374(x1)(x5)(x17)(x33)(x43)(x45)(x47)(st))(st)++++c__case_663 x5 x17 x33 x43 x45 x49 x48 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_663_case__373(x1)(x5)(x17)(x33)(x43)(x45)(x49)(x48)(st))(st)++++c__case_662 x5 x17 x33 x43 x45 x49 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_662_case__372(x1)(x5)(x17)(x33)(x43)(x45)(x49)(st))(st)++++c__case_661 x5 x17 x33 x43 x45 x51 x50 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_661_case__371(x1)(x5)(x17)(x33)(x43)(x45)(x51)(x50)(st))(st)++++c__case_660 x5 x17 x33 x43 x45 x51 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_660_case__370(x1)(x5)(x17)(x33)(x43)(x45)(x51)(st))(st)++++c__case_659 x5 x17 x33 x43 x45 x53 x52 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_659_case__369(x1)(x5)(x17)(x33)(x43)(x45)(x53)(x52)(st))(st)++++c__case_658 x5 x17 x33 x43 x45 x53 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_658_case__368(x1)(x5)(x17)(x33)(x43)(x45)(x53)(st))(st)++++c__case_657 x5 x17 x33 x43 x45 x55 x54 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_657_case__367(x1)(x5)(x17)(x33)(x43)(x45)(x55)(x54)(st))(st)++++c__case_656 x5 x17 x33 x43 x45 x55 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_656_case__366(x1)(x5)(x17)(x33)(x43)(x45)(x55)(st))(st)++++c__case_655 x5 x17 x33 x45 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_655_case__365(x1)(x5)(x17)(x33)(x45)(x43)(st))(st)++++c__case_654 x5 x17 x33 x45 x56 x57 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_654_case__364(x1)(x5)(x17)(x33)(x45)(x56)(x57)(st))(st)++++c__case_715 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_715_case__363(x1)(x2)(st))(st)++++c__case_714 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_714_case__362(x1)(x4)(x5)(x3)(st))(st)++++c__case_713 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_713_case__361(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_712 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_712_case__360(x1)(x4)(x5)(x7)(st))(st)++++c__case_711 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_711_case__359(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_710 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_710_case__358(x1)(x4)(x5)(x9)(st))(st)++++c__case_709 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_709_case__357(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_708 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_708_case__356(x1)(x4)(x5)(x11)(st))(st)++++c__case_707 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_707_case__355(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_706 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_706_case__354(x1)(x4)(x5)(x13)(st))(st)++++c__case_705 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_705_case__353(x1)(x5)(x4)(st))(st)++++c__case_821 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_821_case__352(x1)(x2)(st))(st)++++c__case_820 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_820_case__351(x1)(x4)(x5)(x3)(st))(st)++++c__case_819 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_819_case__350(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_818 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_818_case__349(x1)(x4)(x5)(x7)(st))(st)++++c__case_817 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_817_case__348(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_816 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_816_case__347(x1)(x4)(x5)(x9)(st))(st)++++c__case_815 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_815_case__346(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_814 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_814_case__345(x1)(x4)(x5)(x11)(st))(st)++++c__case_813 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_813_case__344(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_812 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_812_case__343(x1)(x4)(x5)(x13)(st))(st)++++c__case_767 x4 x5 x62 x61 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_767_case__342(x1)(x4)(x5)(x62)(x61)(st))(st)++++c__case_766 x4 x5 x62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_766_case__341(x1)(x4)(x5)(x62)(st))(st)++++c__case_765 x4 x5 x64 x63 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_765_case__340(x1)(x4)(x5)(x64)(x63)(st))(st)++++c__case_764 x4 x5 x64 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_764_case__339(x1)(x4)(x5)(x64)(st))(st)++++c__case_763 x4 x5 x66 x65 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_763_case__338(x1)(x4)(x5)(x66)(x65)(st))(st)++++c__case_762 x4 x5 x66 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_762_case__337(x1)(x4)(x5)(x66)(st))(st)++++c__case_761 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_761_case__336(x1)(x5)(x4)(st))(st)++++c__case_760 x5 x68 x67 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_760_case__335(x1)(x5)(x68)(x67)(st))(st)++++c__case_759 x5 x68 x70 x69 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_759_case__334(x1)(x5)(x68)(x70)(x69)(st))(st)++++c__case_758 x5 x68 x70 x72 x71 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_758_case__333(x1)(x5)(x68)(x70)(x72)(x71)(st))(st)++++c__case_757 x5 x68 x70 x72 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_757_case__332(x1)(x5)(x68)(x70)(x72)(st))(st)++++c__case_756 x5 x68 x70 x74 x73 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_756_case__331(x1)(x5)(x68)(x70)(x74)(x73)(st))(st)++++c__case_755 x5 x68 x70 x74 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_755_case__330(x1)(x5)(x68)(x70)(x74)(st))(st)++++c__case_754 x5 x68 x70 x76 x75 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_754_case__329(x1)(x5)(x68)(x70)(x76)(x75)(st))(st)++++c__case_753 x5 x68 x70 x76 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_753_case__328(x1)(x5)(x68)(x70)(x76)(st))(st)++++c__case_752 x5 x68 x70 x78 x77 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_752_case__327(x1)(x5)(x68)(x70)(x78)(x77)(st))(st)++++c__case_751 x5 x68 x70 x78 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_751_case__326(x1)(x5)(x68)(x70)(x78)(st))(st)++++c__case_750 x5 x68 x70 x80 x79 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_750_case__325(x1)(x5)(x68)(x70)(x80)(x79)(st))(st)++++c__case_749 x5 x68 x70 x80 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_749_case__324(x1)(x5)(x68)(x70)(x80)(st))(st)++++c__case_748 x5 x68 x70 x82 x81 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_748_case__323(x1)(x5)(x68)(x70)(x82)(x81)(st))(st)++++c__case_747 x5 x68 x70 x82 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_747_case__322(x1)(x5)(x68)(x70)(x82)(st))(st)++++c__case_746 x5 x70 x68 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_746_case__321(x1)(x5)(x70)(x68)(st))(st)++++c__case_745 x5 x70 x84 x83 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_745_case__320(x1)(x5)(x70)(x84)(x83)(st))(st)++++c__case_744 x5 x70 x84 x86 x85 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_744_case__319(x1)(x5)(x70)(x84)(x86)(x85)(st))(st)++++c__case_743 x5 x70 x84 x86 x88 x87 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_743_case__318(x1)(x5)(x70)(x84)(x86)(x88)(x87)(st))(st)++++c__case_742 x5 x70 x84 x86 x88 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_742_case__317(x1)(x5)(x70)(x84)(x86)(x88)(st))(st)++++c__case_741 x5 x70 x84 x86 x90 x89 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_741_case__316(x1)(x5)(x70)(x84)(x86)(x90)(x89)(st))(st)++++c__case_740 x5 x70 x84 x86 x90 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_740_case__315(x1)(x5)(x70)(x84)(x86)(x90)(st))(st)++++c__case_739 x5 x70 x84 x86 x92 x91 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_739_case__314(x1)(x5)(x70)(x84)(x86)(x92)(x91)(st))(st)++++c__case_738 x5 x70 x84 x86 x92 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_738_case__313(x1)(x5)(x70)(x84)(x86)(x92)(st))(st)++++c__case_737 x5 x70 x84 x86 x94 x93 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_737_case__312(x1)(x5)(x70)(x84)(x86)(x94)(x93)(st))(st)++++c__case_736 x5 x70 x84 x86 x94 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_736_case__311(x1)(x5)(x70)(x84)(x86)(x94)(st))(st)++++c__case_735 x5 x70 x86 x84 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_735_case__310(x1)(x5)(x70)(x86)(x84)(st))(st)++++c__case_734 x5 x70 x86 x95 x96 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_734_case__309(x1)(x5)(x70)(x86)(x95)(x96)(st))(st)++++c__case_733 x70 x86 x95 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_733_case__308(x1)(x70)(x86)(x95)(x5)(st))(st)++++c__case_732 x70 x86 x95 x98 x97 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_732_case__307(x1)(x70)(x86)(x95)(x98)(x97)(st))(st)++++c__case_731 x70 x86 x95 x98 x100 x101 x99 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_731_case__306(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x99)(st))(st)++++c__case_730 x70 x86 x95 x98 x100 x101 x103 x102 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_730_case__305(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x103)(x102)(st))(st)++++c__case_729 x70 x86 x95 x98 x100 x101 x103 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_729_case__304(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x103)(st))(st)++++c__case_728 x70 x86 x95 x98 x100 x101 x105 x104 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_728_case__303(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x105)(x104)(st))(st)++++c__case_727 x70 x86 x95 x98 x100 x101 x105 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_727_case__302(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x105)(st))(st)++++c__case_726 x70 x86 x95 x98 x100 x101 x107 x106 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_726_case__301(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x107)(x106)(st))(st)++++c__case_725 x70 x86 x95 x98 x100 x101 x107 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_725_case__300(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x107)(st))(st)++++c__case_724 x70 x86 x95 x98 x100 x101 x109 x108 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_724_case__299(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x109)(x108)(st))(st)++++c__case_723 x70 x86 x95 x98 x100 x101 x109 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_723_case__298(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x109)(st))(st)++++c__case_722 x70 x86 x95 x98 x100 x101 x111 x110 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_722_case__297(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x111)(x110)(st))(st)++++c__case_721 x70 x86 x95 x98 x100 x101 x111 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_721_case__296(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x111)(st))(st)++++c__case_720 x70 x86 x95 x98 x100 x101 x113 x112 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_720_case__295(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x113)(x112)(st))(st)++++c__case_719 x70 x86 x95 x98 x100 x101 x113 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_719_case__294(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x113)(st))(st)++++c__case_718 x70 x86 x95 x98 x101 x100 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_718_case__293(x1)(x70)(x86)(x95)(x98)(x101)(x100)(st))(st)++++c__case_717 x70 x86 x95 x101 x98 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_717_case__292(x1)(x70)(x86)(x95)(x101)(x98)(st))(st)++++c__case_716 x70 x86 x95 x101 x114 x115 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_716_case__291(x1)(x70)(x86)(x95)(x101)(x114)(x115)(st))(st)++++c__case_811 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_811_case__290(x1)(x5)(x4)(st))(st)++++c__case_810 x5 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_810_case__289(x1)(x5)(x15)(x14)(st))(st)++++c__case_809 x5 x15 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_809_case__288(x1)(x5)(x15)(x17)(x16)(st))(st)++++c__case_808 x5 x15 x17 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_808_case__287(x1)(x5)(x15)(x17)(x19)(x18)(st))(st)++++c__case_807 x5 x15 x17 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_807_case__286(x1)(x5)(x15)(x17)(x19)(st))(st)++++c__case_806 x5 x15 x17 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_806_case__285(x1)(x5)(x15)(x17)(x21)(x20)(st))(st)++++c__case_805 x5 x15 x17 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_805_case__284(x1)(x5)(x15)(x17)(x21)(st))(st)++++c__case_804 x5 x15 x17 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_804_case__283(x1)(x5)(x15)(x17)(x23)(x22)(st))(st)++++c__case_803 x5 x15 x17 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_803_case__282(x1)(x5)(x15)(x17)(x23)(st))(st)++++c__case_802 x5 x15 x17 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_802_case__281(x1)(x5)(x15)(x17)(x25)(x24)(st))(st)++++c__case_801 x5 x15 x17 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_801_case__280(x1)(x5)(x15)(x17)(x25)(st))(st)++++c__case_800 x5 x15 x17 x27 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_800_case__279(x1)(x5)(x15)(x17)(x27)(x26)(st))(st)++++c__case_799 x5 x15 x17 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_799_case__278(x1)(x5)(x15)(x17)(x27)(st))(st)++++c__case_798 x5 x15 x17 x29 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_798_case__277(x1)(x5)(x15)(x17)(x29)(x28)(st))(st)++++c__case_797 x5 x15 x17 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_797_case__276(x1)(x5)(x15)(x17)(x29)(st))(st)++++c__case_796 x5 x17 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_796_case__275(x1)(x5)(x17)(x15)(st))(st)++++c__case_795 x5 x17 x31 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_795_case__274(x1)(x5)(x17)(x31)(x30)(st))(st)++++c__case_794 x5 x17 x31 x33 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_794_case__273(x1)(x5)(x17)(x31)(x33)(x32)(st))(st)++++c__case_793 x5 x17 x31 x33 x35 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_793_case__272(x1)(x5)(x17)(x31)(x33)(x35)(x34)(st))(st)++++c__case_792 x5 x17 x31 x33 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_792_case__271(x1)(x5)(x17)(x31)(x33)(x35)(st))(st)++++c__case_791 x5 x17 x31 x33 x37 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_791_case__270(x1)(x5)(x17)(x31)(x33)(x37)(x36)(st))(st)++++c__case_790 x5 x17 x31 x33 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_790_case__269(x1)(x5)(x17)(x31)(x33)(x37)(st))(st)++++c__case_789 x5 x17 x31 x33 x39 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_789_case__268(x1)(x5)(x17)(x31)(x33)(x39)(x38)(st))(st)++++c__case_788 x5 x17 x31 x33 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_788_case__267(x1)(x5)(x17)(x31)(x33)(x39)(st))(st)++++c__case_787 x5 x17 x31 x33 x41 x40 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_787_case__266(x1)(x5)(x17)(x31)(x33)(x41)(x40)(st))(st)++++c__case_786 x5 x17 x31 x33 x41 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_786_case__265(x1)(x5)(x17)(x31)(x33)(x41)(st))(st)++++c__case_785 x5 x17 x33 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_785_case__264(x1)(x5)(x17)(x33)(x31)(st))(st)++++c__case_784 x5 x17 x33 x42 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_784_case__263(x1)(x5)(x17)(x33)(x42)(x43)(st))(st)++++c__case_783 x17 x33 x42 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_783_case__262(x1)(x17)(x33)(x42)(x5)(st))(st)++++c__case_782 x17 x33 x42 x45 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_782_case__261(x1)(x17)(x33)(x42)(x45)(x44)(st))(st)++++c__case_781 x17 x33 x42 x45 x47 x48 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_781_case__260(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x46)(st))(st)++++c__case_780 x17 x33 x42 x45 x47 x48 x50 x49 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_780_case__259(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x50)(x49)(st))(st)++++c__case_779 x17 x33 x42 x45 x47 x48 x50 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_779_case__258(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x50)(st))(st)++++c__case_778 x17 x33 x42 x45 x47 x48 x52 x51 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_778_case__257(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x52)(x51)(st))(st)++++c__case_777 x17 x33 x42 x45 x47 x48 x52 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_777_case__256(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x52)(st))(st)++++c__case_776 x17 x33 x42 x45 x47 x48 x54 x53 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_776_case__255(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x54)(x53)(st))(st)++++c__case_775 x17 x33 x42 x45 x47 x48 x54 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_775_case__254(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x54)(st))(st)++++c__case_774 x17 x33 x42 x45 x47 x48 x56 x55 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_774_case__253(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x56)(x55)(st))(st)++++c__case_773 x17 x33 x42 x45 x47 x48 x56 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_773_case__252(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x56)(st))(st)++++c__case_772 x17 x33 x42 x45 x47 x48 x58 x57 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_772_case__251(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x58)(x57)(st))(st)++++c__case_771 x17 x33 x42 x45 x47 x48 x58 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_771_case__250(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x58)(st))(st)++++c__case_770 x17 x33 x42 x45 x47 x48 x60 x59 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_770_case__249(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x60)(x59)(st))(st)++++c__case_769 x17 x33 x42 x45 x47 x48 x60 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_769_case__248(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x60)(st))(st)++++c__case_768 x17 x33 x42 x45 x48 x47 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_768_case__247(x1)(x17)(x33)(x42)(x45)(x48)(x47)(st))(st)++++c__case_881 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_881_case__246(x1)(x2)(st))(st)++++c__case_880 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_880_case__245(x1)(x4)(x5)(x3)(st))(st)++++c__case_879 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_879_case__244(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_878 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_878_case__243(x1)(x4)(x5)(x7)(st))(st)++++c__case_877 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_877_case__242(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_876 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_876_case__241(x1)(x4)(x5)(x9)(st))(st)++++c__case_875 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_875_case__240(x1)(x5)(x4)(st))(st)++++c__case_874 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_874_case__239(x1)(x5)(x11)(x10)(st))(st)++++c__case_873 x5 x11 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_873_case__238(x1)(x5)(x11)(x13)(x12)(st))(st)++++c__case_872 x5 x11 x13 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_872_case__237(x1)(x5)(x11)(x13)(x15)(x14)(st))(st)++++c__case_871 x5 x11 x13 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_871_case__236(x1)(x5)(x11)(x13)(x15)(st))(st)++++c__case_870 x5 x11 x13 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_870_case__235(x1)(x5)(x11)(x13)(x17)(x16)(st))(st)++++c__case_869 x5 x11 x13 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_869_case__234(x1)(x5)(x11)(x13)(x17)(st))(st)++++c__case_868 x5 x11 x13 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_868_case__233(x1)(x5)(x11)(x13)(x19)(x18)(st))(st)++++c__case_867 x5 x11 x13 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_867_case__232(x1)(x5)(x11)(x13)(x19)(st))(st)++++c__case_866 x5 x11 x13 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_866_case__231(x1)(x5)(x11)(x13)(x21)(x20)(st))(st)++++c__case_865 x5 x11 x13 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_865_case__230(x1)(x5)(x11)(x13)(x21)(st))(st)++++c__case_864 x5 x11 x13 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_864_case__229(x1)(x5)(x11)(x13)(x23)(x22)(st))(st)++++c__case_863 x5 x11 x13 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_863_case__228(x1)(x5)(x11)(x13)(x23)(st))(st)++++c__case_862 x5 x11 x13 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_862_case__227(x1)(x5)(x11)(x13)(x25)(x24)(st))(st)++++c__case_861 x5 x11 x13 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_861_case__226(x1)(x5)(x11)(x13)(x25)(st))(st)++++c__case_860 x5 x13 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_860_case__225(x1)(x5)(x13)(x11)(st))(st)++++c__case_859 x5 x13 x27 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_859_case__224(x1)(x5)(x13)(x27)(x26)(st))(st)++++c__case_858 x5 x13 x27 x29 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_858_case__223(x1)(x5)(x13)(x27)(x29)(x28)(st))(st)++++c__case_857 x5 x13 x27 x29 x31 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_857_case__222(x1)(x5)(x13)(x27)(x29)(x31)(x30)(st))(st)++++c__case_856 x5 x13 x27 x29 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_856_case__221(x1)(x5)(x13)(x27)(x29)(x31)(st))(st)++++c__case_855 x5 x13 x27 x29 x33 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_855_case__220(x1)(x5)(x13)(x27)(x29)(x33)(x32)(st))(st)++++c__case_854 x5 x13 x27 x29 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_854_case__219(x1)(x5)(x13)(x27)(x29)(x33)(st))(st)++++c__case_853 x5 x13 x27 x29 x35 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_853_case__218(x1)(x5)(x13)(x27)(x29)(x35)(x34)(st))(st)++++c__case_852 x5 x13 x27 x29 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_852_case__217(x1)(x5)(x13)(x27)(x29)(x35)(st))(st)++++c__case_851 x5 x13 x27 x29 x37 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_851_case__216(x1)(x5)(x13)(x27)(x29)(x37)(x36)(st))(st)++++c__case_850 x5 x13 x27 x29 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_850_case__215(x1)(x5)(x13)(x27)(x29)(x37)(st))(st)++++c__case_849 x5 x13 x29 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_849_case__214(x1)(x5)(x13)(x29)(x27)(st))(st)++++c__case_848 x5 x13 x29 x39 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_848_case__213(x1)(x5)(x13)(x29)(x39)(x38)(st))(st)++++c__case_847 x5 x13 x29 x39 x41 x40 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_847_case__212(x1)(x5)(x13)(x29)(x39)(x41)(x40)(st))(st)++++c__case_846 x5 x13 x29 x39 x41 x43 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_846_case__211(x1)(x5)(x13)(x29)(x39)(x41)(x43)(x42)(st))(st)++++c__case_845 x5 x13 x29 x39 x41 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_845_case__210(x1)(x5)(x13)(x29)(x39)(x41)(x43)(st))(st)++++c__case_844 x5 x13 x29 x39 x41 x45 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_844_case__209(x1)(x5)(x13)(x29)(x39)(x41)(x45)(x44)(st))(st)++++c__case_843 x5 x13 x29 x39 x41 x45 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_843_case__208(x1)(x5)(x13)(x29)(x39)(x41)(x45)(st))(st)++++c__case_842 x5 x13 x29 x39 x41 x47 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_842_case__207(x1)(x5)(x13)(x29)(x39)(x41)(x47)(x46)(st))(st)++++c__case_841 x5 x13 x29 x39 x41 x47 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_841_case__206(x1)(x5)(x13)(x29)(x39)(x41)(x47)(st))(st)++++c__case_840 x5 x13 x29 x39 x41 x49 x48 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_840_case__205(x1)(x5)(x13)(x29)(x39)(x41)(x49)(x48)(st))(st)++++c__case_839 x5 x13 x29 x39 x41 x49 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_839_case__204(x1)(x5)(x13)(x29)(x39)(x41)(x49)(st))(st)++++c__case_838 x5 x13 x29 x39 x41 x51 x50 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_838_case__203(x1)(x5)(x13)(x29)(x39)(x41)(x51)(x50)(st))(st)++++c__case_837 x5 x13 x29 x39 x41 x51 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_837_case__202(x1)(x5)(x13)(x29)(x39)(x41)(x51)(st))(st)++++c__case_836 x5 x13 x29 x39 x41 x53 x52 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_836_case__201(x1)(x5)(x13)(x29)(x39)(x41)(x53)(x52)(st))(st)++++c__case_835 x5 x13 x29 x39 x41 x53 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_835_case__200(x1)(x5)(x13)(x29)(x39)(x41)(x53)(st))(st)++++c__case_834 x5 x13 x29 x41 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_834_case__199(x1)(x5)(x13)(x29)(x41)(x39)(st))(st)++++c__case_833 x5 x13 x29 x41 x55 x54 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_833_case__198(x1)(x5)(x13)(x29)(x41)(x55)(x54)(st))(st)++++c__case_832 x5 x13 x29 x41 x55 x57 x56 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_832_case__197(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x56)(st))(st)++++c__case_831 x5 x13 x29 x41 x55 x57 x59 x58 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_831_case__196(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x59)(x58)(st))(st)++++c__case_830 x5 x13 x29 x41 x55 x57 x59 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_830_case__195(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x59)(st))(st)++++c__case_829 x5 x13 x29 x41 x55 x57 x61 x60 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_829_case__194(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x61)(x60)(st))(st)++++c__case_828 x5 x13 x29 x41 x55 x57 x61 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_828_case__193(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x61)(st))(st)++++c__case_827 x5 x13 x29 x41 x55 x57 x63 x62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_827_case__192(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x63)(x62)(st))(st)++++c__case_826 x5 x13 x29 x41 x55 x57 x63 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_826_case__191(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x63)(st))(st)++++c__case_825 x5 x13 x29 x41 x55 x57 x65 x64 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_825_case__190(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x65)(x64)(st))(st)++++c__case_824 x5 x13 x29 x41 x55 x57 x65 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_824_case__189(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x65)(st))(st)++++c__case_823 x5 x13 x29 x41 x57 x55 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_823_case__188(x1)(x5)(x13)(x29)(x41)(x57)(x55)(st))(st)++++c__case_822 x13 x29 x41 x57 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_822_case__187(x1)(x13)(x29)(x41)(x57)(x5)(st))(st)++++c__case_935 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_935_case__186(x1)(x2)(st))(st)++++c__case_934 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_934_case__185(x1)(x4)(x5)(x3)(st))(st)++++c__case_933 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_933_case__184(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_932 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_932_case__183(x1)(x4)(x5)(x7)(st))(st)++++c__case_931 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_931_case__182(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_930 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_930_case__181(x1)(x4)(x5)(x9)(st))(st)++++c__case_929 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_929_case__180(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_928 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_928_case__179(x1)(x4)(x5)(x11)(st))(st)++++c__case_927 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_927_case__178(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_926 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_926_case__177(x1)(x4)(x5)(x13)(st))(st)++++c__case_925 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_925_case__176(x1)(x5)(x4)(st))(st)++++c__case_924 x5 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_924_case__175(x1)(x5)(x15)(x14)(st))(st)++++c__case_923 x5 x15 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_923_case__174(x1)(x5)(x15)(x17)(x16)(st))(st)++++c__case_922 x5 x15 x17 x19 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_922_case__173(x1)(x5)(x15)(x17)(x19)(x18)(st))(st)++++c__case_921 x5 x15 x17 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_921_case__172(x1)(x5)(x15)(x17)(x19)(st))(st)++++c__case_920 x5 x15 x17 x21 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_920_case__171(x1)(x5)(x15)(x17)(x21)(x20)(st))(st)++++c__case_919 x5 x15 x17 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_919_case__170(x1)(x5)(x15)(x17)(x21)(st))(st)++++c__case_918 x5 x15 x17 x23 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_918_case__169(x1)(x5)(x15)(x17)(x23)(x22)(st))(st)++++c__case_917 x5 x15 x17 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_917_case__168(x1)(x5)(x15)(x17)(x23)(st))(st)++++c__case_916 x5 x15 x17 x25 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_916_case__167(x1)(x5)(x15)(x17)(x25)(x24)(st))(st)++++c__case_915 x5 x15 x17 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_915_case__166(x1)(x5)(x15)(x17)(x25)(st))(st)++++c__case_914 x5 x15 x17 x27 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_914_case__165(x1)(x5)(x15)(x17)(x27)(x26)(st))(st)++++c__case_913 x5 x15 x17 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_913_case__164(x1)(x5)(x15)(x17)(x27)(st))(st)++++c__case_912 x5 x15 x17 x29 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_912_case__163(x1)(x5)(x15)(x17)(x29)(x28)(st))(st)++++c__case_911 x5 x15 x17 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_911_case__162(x1)(x5)(x15)(x17)(x29)(st))(st)++++c__case_910 x5 x17 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_910_case__161(x1)(x5)(x17)(x15)(st))(st)++++c__case_909 x5 x17 x31 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_909_case__160(x1)(x5)(x17)(x31)(x30)(st))(st)++++c__case_908 x5 x17 x31 x33 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_908_case__159(x1)(x5)(x17)(x31)(x33)(x32)(st))(st)++++c__case_907 x5 x17 x31 x33 x35 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_907_case__158(x1)(x5)(x17)(x31)(x33)(x35)(x34)(st))(st)++++c__case_906 x5 x17 x31 x33 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_906_case__157(x1)(x5)(x17)(x31)(x33)(x35)(st))(st)++++c__case_905 x5 x17 x31 x33 x37 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_905_case__156(x1)(x5)(x17)(x31)(x33)(x37)(x36)(st))(st)++++c__case_904 x5 x17 x31 x33 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_904_case__155(x1)(x5)(x17)(x31)(x33)(x37)(st))(st)++++c__case_903 x5 x17 x31 x33 x39 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_903_case__154(x1)(x5)(x17)(x31)(x33)(x39)(x38)(st))(st)++++c__case_902 x5 x17 x31 x33 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_902_case__153(x1)(x5)(x17)(x31)(x33)(x39)(st))(st)++++c__case_901 x5 x17 x31 x33 x41 x40 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_901_case__152(x1)(x5)(x17)(x31)(x33)(x41)(x40)(st))(st)++++c__case_900 x5 x17 x31 x33 x41 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_900_case__151(x1)(x5)(x17)(x31)(x33)(x41)(st))(st)++++c__case_899 x5 x17 x33 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_899_case__150(x1)(x5)(x17)(x33)(x31)(st))(st)++++c__case_898 x5 x17 x33 x43 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_898_case__149(x1)(x5)(x17)(x33)(x43)(x42)(st))(st)++++c__case_897 x5 x17 x33 x43 x45 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_897_case__148(x1)(x5)(x17)(x33)(x43)(x45)(x44)(st))(st)++++c__case_896 x5 x17 x33 x43 x45 x47 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_896_case__147(x1)(x5)(x17)(x33)(x43)(x45)(x47)(x46)(st))(st)++++c__case_895 x5 x17 x33 x43 x45 x47 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_895_case__146(x1)(x5)(x17)(x33)(x43)(x45)(x47)(st))(st)++++c__case_894 x5 x17 x33 x43 x45 x49 x48 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_894_case__145(x1)(x5)(x17)(x33)(x43)(x45)(x49)(x48)(st))(st)++++c__case_893 x5 x17 x33 x43 x45 x49 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_893_case__144(x1)(x5)(x17)(x33)(x43)(x45)(x49)(st))(st)++++c__case_892 x5 x17 x33 x43 x45 x51 x50 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_892_case__143(x1)(x5)(x17)(x33)(x43)(x45)(x51)(x50)(st))(st)++++c__case_891 x5 x17 x33 x43 x45 x51 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_891_case__142(x1)(x5)(x17)(x33)(x43)(x45)(x51)(st))(st)++++c__case_890 x5 x17 x33 x43 x45 x53 x52 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_890_case__141(x1)(x5)(x17)(x33)(x43)(x45)(x53)(x52)(st))(st)++++c__case_889 x5 x17 x33 x43 x45 x53 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_889_case__140(x1)(x5)(x17)(x33)(x43)(x45)(x53)(st))(st)++++c__case_888 x5 x17 x33 x43 x45 x55 x54 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_888_case__139(x1)(x5)(x17)(x33)(x43)(x45)(x55)(x54)(st))(st)++++c__case_887 x5 x17 x33 x43 x45 x55 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_887_case__138(x1)(x5)(x17)(x33)(x43)(x45)(x55)(st))(st)++++c__case_886 x5 x17 x33 x45 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_886_case__137(x1)(x5)(x17)(x33)(x45)(x43)(st))(st)++++c__case_885 x5 x17 x33 x45 x56 x57 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_885_case__136(x1)(x5)(x17)(x33)(x45)(x56)(x57)(st))(st)++++c__case_884 x17 x33 x45 x56 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_884_case__135(x1)(x17)(x33)(x45)(x56)(x5)(st))(st)++++c__case_883 x17 x33 x45 x56 x58 x59 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_883_case__134(x1)(x17)(x33)(x45)(x56)(x58)(x59)(st))(st)++++c__case_882 x17 x33 x45 x56 x58 x60 x61 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_882_case__133(x1)(x17)(x33)(x45)(x56)(x58)(x60)(x61)(st))(st)++++c__case_950 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_950_case__132(x1)(x2)(st))(st)++++c__case_949 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_949_case__131(x1)(x4)(x5)(x3)(st))(st)++++c__case_948 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_948_case__130(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_947 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_947_case__129(x1)(x4)(x5)(x7)(st))(st)++++c__case_946 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_946_case__128(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_945 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_945_case__127(x1)(x4)(x5)(x9)(st))(st)++++c__case_944 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_944_case__126(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_943 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_943_case__125(x1)(x4)(x5)(x11)(st))(st)++++c__case_942 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_942_case__124(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_941 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_941_case__123(x1)(x4)(x5)(x13)(st))(st)++++c__case_940 x4 x5 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_940_case__122(x1)(x4)(x5)(x15)(x14)(st))(st)++++c__case_939 x4 x5 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_939_case__121(x1)(x4)(x5)(x15)(st))(st)++++c__case_938 x4 x5 x17 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_938_case__120(x1)(x4)(x5)(x17)(x16)(st))(st)++++c__case_937 x4 x5 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_937_case__119(x1)(x4)(x5)(x17)(st))(st)++++c__case_936 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_936_case__118(x1)(x5)(x4)(st))(st)++++c__case_1052 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1052_case__117(x1)(x2)(st))(st)++++c__case_1051 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1051_case__116(x1)(x4)(x5)(x3)(st))(st)++++c__case_1050 x4 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1050_case__115(x1)(x4)(x5)(x7)(x6)(st))(st)++++c__case_1049 x4 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1049_case__114(x1)(x4)(x5)(x7)(st))(st)++++c__case_1048 x4 x5 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1048_case__113(x1)(x4)(x5)(x9)(x8)(st))(st)++++c__case_1047 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1047_case__112(x1)(x4)(x5)(x9)(st))(st)++++c__case_1046 x4 x5 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1046_case__111(x1)(x4)(x5)(x11)(x10)(st))(st)++++c__case_1045 x4 x5 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1045_case__110(x1)(x4)(x5)(x11)(st))(st)++++c__case_1044 x4 x5 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1044_case__109(x1)(x4)(x5)(x13)(x12)(st))(st)++++c__case_1043 x4 x5 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1043_case__108(x1)(x4)(x5)(x13)(st))(st)++++c__case_1042 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1042_case__107(x1)(x5)(x4)(st))(st)++++c__case_1041 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1041_case__106(x1)(x5)(st))(st)++++c__case_1040 x15 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1040_case__105(x1)(x15)(x14)(st))(st)++++c__case_1039 x15 x17 x18 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1039_case__104(x1)(x15)(x17)(x18)(x16)(st))(st)++++c__case_1038 x15 x17 x18 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1038_case__103(x1)(x15)(x17)(x18)(x20)(x19)(st))(st)++++c__case_1037 x15 x17 x18 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1037_case__102(x1)(x15)(x17)(x18)(x20)(st))(st)++++c__case_1036 x15 x17 x18 x22 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1036_case__101(x1)(x15)(x17)(x18)(x22)(x21)(st))(st)++++c__case_1035 x15 x17 x18 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1035_case__100(x1)(x15)(x17)(x18)(x22)(st))(st)++++c__case_1034 x15 x17 x18 x24 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1034_case__99(x1)(x15)(x17)(x18)(x24)(x23)(st))(st)++++c__case_1033 x15 x17 x18 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1033_case__98(x1)(x15)(x17)(x18)(x24)(st))(st)++++c__case_1032 x15 x17 x18 x26 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1032_case__97(x1)(x15)(x17)(x18)(x26)(x25)(st))(st)++++c__case_1031 x15 x17 x18 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1031_case__96(x1)(x15)(x17)(x18)(x26)(st))(st)++++c__case_1030 x15 x17 x18 x28 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1030_case__95(x1)(x15)(x17)(x18)(x28)(x27)(st))(st)++++c__case_1029 x15 x17 x18 x28 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1029_case__94(x1)(x15)(x17)(x18)(x28)(st))(st)++++c__case_1028 x15 x17 x18 x30 x29 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1028_case__93(x1)(x15)(x17)(x18)(x30)(x29)(st))(st)++++c__case_1027 x15 x17 x18 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1027_case__92(x1)(x15)(x17)(x18)(x30)(st))(st)++++c__case_1026 x15 x18 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1026_case__91(x1)(x15)(x18)(x17)(st))(st)++++c__case_1025 x18 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1025_case__90(x1)(x18)(x15)(st))(st)++++c__case_1024 x18 x32 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1024_case__89(x1)(x18)(x32)(x31)(st))(st)++++c__case_1023 x18 x32 x34 x35 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1023_case__88(x1)(x18)(x32)(x34)(x35)(x33)(st))(st)++++c__case_1022 x18 x32 x34 x35 x37 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1022_case__87(x1)(x18)(x32)(x34)(x35)(x37)(x36)(st))(st)++++c__case_1021 x18 x32 x34 x35 x37 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1021_case__86(x1)(x18)(x32)(x34)(x35)(x37)(st))(st)++++c__case_1020 x18 x32 x34 x35 x39 x38 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1020_case__85(x1)(x18)(x32)(x34)(x35)(x39)(x38)(st))(st)++++c__case_1019 x18 x32 x34 x35 x39 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1019_case__84(x1)(x18)(x32)(x34)(x35)(x39)(st))(st)++++c__case_1018 x18 x32 x34 x35 x41 x40 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1018_case__83(x1)(x18)(x32)(x34)(x35)(x41)(x40)(st))(st)++++c__case_1017 x18 x32 x34 x35 x41 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1017_case__82(x1)(x18)(x32)(x34)(x35)(x41)(st))(st)++++c__case_1016 x18 x32 x34 x35 x43 x42 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1016_case__81(x1)(x18)(x32)(x34)(x35)(x43)(x42)(st))(st)++++c__case_1015 x18 x32 x34 x35 x43 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1015_case__80(x1)(x18)(x32)(x34)(x35)(x43)(st))(st)++++c__case_1014 x18 x32 x34 x35 x45 x44 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1014_case__79(x1)(x18)(x32)(x34)(x35)(x45)(x44)(st))(st)++++c__case_1013 x18 x32 x34 x35 x45 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1013_case__78(x1)(x18)(x32)(x34)(x35)(x45)(st))(st)++++c__case_1012 x18 x32 x34 x35 x47 x46 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1012_case__77(x1)(x18)(x32)(x34)(x35)(x47)(x46)(st))(st)++++c__case_1011 x18 x32 x34 x35 x47 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1011_case__76(x1)(x18)(x32)(x34)(x35)(x47)(st))(st)++++c__case_1010 x18 x32 x35 x34 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1010_case__75(x1)(x18)(x32)(x35)(x34)(st))(st)++++c__case_1009 x18 x35 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1009_case__74(x1)(x18)(x35)(x32)(st))(st)++++c__case_1008 x18 x35 x49 x48 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1008_case__73(x1)(x18)(x35)(x49)(x48)(st))(st)++++c__case_1007 x18 x35 x49 x51 x52 x50 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1007_case__72(x1)(x18)(x35)(x49)(x51)(x52)(x50)(st))(st)++++c__case_1006 x18 x35 x49 x51 x52 x54 x53 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1006_case__71(x1)(x18)(x35)(x49)(x51)(x52)(x54)(x53)(st))(st)++++c__case_1005 x18 x35 x49 x51 x52 x54 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1005_case__70(x1)(x18)(x35)(x49)(x51)(x52)(x54)(st))(st)++++c__case_1004 x18 x35 x49 x51 x52 x56 x55 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1004_case__69(x1)(x18)(x35)(x49)(x51)(x52)(x56)(x55)(st))(st)++++c__case_1003 x18 x35 x49 x51 x52 x56 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1003_case__68(x1)(x18)(x35)(x49)(x51)(x52)(x56)(st))(st)++++c__case_1002 x18 x35 x49 x51 x52 x58 x57 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1002_case__67(x1)(x18)(x35)(x49)(x51)(x52)(x58)(x57)(st))(st)++++c__case_1001 x18 x35 x49 x51 x52 x58 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1001_case__66(x1)(x18)(x35)(x49)(x51)(x52)(x58)(st))(st)++++c__case_1000 x18 x35 x49 x51 x52 x60 x59 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1000_case__65(x1)(x18)(x35)(x49)(x51)(x52)(x60)(x59)(st))(st)++++c__case_999 x18 x35 x49 x51 x52 x60 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_999_case__64(x1)(x18)(x35)(x49)(x51)(x52)(x60)(st))(st)++++c__case_998 x18 x35 x49 x51 x52 x62 x61 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_998_case__63(x1)(x18)(x35)(x49)(x51)(x52)(x62)(x61)(st))(st)++++c__case_997 x18 x35 x49 x51 x52 x62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_997_case__62(x1)(x18)(x35)(x49)(x51)(x52)(x62)(st))(st)++++c__case_996 x18 x35 x49 x52 x51 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_996_case__61(x1)(x18)(x35)(x49)(x52)(x51)(st))(st)++++c__case_995 x18 x35 x52 x49 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_995_case__60(x1)(x18)(x35)(x52)(x49)(st))(st)++++c__case_994 x18 x35 x52 x64 x63 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_994_case__59(x1)(x18)(x35)(x52)(x64)(x63)(st))(st)++++c__case_993 x18 x35 x52 x64 x66 x67 x65 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_993_case__58(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x65)(st))(st)++++c__case_992 x18 x35 x52 x64 x66 x67 x69 x68 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_992_case__57(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x69)(x68)(st))(st)++++c__case_991 x18 x35 x52 x64 x66 x67 x69 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_991_case__56(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x69)(st))(st)++++c__case_990 x18 x35 x52 x64 x66 x67 x71 x70 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_990_case__55(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x71)(x70)(st))(st)++++c__case_989 x18 x35 x52 x64 x66 x67 x71 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_989_case__54(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x71)(st))(st)++++c__case_988 x18 x35 x52 x64 x66 x67 x73 x72 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_988_case__53(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x73)(x72)(st))(st)++++c__case_987 x18 x35 x52 x64 x66 x67 x73 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_987_case__52(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x73)(st))(st)++++c__case_986 x18 x35 x52 x64 x66 x67 x75 x74 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_986_case__51(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x75)(x74)(st))(st)++++c__case_985 x18 x35 x52 x64 x66 x67 x75 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_985_case__50(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x75)(st))(st)++++c__case_984 x18 x35 x52 x64 x66 x67 x77 x76 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_984_case__49(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x77)(x76)(st))(st)++++c__case_983 x18 x35 x52 x64 x66 x67 x77 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_983_case__48(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x77)(st))(st)++++c__case_982 x18 x35 x52 x64 x66 x67 x79 x78 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_982_case__47(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x79)(x78)(st))(st)++++c__case_981 x18 x35 x52 x64 x66 x67 x79 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_981_case__46(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x79)(st))(st)++++c__case_980 x18 x35 x52 x64 x66 x67 x81 x80 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_980_case__45(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x81)(x80)(st))(st)++++c__case_979 x18 x35 x52 x64 x66 x67 x81 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_979_case__44(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x81)(st))(st)++++c__case_978 x18 x35 x52 x64 x66 x67 x83 x82 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_978_case__43(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x83)(x82)(st))(st)++++c__case_977 x18 x35 x52 x64 x66 x67 x83 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_977_case__42(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x83)(st))(st)++++c__case_976 x18 x35 x52 x64 x66 x67 x85 x84 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_976_case__41(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x85)(x84)(st))(st)++++c__case_975 x18 x35 x52 x64 x66 x67 x85 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_975_case__40(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x85)(st))(st)++++c__case_974 x18 x35 x52 x64 x67 x66 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_974_case__39(x1)(x18)(x35)(x52)(x64)(x67)(x66)(st))(st)++++c__case_973 x18 x35 x52 x67 x64 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_973_case__38(x1)(x18)(x35)(x52)(x67)(x64)(st))(st)++++c__case_972 x18 x35 x52 x67 x87 x86 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_972_case__37(x1)(x18)(x35)(x52)(x67)(x87)(x86)(st))(st)++++c__case_971 x18 x35 x52 x67 x87 x89 x90 x88 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_971_case__36(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x88)(st))(st)++++c__case_970 x18 x35 x52 x67 x87 x89 x90 x92 x91 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_970_case__35(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x92)(x91)(st))(st)++++c__case_969 x18 x35 x52 x67 x87 x89 x90 x92 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_969_case__34(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x92)(st))(st)++++c__case_968 x18 x35 x52 x67 x87 x89 x90 x94 x93 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_968_case__33(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x94)(x93)(st))(st)++++c__case_967 x18 x35 x52 x67 x87 x89 x90 x94 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_967_case__32(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x94)(st))(st)++++c__case_966 x18 x35 x52 x67 x87 x89 x90 x96 x95 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_966_case__31(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x96)(x95)(st))(st)++++c__case_965 x18 x35 x52 x67 x87 x89 x90 x96 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_965_case__30(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x96)(st))(st)++++c__case_964 x18 x35 x52 x67 x87 x89 x90 x98 x97 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_964_case__29(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x98)(x97)(st))(st)++++c__case_963 x18 x35 x52 x67 x87 x89 x90 x98 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_963_case__28(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x98)(st))(st)++++c__case_962 x18 x35 x52 x67 x87 x89 x90 x100 x99 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_962_case__27(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x100)(x99)(st))(st)++++c__case_961 x18 x35 x52 x67 x87 x89 x90 x100 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_961_case__26(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x100)(st))(st)++++c__case_960 x18 x35 x52 x67 x87 x89 x90 x102 x101 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_960_case__25(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x102)(x101)(st))(st)++++c__case_959 x18 x35 x52 x67 x87 x89 x90 x102 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_959_case__24(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x102)(st))(st)++++c__case_958 x18 x35 x52 x67 x87 x89 x90 x104 x103 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_958_case__23(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x104)(x103)(st))(st)++++c__case_957 x18 x35 x52 x67 x87 x89 x90 x104 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_957_case__22(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x104)(st))(st)++++c__case_956 x18 x35 x52 x67 x87 x89 x90 x106 x105 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_956_case__21(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x106)(x105)(st))(st)++++c__case_955 x18 x35 x52 x67 x87 x89 x90 x106 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_955_case__20(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x106)(st))(st)++++c__case_954 x18 x35 x52 x67 x87 x89 x90 x108 x107 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_954_case__19(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x108)(x107)(st))(st)++++c__case_953 x18 x35 x52 x67 x87 x89 x90 x108 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_953_case__18(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x108)(st))(st)++++c__case_952 x18 x35 x52 x67 x87 x90 x89 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_952_case__17(x1)(x18)(x35)(x52)(x67)(x87)(x90)(x89)(st))(st)++++c__case_951 x18 x35 x52 x67 x90 x87 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_951_case__16(x1)(x18)(x35)(x52)(x67)(x90)(x87)(st))(st)++++c__case_1053 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1053_case__15(x1)(x2)(st))(st)++++c__case_1055 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1055_case__14(x1)(x2)(st))(st)++++c__case_1054 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1054_case__13(x1)(x4)(x3)(st))(st)++++c__case_1056 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1056_case__12(x1)(x2)(st))(st)++++c__case_1057 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1057_case__11(x1)(x2)(st))(st)++++c__case_1060 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1060_case__10(x1)(x2)(st))(st)++++c__case_1058 x14 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1058_case__9(x1)(x15)(st))(st)++++c__case_1059 x6 x7 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1059_case__8(x1)(x6)(x7)(x5)(st))(st)++++c__case_1061 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1061_case__7(x1)(x2)(st))(st)++++c__case_1062 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1062_case__6(x1)(x2)(st))(st)++++c__case_1063 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1063_case__5(x1)(x2)(st))(st)++++c__case_1064 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1064_case__4(x1)(x2)(st))(st)++++c__case_1065 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1065_case__3(x1)(x2)(st))(st)++++c__case_1066 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1066_case__2(x1)(x2)(st))(st)++++c__case_1067 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1067_case__1(x1)(x2)(st))(st)++++c__case_1068 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1068_case__0(x1)(x2)(st))(st)++++c__case_1068_case__0 x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xtxt(x3)(x1)(st))(Curry.Module.Prelude.List))(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatCurry2Xml'46_'35lambda2))))(x4)(x9)(st))(x10)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowType))))(x5)(x11)(st))(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowFunc))))(x6)(x13)(st))(x14)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowOp))))(x7)(x15)(st))(x16)(st))(Curry.Module.Prelude.List))))))(x17)(st))(st)+c__case_1068_case__0 x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1068_case__0(x1)(x)(st))(i)(xs)(st)+c__case_1068_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1068_case__0")(x)++++c__case_1067_case__1 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))(x3))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(x4))(Curry.Module.Prelude.List)))(st)+c__case_1067_case__1 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1067_case__1(x1)(x)(st))(i)(xs)(st)+c__case_1067_case__1 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1067_case__1")(x)++++c__case_1066_case__2 x1 x2@Curry.Module.FlatCurry.C_Public st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))))))(Curry.Module.Prelude.List))(st)+c__case_1066_case__2 x1 x2@Curry.Module.FlatCurry.C_Private st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.List))(st)+c__case_1066_case__2 x1 (Curry.Module.FlatCurry.C_VisibilityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1066_case__2(x1)(x)(st))(i)(xs)(st)+c__case_1066_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1066_case__2")(x)++++c__case_1065_case__3 x1 x2@(Curry.Module.FlatCurry.C_Type x3 x4 x5 x6) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))))))(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x3)(x1)(st))(Curry.Module.OracleFlatCurryXML.c_xmlShowVisibity(x4)(x11)(st))(x12)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowTVar))))(x5)(x13)(st))(x14)(st))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowCons))))(x6)(x15)(st))(x16)(st)))(st)+c__case_1065_case__3 x1 x2@(Curry.Module.FlatCurry.C_TypeSyn x7 x8 x9 x10) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))))(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x7)(x1)(st))(Curry.Module.OracleFlatCurryXML.c_xmlShowVisibity(x8)(x17)(st))(x18)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowTVar))))(x9)(x19)(st))(x20)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowTypeExpr(x10)(x21)(st))(Curry.Module.Prelude.List))))(st)+c__case_1065_case__3 x1 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1065_case__3(x1)(x)(st))(i)(xs)(st)+c__case_1065_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1065_case__3")(x)++++c__case_1064_case__4 x1 x2@(Curry.Module.FlatCurry.C_Cons x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))))(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_show(x4)(x7)(st)))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryXML.c_xmlShowVisibity(x5)(x8)(st))(x9)(st))(x10)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowTypeExpr))))(x6)(x11)(st)))(st)+c__case_1064_case__4 x1 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1064_case__4(x1)(x)(st))(i)(xs)(st)+c__case_1064_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1064_case__4")(x)++++c__case_1063_case__5 x1 x2@(Curry.Module.FlatCurry.C_FuncType x3 x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowTypeExpr(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowTypeExpr(x4)(x8)(st))(Curry.Module.Prelude.List)))(x9)(st))(st)+c__case_1063_case__5 x1 x2@(Curry.Module.FlatCurry.C_TCons x5 x6) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x5)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowTypeExpr))))(x6)(x10)(st)))(st)+c__case_1063_case__5 x1 x2@(Curry.Module.FlatCurry.C_TVar x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c_xmlShowTVar(x7)(x1)(st))(st)+c__case_1063_case__5 x1 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1063_case__5(x1)(x)(st))(i)(xs)(st)+c__case_1063_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1063_case__5")(x)++++c__case_1062_case__6 x1 x2@(Curry.Module.FlatCurry.C_Func x3 x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))))))(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_show(x4)(x8)(st)))(Curry.Module.Prelude.List))(Curry.Module.OracleFlatCurryXML.c_xmlShowVisibity(x5)(x9)(st))(x10)(st))(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowTypeExpr(x6)(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowRule(x7)(x13)(st))(Curry.Module.Prelude.List))))(st)+c__case_1062_case__6 x1 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1062_case__6(x1)(x)(st))(i)(xs)(st)+c__case_1062_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1062_case__6")(x)++++c__case_1061_case__7 x1 x2@(Curry.Module.FlatCurry.C_Rule x3 x4) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowVar))))(x3)(x1)(st))(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr(x4)(x7)(st))(Curry.Module.Prelude.List))(x8)(st))(Curry.Module.Prelude.List)))(x9)(st))(st)+c__case_1061_case__7 x1 x2@(Curry.Module.FlatCurry.C_External x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xtxt(x5)(x1)(st))(Curry.Module.Prelude.List))(x10)(st))(st)+c__case_1061_case__7 x1 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1061_case__7(x1)(x)(st))(i)(xs)(st)+c__case_1061_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1061_case__7")(x)++++c__case_1059_case__8 x1 x6 x7 x5@Curry.Module.FlatCurry.C_FuncCall st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x6)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr))))(x7)(x10)(st)))(st)+c__case_1059_case__8 x1 x6 x7 x5@Curry.Module.FlatCurry.C_ConsCall st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x6)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr))))(x7)(x11)(st)))(st)+c__case_1059_case__8 x1 x6 x7 x5@(Curry.Module.FlatCurry.C_FuncPartCall x8) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))))(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x6)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.c_show(x8)(x12)(st)))(Curry.Module.Prelude.List))(x13)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr))))(x7)(x14)(st)))(st)+c__case_1059_case__8 x1 x6 x7 x5@(Curry.Module.FlatCurry.C_ConsPartCall x9) st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x6)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.c_show(x9)(x15)(st)))(Curry.Module.Prelude.List))(x16)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr))))(x7)(x17)(st)))(st)+c__case_1059_case__8 x1 x6 x7 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1059_case__8(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_1059_case__8 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1059_case__8")(x)++++c__case_1058_case__9 x1 x15@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))(st)+c__case_1058_case__9 x1 x15@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((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__case_1058_case__9 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1058_case__9(x1)(x)(st))(i)(xs)(st)+c__case_1058_case__9 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1058_case__9")(x)++++c__case_1060_case__10 x1 x2@(Curry.Module.FlatCurry.C_Var x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c_xmlShowVar(x3)(x1)(st))(st)+c__case_1060_case__10 x1 x2@(Curry.Module.FlatCurry.C_Lit x4) st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowLit(x4)(x1)(st))(Curry.Module.Prelude.List))(x19)(st))(st)+c__case_1060_case__10 x1 x2@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1059(x6)(x7)(x5)(x1)(st))(st)+c__case_1060_case__10 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowVar))))(x10)(x1)(st))(x20)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr(x11)(x21)(st))(Curry.Module.Prelude.List)))(x22)(st))(st)+c__case_1060_case__10 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr(x12)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr(x13)(x23)(st))(Curry.Module.Prelude.List)))(x24)(st))(st)+c__case_1060_case__10 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List)))))(Curry.Module.XML.C_XElem(Curry.Module.OracleFlatCurryXML.c__case_1058(x14)(Curry.Module.OraclePrelude.op_61_61(x14)(Curry.Module.FlatCurry.C_Flex)(x1)(st))(x25)(st))(Curry.Module.Prelude.List)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr(x15)(x26)(st))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowBranch))))(x16)(x27)(st))(x28)(st)))(st)+c__case_1060_case__10 x1 x2@(Curry.Module.FlatCurry.C_Let x17 x18) st = let {x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List))))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr'46_'35lambda3))))(x17)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr(x18)(x29)(st))(Curry.Module.Prelude.List))(x30)(st))(x31)(st))(st)+c__case_1060_case__10 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1060_case__10(x1)(x)(st))(i)(xs)(st)+c__case_1060_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1060_case__10")(x)++++c__case_1057_case__11 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowVar(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr(x4)(x5)(st))(Curry.Module.Prelude.List)))(x6)(st))(st)+c__case_1057_case__11 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1057_case__11(x1)(x)(st))(i)(xs)(st)+c__case_1057_case__11 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1057_case__11")(x)++++c__case_1056_case__12 x1 x2@(Curry.Module.FlatCurry.C_Intc x3) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xtxt(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(x6)(st))(Curry.Module.Prelude.List))(x7)(st))(st)+c__case_1056_case__12 x1 x2@(Curry.Module.FlatCurry.C_Floatc x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xtxt(Curry.Module.OraclePrelude.c_show(x4)(x1)(st))(x8)(st))(Curry.Module.Prelude.List))(x9)(st))(st)+c__case_1056_case__12 x1 x2@(Curry.Module.FlatCurry.C_Charc x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xtxt(Curry.Module.OraclePrelude.c_show(Curry.Module.OraclePrelude.c_ord(x5)(x1)(st))(x10)(st))(x11)(st))(Curry.Module.Prelude.List))(x12)(st))(st)+c__case_1056_case__12 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1056_case__12(x1)(x)(st))(i)(xs)(st)+c__case_1056_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1056_case__12")(x)++++c__case_1054_case__13 x1 x4 x3@(Curry.Module.FlatCurry.C_Pattern x5 x6) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))))))))(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x5)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xmlShowVar))))(x6)(x8)(st)))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr(x4)(x9)(st))(Curry.Module.Prelude.List)))(x10)(st))(st)+c__case_1054_case__13 x1 x4 x3@(Curry.Module.FlatCurry.C_LPattern x7) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.OracleXML.c_xml((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List)))))))))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowLit(x7)(x1)(st))(Curry.Module.Prelude.List))(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleFlatCurryXML.c_xmlShowExpr(x4)(x12)(st))(Curry.Module.Prelude.List)))(x13)(st))(st)+c__case_1054_case__13 x1 x4 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1054_case__13(x1)(x4)(x)(st))(i)(xs)(st)+c__case_1054_case__13 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1054_case__13")(x)++++c__case_1055_case__14 x1 x2@(Curry.Module.FlatCurry.C_Branch x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1054(x4)(x3)(x1)(st))(st)+c__case_1055_case__14 x1 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1055_case__14(x1)(x)(st))(i)(xs)(st)+c__case_1055_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1055_case__14")(x)++++c__case_1053_case__15 x1 x2@(Curry.Module.FlatCurry.C_Op x3 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleFlatCurryXML.c_qname2xmlattrs(x3)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.c_show(x4)(x6)(st)))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.c_show(x5)(x7)(st)))(Curry.Module.Prelude.List)))(x8)(st))(Curry.Module.Prelude.List))(st)+c__case_1053_case__15 x1 (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1053_case__15(x1)(x)(st))(i)(xs)(st)+c__case_1053_case__15 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1053_case__15")(x)++++c__case_951_case__16 x1 x18 x35 x52 x67 x90 x87@Curry.Module.Prelude.List st = let {x91 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x92 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x93 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x94 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x91)((Curry.Module.Prelude.:<)(x92)((Curry.Module.Prelude.:<)(x93)((Curry.Module.Prelude.:<)(x94)(Curry.Module.Prelude.List)))))(Curry.Module.FlatCurry.C_Prog(Curry.Module.OracleXML.c_textOfXml(x18)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xml2FlatCurry'46_'35lambda5))))(x35)(x91)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2typedecl))))(x52)(x92)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xml2FlatCurry'46_'35lambda6))))(x67)(x93)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_xml2FlatCurry'46_'35lambda7))))(x90)(x94)(st)))(st)+c__case_951_case__16 x1 x18 x35 x52 x67 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_951_case__16(x1)(x18)(x35)(x52)(x67)(x90)(x)(st))(i)(xs)(st)+c__case_951_case__16 x1 x18 x35 x52 x67 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_951_case__16")(x)++++c__case_952_case__17 x1 x18 x35 x52 x67 x87 x90 x89@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_951(x18)(x35)(x52)(x67)(x90)(x87)(x1)(st))(st)+c__case_952_case__17 x1 x18 x35 x52 x67 x87 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_952_case__17(x1)(x18)(x35)(x52)(x67)(x87)(x90)(x)(st))(i)(xs)(st)+c__case_952_case__17 x1 x18 x35 x52 x67 x87 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_952_case__17")(x)++++c__case_953_case__18 x1 x18 x35 x52 x67 x87 x89 x90 x108@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_952(x18)(x35)(x52)(x67)(x87)(x90)(x89)(x1)(st))(st)+c__case_953_case__18 x1 x18 x35 x52 x67 x87 x89 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_953_case__18(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x)(st))(i)(xs)(st)+c__case_953_case__18 x1 x18 x35 x52 x67 x87 x89 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_953_case__18")(x)++++c__case_954_case__19 x1 x18 x35 x52 x67 x87 x89 x90 x108 x107 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x107)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_953(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x108)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_955_case__20 x1 x18 x35 x52 x67 x87 x89 x90 x106@((Curry.Module.Prelude.:<) x107 x108) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_954(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x108)(x107)(x1)(st))(st)+c__case_955_case__20 x1 x18 x35 x52 x67 x87 x89 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_955_case__20(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x)(st))(i)(xs)(st)+c__case_955_case__20 x1 x18 x35 x52 x67 x87 x89 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_955_case__20")(x)++++c__case_956_case__21 x1 x18 x35 x52 x67 x87 x89 x90 x106 x105 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x105)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_955(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x106)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_957_case__22 x1 x18 x35 x52 x67 x87 x89 x90 x104@((Curry.Module.Prelude.:<) x105 x106) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_956(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x106)(x105)(x1)(st))(st)+c__case_957_case__22 x1 x18 x35 x52 x67 x87 x89 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_957_case__22(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x)(st))(i)(xs)(st)+c__case_957_case__22 x1 x18 x35 x52 x67 x87 x89 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_957_case__22")(x)++++c__case_958_case__23 x1 x18 x35 x52 x67 x87 x89 x90 x104 x103 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x103)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_957(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x104)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_959_case__24 x1 x18 x35 x52 x67 x87 x89 x90 x102@((Curry.Module.Prelude.:<) x103 x104) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_958(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x104)(x103)(x1)(st))(st)+c__case_959_case__24 x1 x18 x35 x52 x67 x87 x89 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_959_case__24(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x)(st))(i)(xs)(st)+c__case_959_case__24 x1 x18 x35 x52 x67 x87 x89 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_959_case__24")(x)++++c__case_960_case__25 x1 x18 x35 x52 x67 x87 x89 x90 x102 x101 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x101)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_959(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x102)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_961_case__26 x1 x18 x35 x52 x67 x87 x89 x90 x100@((Curry.Module.Prelude.:<) x101 x102) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_960(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x102)(x101)(x1)(st))(st)+c__case_961_case__26 x1 x18 x35 x52 x67 x87 x89 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_961_case__26(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x)(st))(i)(xs)(st)+c__case_961_case__26 x1 x18 x35 x52 x67 x87 x89 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_961_case__26")(x)++++c__case_962_case__27 x1 x18 x35 x52 x67 x87 x89 x90 x100 x99 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x99)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_961(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x100)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_963_case__28 x1 x18 x35 x52 x67 x87 x89 x90 x98@((Curry.Module.Prelude.:<) x99 x100) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_962(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x100)(x99)(x1)(st))(st)+c__case_963_case__28 x1 x18 x35 x52 x67 x87 x89 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_963_case__28(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x)(st))(i)(xs)(st)+c__case_963_case__28 x1 x18 x35 x52 x67 x87 x89 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_963_case__28")(x)++++c__case_964_case__29 x1 x18 x35 x52 x67 x87 x89 x90 x98 x97 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x97)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_963(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x98)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_965_case__30 x1 x18 x35 x52 x67 x87 x89 x90 x96@((Curry.Module.Prelude.:<) x97 x98) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_964(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x98)(x97)(x1)(st))(st)+c__case_965_case__30 x1 x18 x35 x52 x67 x87 x89 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_965_case__30(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x)(st))(i)(xs)(st)+c__case_965_case__30 x1 x18 x35 x52 x67 x87 x89 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_965_case__30")(x)++++c__case_966_case__31 x1 x18 x35 x52 x67 x87 x89 x90 x96 x95 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x95)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_965(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x96)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_967_case__32 x1 x18 x35 x52 x67 x87 x89 x90 x94@((Curry.Module.Prelude.:<) x95 x96) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_966(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x96)(x95)(x1)(st))(st)+c__case_967_case__32 x1 x18 x35 x52 x67 x87 x89 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_967_case__32(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x)(st))(i)(xs)(st)+c__case_967_case__32 x1 x18 x35 x52 x67 x87 x89 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_967_case__32")(x)++++c__case_968_case__33 x1 x18 x35 x52 x67 x87 x89 x90 x94 x93 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x93)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_967(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x94)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_969_case__34 x1 x18 x35 x52 x67 x87 x89 x90 x92@((Curry.Module.Prelude.:<) x93 x94) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_968(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x94)(x93)(x1)(st))(st)+c__case_969_case__34 x1 x18 x35 x52 x67 x87 x89 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_969_case__34(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x)(st))(i)(xs)(st)+c__case_969_case__34 x1 x18 x35 x52 x67 x87 x89 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_969_case__34")(x)++++c__case_970_case__35 x1 x18 x35 x52 x67 x87 x89 x90 x92 x91 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x91)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_969(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x92)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_971_case__36 x1 x18 x35 x52 x67 x87 x89 x90 x88@((Curry.Module.Prelude.:<) x91 x92) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_970(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x92)(x91)(x1)(st))(st)+c__case_971_case__36 x1 x18 x35 x52 x67 x87 x89 x90 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_971_case__36(x1)(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x)(st))(i)(xs)(st)+c__case_971_case__36 x1 x18 x35 x52 x67 x87 x89 x90 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_971_case__36")(x)++++c__case_972_case__37 x1 x18 x35 x52 x67 x87 x86@(Curry.Module.XML.C_XElem x88 x89 x90) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_971(x18)(x35)(x52)(x67)(x87)(x89)(x90)(x88)(x1)(st))(st)+c__case_972_case__37 x1 x18 x35 x52 x67 x87 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_972_case__37(x1)(x18)(x35)(x52)(x67)(x87)(x)(st))(i)(xs)(st)+c__case_972_case__37 x1 x18 x35 x52 x67 x87 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_972_case__37")(x)++++c__case_973_case__38 x1 x18 x35 x52 x67 x64@((Curry.Module.Prelude.:<) x86 x87) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_972(x18)(x35)(x52)(x67)(x87)(x86)(x1)(st))(st)+c__case_973_case__38 x1 x18 x35 x52 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_973_case__38(x1)(x18)(x35)(x52)(x67)(x)(st))(i)(xs)(st)+c__case_973_case__38 x1 x18 x35 x52 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_973_case__38")(x)++++c__case_974_case__39 x1 x18 x35 x52 x64 x67 x66@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_973(x18)(x35)(x52)(x67)(x64)(x1)(st))(st)+c__case_974_case__39 x1 x18 x35 x52 x64 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_974_case__39(x1)(x18)(x35)(x52)(x64)(x67)(x)(st))(i)(xs)(st)+c__case_974_case__39 x1 x18 x35 x52 x64 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_974_case__39")(x)++++c__case_975_case__40 x1 x18 x35 x52 x64 x66 x67 x85@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_974(x18)(x35)(x52)(x64)(x67)(x66)(x1)(st))(st)+c__case_975_case__40 x1 x18 x35 x52 x64 x66 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_975_case__40(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x)(st))(i)(xs)(st)+c__case_975_case__40 x1 x18 x35 x52 x64 x66 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_975_case__40")(x)++++c__case_976_case__41 x1 x18 x35 x52 x64 x66 x67 x85 x84 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x84)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_975(x18)(x35)(x52)(x64)(x66)(x67)(x85)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_977_case__42 x1 x18 x35 x52 x64 x66 x67 x83@((Curry.Module.Prelude.:<) x84 x85) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_976(x18)(x35)(x52)(x64)(x66)(x67)(x85)(x84)(x1)(st))(st)+c__case_977_case__42 x1 x18 x35 x52 x64 x66 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_977_case__42(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x)(st))(i)(xs)(st)+c__case_977_case__42 x1 x18 x35 x52 x64 x66 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_977_case__42")(x)++++c__case_978_case__43 x1 x18 x35 x52 x64 x66 x67 x83 x82 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x82)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_977(x18)(x35)(x52)(x64)(x66)(x67)(x83)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_979_case__44 x1 x18 x35 x52 x64 x66 x67 x81@((Curry.Module.Prelude.:<) x82 x83) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_978(x18)(x35)(x52)(x64)(x66)(x67)(x83)(x82)(x1)(st))(st)+c__case_979_case__44 x1 x18 x35 x52 x64 x66 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_979_case__44(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x)(st))(i)(xs)(st)+c__case_979_case__44 x1 x18 x35 x52 x64 x66 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_979_case__44")(x)++++c__case_980_case__45 x1 x18 x35 x52 x64 x66 x67 x81 x80 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x80)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_979(x18)(x35)(x52)(x64)(x66)(x67)(x81)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_981_case__46 x1 x18 x35 x52 x64 x66 x67 x79@((Curry.Module.Prelude.:<) x80 x81) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_980(x18)(x35)(x52)(x64)(x66)(x67)(x81)(x80)(x1)(st))(st)+c__case_981_case__46 x1 x18 x35 x52 x64 x66 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_981_case__46(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x)(st))(i)(xs)(st)+c__case_981_case__46 x1 x18 x35 x52 x64 x66 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_981_case__46")(x)++++c__case_982_case__47 x1 x18 x35 x52 x64 x66 x67 x79 x78 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x78)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_981(x18)(x35)(x52)(x64)(x66)(x67)(x79)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_983_case__48 x1 x18 x35 x52 x64 x66 x67 x77@((Curry.Module.Prelude.:<) x78 x79) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_982(x18)(x35)(x52)(x64)(x66)(x67)(x79)(x78)(x1)(st))(st)+c__case_983_case__48 x1 x18 x35 x52 x64 x66 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_983_case__48(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x)(st))(i)(xs)(st)+c__case_983_case__48 x1 x18 x35 x52 x64 x66 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_983_case__48")(x)++++c__case_984_case__49 x1 x18 x35 x52 x64 x66 x67 x77 x76 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x76)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_983(x18)(x35)(x52)(x64)(x66)(x67)(x77)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_985_case__50 x1 x18 x35 x52 x64 x66 x67 x75@((Curry.Module.Prelude.:<) x76 x77) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_984(x18)(x35)(x52)(x64)(x66)(x67)(x77)(x76)(x1)(st))(st)+c__case_985_case__50 x1 x18 x35 x52 x64 x66 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_985_case__50(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x)(st))(i)(xs)(st)+c__case_985_case__50 x1 x18 x35 x52 x64 x66 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_985_case__50")(x)++++c__case_986_case__51 x1 x18 x35 x52 x64 x66 x67 x75 x74 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x74)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_985(x18)(x35)(x52)(x64)(x66)(x67)(x75)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_987_case__52 x1 x18 x35 x52 x64 x66 x67 x73@((Curry.Module.Prelude.:<) x74 x75) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_986(x18)(x35)(x52)(x64)(x66)(x67)(x75)(x74)(x1)(st))(st)+c__case_987_case__52 x1 x18 x35 x52 x64 x66 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_987_case__52(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x)(st))(i)(xs)(st)+c__case_987_case__52 x1 x18 x35 x52 x64 x66 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_987_case__52")(x)++++c__case_988_case__53 x1 x18 x35 x52 x64 x66 x67 x73 x72 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x72)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_987(x18)(x35)(x52)(x64)(x66)(x67)(x73)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_989_case__54 x1 x18 x35 x52 x64 x66 x67 x71@((Curry.Module.Prelude.:<) x72 x73) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_988(x18)(x35)(x52)(x64)(x66)(x67)(x73)(x72)(x1)(st))(st)+c__case_989_case__54 x1 x18 x35 x52 x64 x66 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_989_case__54(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x)(st))(i)(xs)(st)+c__case_989_case__54 x1 x18 x35 x52 x64 x66 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_989_case__54")(x)++++c__case_990_case__55 x1 x18 x35 x52 x64 x66 x67 x71 x70 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x70)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_989(x18)(x35)(x52)(x64)(x66)(x67)(x71)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_991_case__56 x1 x18 x35 x52 x64 x66 x67 x69@((Curry.Module.Prelude.:<) x70 x71) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_990(x18)(x35)(x52)(x64)(x66)(x67)(x71)(x70)(x1)(st))(st)+c__case_991_case__56 x1 x18 x35 x52 x64 x66 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_991_case__56(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x)(st))(i)(xs)(st)+c__case_991_case__56 x1 x18 x35 x52 x64 x66 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_991_case__56")(x)++++c__case_992_case__57 x1 x18 x35 x52 x64 x66 x67 x69 x68 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x68)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_991(x18)(x35)(x52)(x64)(x66)(x67)(x69)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_993_case__58 x1 x18 x35 x52 x64 x66 x67 x65@((Curry.Module.Prelude.:<) x68 x69) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_992(x18)(x35)(x52)(x64)(x66)(x67)(x69)(x68)(x1)(st))(st)+c__case_993_case__58 x1 x18 x35 x52 x64 x66 x67 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_993_case__58(x1)(x18)(x35)(x52)(x64)(x66)(x67)(x)(st))(i)(xs)(st)+c__case_993_case__58 x1 x18 x35 x52 x64 x66 x67 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_993_case__58")(x)++++c__case_994_case__59 x1 x18 x35 x52 x64 x63@(Curry.Module.XML.C_XElem x65 x66 x67) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_993(x18)(x35)(x52)(x64)(x66)(x67)(x65)(x1)(st))(st)+c__case_994_case__59 x1 x18 x35 x52 x64 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_994_case__59(x1)(x18)(x35)(x52)(x64)(x)(st))(i)(xs)(st)+c__case_994_case__59 x1 x18 x35 x52 x64 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_994_case__59")(x)++++c__case_995_case__60 x1 x18 x35 x52 x49@((Curry.Module.Prelude.:<) x63 x64) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_994(x18)(x35)(x52)(x64)(x63)(x1)(st))(st)+c__case_995_case__60 x1 x18 x35 x52 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_995_case__60(x1)(x18)(x35)(x52)(x)(st))(i)(xs)(st)+c__case_995_case__60 x1 x18 x35 x52 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_995_case__60")(x)++++c__case_996_case__61 x1 x18 x35 x49 x52 x51@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_995(x18)(x35)(x52)(x49)(x1)(st))(st)+c__case_996_case__61 x1 x18 x35 x49 x52 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_996_case__61(x1)(x18)(x35)(x49)(x52)(x)(st))(i)(xs)(st)+c__case_996_case__61 x1 x18 x35 x49 x52 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_996_case__61")(x)++++c__case_997_case__62 x1 x18 x35 x49 x51 x52 x62@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_996(x18)(x35)(x49)(x52)(x51)(x1)(st))(st)+c__case_997_case__62 x1 x18 x35 x49 x51 x52 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_997_case__62(x1)(x18)(x35)(x49)(x51)(x52)(x)(st))(i)(xs)(st)+c__case_997_case__62 x1 x18 x35 x49 x51 x52 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_997_case__62")(x)++++c__case_998_case__63 x1 x18 x35 x49 x51 x52 x62 x61 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x61)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_997(x18)(x35)(x49)(x51)(x52)(x62)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_999_case__64 x1 x18 x35 x49 x51 x52 x60@((Curry.Module.Prelude.:<) x61 x62) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_998(x18)(x35)(x49)(x51)(x52)(x62)(x61)(x1)(st))(st)+c__case_999_case__64 x1 x18 x35 x49 x51 x52 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_999_case__64(x1)(x18)(x35)(x49)(x51)(x52)(x)(st))(i)(xs)(st)+c__case_999_case__64 x1 x18 x35 x49 x51 x52 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_999_case__64")(x)++++c__case_1000_case__65 x1 x18 x35 x49 x51 x52 x60 x59 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x59)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_999(x18)(x35)(x49)(x51)(x52)(x60)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1001_case__66 x1 x18 x35 x49 x51 x52 x58@((Curry.Module.Prelude.:<) x59 x60) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1000(x18)(x35)(x49)(x51)(x52)(x60)(x59)(x1)(st))(st)+c__case_1001_case__66 x1 x18 x35 x49 x51 x52 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1001_case__66(x1)(x18)(x35)(x49)(x51)(x52)(x)(st))(i)(xs)(st)+c__case_1001_case__66 x1 x18 x35 x49 x51 x52 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1001_case__66")(x)++++c__case_1002_case__67 x1 x18 x35 x49 x51 x52 x58 x57 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x57)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1001(x18)(x35)(x49)(x51)(x52)(x58)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1003_case__68 x1 x18 x35 x49 x51 x52 x56@((Curry.Module.Prelude.:<) x57 x58) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1002(x18)(x35)(x49)(x51)(x52)(x58)(x57)(x1)(st))(st)+c__case_1003_case__68 x1 x18 x35 x49 x51 x52 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1003_case__68(x1)(x18)(x35)(x49)(x51)(x52)(x)(st))(i)(xs)(st)+c__case_1003_case__68 x1 x18 x35 x49 x51 x52 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1003_case__68")(x)++++c__case_1004_case__69 x1 x18 x35 x49 x51 x52 x56 x55 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x55)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1003(x18)(x35)(x49)(x51)(x52)(x56)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1005_case__70 x1 x18 x35 x49 x51 x52 x54@((Curry.Module.Prelude.:<) x55 x56) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1004(x18)(x35)(x49)(x51)(x52)(x56)(x55)(x1)(st))(st)+c__case_1005_case__70 x1 x18 x35 x49 x51 x52 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1005_case__70(x1)(x18)(x35)(x49)(x51)(x52)(x)(st))(i)(xs)(st)+c__case_1005_case__70 x1 x18 x35 x49 x51 x52 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1005_case__70")(x)++++c__case_1006_case__71 x1 x18 x35 x49 x51 x52 x54 x53 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x53)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1005(x18)(x35)(x49)(x51)(x52)(x54)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1007_case__72 x1 x18 x35 x49 x51 x52 x50@((Curry.Module.Prelude.:<) x53 x54) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1006(x18)(x35)(x49)(x51)(x52)(x54)(x53)(x1)(st))(st)+c__case_1007_case__72 x1 x18 x35 x49 x51 x52 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1007_case__72(x1)(x18)(x35)(x49)(x51)(x52)(x)(st))(i)(xs)(st)+c__case_1007_case__72 x1 x18 x35 x49 x51 x52 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1007_case__72")(x)++++c__case_1008_case__73 x1 x18 x35 x49 x48@(Curry.Module.XML.C_XElem x50 x51 x52) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1007(x18)(x35)(x49)(x51)(x52)(x50)(x1)(st))(st)+c__case_1008_case__73 x1 x18 x35 x49 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1008_case__73(x1)(x18)(x35)(x49)(x)(st))(i)(xs)(st)+c__case_1008_case__73 x1 x18 x35 x49 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1008_case__73")(x)++++c__case_1009_case__74 x1 x18 x35 x32@((Curry.Module.Prelude.:<) x48 x49) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1008(x18)(x35)(x49)(x48)(x1)(st))(st)+c__case_1009_case__74 x1 x18 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1009_case__74(x1)(x18)(x35)(x)(st))(i)(xs)(st)+c__case_1009_case__74 x1 x18 x35 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1009_case__74")(x)++++c__case_1010_case__75 x1 x18 x32 x35 x34@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1009(x18)(x35)(x32)(x1)(st))(st)+c__case_1010_case__75 x1 x18 x32 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1010_case__75(x1)(x18)(x32)(x35)(x)(st))(i)(xs)(st)+c__case_1010_case__75 x1 x18 x32 x35 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1010_case__75")(x)++++c__case_1011_case__76 x1 x18 x32 x34 x35 x47@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1010(x18)(x32)(x35)(x34)(x1)(st))(st)+c__case_1011_case__76 x1 x18 x32 x34 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1011_case__76(x1)(x18)(x32)(x34)(x35)(x)(st))(i)(xs)(st)+c__case_1011_case__76 x1 x18 x32 x34 x35 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1011_case__76")(x)++++c__case_1012_case__77 x1 x18 x32 x34 x35 x47 x46 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x46)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1011(x18)(x32)(x34)(x35)(x47)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1013_case__78 x1 x18 x32 x34 x35 x45@((Curry.Module.Prelude.:<) x46 x47) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1012(x18)(x32)(x34)(x35)(x47)(x46)(x1)(st))(st)+c__case_1013_case__78 x1 x18 x32 x34 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1013_case__78(x1)(x18)(x32)(x34)(x35)(x)(st))(i)(xs)(st)+c__case_1013_case__78 x1 x18 x32 x34 x35 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1013_case__78")(x)++++c__case_1014_case__79 x1 x18 x32 x34 x35 x45 x44 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x44)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1013(x18)(x32)(x34)(x35)(x45)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1015_case__80 x1 x18 x32 x34 x35 x43@((Curry.Module.Prelude.:<) x44 x45) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1014(x18)(x32)(x34)(x35)(x45)(x44)(x1)(st))(st)+c__case_1015_case__80 x1 x18 x32 x34 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1015_case__80(x1)(x18)(x32)(x34)(x35)(x)(st))(i)(xs)(st)+c__case_1015_case__80 x1 x18 x32 x34 x35 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1015_case__80")(x)++++c__case_1016_case__81 x1 x18 x32 x34 x35 x43 x42 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x42)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1015(x18)(x32)(x34)(x35)(x43)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1017_case__82 x1 x18 x32 x34 x35 x41@((Curry.Module.Prelude.:<) x42 x43) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1016(x18)(x32)(x34)(x35)(x43)(x42)(x1)(st))(st)+c__case_1017_case__82 x1 x18 x32 x34 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1017_case__82(x1)(x18)(x32)(x34)(x35)(x)(st))(i)(xs)(st)+c__case_1017_case__82 x1 x18 x32 x34 x35 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1017_case__82")(x)++++c__case_1018_case__83 x1 x18 x32 x34 x35 x41 x40 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x40)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1017(x18)(x32)(x34)(x35)(x41)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1019_case__84 x1 x18 x32 x34 x35 x39@((Curry.Module.Prelude.:<) x40 x41) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1018(x18)(x32)(x34)(x35)(x41)(x40)(x1)(st))(st)+c__case_1019_case__84 x1 x18 x32 x34 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1019_case__84(x1)(x18)(x32)(x34)(x35)(x)(st))(i)(xs)(st)+c__case_1019_case__84 x1 x18 x32 x34 x35 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1019_case__84")(x)++++c__case_1020_case__85 x1 x18 x32 x34 x35 x39 x38 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x38)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1019(x18)(x32)(x34)(x35)(x39)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1021_case__86 x1 x18 x32 x34 x35 x37@((Curry.Module.Prelude.:<) x38 x39) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1020(x18)(x32)(x34)(x35)(x39)(x38)(x1)(st))(st)+c__case_1021_case__86 x1 x18 x32 x34 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1021_case__86(x1)(x18)(x32)(x34)(x35)(x)(st))(i)(xs)(st)+c__case_1021_case__86 x1 x18 x32 x34 x35 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1021_case__86")(x)++++c__case_1022_case__87 x1 x18 x32 x34 x35 x37 x36 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x36)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1021(x18)(x32)(x34)(x35)(x37)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1023_case__88 x1 x18 x32 x34 x35 x33@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1022(x18)(x32)(x34)(x35)(x37)(x36)(x1)(st))(st)+c__case_1023_case__88 x1 x18 x32 x34 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1023_case__88(x1)(x18)(x32)(x34)(x35)(x)(st))(i)(xs)(st)+c__case_1023_case__88 x1 x18 x32 x34 x35 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1023_case__88")(x)++++c__case_1024_case__89 x1 x18 x32 x31@(Curry.Module.XML.C_XElem x33 x34 x35) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1023(x18)(x32)(x34)(x35)(x33)(x1)(st))(st)+c__case_1024_case__89 x1 x18 x32 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1024_case__89(x1)(x18)(x32)(x)(st))(i)(xs)(st)+c__case_1024_case__89 x1 x18 x32 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1024_case__89")(x)++++c__case_1025_case__90 x1 x18 x15@((Curry.Module.Prelude.:<) x31 x32) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1024(x18)(x32)(x31)(x1)(st))(st)+c__case_1025_case__90 x1 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1025_case__90(x1)(x18)(x)(st))(i)(xs)(st)+c__case_1025_case__90 x1 x18 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1025_case__90")(x)++++c__case_1026_case__91 x1 x15 x18 x17@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1025(x18)(x15)(x1)(st))(st)+c__case_1026_case__91 x1 x15 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1026_case__91(x1)(x15)(x18)(x)(st))(i)(xs)(st)+c__case_1026_case__91 x1 x15 x18 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1026_case__91")(x)++++c__case_1027_case__92 x1 x15 x17 x18 x30@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1026(x15)(x18)(x17)(x1)(st))(st)+c__case_1027_case__92 x1 x15 x17 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1027_case__92(x1)(x15)(x17)(x18)(x)(st))(i)(xs)(st)+c__case_1027_case__92 x1 x15 x17 x18 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1027_case__92")(x)++++c__case_1028_case__93 x1 x15 x17 x18 x30 x29 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x29)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1027(x15)(x17)(x18)(x30)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1029_case__94 x1 x15 x17 x18 x28@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1028(x15)(x17)(x18)(x30)(x29)(x1)(st))(st)+c__case_1029_case__94 x1 x15 x17 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1029_case__94(x1)(x15)(x17)(x18)(x)(st))(i)(xs)(st)+c__case_1029_case__94 x1 x15 x17 x18 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1029_case__94")(x)++++c__case_1030_case__95 x1 x15 x17 x18 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1029(x15)(x17)(x18)(x28)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1031_case__96 x1 x15 x17 x18 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1030(x15)(x17)(x18)(x28)(x27)(x1)(st))(st)+c__case_1031_case__96 x1 x15 x17 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1031_case__96(x1)(x15)(x17)(x18)(x)(st))(i)(xs)(st)+c__case_1031_case__96 x1 x15 x17 x18 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1031_case__96")(x)++++c__case_1032_case__97 x1 x15 x17 x18 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1031(x15)(x17)(x18)(x26)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1033_case__98 x1 x15 x17 x18 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1032(x15)(x17)(x18)(x26)(x25)(x1)(st))(st)+c__case_1033_case__98 x1 x15 x17 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1033_case__98(x1)(x15)(x17)(x18)(x)(st))(i)(xs)(st)+c__case_1033_case__98 x1 x15 x17 x18 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1033_case__98")(x)++++c__case_1034_case__99 x1 x15 x17 x18 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1033(x15)(x17)(x18)(x24)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1035_case__100 x1 x15 x17 x18 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1034(x15)(x17)(x18)(x24)(x23)(x1)(st))(st)+c__case_1035_case__100 x1 x15 x17 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1035_case__100(x1)(x15)(x17)(x18)(x)(st))(i)(xs)(st)+c__case_1035_case__100 x1 x15 x17 x18 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1035_case__100")(x)++++c__case_1036_case__101 x1 x15 x17 x18 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1035(x15)(x17)(x18)(x22)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1037_case__102 x1 x15 x17 x18 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1036(x15)(x17)(x18)(x22)(x21)(x1)(st))(st)+c__case_1037_case__102 x1 x15 x17 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1037_case__102(x1)(x15)(x17)(x18)(x)(st))(i)(xs)(st)+c__case_1037_case__102 x1 x15 x17 x18 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1037_case__102")(x)++++c__case_1038_case__103 x1 x15 x17 x18 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1037(x15)(x17)(x18)(x20)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1039_case__104 x1 x15 x17 x18 x16@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1038(x15)(x17)(x18)(x20)(x19)(x1)(st))(st)+c__case_1039_case__104 x1 x15 x17 x18 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1039_case__104(x1)(x15)(x17)(x18)(x)(st))(i)(xs)(st)+c__case_1039_case__104 x1 x15 x17 x18 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1039_case__104")(x)++++c__case_1040_case__105 x1 x15 x14@(Curry.Module.XML.C_XElem x16 x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1039(x15)(x17)(x18)(x16)(x1)(st))(st)+c__case_1040_case__105 x1 x15 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1040_case__105(x1)(x15)(x)(st))(i)(xs)(st)+c__case_1040_case__105 x1 x15 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1040_case__105")(x)++++c__case_1041_case__106 x1 x5@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1040(x15)(x14)(x1)(st))(st)+c__case_1041_case__106 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1041_case__106(x1)(x)(st))(i)(xs)(st)+c__case_1041_case__106 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1041_case__106")(x)++++c__case_1042_case__107 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1041(x5)(x1)(st))(st)+c__case_1042_case__107 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1042_case__107(x1)(x5)(x)(st))(i)(xs)(st)+c__case_1042_case__107 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1042_case__107")(x)++++c__case_1043_case__108 x1 x4 x5 x13@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1042(x5)(x4)(x1)(st))(st)+c__case_1043_case__108 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1043_case__108(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_1043_case__108 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1043_case__108")(x)++++c__case_1044_case__109 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('g'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1043(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1045_case__110 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1044(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_1045_case__110 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1045_case__110(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_1045_case__110 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1045_case__110")(x)++++c__case_1046_case__111 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1045(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1047_case__112 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1046(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_1047_case__112 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1047_case__112(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_1047_case__112 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1047_case__112")(x)++++c__case_1048_case__113 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1047(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1049_case__114 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1048(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_1049_case__114 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1049_case__114(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_1049_case__114 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1049_case__114")(x)++++c__case_1050_case__115 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1049(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_1051_case__116 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1050(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_1051_case__116 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1051_case__116(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_1051_case__116 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1051_case__116")(x)++++c__case_1052_case__117 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1051(x4)(x5)(x3)(x1)(st))(st)+c__case_1052_case__117 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_1052_case__117(x1)(x)(st))(i)(xs)(st)+c__case_1052_case__117 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_1052_case__117")(x)++++c__case_936_case__118 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_textOfXml(x5)(x1)(st))(st)+c__case_936_case__118 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_936_case__118(x1)(x5)(x)(st))(i)(xs)(st)+c__case_936_case__118 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_936_case__118")(x)++++c__case_937_case__119 x1 x4 x5 x17@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_936(x5)(x4)(x1)(st))(st)+c__case_937_case__119 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_937_case__119(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_937_case__119 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_937_case__119")(x)++++c__case_938_case__120 x1 x4 x5 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_937(x4)(x5)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_939_case__121 x1 x4 x5 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_938(x4)(x5)(x17)(x16)(x1)(st))(st)+c__case_939_case__121 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_939_case__121(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_939_case__121 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_939_case__121")(x)++++c__case_940_case__122 x1 x4 x5 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_939(x4)(x5)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_941_case__123 x1 x4 x5 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_940(x4)(x5)(x15)(x14)(x1)(st))(st)+c__case_941_case__123 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_941_case__123(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_941_case__123 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_941_case__123")(x)++++c__case_942_case__124 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_941(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_943_case__125 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_942(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_943_case__125 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_943_case__125(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_943_case__125 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_943_case__125")(x)++++c__case_944_case__126 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_943(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_945_case__127 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_944(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_945_case__127 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_945_case__127(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_945_case__127 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_945_case__127")(x)++++c__case_946_case__128 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_945(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_947_case__129 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_946(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_947_case__129 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_947_case__129(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_947_case__129 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_947_case__129")(x)++++c__case_948_case__130 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_947(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_949_case__131 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_948(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_949_case__131 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_949_case__131(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_949_case__131 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_949_case__131")(x)++++c__case_950_case__132 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_949(x4)(x5)(x3)(x1)(st))(st)+c__case_950_case__132 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_950_case__132(x1)(x)(st))(i)(xs)(st)+c__case_950_case__132 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_950_case__132")(x)++++c__case_882_case__133 x1 x17 x33 x45 x56 x58 x60 x61@Curry.Module.Prelude.List st = let {x62 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x63 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x64 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x62)((Curry.Module.Prelude.:<)(x63)((Curry.Module.Prelude.:<)(x64)(Curry.Module.Prelude.List))))(Curry.Module.FlatCurry.C_Func(Curry.Module.Prelude.T2(x17)(x33))(Curry.Module.OracleRead.c_readNat(x45)(x1)(st))(Curry.Module.OracleFlatCurryXML.c_xvis2vis(x56)(x62)(st))(Curry.Module.OracleFlatCurryXML.c_flatx2texp(x58)(x63)(st))(Curry.Module.OracleFlatCurryXML.c_flatx2FunBody(x60)(x64)(st)))(st)+c__case_882_case__133 x1 x17 x33 x45 x56 x58 x60 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_882_case__133(x1)(x17)(x33)(x45)(x56)(x58)(x60)(x)(st))(i)(xs)(st)+c__case_882_case__133 x1 x17 x33 x45 x56 x58 x60 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_882_case__133")(x)++++c__case_883_case__134 x1 x17 x33 x45 x56 x58 x59@((Curry.Module.Prelude.:<) x60 x61) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_882(x17)(x33)(x45)(x56)(x58)(x60)(x61)(x1)(st))(st)+c__case_883_case__134 x1 x17 x33 x45 x56 x58 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_883_case__134(x1)(x17)(x33)(x45)(x56)(x58)(x)(st))(i)(xs)(st)+c__case_883_case__134 x1 x17 x33 x45 x56 x58 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_883_case__134")(x)++++c__case_884_case__135 x1 x17 x33 x45 x56 x5@((Curry.Module.Prelude.:<) x58 x59) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_883(x17)(x33)(x45)(x56)(x58)(x59)(x1)(st))(st)+c__case_884_case__135 x1 x17 x33 x45 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_884_case__135(x1)(x17)(x33)(x45)(x56)(x)(st))(i)(xs)(st)+c__case_884_case__135 x1 x17 x33 x45 x56 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_884_case__135")(x)++++c__case_885_case__136 x1 x5 x17 x33 x45 x56 x57@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_884(x17)(x33)(x45)(x56)(x5)(x1)(st))(st)+c__case_885_case__136 x1 x5 x17 x33 x45 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_885_case__136(x1)(x5)(x17)(x33)(x45)(x56)(x)(st))(i)(xs)(st)+c__case_885_case__136 x1 x5 x17 x33 x45 x56 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_885_case__136")(x)++++c__case_886_case__137 x1 x5 x17 x33 x45 x43@((Curry.Module.Prelude.:<) x56 x57) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_885(x5)(x17)(x33)(x45)(x56)(x57)(x1)(st))(st)+c__case_886_case__137 x1 x5 x17 x33 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_886_case__137(x1)(x5)(x17)(x33)(x45)(x)(st))(i)(xs)(st)+c__case_886_case__137 x1 x5 x17 x33 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_886_case__137")(x)++++c__case_887_case__138 x1 x5 x17 x33 x43 x45 x55@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_886(x5)(x17)(x33)(x45)(x43)(x1)(st))(st)+c__case_887_case__138 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_887_case__138(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_887_case__138 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_887_case__138")(x)++++c__case_888_case__139 x1 x5 x17 x33 x43 x45 x55 x54 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x54)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_887(x5)(x17)(x33)(x43)(x45)(x55)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_889_case__140 x1 x5 x17 x33 x43 x45 x53@((Curry.Module.Prelude.:<) x54 x55) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_888(x5)(x17)(x33)(x43)(x45)(x55)(x54)(x1)(st))(st)+c__case_889_case__140 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_889_case__140(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_889_case__140 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_889_case__140")(x)++++c__case_890_case__141 x1 x5 x17 x33 x43 x45 x53 x52 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x52)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_889(x5)(x17)(x33)(x43)(x45)(x53)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_891_case__142 x1 x5 x17 x33 x43 x45 x51@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_890(x5)(x17)(x33)(x43)(x45)(x53)(x52)(x1)(st))(st)+c__case_891_case__142 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_891_case__142(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_891_case__142 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_891_case__142")(x)++++c__case_892_case__143 x1 x5 x17 x33 x43 x45 x51 x50 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x50)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_891(x5)(x17)(x33)(x43)(x45)(x51)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_893_case__144 x1 x5 x17 x33 x43 x45 x49@((Curry.Module.Prelude.:<) x50 x51) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_892(x5)(x17)(x33)(x43)(x45)(x51)(x50)(x1)(st))(st)+c__case_893_case__144 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_893_case__144(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_893_case__144 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_893_case__144")(x)++++c__case_894_case__145 x1 x5 x17 x33 x43 x45 x49 x48 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x48)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_893(x5)(x17)(x33)(x43)(x45)(x49)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_895_case__146 x1 x5 x17 x33 x43 x45 x47@((Curry.Module.Prelude.:<) x48 x49) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_894(x5)(x17)(x33)(x43)(x45)(x49)(x48)(x1)(st))(st)+c__case_895_case__146 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_895_case__146(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_895_case__146 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_895_case__146")(x)++++c__case_896_case__147 x1 x5 x17 x33 x43 x45 x47 x46 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x46)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_895(x5)(x17)(x33)(x43)(x45)(x47)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_897_case__148 x1 x5 x17 x33 x43 x45 x44@((Curry.Module.Prelude.:<) x46 x47) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_896(x5)(x17)(x33)(x43)(x45)(x47)(x46)(x1)(st))(st)+c__case_897_case__148 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_897_case__148(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_897_case__148 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_897_case__148")(x)++++c__case_898_case__149 x1 x5 x17 x33 x43 x42@(Curry.Module.Prelude.T2 x44 x45) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_897(x5)(x17)(x33)(x43)(x45)(x44)(x1)(st))(st)+c__case_898_case__149 x1 x5 x17 x33 x43 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_898_case__149(x1)(x5)(x17)(x33)(x43)(x)(st))(i)(xs)(st)+c__case_898_case__149 x1 x5 x17 x33 x43 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_898_case__149")(x)++++c__case_899_case__150 x1 x5 x17 x33 x31@((Curry.Module.Prelude.:<) x42 x43) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_898(x5)(x17)(x33)(x43)(x42)(x1)(st))(st)+c__case_899_case__150 x1 x5 x17 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_899_case__150(x1)(x5)(x17)(x33)(x)(st))(i)(xs)(st)+c__case_899_case__150 x1 x5 x17 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_899_case__150")(x)++++c__case_900_case__151 x1 x5 x17 x31 x33 x41@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_899(x5)(x17)(x33)(x31)(x1)(st))(st)+c__case_900_case__151 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_900_case__151(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_900_case__151 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_900_case__151")(x)++++c__case_901_case__152 x1 x5 x17 x31 x33 x41 x40 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x40)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_900(x5)(x17)(x31)(x33)(x41)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_902_case__153 x1 x5 x17 x31 x33 x39@((Curry.Module.Prelude.:<) x40 x41) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_901(x5)(x17)(x31)(x33)(x41)(x40)(x1)(st))(st)+c__case_902_case__153 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_902_case__153(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_902_case__153 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_902_case__153")(x)++++c__case_903_case__154 x1 x5 x17 x31 x33 x39 x38 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x38)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_902(x5)(x17)(x31)(x33)(x39)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_904_case__155 x1 x5 x17 x31 x33 x37@((Curry.Module.Prelude.:<) x38 x39) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_903(x5)(x17)(x31)(x33)(x39)(x38)(x1)(st))(st)+c__case_904_case__155 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_904_case__155(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_904_case__155 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_904_case__155")(x)++++c__case_905_case__156 x1 x5 x17 x31 x33 x37 x36 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x36)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_904(x5)(x17)(x31)(x33)(x37)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_906_case__157 x1 x5 x17 x31 x33 x35@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_905(x5)(x17)(x31)(x33)(x37)(x36)(x1)(st))(st)+c__case_906_case__157 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_906_case__157(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_906_case__157 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_906_case__157")(x)++++c__case_907_case__158 x1 x5 x17 x31 x33 x35 x34 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x34)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_906(x5)(x17)(x31)(x33)(x35)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_908_case__159 x1 x5 x17 x31 x33 x32@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_907(x5)(x17)(x31)(x33)(x35)(x34)(x1)(st))(st)+c__case_908_case__159 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_908_case__159(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_908_case__159 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_908_case__159")(x)++++c__case_909_case__160 x1 x5 x17 x31 x30@(Curry.Module.Prelude.T2 x32 x33) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_908(x5)(x17)(x31)(x33)(x32)(x1)(st))(st)+c__case_909_case__160 x1 x5 x17 x31 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_909_case__160(x1)(x5)(x17)(x31)(x)(st))(i)(xs)(st)+c__case_909_case__160 x1 x5 x17 x31 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_909_case__160")(x)++++c__case_910_case__161 x1 x5 x17 x15@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_909(x5)(x17)(x31)(x30)(x1)(st))(st)+c__case_910_case__161 x1 x5 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_910_case__161(x1)(x5)(x17)(x)(st))(i)(xs)(st)+c__case_910_case__161 x1 x5 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_910_case__161")(x)++++c__case_911_case__162 x1 x5 x15 x17 x29@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_910(x5)(x17)(x15)(x1)(st))(st)+c__case_911_case__162 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_911_case__162(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_911_case__162 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_911_case__162")(x)++++c__case_912_case__163 x1 x5 x15 x17 x29 x28 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x28)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_911(x5)(x15)(x17)(x29)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_913_case__164 x1 x5 x15 x17 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_912(x5)(x15)(x17)(x29)(x28)(x1)(st))(st)+c__case_913_case__164 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_913_case__164(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_913_case__164 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_913_case__164")(x)++++c__case_914_case__165 x1 x5 x15 x17 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_913(x5)(x15)(x17)(x27)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_915_case__166 x1 x5 x15 x17 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_914(x5)(x15)(x17)(x27)(x26)(x1)(st))(st)+c__case_915_case__166 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_915_case__166(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_915_case__166 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_915_case__166")(x)++++c__case_916_case__167 x1 x5 x15 x17 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_915(x5)(x15)(x17)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_917_case__168 x1 x5 x15 x17 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_916(x5)(x15)(x17)(x25)(x24)(x1)(st))(st)+c__case_917_case__168 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_917_case__168(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_917_case__168 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_917_case__168")(x)++++c__case_918_case__169 x1 x5 x15 x17 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_917(x5)(x15)(x17)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_919_case__170 x1 x5 x15 x17 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_918(x5)(x15)(x17)(x23)(x22)(x1)(st))(st)+c__case_919_case__170 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_919_case__170(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_919_case__170 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_919_case__170")(x)++++c__case_920_case__171 x1 x5 x15 x17 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_919(x5)(x15)(x17)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_921_case__172 x1 x5 x15 x17 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_920(x5)(x15)(x17)(x21)(x20)(x1)(st))(st)+c__case_921_case__172 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_921_case__172(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_921_case__172 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_921_case__172")(x)++++c__case_922_case__173 x1 x5 x15 x17 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_921(x5)(x15)(x17)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_923_case__174 x1 x5 x15 x17 x16@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_922(x5)(x15)(x17)(x19)(x18)(x1)(st))(st)+c__case_923_case__174 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_923_case__174(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_923_case__174 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_923_case__174")(x)++++c__case_924_case__175 x1 x5 x15 x14@(Curry.Module.Prelude.T2 x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_923(x5)(x15)(x17)(x16)(x1)(st))(st)+c__case_924_case__175 x1 x5 x15 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_924_case__175(x1)(x5)(x15)(x)(st))(i)(xs)(st)+c__case_924_case__175 x1 x5 x15 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_924_case__175")(x)++++c__case_925_case__176 x1 x5 x4@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_924(x5)(x15)(x14)(x1)(st))(st)+c__case_925_case__176 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_925_case__176(x1)(x5)(x)(st))(i)(xs)(st)+c__case_925_case__176 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_925_case__176")(x)++++c__case_926_case__177 x1 x4 x5 x13@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_925(x5)(x4)(x1)(st))(st)+c__case_926_case__177 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_926_case__177(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_926_case__177 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_926_case__177")(x)++++c__case_927_case__178 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_926(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_928_case__179 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_927(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_928_case__179 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_928_case__179(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_928_case__179 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_928_case__179")(x)++++c__case_929_case__180 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_928(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_930_case__181 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_929(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_930_case__181 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_930_case__181(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_930_case__181 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_930_case__181")(x)++++c__case_931_case__182 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_930(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_932_case__183 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_931(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_932_case__183 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_932_case__183(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_932_case__183 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_932_case__183")(x)++++c__case_933_case__184 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_932(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_934_case__185 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_933(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_934_case__185 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_934_case__185(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_934_case__185 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_934_case__185")(x)++++c__case_935_case__186 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_934(x4)(x5)(x3)(x1)(st))(st)+c__case_935_case__186 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_935_case__186(x1)(x)(st))(i)(xs)(st)+c__case_935_case__186 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_935_case__186")(x)++++c__case_822_case__187 x1 x13 x29 x41 x57 x5@Curry.Module.Prelude.List st = let {x58 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x58)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Op(Curry.Module.Prelude.T2(x13)(x29))(Curry.Module.OracleFlatCurryXML.c_flatx2Fixity(x41)(x1)(st))(Curry.Module.OracleRead.c_readNat(x57)(x58)(st)))(st)+c__case_822_case__187 x1 x13 x29 x41 x57 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_822_case__187(x1)(x13)(x29)(x41)(x57)(x)(st))(i)(xs)(st)+c__case_822_case__187 x1 x13 x29 x41 x57 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_822_case__187")(x)++++c__case_823_case__188 x1 x5 x13 x29 x41 x57 x55@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_822(x13)(x29)(x41)(x57)(x5)(x1)(st))(st)+c__case_823_case__188 x1 x5 x13 x29 x41 x57 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_823_case__188(x1)(x5)(x13)(x29)(x41)(x57)(x)(st))(i)(xs)(st)+c__case_823_case__188 x1 x5 x13 x29 x41 x57 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_823_case__188")(x)++++c__case_824_case__189 x1 x5 x13 x29 x41 x55 x57 x65@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_823(x5)(x13)(x29)(x41)(x57)(x55)(x1)(st))(st)+c__case_824_case__189 x1 x5 x13 x29 x41 x55 x57 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_824_case__189(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x)(st))(i)(xs)(st)+c__case_824_case__189 x1 x5 x13 x29 x41 x55 x57 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_824_case__189")(x)++++c__case_825_case__190 x1 x5 x13 x29 x41 x55 x57 x65 x64 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x64)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_824(x5)(x13)(x29)(x41)(x55)(x57)(x65)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_826_case__191 x1 x5 x13 x29 x41 x55 x57 x63@((Curry.Module.Prelude.:<) x64 x65) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_825(x5)(x13)(x29)(x41)(x55)(x57)(x65)(x64)(x1)(st))(st)+c__case_826_case__191 x1 x5 x13 x29 x41 x55 x57 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_826_case__191(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x)(st))(i)(xs)(st)+c__case_826_case__191 x1 x5 x13 x29 x41 x55 x57 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_826_case__191")(x)++++c__case_827_case__192 x1 x5 x13 x29 x41 x55 x57 x63 x62 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x62)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_826(x5)(x13)(x29)(x41)(x55)(x57)(x63)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_828_case__193 x1 x5 x13 x29 x41 x55 x57 x61@((Curry.Module.Prelude.:<) x62 x63) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_827(x5)(x13)(x29)(x41)(x55)(x57)(x63)(x62)(x1)(st))(st)+c__case_828_case__193 x1 x5 x13 x29 x41 x55 x57 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_828_case__193(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x)(st))(i)(xs)(st)+c__case_828_case__193 x1 x5 x13 x29 x41 x55 x57 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_828_case__193")(x)++++c__case_829_case__194 x1 x5 x13 x29 x41 x55 x57 x61 x60 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x60)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_828(x5)(x13)(x29)(x41)(x55)(x57)(x61)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_830_case__195 x1 x5 x13 x29 x41 x55 x57 x59@((Curry.Module.Prelude.:<) x60 x61) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_829(x5)(x13)(x29)(x41)(x55)(x57)(x61)(x60)(x1)(st))(st)+c__case_830_case__195 x1 x5 x13 x29 x41 x55 x57 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_830_case__195(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x)(st))(i)(xs)(st)+c__case_830_case__195 x1 x5 x13 x29 x41 x55 x57 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_830_case__195")(x)++++c__case_831_case__196 x1 x5 x13 x29 x41 x55 x57 x59 x58 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x58)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_830(x5)(x13)(x29)(x41)(x55)(x57)(x59)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_832_case__197 x1 x5 x13 x29 x41 x55 x57 x56@((Curry.Module.Prelude.:<) x58 x59) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_831(x5)(x13)(x29)(x41)(x55)(x57)(x59)(x58)(x1)(st))(st)+c__case_832_case__197 x1 x5 x13 x29 x41 x55 x57 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_832_case__197(x1)(x5)(x13)(x29)(x41)(x55)(x57)(x)(st))(i)(xs)(st)+c__case_832_case__197 x1 x5 x13 x29 x41 x55 x57 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_832_case__197")(x)++++c__case_833_case__198 x1 x5 x13 x29 x41 x55 x54@(Curry.Module.Prelude.T2 x56 x57) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_832(x5)(x13)(x29)(x41)(x55)(x57)(x56)(x1)(st))(st)+c__case_833_case__198 x1 x5 x13 x29 x41 x55 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_833_case__198(x1)(x5)(x13)(x29)(x41)(x55)(x)(st))(i)(xs)(st)+c__case_833_case__198 x1 x5 x13 x29 x41 x55 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_833_case__198")(x)++++c__case_834_case__199 x1 x5 x13 x29 x41 x39@((Curry.Module.Prelude.:<) x54 x55) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_833(x5)(x13)(x29)(x41)(x55)(x54)(x1)(st))(st)+c__case_834_case__199 x1 x5 x13 x29 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_834_case__199(x1)(x5)(x13)(x29)(x41)(x)(st))(i)(xs)(st)+c__case_834_case__199 x1 x5 x13 x29 x41 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_834_case__199")(x)++++c__case_835_case__200 x1 x5 x13 x29 x39 x41 x53@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_834(x5)(x13)(x29)(x41)(x39)(x1)(st))(st)+c__case_835_case__200 x1 x5 x13 x29 x39 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_835_case__200(x1)(x5)(x13)(x29)(x39)(x41)(x)(st))(i)(xs)(st)+c__case_835_case__200 x1 x5 x13 x29 x39 x41 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_835_case__200")(x)++++c__case_836_case__201 x1 x5 x13 x29 x39 x41 x53 x52 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x52)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_835(x5)(x13)(x29)(x39)(x41)(x53)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_837_case__202 x1 x5 x13 x29 x39 x41 x51@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_836(x5)(x13)(x29)(x39)(x41)(x53)(x52)(x1)(st))(st)+c__case_837_case__202 x1 x5 x13 x29 x39 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_837_case__202(x1)(x5)(x13)(x29)(x39)(x41)(x)(st))(i)(xs)(st)+c__case_837_case__202 x1 x5 x13 x29 x39 x41 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_837_case__202")(x)++++c__case_838_case__203 x1 x5 x13 x29 x39 x41 x51 x50 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x50)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_837(x5)(x13)(x29)(x39)(x41)(x51)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_839_case__204 x1 x5 x13 x29 x39 x41 x49@((Curry.Module.Prelude.:<) x50 x51) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_838(x5)(x13)(x29)(x39)(x41)(x51)(x50)(x1)(st))(st)+c__case_839_case__204 x1 x5 x13 x29 x39 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_839_case__204(x1)(x5)(x13)(x29)(x39)(x41)(x)(st))(i)(xs)(st)+c__case_839_case__204 x1 x5 x13 x29 x39 x41 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_839_case__204")(x)++++c__case_840_case__205 x1 x5 x13 x29 x39 x41 x49 x48 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x48)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_839(x5)(x13)(x29)(x39)(x41)(x49)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_841_case__206 x1 x5 x13 x29 x39 x41 x47@((Curry.Module.Prelude.:<) x48 x49) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_840(x5)(x13)(x29)(x39)(x41)(x49)(x48)(x1)(st))(st)+c__case_841_case__206 x1 x5 x13 x29 x39 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_841_case__206(x1)(x5)(x13)(x29)(x39)(x41)(x)(st))(i)(xs)(st)+c__case_841_case__206 x1 x5 x13 x29 x39 x41 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_841_case__206")(x)++++c__case_842_case__207 x1 x5 x13 x29 x39 x41 x47 x46 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x46)(Curry.Module.Prelude.C_Char('x'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_841(x5)(x13)(x29)(x39)(x41)(x47)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_843_case__208 x1 x5 x13 x29 x39 x41 x45@((Curry.Module.Prelude.:<) x46 x47) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_842(x5)(x13)(x29)(x39)(x41)(x47)(x46)(x1)(st))(st)+c__case_843_case__208 x1 x5 x13 x29 x39 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_843_case__208(x1)(x5)(x13)(x29)(x39)(x41)(x)(st))(i)(xs)(st)+c__case_843_case__208 x1 x5 x13 x29 x39 x41 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_843_case__208")(x)++++c__case_844_case__209 x1 x5 x13 x29 x39 x41 x45 x44 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x44)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_843(x5)(x13)(x29)(x39)(x41)(x45)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_845_case__210 x1 x5 x13 x29 x39 x41 x43@((Curry.Module.Prelude.:<) x44 x45) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_844(x5)(x13)(x29)(x39)(x41)(x45)(x44)(x1)(st))(st)+c__case_845_case__210 x1 x5 x13 x29 x39 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_845_case__210(x1)(x5)(x13)(x29)(x39)(x41)(x)(st))(i)(xs)(st)+c__case_845_case__210 x1 x5 x13 x29 x39 x41 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_845_case__210")(x)++++c__case_846_case__211 x1 x5 x13 x29 x39 x41 x43 x42 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x42)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_845(x5)(x13)(x29)(x39)(x41)(x43)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_847_case__212 x1 x5 x13 x29 x39 x41 x40@((Curry.Module.Prelude.:<) x42 x43) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_846(x5)(x13)(x29)(x39)(x41)(x43)(x42)(x1)(st))(st)+c__case_847_case__212 x1 x5 x13 x29 x39 x41 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_847_case__212(x1)(x5)(x13)(x29)(x39)(x41)(x)(st))(i)(xs)(st)+c__case_847_case__212 x1 x5 x13 x29 x39 x41 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_847_case__212")(x)++++c__case_848_case__213 x1 x5 x13 x29 x39 x38@(Curry.Module.Prelude.T2 x40 x41) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_847(x5)(x13)(x29)(x39)(x41)(x40)(x1)(st))(st)+c__case_848_case__213 x1 x5 x13 x29 x39 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_848_case__213(x1)(x5)(x13)(x29)(x39)(x)(st))(i)(xs)(st)+c__case_848_case__213 x1 x5 x13 x29 x39 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_848_case__213")(x)++++c__case_849_case__214 x1 x5 x13 x29 x27@((Curry.Module.Prelude.:<) x38 x39) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_848(x5)(x13)(x29)(x39)(x38)(x1)(st))(st)+c__case_849_case__214 x1 x5 x13 x29 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_849_case__214(x1)(x5)(x13)(x29)(x)(st))(i)(xs)(st)+c__case_849_case__214 x1 x5 x13 x29 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_849_case__214")(x)++++c__case_850_case__215 x1 x5 x13 x27 x29 x37@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_849(x5)(x13)(x29)(x27)(x1)(st))(st)+c__case_850_case__215 x1 x5 x13 x27 x29 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_850_case__215(x1)(x5)(x13)(x27)(x29)(x)(st))(i)(xs)(st)+c__case_850_case__215 x1 x5 x13 x27 x29 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_850_case__215")(x)++++c__case_851_case__216 x1 x5 x13 x27 x29 x37 x36 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x36)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_850(x5)(x13)(x27)(x29)(x37)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_852_case__217 x1 x5 x13 x27 x29 x35@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_851(x5)(x13)(x27)(x29)(x37)(x36)(x1)(st))(st)+c__case_852_case__217 x1 x5 x13 x27 x29 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_852_case__217(x1)(x5)(x13)(x27)(x29)(x)(st))(i)(xs)(st)+c__case_852_case__217 x1 x5 x13 x27 x29 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_852_case__217")(x)++++c__case_853_case__218 x1 x5 x13 x27 x29 x35 x34 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x34)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_852(x5)(x13)(x27)(x29)(x35)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_854_case__219 x1 x5 x13 x27 x29 x33@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_853(x5)(x13)(x27)(x29)(x35)(x34)(x1)(st))(st)+c__case_854_case__219 x1 x5 x13 x27 x29 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_854_case__219(x1)(x5)(x13)(x27)(x29)(x)(st))(i)(xs)(st)+c__case_854_case__219 x1 x5 x13 x27 x29 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_854_case__219")(x)++++c__case_855_case__220 x1 x5 x13 x27 x29 x33 x32 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x32)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_854(x5)(x13)(x27)(x29)(x33)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_856_case__221 x1 x5 x13 x27 x29 x31@((Curry.Module.Prelude.:<) x32 x33) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_855(x5)(x13)(x27)(x29)(x33)(x32)(x1)(st))(st)+c__case_856_case__221 x1 x5 x13 x27 x29 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_856_case__221(x1)(x5)(x13)(x27)(x29)(x)(st))(i)(xs)(st)+c__case_856_case__221 x1 x5 x13 x27 x29 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_856_case__221")(x)++++c__case_857_case__222 x1 x5 x13 x27 x29 x31 x30 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x30)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_856(x5)(x13)(x27)(x29)(x31)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_858_case__223 x1 x5 x13 x27 x29 x28@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_857(x5)(x13)(x27)(x29)(x31)(x30)(x1)(st))(st)+c__case_858_case__223 x1 x5 x13 x27 x29 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_858_case__223(x1)(x5)(x13)(x27)(x29)(x)(st))(i)(xs)(st)+c__case_858_case__223 x1 x5 x13 x27 x29 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_858_case__223")(x)++++c__case_859_case__224 x1 x5 x13 x27 x26@(Curry.Module.Prelude.T2 x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_858(x5)(x13)(x27)(x29)(x28)(x1)(st))(st)+c__case_859_case__224 x1 x5 x13 x27 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_859_case__224(x1)(x5)(x13)(x27)(x)(st))(i)(xs)(st)+c__case_859_case__224 x1 x5 x13 x27 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_859_case__224")(x)++++c__case_860_case__225 x1 x5 x13 x11@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_859(x5)(x13)(x27)(x26)(x1)(st))(st)+c__case_860_case__225 x1 x5 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_860_case__225(x1)(x5)(x13)(x)(st))(i)(xs)(st)+c__case_860_case__225 x1 x5 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_860_case__225")(x)++++c__case_861_case__226 x1 x5 x11 x13 x25@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_860(x5)(x13)(x11)(x1)(st))(st)+c__case_861_case__226 x1 x5 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_861_case__226(x1)(x5)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_861_case__226 x1 x5 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_861_case__226")(x)++++c__case_862_case__227 x1 x5 x11 x13 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_861(x5)(x11)(x13)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_863_case__228 x1 x5 x11 x13 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_862(x5)(x11)(x13)(x25)(x24)(x1)(st))(st)+c__case_863_case__228 x1 x5 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_863_case__228(x1)(x5)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_863_case__228 x1 x5 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_863_case__228")(x)++++c__case_864_case__229 x1 x5 x11 x13 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_863(x5)(x11)(x13)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_865_case__230 x1 x5 x11 x13 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_864(x5)(x11)(x13)(x23)(x22)(x1)(st))(st)+c__case_865_case__230 x1 x5 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_865_case__230(x1)(x5)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_865_case__230 x1 x5 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_865_case__230")(x)++++c__case_866_case__231 x1 x5 x11 x13 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_865(x5)(x11)(x13)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_867_case__232 x1 x5 x11 x13 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_866(x5)(x11)(x13)(x21)(x20)(x1)(st))(st)+c__case_867_case__232 x1 x5 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_867_case__232(x1)(x5)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_867_case__232 x1 x5 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_867_case__232")(x)++++c__case_868_case__233 x1 x5 x11 x13 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_867(x5)(x11)(x13)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_869_case__234 x1 x5 x11 x13 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_868(x5)(x11)(x13)(x19)(x18)(x1)(st))(st)+c__case_869_case__234 x1 x5 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_869_case__234(x1)(x5)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_869_case__234 x1 x5 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_869_case__234")(x)++++c__case_870_case__235 x1 x5 x11 x13 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_869(x5)(x11)(x13)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_871_case__236 x1 x5 x11 x13 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_870(x5)(x11)(x13)(x17)(x16)(x1)(st))(st)+c__case_871_case__236 x1 x5 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_871_case__236(x1)(x5)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_871_case__236 x1 x5 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_871_case__236")(x)++++c__case_872_case__237 x1 x5 x11 x13 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_871(x5)(x11)(x13)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_873_case__238 x1 x5 x11 x13 x12@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_872(x5)(x11)(x13)(x15)(x14)(x1)(st))(st)+c__case_873_case__238 x1 x5 x11 x13 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_873_case__238(x1)(x5)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_873_case__238 x1 x5 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_873_case__238")(x)++++c__case_874_case__239 x1 x5 x11 x10@(Curry.Module.Prelude.T2 x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_873(x5)(x11)(x13)(x12)(x1)(st))(st)+c__case_874_case__239 x1 x5 x11 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_874_case__239(x1)(x5)(x11)(x)(st))(i)(xs)(st)+c__case_874_case__239 x1 x5 x11 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_874_case__239")(x)++++c__case_875_case__240 x1 x5 x4@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_874(x5)(x11)(x10)(x1)(st))(st)+c__case_875_case__240 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_875_case__240(x1)(x5)(x)(st))(i)(xs)(st)+c__case_875_case__240 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_875_case__240")(x)++++c__case_876_case__241 x1 x4 x5 x9@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_875(x5)(x4)(x1)(st))(st)+c__case_876_case__241 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_876_case__241(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_876_case__241 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_876_case__241")(x)++++c__case_877_case__242 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_876(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_878_case__243 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_877(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_878_case__243 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_878_case__243(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_878_case__243 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_878_case__243")(x)++++c__case_879_case__244 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_878(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_880_case__245 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_879(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_880_case__245 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_880_case__245(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_880_case__245 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_880_case__245")(x)++++c__case_881_case__246 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_880(x4)(x5)(x3)(x1)(st))(st)+c__case_881_case__246 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_881_case__246(x1)(x)(st))(i)(xs)(st)+c__case_881_case__246 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_881_case__246")(x)++++c__case_768_case__247 x1 x17 x33 x42 x45 x48 x47@Curry.Module.Prelude.List st = let {x49 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x50 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x49)((Curry.Module.Prelude.:<)(x50)(Curry.Module.Prelude.List)))(Curry.Module.FlatCurry.C_Type(Curry.Module.Prelude.T2(x17)(x33))(Curry.Module.OracleFlatCurryXML.c_xvis2vis(x42)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2typedecl'46_'35lambda8))))(x48)(x49)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2typedecl'46_'35lambda9))))(x45)(x50)(st)))(st)+c__case_768_case__247 x1 x17 x33 x42 x45 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_768_case__247(x1)(x17)(x33)(x42)(x45)(x48)(x)(st))(i)(xs)(st)+c__case_768_case__247 x1 x17 x33 x42 x45 x48 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_768_case__247")(x)++++c__case_769_case__248 x1 x17 x33 x42 x45 x47 x48 x60@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_768(x17)(x33)(x42)(x45)(x48)(x47)(x1)(st))(st)+c__case_769_case__248 x1 x17 x33 x42 x45 x47 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_769_case__248(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x)(st))(i)(xs)(st)+c__case_769_case__248 x1 x17 x33 x42 x45 x47 x48 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_769_case__248")(x)++++c__case_770_case__249 x1 x17 x33 x42 x45 x47 x48 x60 x59 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x59)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_769(x17)(x33)(x42)(x45)(x47)(x48)(x60)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_771_case__250 x1 x17 x33 x42 x45 x47 x48 x58@((Curry.Module.Prelude.:<) x59 x60) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_770(x17)(x33)(x42)(x45)(x47)(x48)(x60)(x59)(x1)(st))(st)+c__case_771_case__250 x1 x17 x33 x42 x45 x47 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_771_case__250(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x)(st))(i)(xs)(st)+c__case_771_case__250 x1 x17 x33 x42 x45 x47 x48 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_771_case__250")(x)++++c__case_772_case__251 x1 x17 x33 x42 x45 x47 x48 x58 x57 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x57)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_771(x17)(x33)(x42)(x45)(x47)(x48)(x58)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_773_case__252 x1 x17 x33 x42 x45 x47 x48 x56@((Curry.Module.Prelude.:<) x57 x58) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_772(x17)(x33)(x42)(x45)(x47)(x48)(x58)(x57)(x1)(st))(st)+c__case_773_case__252 x1 x17 x33 x42 x45 x47 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_773_case__252(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x)(st))(i)(xs)(st)+c__case_773_case__252 x1 x17 x33 x42 x45 x47 x48 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_773_case__252")(x)++++c__case_774_case__253 x1 x17 x33 x42 x45 x47 x48 x56 x55 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x55)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_773(x17)(x33)(x42)(x45)(x47)(x48)(x56)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_775_case__254 x1 x17 x33 x42 x45 x47 x48 x54@((Curry.Module.Prelude.:<) x55 x56) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_774(x17)(x33)(x42)(x45)(x47)(x48)(x56)(x55)(x1)(st))(st)+c__case_775_case__254 x1 x17 x33 x42 x45 x47 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_775_case__254(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x)(st))(i)(xs)(st)+c__case_775_case__254 x1 x17 x33 x42 x45 x47 x48 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_775_case__254")(x)++++c__case_776_case__255 x1 x17 x33 x42 x45 x47 x48 x54 x53 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x53)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_775(x17)(x33)(x42)(x45)(x47)(x48)(x54)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_777_case__256 x1 x17 x33 x42 x45 x47 x48 x52@((Curry.Module.Prelude.:<) x53 x54) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_776(x17)(x33)(x42)(x45)(x47)(x48)(x54)(x53)(x1)(st))(st)+c__case_777_case__256 x1 x17 x33 x42 x45 x47 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_777_case__256(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x)(st))(i)(xs)(st)+c__case_777_case__256 x1 x17 x33 x42 x45 x47 x48 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_777_case__256")(x)++++c__case_778_case__257 x1 x17 x33 x42 x45 x47 x48 x52 x51 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x51)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_777(x17)(x33)(x42)(x45)(x47)(x48)(x52)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_779_case__258 x1 x17 x33 x42 x45 x47 x48 x50@((Curry.Module.Prelude.:<) x51 x52) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_778(x17)(x33)(x42)(x45)(x47)(x48)(x52)(x51)(x1)(st))(st)+c__case_779_case__258 x1 x17 x33 x42 x45 x47 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_779_case__258(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x)(st))(i)(xs)(st)+c__case_779_case__258 x1 x17 x33 x42 x45 x47 x48 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_779_case__258")(x)++++c__case_780_case__259 x1 x17 x33 x42 x45 x47 x48 x50 x49 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x49)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_779(x17)(x33)(x42)(x45)(x47)(x48)(x50)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_781_case__260 x1 x17 x33 x42 x45 x47 x48 x46@((Curry.Module.Prelude.:<) x49 x50) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_780(x17)(x33)(x42)(x45)(x47)(x48)(x50)(x49)(x1)(st))(st)+c__case_781_case__260 x1 x17 x33 x42 x45 x47 x48 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_781_case__260(x1)(x17)(x33)(x42)(x45)(x47)(x48)(x)(st))(i)(xs)(st)+c__case_781_case__260 x1 x17 x33 x42 x45 x47 x48 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_781_case__260")(x)++++c__case_782_case__261 x1 x17 x33 x42 x45 x44@(Curry.Module.XML.C_XElem x46 x47 x48) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_781(x17)(x33)(x42)(x45)(x47)(x48)(x46)(x1)(st))(st)+c__case_782_case__261 x1 x17 x33 x42 x45 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_782_case__261(x1)(x17)(x33)(x42)(x45)(x)(st))(i)(xs)(st)+c__case_782_case__261 x1 x17 x33 x42 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_782_case__261")(x)++++c__case_783_case__262 x1 x17 x33 x42 x5@((Curry.Module.Prelude.:<) x44 x45) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_782(x17)(x33)(x42)(x45)(x44)(x1)(st))(st)+c__case_783_case__262 x1 x17 x33 x42 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_783_case__262(x1)(x17)(x33)(x42)(x)(st))(i)(xs)(st)+c__case_783_case__262 x1 x17 x33 x42 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_783_case__262")(x)++++c__case_784_case__263 x1 x5 x17 x33 x42 x43@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_783(x17)(x33)(x42)(x5)(x1)(st))(st)+c__case_784_case__263 x1 x5 x17 x33 x42 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_784_case__263(x1)(x5)(x17)(x33)(x42)(x)(st))(i)(xs)(st)+c__case_784_case__263 x1 x5 x17 x33 x42 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_784_case__263")(x)++++c__case_785_case__264 x1 x5 x17 x33 x31@((Curry.Module.Prelude.:<) x42 x43) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_784(x5)(x17)(x33)(x42)(x43)(x1)(st))(st)+c__case_785_case__264 x1 x5 x17 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_785_case__264(x1)(x5)(x17)(x33)(x)(st))(i)(xs)(st)+c__case_785_case__264 x1 x5 x17 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_785_case__264")(x)++++c__case_786_case__265 x1 x5 x17 x31 x33 x41@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_785(x5)(x17)(x33)(x31)(x1)(st))(st)+c__case_786_case__265 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_786_case__265(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_786_case__265 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_786_case__265")(x)++++c__case_787_case__266 x1 x5 x17 x31 x33 x41 x40 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x40)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_786(x5)(x17)(x31)(x33)(x41)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_788_case__267 x1 x5 x17 x31 x33 x39@((Curry.Module.Prelude.:<) x40 x41) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_787(x5)(x17)(x31)(x33)(x41)(x40)(x1)(st))(st)+c__case_788_case__267 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_788_case__267(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_788_case__267 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_788_case__267")(x)++++c__case_789_case__268 x1 x5 x17 x31 x33 x39 x38 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x38)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_788(x5)(x17)(x31)(x33)(x39)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_790_case__269 x1 x5 x17 x31 x33 x37@((Curry.Module.Prelude.:<) x38 x39) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_789(x5)(x17)(x31)(x33)(x39)(x38)(x1)(st))(st)+c__case_790_case__269 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_790_case__269(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_790_case__269 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_790_case__269")(x)++++c__case_791_case__270 x1 x5 x17 x31 x33 x37 x36 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x36)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_790(x5)(x17)(x31)(x33)(x37)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_792_case__271 x1 x5 x17 x31 x33 x35@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_791(x5)(x17)(x31)(x33)(x37)(x36)(x1)(st))(st)+c__case_792_case__271 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_792_case__271(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_792_case__271 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_792_case__271")(x)++++c__case_793_case__272 x1 x5 x17 x31 x33 x35 x34 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x34)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_792(x5)(x17)(x31)(x33)(x35)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_794_case__273 x1 x5 x17 x31 x33 x32@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_793(x5)(x17)(x31)(x33)(x35)(x34)(x1)(st))(st)+c__case_794_case__273 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_794_case__273(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_794_case__273 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_794_case__273")(x)++++c__case_795_case__274 x1 x5 x17 x31 x30@(Curry.Module.Prelude.T2 x32 x33) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_794(x5)(x17)(x31)(x33)(x32)(x1)(st))(st)+c__case_795_case__274 x1 x5 x17 x31 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_795_case__274(x1)(x5)(x17)(x31)(x)(st))(i)(xs)(st)+c__case_795_case__274 x1 x5 x17 x31 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_795_case__274")(x)++++c__case_796_case__275 x1 x5 x17 x15@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_795(x5)(x17)(x31)(x30)(x1)(st))(st)+c__case_796_case__275 x1 x5 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_796_case__275(x1)(x5)(x17)(x)(st))(i)(xs)(st)+c__case_796_case__275 x1 x5 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_796_case__275")(x)++++c__case_797_case__276 x1 x5 x15 x17 x29@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_796(x5)(x17)(x15)(x1)(st))(st)+c__case_797_case__276 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_797_case__276(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_797_case__276 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_797_case__276")(x)++++c__case_798_case__277 x1 x5 x15 x17 x29 x28 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x28)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_797(x5)(x15)(x17)(x29)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_799_case__278 x1 x5 x15 x17 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_798(x5)(x15)(x17)(x29)(x28)(x1)(st))(st)+c__case_799_case__278 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_799_case__278(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_799_case__278 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_799_case__278")(x)++++c__case_800_case__279 x1 x5 x15 x17 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_799(x5)(x15)(x17)(x27)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_801_case__280 x1 x5 x15 x17 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_800(x5)(x15)(x17)(x27)(x26)(x1)(st))(st)+c__case_801_case__280 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_801_case__280(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_801_case__280 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_801_case__280")(x)++++c__case_802_case__281 x1 x5 x15 x17 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_801(x5)(x15)(x17)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_803_case__282 x1 x5 x15 x17 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_802(x5)(x15)(x17)(x25)(x24)(x1)(st))(st)+c__case_803_case__282 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_803_case__282(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_803_case__282 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_803_case__282")(x)++++c__case_804_case__283 x1 x5 x15 x17 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_803(x5)(x15)(x17)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_805_case__284 x1 x5 x15 x17 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_804(x5)(x15)(x17)(x23)(x22)(x1)(st))(st)+c__case_805_case__284 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_805_case__284(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_805_case__284 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_805_case__284")(x)++++c__case_806_case__285 x1 x5 x15 x17 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_805(x5)(x15)(x17)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_807_case__286 x1 x5 x15 x17 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_806(x5)(x15)(x17)(x21)(x20)(x1)(st))(st)+c__case_807_case__286 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_807_case__286(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_807_case__286 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_807_case__286")(x)++++c__case_808_case__287 x1 x5 x15 x17 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_807(x5)(x15)(x17)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_809_case__288 x1 x5 x15 x17 x16@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_808(x5)(x15)(x17)(x19)(x18)(x1)(st))(st)+c__case_809_case__288 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_809_case__288(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_809_case__288 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_809_case__288")(x)++++c__case_810_case__289 x1 x5 x15 x14@(Curry.Module.Prelude.T2 x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_809(x5)(x15)(x17)(x16)(x1)(st))(st)+c__case_810_case__289 x1 x5 x15 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_810_case__289(x1)(x5)(x15)(x)(st))(i)(xs)(st)+c__case_810_case__289 x1 x5 x15 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_810_case__289")(x)++++c__case_811_case__290 x1 x5 x4@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_810(x5)(x15)(x14)(x1)(st))(st)+c__case_811_case__290 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_811_case__290(x1)(x5)(x)(st))(i)(xs)(st)+c__case_811_case__290 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_811_case__290")(x)++++c__case_716_case__291 x1 x70 x86 x95 x101 x114 x115@Curry.Module.Prelude.List st = let {x116 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x117 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x116)((Curry.Module.Prelude.:<)(x117)(Curry.Module.Prelude.List)))(Curry.Module.FlatCurry.C_TypeSyn(Curry.Module.Prelude.T2(x70)(x86))(Curry.Module.OracleFlatCurryXML.c_xvis2vis(x95)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2typedecl'46_'35lambda10))))(x101)(x116)(st))(Curry.Module.OracleFlatCurryXML.c_flatx2texp(x114)(x117)(st)))(st)+c__case_716_case__291 x1 x70 x86 x95 x101 x114 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_716_case__291(x1)(x70)(x86)(x95)(x101)(x114)(x)(st))(i)(xs)(st)+c__case_716_case__291 x1 x70 x86 x95 x101 x114 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_716_case__291")(x)++++c__case_717_case__292 x1 x70 x86 x95 x101 x98@((Curry.Module.Prelude.:<) x114 x115) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_716(x70)(x86)(x95)(x101)(x114)(x115)(x1)(st))(st)+c__case_717_case__292 x1 x70 x86 x95 x101 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_717_case__292(x1)(x70)(x86)(x95)(x101)(x)(st))(i)(xs)(st)+c__case_717_case__292 x1 x70 x86 x95 x101 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_717_case__292")(x)++++c__case_718_case__293 x1 x70 x86 x95 x98 x101 x100@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_717(x70)(x86)(x95)(x101)(x98)(x1)(st))(st)+c__case_718_case__293 x1 x70 x86 x95 x98 x101 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_718_case__293(x1)(x70)(x86)(x95)(x98)(x101)(x)(st))(i)(xs)(st)+c__case_718_case__293 x1 x70 x86 x95 x98 x101 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_718_case__293")(x)++++c__case_719_case__294 x1 x70 x86 x95 x98 x100 x101 x113@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_718(x70)(x86)(x95)(x98)(x101)(x100)(x1)(st))(st)+c__case_719_case__294 x1 x70 x86 x95 x98 x100 x101 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_719_case__294(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x)(st))(i)(xs)(st)+c__case_719_case__294 x1 x70 x86 x95 x98 x100 x101 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_719_case__294")(x)++++c__case_720_case__295 x1 x70 x86 x95 x98 x100 x101 x113 x112 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x112)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_719(x70)(x86)(x95)(x98)(x100)(x101)(x113)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_721_case__296 x1 x70 x86 x95 x98 x100 x101 x111@((Curry.Module.Prelude.:<) x112 x113) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_720(x70)(x86)(x95)(x98)(x100)(x101)(x113)(x112)(x1)(st))(st)+c__case_721_case__296 x1 x70 x86 x95 x98 x100 x101 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_721_case__296(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x)(st))(i)(xs)(st)+c__case_721_case__296 x1 x70 x86 x95 x98 x100 x101 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_721_case__296")(x)++++c__case_722_case__297 x1 x70 x86 x95 x98 x100 x101 x111 x110 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x110)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_721(x70)(x86)(x95)(x98)(x100)(x101)(x111)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_723_case__298 x1 x70 x86 x95 x98 x100 x101 x109@((Curry.Module.Prelude.:<) x110 x111) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_722(x70)(x86)(x95)(x98)(x100)(x101)(x111)(x110)(x1)(st))(st)+c__case_723_case__298 x1 x70 x86 x95 x98 x100 x101 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_723_case__298(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x)(st))(i)(xs)(st)+c__case_723_case__298 x1 x70 x86 x95 x98 x100 x101 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_723_case__298")(x)++++c__case_724_case__299 x1 x70 x86 x95 x98 x100 x101 x109 x108 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x108)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_723(x70)(x86)(x95)(x98)(x100)(x101)(x109)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_725_case__300 x1 x70 x86 x95 x98 x100 x101 x107@((Curry.Module.Prelude.:<) x108 x109) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_724(x70)(x86)(x95)(x98)(x100)(x101)(x109)(x108)(x1)(st))(st)+c__case_725_case__300 x1 x70 x86 x95 x98 x100 x101 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_725_case__300(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x)(st))(i)(xs)(st)+c__case_725_case__300 x1 x70 x86 x95 x98 x100 x101 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_725_case__300")(x)++++c__case_726_case__301 x1 x70 x86 x95 x98 x100 x101 x107 x106 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x106)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_725(x70)(x86)(x95)(x98)(x100)(x101)(x107)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_727_case__302 x1 x70 x86 x95 x98 x100 x101 x105@((Curry.Module.Prelude.:<) x106 x107) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_726(x70)(x86)(x95)(x98)(x100)(x101)(x107)(x106)(x1)(st))(st)+c__case_727_case__302 x1 x70 x86 x95 x98 x100 x101 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_727_case__302(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x)(st))(i)(xs)(st)+c__case_727_case__302 x1 x70 x86 x95 x98 x100 x101 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_727_case__302")(x)++++c__case_728_case__303 x1 x70 x86 x95 x98 x100 x101 x105 x104 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x104)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_727(x70)(x86)(x95)(x98)(x100)(x101)(x105)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_729_case__304 x1 x70 x86 x95 x98 x100 x101 x103@((Curry.Module.Prelude.:<) x104 x105) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_728(x70)(x86)(x95)(x98)(x100)(x101)(x105)(x104)(x1)(st))(st)+c__case_729_case__304 x1 x70 x86 x95 x98 x100 x101 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_729_case__304(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x)(st))(i)(xs)(st)+c__case_729_case__304 x1 x70 x86 x95 x98 x100 x101 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_729_case__304")(x)++++c__case_730_case__305 x1 x70 x86 x95 x98 x100 x101 x103 x102 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x102)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_729(x70)(x86)(x95)(x98)(x100)(x101)(x103)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_731_case__306 x1 x70 x86 x95 x98 x100 x101 x99@((Curry.Module.Prelude.:<) x102 x103) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_730(x70)(x86)(x95)(x98)(x100)(x101)(x103)(x102)(x1)(st))(st)+c__case_731_case__306 x1 x70 x86 x95 x98 x100 x101 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_731_case__306(x1)(x70)(x86)(x95)(x98)(x100)(x101)(x)(st))(i)(xs)(st)+c__case_731_case__306 x1 x70 x86 x95 x98 x100 x101 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_731_case__306")(x)++++c__case_732_case__307 x1 x70 x86 x95 x98 x97@(Curry.Module.XML.C_XElem x99 x100 x101) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_731(x70)(x86)(x95)(x98)(x100)(x101)(x99)(x1)(st))(st)+c__case_732_case__307 x1 x70 x86 x95 x98 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_732_case__307(x1)(x70)(x86)(x95)(x98)(x)(st))(i)(xs)(st)+c__case_732_case__307 x1 x70 x86 x95 x98 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_732_case__307")(x)++++c__case_733_case__308 x1 x70 x86 x95 x5@((Curry.Module.Prelude.:<) x97 x98) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_732(x70)(x86)(x95)(x98)(x97)(x1)(st))(st)+c__case_733_case__308 x1 x70 x86 x95 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_733_case__308(x1)(x70)(x86)(x95)(x)(st))(i)(xs)(st)+c__case_733_case__308 x1 x70 x86 x95 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_733_case__308")(x)++++c__case_734_case__309 x1 x5 x70 x86 x95 x96@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_733(x70)(x86)(x95)(x5)(x1)(st))(st)+c__case_734_case__309 x1 x5 x70 x86 x95 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_734_case__309(x1)(x5)(x70)(x86)(x95)(x)(st))(i)(xs)(st)+c__case_734_case__309 x1 x5 x70 x86 x95 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_734_case__309")(x)++++c__case_735_case__310 x1 x5 x70 x86 x84@((Curry.Module.Prelude.:<) x95 x96) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_734(x5)(x70)(x86)(x95)(x96)(x1)(st))(st)+c__case_735_case__310 x1 x5 x70 x86 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_735_case__310(x1)(x5)(x70)(x86)(x)(st))(i)(xs)(st)+c__case_735_case__310 x1 x5 x70 x86 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_735_case__310")(x)++++c__case_736_case__311 x1 x5 x70 x84 x86 x94@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_735(x5)(x70)(x86)(x84)(x1)(st))(st)+c__case_736_case__311 x1 x5 x70 x84 x86 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_736_case__311(x1)(x5)(x70)(x84)(x86)(x)(st))(i)(xs)(st)+c__case_736_case__311 x1 x5 x70 x84 x86 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_736_case__311")(x)++++c__case_737_case__312 x1 x5 x70 x84 x86 x94 x93 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x93)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_736(x5)(x70)(x84)(x86)(x94)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_738_case__313 x1 x5 x70 x84 x86 x92@((Curry.Module.Prelude.:<) x93 x94) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_737(x5)(x70)(x84)(x86)(x94)(x93)(x1)(st))(st)+c__case_738_case__313 x1 x5 x70 x84 x86 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_738_case__313(x1)(x5)(x70)(x84)(x86)(x)(st))(i)(xs)(st)+c__case_738_case__313 x1 x5 x70 x84 x86 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_738_case__313")(x)++++c__case_739_case__314 x1 x5 x70 x84 x86 x92 x91 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x91)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_738(x5)(x70)(x84)(x86)(x92)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_740_case__315 x1 x5 x70 x84 x86 x90@((Curry.Module.Prelude.:<) x91 x92) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_739(x5)(x70)(x84)(x86)(x92)(x91)(x1)(st))(st)+c__case_740_case__315 x1 x5 x70 x84 x86 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_740_case__315(x1)(x5)(x70)(x84)(x86)(x)(st))(i)(xs)(st)+c__case_740_case__315 x1 x5 x70 x84 x86 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_740_case__315")(x)++++c__case_741_case__316 x1 x5 x70 x84 x86 x90 x89 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x89)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_740(x5)(x70)(x84)(x86)(x90)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_742_case__317 x1 x5 x70 x84 x86 x88@((Curry.Module.Prelude.:<) x89 x90) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_741(x5)(x70)(x84)(x86)(x90)(x89)(x1)(st))(st)+c__case_742_case__317 x1 x5 x70 x84 x86 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_742_case__317(x1)(x5)(x70)(x84)(x86)(x)(st))(i)(xs)(st)+c__case_742_case__317 x1 x5 x70 x84 x86 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_742_case__317")(x)++++c__case_743_case__318 x1 x5 x70 x84 x86 x88 x87 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x87)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_742(x5)(x70)(x84)(x86)(x88)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_744_case__319 x1 x5 x70 x84 x86 x85@((Curry.Module.Prelude.:<) x87 x88) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_743(x5)(x70)(x84)(x86)(x88)(x87)(x1)(st))(st)+c__case_744_case__319 x1 x5 x70 x84 x86 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_744_case__319(x1)(x5)(x70)(x84)(x86)(x)(st))(i)(xs)(st)+c__case_744_case__319 x1 x5 x70 x84 x86 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_744_case__319")(x)++++c__case_745_case__320 x1 x5 x70 x84 x83@(Curry.Module.Prelude.T2 x85 x86) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_744(x5)(x70)(x84)(x86)(x85)(x1)(st))(st)+c__case_745_case__320 x1 x5 x70 x84 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_745_case__320(x1)(x5)(x70)(x84)(x)(st))(i)(xs)(st)+c__case_745_case__320 x1 x5 x70 x84 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_745_case__320")(x)++++c__case_746_case__321 x1 x5 x70 x68@((Curry.Module.Prelude.:<) x83 x84) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_745(x5)(x70)(x84)(x83)(x1)(st))(st)+c__case_746_case__321 x1 x5 x70 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_746_case__321(x1)(x5)(x70)(x)(st))(i)(xs)(st)+c__case_746_case__321 x1 x5 x70 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_746_case__321")(x)++++c__case_747_case__322 x1 x5 x68 x70 x82@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_746(x5)(x70)(x68)(x1)(st))(st)+c__case_747_case__322 x1 x5 x68 x70 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_747_case__322(x1)(x5)(x68)(x70)(x)(st))(i)(xs)(st)+c__case_747_case__322 x1 x5 x68 x70 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_747_case__322")(x)++++c__case_748_case__323 x1 x5 x68 x70 x82 x81 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x81)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_747(x5)(x68)(x70)(x82)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_749_case__324 x1 x5 x68 x70 x80@((Curry.Module.Prelude.:<) x81 x82) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_748(x5)(x68)(x70)(x82)(x81)(x1)(st))(st)+c__case_749_case__324 x1 x5 x68 x70 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_749_case__324(x1)(x5)(x68)(x70)(x)(st))(i)(xs)(st)+c__case_749_case__324 x1 x5 x68 x70 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_749_case__324")(x)++++c__case_750_case__325 x1 x5 x68 x70 x80 x79 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x79)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_749(x5)(x68)(x70)(x80)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_751_case__326 x1 x5 x68 x70 x78@((Curry.Module.Prelude.:<) x79 x80) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_750(x5)(x68)(x70)(x80)(x79)(x1)(st))(st)+c__case_751_case__326 x1 x5 x68 x70 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_751_case__326(x1)(x5)(x68)(x70)(x)(st))(i)(xs)(st)+c__case_751_case__326 x1 x5 x68 x70 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_751_case__326")(x)++++c__case_752_case__327 x1 x5 x68 x70 x78 x77 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x77)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_751(x5)(x68)(x70)(x78)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_753_case__328 x1 x5 x68 x70 x76@((Curry.Module.Prelude.:<) x77 x78) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_752(x5)(x68)(x70)(x78)(x77)(x1)(st))(st)+c__case_753_case__328 x1 x5 x68 x70 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_753_case__328(x1)(x5)(x68)(x70)(x)(st))(i)(xs)(st)+c__case_753_case__328 x1 x5 x68 x70 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_753_case__328")(x)++++c__case_754_case__329 x1 x5 x68 x70 x76 x75 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x75)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_753(x5)(x68)(x70)(x76)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_755_case__330 x1 x5 x68 x70 x74@((Curry.Module.Prelude.:<) x75 x76) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_754(x5)(x68)(x70)(x76)(x75)(x1)(st))(st)+c__case_755_case__330 x1 x5 x68 x70 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_755_case__330(x1)(x5)(x68)(x70)(x)(st))(i)(xs)(st)+c__case_755_case__330 x1 x5 x68 x70 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_755_case__330")(x)++++c__case_756_case__331 x1 x5 x68 x70 x74 x73 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x73)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_755(x5)(x68)(x70)(x74)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_757_case__332 x1 x5 x68 x70 x72@((Curry.Module.Prelude.:<) x73 x74) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_756(x5)(x68)(x70)(x74)(x73)(x1)(st))(st)+c__case_757_case__332 x1 x5 x68 x70 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_757_case__332(x1)(x5)(x68)(x70)(x)(st))(i)(xs)(st)+c__case_757_case__332 x1 x5 x68 x70 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_757_case__332")(x)++++c__case_758_case__333 x1 x5 x68 x70 x72 x71 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x71)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_757(x5)(x68)(x70)(x72)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_759_case__334 x1 x5 x68 x70 x69@((Curry.Module.Prelude.:<) x71 x72) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_758(x5)(x68)(x70)(x72)(x71)(x1)(st))(st)+c__case_759_case__334 x1 x5 x68 x70 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_759_case__334(x1)(x5)(x68)(x70)(x)(st))(i)(xs)(st)+c__case_759_case__334 x1 x5 x68 x70 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_759_case__334")(x)++++c__case_760_case__335 x1 x5 x68 x67@(Curry.Module.Prelude.T2 x69 x70) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_759(x5)(x68)(x70)(x69)(x1)(st))(st)+c__case_760_case__335 x1 x5 x68 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_760_case__335(x1)(x5)(x68)(x)(st))(i)(xs)(st)+c__case_760_case__335 x1 x5 x68 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_760_case__335")(x)++++c__case_761_case__336 x1 x5 x4@((Curry.Module.Prelude.:<) x67 x68) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_760(x5)(x68)(x67)(x1)(st))(st)+c__case_761_case__336 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_761_case__336(x1)(x5)(x)(st))(i)(xs)(st)+c__case_761_case__336 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_761_case__336")(x)++++c__case_762_case__337 x1 x4 x5 x66@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_761(x5)(x4)(x1)(st))(st)+c__case_762_case__337 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_762_case__337(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_762_case__337 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_762_case__337")(x)++++c__case_763_case__338 x1 x4 x5 x66 x65 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x65)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_762(x4)(x5)(x66)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_764_case__339 x1 x4 x5 x64@((Curry.Module.Prelude.:<) x65 x66) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_763(x4)(x5)(x66)(x65)(x1)(st))(st)+c__case_764_case__339 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_764_case__339(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_764_case__339 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_764_case__339")(x)++++c__case_765_case__340 x1 x4 x5 x64 x63 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x63)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_764(x4)(x5)(x64)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_766_case__341 x1 x4 x5 x62@((Curry.Module.Prelude.:<) x63 x64) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_765(x4)(x5)(x64)(x63)(x1)(st))(st)+c__case_766_case__341 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_766_case__341(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_766_case__341 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_766_case__341")(x)++++c__case_767_case__342 x1 x4 x5 x62 x61 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x61)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_766(x4)(x5)(x62)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_812_case__343 x1 x4 x5 x13@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_811(x5)(x4)(x1)(st))(st)+c__case_812_case__343 x1 x4 x5 x13@((Curry.Module.Prelude.:<) x61 x62) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_767(x4)(x5)(x62)(x61)(x1)(st))(st)+c__case_812_case__343 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_812_case__343(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_812_case__343 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_812_case__343")(x)++++c__case_813_case__344 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_812(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_814_case__345 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_813(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_814_case__345 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_814_case__345(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_814_case__345 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_814_case__345")(x)++++c__case_815_case__346 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_814(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_816_case__347 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_815(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_816_case__347 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_816_case__347(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_816_case__347 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_816_case__347")(x)++++c__case_817_case__348 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_816(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_818_case__349 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_817(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_818_case__349 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_818_case__349(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_818_case__349 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_818_case__349")(x)++++c__case_819_case__350 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_818(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_820_case__351 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_819(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_820_case__351 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_820_case__351(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_820_case__351 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_820_case__351")(x)++++c__case_821_case__352 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_820(x4)(x5)(x3)(x1)(st))(st)+c__case_821_case__352 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_821_case__352(x1)(x)(st))(i)(xs)(st)+c__case_821_case__352 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_821_case__352")(x)++++c__case_705_case__353 x1 x5 x4@Curry.Module.Prelude.List st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleRead.c_readNat(Curry.Module.OracleXML.c_textOfXml(x5)(x1)(st))(x6)(st))(st)+c__case_705_case__353 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_705_case__353(x1)(x5)(x)(st))(i)(xs)(st)+c__case_705_case__353 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_705_case__353")(x)++++c__case_706_case__354 x1 x4 x5 x13@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_705(x5)(x4)(x1)(st))(st)+c__case_706_case__354 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_706_case__354(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_706_case__354 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_706_case__354")(x)++++c__case_707_case__355 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_706(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_708_case__356 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_707(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_708_case__356 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_708_case__356(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_708_case__356 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_708_case__356")(x)++++c__case_709_case__357 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_708(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_710_case__358 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_709(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_710_case__358 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_710_case__358(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_710_case__358 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_710_case__358")(x)++++c__case_711_case__359 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_710(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_712_case__360 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_711(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_712_case__360 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_712_case__360(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_712_case__360 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_712_case__360")(x)++++c__case_713_case__361 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_712(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_714_case__362 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_713(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_714_case__362 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_714_case__362(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_714_case__362 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_714_case__362")(x)++++c__case_715_case__363 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_714(x4)(x5)(x3)(x1)(st))(st)+c__case_715_case__363 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_715_case__363(x1)(x)(st))(i)(xs)(st)+c__case_715_case__363 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_715_case__363")(x)++++c__case_654_case__364 x1 x5 x17 x33 x45 x56 x57@Curry.Module.Prelude.List st = let {x58 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x59 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x58)((Curry.Module.Prelude.:<)(x59)(Curry.Module.Prelude.List)))(Curry.Module.FlatCurry.C_Cons(Curry.Module.Prelude.T2(x17)(x33))(Curry.Module.OracleRead.c_readNat(x45)(x1)(st))(Curry.Module.OracleFlatCurryXML.c_xvis2vis(x56)(x58)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2texp))))(x5)(x59)(st)))(st)+c__case_654_case__364 x1 x5 x17 x33 x45 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_654_case__364(x1)(x5)(x17)(x33)(x45)(x56)(x)(st))(i)(xs)(st)+c__case_654_case__364 x1 x5 x17 x33 x45 x56 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_654_case__364")(x)++++c__case_655_case__365 x1 x5 x17 x33 x45 x43@((Curry.Module.Prelude.:<) x56 x57) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_654(x5)(x17)(x33)(x45)(x56)(x57)(x1)(st))(st)+c__case_655_case__365 x1 x5 x17 x33 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_655_case__365(x1)(x5)(x17)(x33)(x45)(x)(st))(i)(xs)(st)+c__case_655_case__365 x1 x5 x17 x33 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_655_case__365")(x)++++c__case_656_case__366 x1 x5 x17 x33 x43 x45 x55@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_655(x5)(x17)(x33)(x45)(x43)(x1)(st))(st)+c__case_656_case__366 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_656_case__366(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_656_case__366 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_656_case__366")(x)++++c__case_657_case__367 x1 x5 x17 x33 x43 x45 x55 x54 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x54)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_656(x5)(x17)(x33)(x43)(x45)(x55)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_658_case__368 x1 x5 x17 x33 x43 x45 x53@((Curry.Module.Prelude.:<) x54 x55) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_657(x5)(x17)(x33)(x43)(x45)(x55)(x54)(x1)(st))(st)+c__case_658_case__368 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_658_case__368(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_658_case__368 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_658_case__368")(x)++++c__case_659_case__369 x1 x5 x17 x33 x43 x45 x53 x52 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x52)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_658(x5)(x17)(x33)(x43)(x45)(x53)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_660_case__370 x1 x5 x17 x33 x43 x45 x51@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_659(x5)(x17)(x33)(x43)(x45)(x53)(x52)(x1)(st))(st)+c__case_660_case__370 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_660_case__370(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_660_case__370 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_660_case__370")(x)++++c__case_661_case__371 x1 x5 x17 x33 x43 x45 x51 x50 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x50)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_660(x5)(x17)(x33)(x43)(x45)(x51)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_662_case__372 x1 x5 x17 x33 x43 x45 x49@((Curry.Module.Prelude.:<) x50 x51) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_661(x5)(x17)(x33)(x43)(x45)(x51)(x50)(x1)(st))(st)+c__case_662_case__372 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_662_case__372(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_662_case__372 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_662_case__372")(x)++++c__case_663_case__373 x1 x5 x17 x33 x43 x45 x49 x48 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x48)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_662(x5)(x17)(x33)(x43)(x45)(x49)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_664_case__374 x1 x5 x17 x33 x43 x45 x47@((Curry.Module.Prelude.:<) x48 x49) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_663(x5)(x17)(x33)(x43)(x45)(x49)(x48)(x1)(st))(st)+c__case_664_case__374 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_664_case__374(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_664_case__374 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_664_case__374")(x)++++c__case_665_case__375 x1 x5 x17 x33 x43 x45 x47 x46 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x46)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_664(x5)(x17)(x33)(x43)(x45)(x47)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_666_case__376 x1 x5 x17 x33 x43 x45 x44@((Curry.Module.Prelude.:<) x46 x47) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_665(x5)(x17)(x33)(x43)(x45)(x47)(x46)(x1)(st))(st)+c__case_666_case__376 x1 x5 x17 x33 x43 x45 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_666_case__376(x1)(x5)(x17)(x33)(x43)(x45)(x)(st))(i)(xs)(st)+c__case_666_case__376 x1 x5 x17 x33 x43 x45 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_666_case__376")(x)++++c__case_667_case__377 x1 x5 x17 x33 x43 x42@(Curry.Module.Prelude.T2 x44 x45) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_666(x5)(x17)(x33)(x43)(x45)(x44)(x1)(st))(st)+c__case_667_case__377 x1 x5 x17 x33 x43 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_667_case__377(x1)(x5)(x17)(x33)(x43)(x)(st))(i)(xs)(st)+c__case_667_case__377 x1 x5 x17 x33 x43 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_667_case__377")(x)++++c__case_668_case__378 x1 x5 x17 x33 x31@((Curry.Module.Prelude.:<) x42 x43) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_667(x5)(x17)(x33)(x43)(x42)(x1)(st))(st)+c__case_668_case__378 x1 x5 x17 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_668_case__378(x1)(x5)(x17)(x33)(x)(st))(i)(xs)(st)+c__case_668_case__378 x1 x5 x17 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_668_case__378")(x)++++c__case_669_case__379 x1 x5 x17 x31 x33 x41@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_668(x5)(x17)(x33)(x31)(x1)(st))(st)+c__case_669_case__379 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_669_case__379(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_669_case__379 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_669_case__379")(x)++++c__case_670_case__380 x1 x5 x17 x31 x33 x41 x40 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x40)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_669(x5)(x17)(x31)(x33)(x41)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_671_case__381 x1 x5 x17 x31 x33 x39@((Curry.Module.Prelude.:<) x40 x41) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_670(x5)(x17)(x31)(x33)(x41)(x40)(x1)(st))(st)+c__case_671_case__381 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_671_case__381(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_671_case__381 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_671_case__381")(x)++++c__case_672_case__382 x1 x5 x17 x31 x33 x39 x38 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x38)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_671(x5)(x17)(x31)(x33)(x39)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_673_case__383 x1 x5 x17 x31 x33 x37@((Curry.Module.Prelude.:<) x38 x39) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_672(x5)(x17)(x31)(x33)(x39)(x38)(x1)(st))(st)+c__case_673_case__383 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_673_case__383(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_673_case__383 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_673_case__383")(x)++++c__case_674_case__384 x1 x5 x17 x31 x33 x37 x36 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x36)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_673(x5)(x17)(x31)(x33)(x37)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_675_case__385 x1 x5 x17 x31 x33 x35@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_674(x5)(x17)(x31)(x33)(x37)(x36)(x1)(st))(st)+c__case_675_case__385 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_675_case__385(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_675_case__385 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_675_case__385")(x)++++c__case_676_case__386 x1 x5 x17 x31 x33 x35 x34 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x34)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_675(x5)(x17)(x31)(x33)(x35)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_677_case__387 x1 x5 x17 x31 x33 x32@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_676(x5)(x17)(x31)(x33)(x35)(x34)(x1)(st))(st)+c__case_677_case__387 x1 x5 x17 x31 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_677_case__387(x1)(x5)(x17)(x31)(x33)(x)(st))(i)(xs)(st)+c__case_677_case__387 x1 x5 x17 x31 x33 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_677_case__387")(x)++++c__case_678_case__388 x1 x5 x17 x31 x30@(Curry.Module.Prelude.T2 x32 x33) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_677(x5)(x17)(x31)(x33)(x32)(x1)(st))(st)+c__case_678_case__388 x1 x5 x17 x31 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_678_case__388(x1)(x5)(x17)(x31)(x)(st))(i)(xs)(st)+c__case_678_case__388 x1 x5 x17 x31 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_678_case__388")(x)++++c__case_679_case__389 x1 x5 x17 x15@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_678(x5)(x17)(x31)(x30)(x1)(st))(st)+c__case_679_case__389 x1 x5 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_679_case__389(x1)(x5)(x17)(x)(st))(i)(xs)(st)+c__case_679_case__389 x1 x5 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_679_case__389")(x)++++c__case_680_case__390 x1 x5 x15 x17 x29@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_679(x5)(x17)(x15)(x1)(st))(st)+c__case_680_case__390 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_680_case__390(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_680_case__390 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_680_case__390")(x)++++c__case_681_case__391 x1 x5 x15 x17 x29 x28 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x28)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_680(x5)(x15)(x17)(x29)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_682_case__392 x1 x5 x15 x17 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_681(x5)(x15)(x17)(x29)(x28)(x1)(st))(st)+c__case_682_case__392 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_682_case__392(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_682_case__392 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_682_case__392")(x)++++c__case_683_case__393 x1 x5 x15 x17 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_682(x5)(x15)(x17)(x27)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_684_case__394 x1 x5 x15 x17 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_683(x5)(x15)(x17)(x27)(x26)(x1)(st))(st)+c__case_684_case__394 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_684_case__394(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_684_case__394 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_684_case__394")(x)++++c__case_685_case__395 x1 x5 x15 x17 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_684(x5)(x15)(x17)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_686_case__396 x1 x5 x15 x17 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_685(x5)(x15)(x17)(x25)(x24)(x1)(st))(st)+c__case_686_case__396 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_686_case__396(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_686_case__396 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_686_case__396")(x)++++c__case_687_case__397 x1 x5 x15 x17 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_686(x5)(x15)(x17)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_688_case__398 x1 x5 x15 x17 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_687(x5)(x15)(x17)(x23)(x22)(x1)(st))(st)+c__case_688_case__398 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_688_case__398(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_688_case__398 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_688_case__398")(x)++++c__case_689_case__399 x1 x5 x15 x17 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_688(x5)(x15)(x17)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_690_case__400 x1 x5 x15 x17 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_689(x5)(x15)(x17)(x21)(x20)(x1)(st))(st)+c__case_690_case__400 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_690_case__400(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_690_case__400 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_690_case__400")(x)++++c__case_691_case__401 x1 x5 x15 x17 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_690(x5)(x15)(x17)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_692_case__402 x1 x5 x15 x17 x16@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_691(x5)(x15)(x17)(x19)(x18)(x1)(st))(st)+c__case_692_case__402 x1 x5 x15 x17 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_692_case__402(x1)(x5)(x15)(x17)(x)(st))(i)(xs)(st)+c__case_692_case__402 x1 x5 x15 x17 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_692_case__402")(x)++++c__case_693_case__403 x1 x5 x15 x14@(Curry.Module.Prelude.T2 x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_692(x5)(x15)(x17)(x16)(x1)(st))(st)+c__case_693_case__403 x1 x5 x15 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_693_case__403(x1)(x5)(x15)(x)(st))(i)(xs)(st)+c__case_693_case__403 x1 x5 x15 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_693_case__403")(x)++++c__case_694_case__404 x1 x5 x4@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_693(x5)(x15)(x14)(x1)(st))(st)+c__case_694_case__404 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_694_case__404(x1)(x5)(x)(st))(i)(xs)(st)+c__case_694_case__404 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_694_case__404")(x)++++c__case_695_case__405 x1 x4 x5 x13@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_694(x5)(x4)(x1)(st))(st)+c__case_695_case__405 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_695_case__405(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_695_case__405 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_695_case__405")(x)++++c__case_696_case__406 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_695(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_697_case__407 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_696(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_697_case__407 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_697_case__407(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_697_case__407 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_697_case__407")(x)++++c__case_698_case__408 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_697(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_699_case__409 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_698(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_699_case__409 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_699_case__409(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_699_case__409 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_699_case__409")(x)++++c__case_700_case__410 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_699(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_701_case__411 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_700(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_701_case__411 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_701_case__411(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_701_case__411 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_701_case__411")(x)++++c__case_702_case__412 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_701(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_703_case__413 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_702(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_703_case__413 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_703_case__413(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_703_case__413 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_703_case__413")(x)++++c__case_704_case__414 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_703(x4)(x5)(x3)(x1)(st))(st)+c__case_704_case__414 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_704_case__414(x1)(x)(st))(i)(xs)(st)+c__case_704_case__414 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_704_case__414")(x)++++c__case_643_case__415 x1 x5 x4@Curry.Module.Prelude.List st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleRead.c_readNat(Curry.Module.OracleXML.c_textOfXml(x5)(x1)(st))(x6)(st))(st)+c__case_643_case__415 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_643_case__415(x1)(x5)(x)(st))(i)(xs)(st)+c__case_643_case__415 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_643_case__415")(x)++++c__case_644_case__416 x1 x4 x5 x13@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_643(x5)(x4)(x1)(st))(st)+c__case_644_case__416 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_644_case__416(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_644_case__416 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_644_case__416")(x)++++c__case_645_case__417 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_644(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_646_case__418 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_645(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_646_case__418 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_646_case__418(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_646_case__418 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_646_case__418")(x)++++c__case_647_case__419 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_646(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_648_case__420 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_647(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_648_case__420 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_648_case__420(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_648_case__420 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_648_case__420")(x)++++c__case_649_case__421 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_648(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_650_case__422 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_649(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_650_case__422 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_650_case__422(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_650_case__422 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_650_case__422")(x)++++c__case_651_case__423 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_650(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_652_case__424 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_651(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_652_case__424 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_652_case__424(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_652_case__424 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_652_case__424")(x)++++c__case_653_case__425 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_652(x4)(x5)(x3)(x1)(st))(st)+c__case_653_case__425 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_653_case__425(x1)(x)(st))(i)(xs)(st)+c__case_653_case__425 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_653_case__425")(x)++++c__case_624_case__426 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FlatCurry.C_External(Curry.Module.OracleXML.c_textOfXml(x5)(x1)(st)))(st)+c__case_624_case__426 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_624_case__426(x1)(x5)(x)(st))(i)(xs)(st)+c__case_624_case__426 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_624_case__426")(x)++++c__case_625_case__427 x1 x4 x5 x21@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_624(x5)(x4)(x1)(st))(st)+c__case_625_case__427 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_625_case__427(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_625_case__427 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_625_case__427")(x)++++c__case_626_case__428 x1 x4 x5 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_625(x4)(x5)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_627_case__429 x1 x4 x5 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_626(x4)(x5)(x21)(x20)(x1)(st))(st)+c__case_627_case__429 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_627_case__429(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_627_case__429 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_627_case__429")(x)++++c__case_628_case__430 x1 x4 x5 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_627(x4)(x5)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_629_case__431 x1 x4 x5 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_628(x4)(x5)(x19)(x18)(x1)(st))(st)+c__case_629_case__431 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_629_case__431(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_629_case__431 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_629_case__431")(x)++++c__case_630_case__432 x1 x4 x5 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_629(x4)(x5)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_631_case__433 x1 x4 x5 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_630(x4)(x5)(x17)(x16)(x1)(st))(st)+c__case_631_case__433 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_631_case__433(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_631_case__433 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_631_case__433")(x)++++c__case_632_case__434 x1 x4 x5 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_631(x4)(x5)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_633_case__435 x1 x4 x5 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_632(x4)(x5)(x15)(x14)(x1)(st))(st)+c__case_633_case__435 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_633_case__435(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_633_case__435 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_633_case__435")(x)++++c__case_634_case__436 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_633(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_635_case__437 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_634(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_635_case__437 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_635_case__437(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_635_case__437 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_635_case__437")(x)++++c__case_636_case__438 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_635(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_637_case__439 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_636(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_637_case__439 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_637_case__439(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_637_case__439 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_637_case__439")(x)++++c__case_638_case__440 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('x'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_637(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_639_case__441 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_638(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_639_case__441 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_639_case__441(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_639_case__441 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_639_case__441")(x)++++c__case_593_case__442 x1 x32 x50 x40@Curry.Module.Prelude.List st = let {x51 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x51)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Rule(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2var))))(x32)(x1)(st))(Curry.Module.OracleFlatCurryXML.c_flatx2exp(x50)(x51)(st)))(st)+c__case_593_case__442 x1 x32 x50 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_593_case__442(x1)(x32)(x50)(x)(st))(i)(xs)(st)+c__case_593_case__442 x1 x32 x50 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_593_case__442")(x)++++c__case_594_case__443 x1 x32 x40 x50 x51@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_593(x32)(x50)(x40)(x1)(st))(st)+c__case_594_case__443 x1 x32 x40 x50 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_594_case__443(x1)(x32)(x40)(x50)(x)(st))(i)(xs)(st)+c__case_594_case__443 x1 x32 x40 x50 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_594_case__443")(x)++++c__case_595_case__444 x1 x32 x40 x43@((Curry.Module.Prelude.:<) x50 x51) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_594(x32)(x40)(x50)(x51)(x1)(st))(st)+c__case_595_case__444 x1 x32 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_595_case__444(x1)(x32)(x40)(x)(st))(i)(xs)(st)+c__case_595_case__444 x1 x32 x40 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_595_case__444")(x)++++c__case_596_case__445 x1 x32 x40 x43 x42@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_595(x32)(x40)(x43)(x1)(st))(st)+c__case_596_case__445 x1 x32 x40 x43 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_596_case__445(x1)(x32)(x40)(x43)(x)(st))(i)(xs)(st)+c__case_596_case__445 x1 x32 x40 x43 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_596_case__445")(x)++++c__case_597_case__446 x1 x32 x40 x42 x43 x49@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_596(x32)(x40)(x43)(x42)(x1)(st))(st)+c__case_597_case__446 x1 x32 x40 x42 x43 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_597_case__446(x1)(x32)(x40)(x42)(x43)(x)(st))(i)(xs)(st)+c__case_597_case__446 x1 x32 x40 x42 x43 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_597_case__446")(x)++++c__case_598_case__447 x1 x32 x40 x42 x43 x49 x48 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x48)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_597(x32)(x40)(x42)(x43)(x49)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_599_case__448 x1 x32 x40 x42 x43 x47@((Curry.Module.Prelude.:<) x48 x49) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_598(x32)(x40)(x42)(x43)(x49)(x48)(x1)(st))(st)+c__case_599_case__448 x1 x32 x40 x42 x43 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_599_case__448(x1)(x32)(x40)(x42)(x43)(x)(st))(i)(xs)(st)+c__case_599_case__448 x1 x32 x40 x42 x43 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_599_case__448")(x)++++c__case_600_case__449 x1 x32 x40 x42 x43 x47 x46 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x46)(Curry.Module.Prelude.C_Char('h'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_599(x32)(x40)(x42)(x43)(x47)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_601_case__450 x1 x32 x40 x42 x43 x45@((Curry.Module.Prelude.:<) x46 x47) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_600(x32)(x40)(x42)(x43)(x47)(x46)(x1)(st))(st)+c__case_601_case__450 x1 x32 x40 x42 x43 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_601_case__450(x1)(x32)(x40)(x42)(x43)(x)(st))(i)(xs)(st)+c__case_601_case__450 x1 x32 x40 x42 x43 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_601_case__450")(x)++++c__case_602_case__451 x1 x32 x40 x42 x43 x45 x44 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x44)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_601(x32)(x40)(x42)(x43)(x45)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_603_case__452 x1 x32 x40 x42 x43 x41@((Curry.Module.Prelude.:<) x44 x45) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_602(x32)(x40)(x42)(x43)(x45)(x44)(x1)(st))(st)+c__case_603_case__452 x1 x32 x40 x42 x43 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_603_case__452(x1)(x32)(x40)(x42)(x43)(x)(st))(i)(xs)(st)+c__case_603_case__452 x1 x32 x40 x42 x43 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_603_case__452")(x)++++c__case_604_case__453 x1 x32 x40 x39@(Curry.Module.XML.C_XElem x41 x42 x43) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_603(x32)(x40)(x42)(x43)(x41)(x1)(st))(st)+c__case_604_case__453 x1 x32 x40 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_604_case__453(x1)(x32)(x40)(x)(st))(i)(xs)(st)+c__case_604_case__453 x1 x32 x40 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_604_case__453")(x)++++c__case_605_case__454 x1 x32 x29@((Curry.Module.Prelude.:<) x39 x40) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_604(x32)(x40)(x39)(x1)(st))(st)+c__case_605_case__454 x1 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_605_case__454(x1)(x32)(x)(st))(i)(xs)(st)+c__case_605_case__454 x1 x32 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_605_case__454")(x)++++c__case_606_case__455 x1 x29 x32 x31@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_605(x32)(x29)(x1)(st))(st)+c__case_606_case__455 x1 x29 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_606_case__455(x1)(x29)(x32)(x)(st))(i)(xs)(st)+c__case_606_case__455 x1 x29 x32 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_606_case__455")(x)++++c__case_607_case__456 x1 x29 x31 x32 x38@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_606(x29)(x32)(x31)(x1)(st))(st)+c__case_607_case__456 x1 x29 x31 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_607_case__456(x1)(x29)(x31)(x32)(x)(st))(i)(xs)(st)+c__case_607_case__456 x1 x29 x31 x32 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_607_case__456")(x)++++c__case_608_case__457 x1 x29 x31 x32 x38 x37 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x37)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_607(x29)(x31)(x32)(x38)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_609_case__458 x1 x29 x31 x32 x36@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_608(x29)(x31)(x32)(x38)(x37)(x1)(st))(st)+c__case_609_case__458 x1 x29 x31 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_609_case__458(x1)(x29)(x31)(x32)(x)(st))(i)(xs)(st)+c__case_609_case__458 x1 x29 x31 x32 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_609_case__458")(x)++++c__case_610_case__459 x1 x29 x31 x32 x36 x35 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x35)(Curry.Module.Prelude.C_Char('h'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_609(x29)(x31)(x32)(x36)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_611_case__460 x1 x29 x31 x32 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_610(x29)(x31)(x32)(x36)(x35)(x1)(st))(st)+c__case_611_case__460 x1 x29 x31 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_611_case__460(x1)(x29)(x31)(x32)(x)(st))(i)(xs)(st)+c__case_611_case__460 x1 x29 x31 x32 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_611_case__460")(x)++++c__case_612_case__461 x1 x29 x31 x32 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_611(x29)(x31)(x32)(x34)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_613_case__462 x1 x29 x31 x32 x30@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_612(x29)(x31)(x32)(x34)(x33)(x1)(st))(st)+c__case_613_case__462 x1 x29 x31 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_613_case__462(x1)(x29)(x31)(x32)(x)(st))(i)(xs)(st)+c__case_613_case__462 x1 x29 x31 x32 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_613_case__462")(x)++++c__case_614_case__463 x1 x29 x28@(Curry.Module.XML.C_XElem x30 x31 x32) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_613(x29)(x31)(x32)(x30)(x1)(st))(st)+c__case_614_case__463 x1 x29 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_614_case__463(x1)(x29)(x)(st))(i)(xs)(st)+c__case_614_case__463 x1 x29 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_614_case__463")(x)++++c__case_615_case__464 x1 x5@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_614(x29)(x28)(x1)(st))(st)+c__case_615_case__464 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_615_case__464(x1)(x)(st))(i)(xs)(st)+c__case_615_case__464 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_615_case__464")(x)++++c__case_616_case__465 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_615(x5)(x1)(st))(st)+c__case_616_case__465 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_616_case__465(x1)(x5)(x)(st))(i)(xs)(st)+c__case_616_case__465 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_616_case__465")(x)++++c__case_617_case__466 x1 x4 x5 x27@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_616(x5)(x4)(x1)(st))(st)+c__case_617_case__466 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_617_case__466(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_617_case__466 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_617_case__466")(x)++++c__case_618_case__467 x1 x4 x5 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_617(x4)(x5)(x27)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_619_case__468 x1 x4 x5 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_618(x4)(x5)(x27)(x26)(x1)(st))(st)+c__case_619_case__468 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_619_case__468(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_619_case__468 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_619_case__468")(x)++++c__case_620_case__469 x1 x4 x5 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_619(x4)(x5)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_621_case__470 x1 x4 x5 x23@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_620(x4)(x5)(x25)(x24)(x1)(st))(st)+c__case_621_case__470 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_621_case__470(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_621_case__470 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_621_case__470")(x)++++c__case_622_case__471 x1 x4 x5 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_621(x4)(x5)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_623_case__472 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_622(x4)(x5)(x23)(x22)(x1)(st))(st)+c__case_623_case__472 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_623_case__472(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_623_case__472 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_623_case__472")(x)++++c__case_640_case__473 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_639(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_623(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_641_case__474 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_640(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_641_case__474 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_641_case__474(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_641_case__474 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_641_case__474")(x)++++c__case_642_case__475 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_641(x4)(x5)(x3)(x1)(st))(st)+c__case_642_case__475 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_642_case__475(x1)(x)(st))(i)(xs)(st)+c__case_642_case__475 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_642_case__475")(x)++++c__case_584_case__476 x1 x5 x4@Curry.Module.Prelude.List st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleRead.c_readNat(Curry.Module.OracleXML.c_textOfXml(x5)(x1)(st))(x6)(st))(st)+c__case_584_case__476 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_584_case__476(x1)(x5)(x)(st))(i)(xs)(st)+c__case_584_case__476 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_584_case__476")(x)++++c__case_585_case__477 x1 x4 x5 x11@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_584(x5)(x4)(x1)(st))(st)+c__case_585_case__477 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_585_case__477(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_585_case__477 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_585_case__477")(x)++++c__case_586_case__478 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_585(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_587_case__479 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_586(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_587_case__479 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_587_case__479(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_587_case__479 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_587_case__479")(x)++++c__case_588_case__480 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_587(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_589_case__481 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_588(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_589_case__481 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_589_case__481(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_589_case__481 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_589_case__481")(x)++++c__case_590_case__482 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_589(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_591_case__483 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_590(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_591_case__483 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_591_case__483(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_591_case__483 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_591_case__483")(x)++++c__case_592_case__484 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_591(x4)(x5)(x3)(x1)(st))(st)+c__case_592_case__484 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_592_case__484(x1)(x)(st))(i)(xs)(st)+c__case_592_case__484 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_592_case__484")(x)++++c__case_575_case__485 x1 x5 x4@Curry.Module.Prelude.List st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Var(Curry.Module.OracleRead.c_readNat(Curry.Module.OracleXML.c_textOfXml(x5)(x1)(st))(x6)(st)))(st)+c__case_575_case__485 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_575_case__485(x1)(x5)(x)(st))(i)(xs)(st)+c__case_575_case__485 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_575_case__485")(x)++++c__case_576_case__486 x1 x4 x5 x11@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_575(x5)(x4)(x1)(st))(st)+c__case_576_case__486 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_576_case__486(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_576_case__486 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_576_case__486")(x)++++c__case_577_case__487 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_576(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_578_case__488 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_577(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_578_case__488 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_578_case__488(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_578_case__488 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_578_case__488")(x)++++c__case_579_case__489 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_578(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_580_case__490 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_579(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_580_case__490 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_580_case__490(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_580_case__490 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_580_case__490")(x)++++c__case_567_case__491 x1 x16 x17@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FlatCurry.C_Lit(Curry.Module.OracleFlatCurryXML.c_flatx2lit(x16)(x1)(st)))(st)+c__case_567_case__491 x1 x16 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_567_case__491(x1)(x16)(x)(st))(i)(xs)(st)+c__case_567_case__491 x1 x16 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_567_case__491")(x)++++c__case_568_case__492 x1 x5@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_567(x16)(x17)(x1)(st))(st)+c__case_568_case__492 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_568_case__492(x1)(x)(st))(i)(xs)(st)+c__case_568_case__492 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_568_case__492")(x)++++c__case_569_case__493 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_568(x5)(x1)(st))(st)+c__case_569_case__493 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_569_case__493(x1)(x5)(x)(st))(i)(xs)(st)+c__case_569_case__493 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_569_case__493")(x)++++c__case_570_case__494 x1 x4 x5 x15@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_569(x5)(x4)(x1)(st))(st)+c__case_570_case__494 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_570_case__494(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_570_case__494 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_570_case__494")(x)++++c__case_571_case__495 x1 x4 x5 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_570(x4)(x5)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_572_case__496 x1 x4 x5 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_571(x4)(x5)(x15)(x14)(x1)(st))(st)+c__case_572_case__496 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_572_case__496(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_572_case__496 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_572_case__496")(x)++++c__case_563_case__497 x1 x5 x4@Curry.Module.Prelude.List st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.OracleFlatCurryXML.c_flatx2let(x5)(x1)(st)} in let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x25)(Curry.Module.FlatCurry.C_Let(Curry.Module.OracleFlatCurryXML.c_flatx2exp'46_'35selFP3'35bindings(x20)(x23)(st))(Curry.Module.OracleFlatCurryXML.c_flatx2exp'46_'35selFP4'35exp(x20)(x24)(st)))(st))(st))(st))(st)+c__case_563_case__497 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_563_case__497(x1)(x5)(x)(st))(i)(xs)(st)+c__case_563_case__497 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_563_case__497")(x)++++c__case_556_case__498 x1 x5 x4@Curry.Module.Prelude.List st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List))(let {x29 = Curry.Module.OracleFlatCurryXML.c_flatx2let(x5)(x1)(st)} in let {x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x32)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List))(let {x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x33)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x34)(Curry.Module.FlatCurry.C_Let(Curry.Module.OracleFlatCurryXML.c_flatx2exp'46_'35selFP6'35bindings(x29)(x32)(st))(Curry.Module.OracleFlatCurryXML.c_flatx2exp'46_'35selFP7'35exp(x29)(x33)(st)))(st))(st))(st))(st)+c__case_556_case__498 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_556_case__498(x1)(x5)(x)(st))(i)(xs)(st)+c__case_556_case__498 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_556_case__498")(x)++++c__case_557_case__499 x1 x4 x5 x28@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_556(x5)(x4)(x1)(st))(st)+c__case_557_case__499 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_557_case__499(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_557_case__499 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_557_case__499")(x)++++c__case_558_case__500 x1 x4 x5 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_557(x4)(x5)(x28)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_559_case__501 x1 x4 x5 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_558(x4)(x5)(x28)(x27)(x1)(st))(st)+c__case_559_case__501 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_559_case__501(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_559_case__501 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_559_case__501")(x)++++c__case_560_case__502 x1 x4 x5 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_559(x4)(x5)(x26)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_561_case__503 x1 x4 x5 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_560(x4)(x5)(x26)(x25)(x1)(st))(st)+c__case_561_case__503 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_561_case__503(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_561_case__503 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_561_case__503")(x)++++c__case_562_case__504 x1 x4 x5 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_561(x4)(x5)(x24)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_564_case__505 x1 x4 x5 x19@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_563(x5)(x4)(x1)(st))(st)+c__case_564_case__505 x1 x4 x5 x19@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_562(x4)(x5)(x24)(x23)(x1)(st))(st)+c__case_564_case__505 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_564_case__505(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_564_case__505 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_564_case__505")(x)++++c__case_565_case__506 x1 x4 x5 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_564(x4)(x5)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_566_case__507 x1 x4 x5 x13@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_565(x4)(x5)(x19)(x18)(x1)(st))(st)+c__case_566_case__507 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_566_case__507(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_566_case__507 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_566_case__507")(x)++++c__case_573_case__508 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_572(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_566(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_574_case__509 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_573(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_574_case__509 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_574_case__509(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_574_case__509 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_574_case__509")(x)++++c__case_514_case__510 x1 x5 x49 x65 x63@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_FuncCall)(Curry.Module.Prelude.T2(x49)(x65))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2exp))))(x5)(x1)(st)))(st)+c__case_514_case__510 x1 x5 x49 x65 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_514_case__510(x1)(x5)(x49)(x65)(x)(st))(i)(xs)(st)+c__case_514_case__510 x1 x5 x49 x65 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_514_case__510")(x)++++c__case_515_case__511 x1 x5 x49 x63 x65 x73@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_514(x5)(x49)(x65)(x63)(x1)(st))(st)+c__case_515_case__511 x1 x5 x49 x63 x65 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_515_case__511(x1)(x5)(x49)(x63)(x65)(x)(st))(i)(xs)(st)+c__case_515_case__511 x1 x5 x49 x63 x65 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_515_case__511")(x)++++c__case_516_case__512 x1 x5 x49 x63 x65 x73 x72 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x72)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_515(x5)(x49)(x63)(x65)(x73)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_517_case__513 x1 x5 x49 x63 x65 x71@((Curry.Module.Prelude.:<) x72 x73) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_516(x5)(x49)(x63)(x65)(x73)(x72)(x1)(st))(st)+c__case_517_case__513 x1 x5 x49 x63 x65 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_517_case__513(x1)(x5)(x49)(x63)(x65)(x)(st))(i)(xs)(st)+c__case_517_case__513 x1 x5 x49 x63 x65 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_517_case__513")(x)++++c__case_518_case__514 x1 x5 x49 x63 x65 x71 x70 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x70)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_517(x5)(x49)(x63)(x65)(x71)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_519_case__515 x1 x5 x49 x63 x65 x69@((Curry.Module.Prelude.:<) x70 x71) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_518(x5)(x49)(x63)(x65)(x71)(x70)(x1)(st))(st)+c__case_519_case__515 x1 x5 x49 x63 x65 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_519_case__515(x1)(x5)(x49)(x63)(x65)(x)(st))(i)(xs)(st)+c__case_519_case__515 x1 x5 x49 x63 x65 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_519_case__515")(x)++++c__case_520_case__516 x1 x5 x49 x63 x65 x69 x68 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x68)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_519(x5)(x49)(x63)(x65)(x69)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_521_case__517 x1 x5 x49 x63 x65 x67@((Curry.Module.Prelude.:<) x68 x69) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_520(x5)(x49)(x63)(x65)(x69)(x68)(x1)(st))(st)+c__case_521_case__517 x1 x5 x49 x63 x65 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_521_case__517(x1)(x5)(x49)(x63)(x65)(x)(st))(i)(xs)(st)+c__case_521_case__517 x1 x5 x49 x63 x65 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_521_case__517")(x)++++c__case_522_case__518 x1 x5 x49 x63 x65 x67 x66 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x66)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_521(x5)(x49)(x63)(x65)(x67)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_523_case__519 x1 x5 x49 x63 x65 x64@((Curry.Module.Prelude.:<) x66 x67) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_522(x5)(x49)(x63)(x65)(x67)(x66)(x1)(st))(st)+c__case_523_case__519 x1 x5 x49 x63 x65 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_523_case__519(x1)(x5)(x49)(x63)(x65)(x)(st))(i)(xs)(st)+c__case_523_case__519 x1 x5 x49 x63 x65 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_523_case__519")(x)++++c__case_524_case__520 x1 x5 x49 x63 x62@(Curry.Module.Prelude.T2 x64 x65) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_523(x5)(x49)(x63)(x65)(x64)(x1)(st))(st)+c__case_524_case__520 x1 x5 x49 x63 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_524_case__520(x1)(x5)(x49)(x63)(x)(st))(i)(xs)(st)+c__case_524_case__520 x1 x5 x49 x63 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_524_case__520")(x)++++c__case_525_case__521 x1 x5 x49 x47@((Curry.Module.Prelude.:<) x62 x63) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_524(x5)(x49)(x63)(x62)(x1)(st))(st)+c__case_525_case__521 x1 x5 x49 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_525_case__521(x1)(x5)(x49)(x)(st))(i)(xs)(st)+c__case_525_case__521 x1 x5 x49 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_525_case__521")(x)++++c__case_526_case__522 x1 x5 x47 x49 x61@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_525(x5)(x49)(x47)(x1)(st))(st)+c__case_526_case__522 x1 x5 x47 x49 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_526_case__522(x1)(x5)(x47)(x49)(x)(st))(i)(xs)(st)+c__case_526_case__522 x1 x5 x47 x49 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_526_case__522")(x)++++c__case_527_case__523 x1 x5 x47 x49 x61 x60 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x60)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_526(x5)(x47)(x49)(x61)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_528_case__524 x1 x5 x47 x49 x59@((Curry.Module.Prelude.:<) x60 x61) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_527(x5)(x47)(x49)(x61)(x60)(x1)(st))(st)+c__case_528_case__524 x1 x5 x47 x49 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_528_case__524(x1)(x5)(x47)(x49)(x)(st))(i)(xs)(st)+c__case_528_case__524 x1 x5 x47 x49 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_528_case__524")(x)++++c__case_529_case__525 x1 x5 x47 x49 x59 x58 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x58)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_528(x5)(x47)(x49)(x59)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_530_case__526 x1 x5 x47 x49 x57@((Curry.Module.Prelude.:<) x58 x59) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_529(x5)(x47)(x49)(x59)(x58)(x1)(st))(st)+c__case_530_case__526 x1 x5 x47 x49 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_530_case__526(x1)(x5)(x47)(x49)(x)(st))(i)(xs)(st)+c__case_530_case__526 x1 x5 x47 x49 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_530_case__526")(x)++++c__case_531_case__527 x1 x5 x47 x49 x57 x56 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x56)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_530(x5)(x47)(x49)(x57)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_532_case__528 x1 x5 x47 x49 x55@((Curry.Module.Prelude.:<) x56 x57) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_531(x5)(x47)(x49)(x57)(x56)(x1)(st))(st)+c__case_532_case__528 x1 x5 x47 x49 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_532_case__528(x1)(x5)(x47)(x49)(x)(st))(i)(xs)(st)+c__case_532_case__528 x1 x5 x47 x49 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_532_case__528")(x)++++c__case_533_case__529 x1 x5 x47 x49 x55 x54 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x54)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_532(x5)(x47)(x49)(x55)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_534_case__530 x1 x5 x47 x49 x53@((Curry.Module.Prelude.:<) x54 x55) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_533(x5)(x47)(x49)(x55)(x54)(x1)(st))(st)+c__case_534_case__530 x1 x5 x47 x49 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_534_case__530(x1)(x5)(x47)(x49)(x)(st))(i)(xs)(st)+c__case_534_case__530 x1 x5 x47 x49 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_534_case__530")(x)++++c__case_535_case__531 x1 x5 x47 x49 x53 x52 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x52)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_534(x5)(x47)(x49)(x53)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_536_case__532 x1 x5 x47 x49 x51@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_535(x5)(x47)(x49)(x53)(x52)(x1)(st))(st)+c__case_536_case__532 x1 x5 x47 x49 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_536_case__532(x1)(x5)(x47)(x49)(x)(st))(i)(xs)(st)+c__case_536_case__532 x1 x5 x47 x49 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_536_case__532")(x)++++c__case_537_case__533 x1 x5 x47 x49 x51 x50 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x50)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_536(x5)(x47)(x49)(x51)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_538_case__534 x1 x5 x47 x49 x48@((Curry.Module.Prelude.:<) x50 x51) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_537(x5)(x47)(x49)(x51)(x50)(x1)(st))(st)+c__case_538_case__534 x1 x5 x47 x49 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_538_case__534(x1)(x5)(x47)(x49)(x)(st))(i)(xs)(st)+c__case_538_case__534 x1 x5 x47 x49 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_538_case__534")(x)++++c__case_539_case__535 x1 x5 x47 x46@(Curry.Module.Prelude.T2 x48 x49) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_538(x5)(x47)(x49)(x48)(x1)(st))(st)+c__case_539_case__535 x1 x5 x47 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_539_case__535(x1)(x5)(x47)(x)(st))(i)(xs)(st)+c__case_539_case__535 x1 x5 x47 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_539_case__535")(x)++++c__case_540_case__536 x1 x5 x4@((Curry.Module.Prelude.:<) x46 x47) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_539(x5)(x47)(x46)(x1)(st))(st)+c__case_540_case__536 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_540_case__536(x1)(x5)(x)(st))(i)(xs)(st)+c__case_540_case__536 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_540_case__536")(x)++++c__case_541_case__537 x1 x4 x5 x45@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_540(x5)(x4)(x1)(st))(st)+c__case_541_case__537 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_541_case__537(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_541_case__537 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_541_case__537")(x)++++c__case_542_case__538 x1 x4 x5 x45 x44 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x44)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_541(x4)(x5)(x45)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_543_case__539 x1 x4 x5 x43@((Curry.Module.Prelude.:<) x44 x45) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_542(x4)(x5)(x45)(x44)(x1)(st))(st)+c__case_543_case__539 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_543_case__539(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_543_case__539 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_543_case__539")(x)++++c__case_544_case__540 x1 x4 x5 x43 x42 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x42)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_543(x4)(x5)(x43)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_545_case__541 x1 x4 x5 x41@((Curry.Module.Prelude.:<) x42 x43) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_544(x4)(x5)(x43)(x42)(x1)(st))(st)+c__case_545_case__541 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_545_case__541(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_545_case__541 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_545_case__541")(x)++++c__case_546_case__542 x1 x4 x5 x41 x40 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x40)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_545(x4)(x5)(x41)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_547_case__543 x1 x4 x5 x39@((Curry.Module.Prelude.:<) x40 x41) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_546(x4)(x5)(x41)(x40)(x1)(st))(st)+c__case_547_case__543 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_547_case__543(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_547_case__543 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_547_case__543")(x)++++c__case_455_case__544 x1 x5 x91 x107 x119 x117@Curry.Module.Prelude.List st = let {x120 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x120)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_FuncPartCall(Curry.Module.OracleRead.c_readNat(x119)(x1)(st)))(Curry.Module.Prelude.T2(x91)(x107))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2exp))))(x5)(x120)(st)))(st)+c__case_455_case__544 x1 x5 x91 x107 x119 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_455_case__544(x1)(x5)(x91)(x107)(x119)(x)(st))(i)(xs)(st)+c__case_455_case__544 x1 x5 x91 x107 x119 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_455_case__544")(x)++++c__case_456_case__545 x1 x5 x91 x107 x117 x119 x133@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_455(x5)(x91)(x107)(x119)(x117)(x1)(st))(st)+c__case_456_case__545 x1 x5 x91 x107 x117 x119 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_456_case__545(x1)(x5)(x91)(x107)(x117)(x119)(x)(st))(i)(xs)(st)+c__case_456_case__545 x1 x5 x91 x107 x117 x119 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_456_case__545")(x)++++c__case_457_case__546 x1 x5 x91 x107 x117 x119 x133 x132 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x132)(Curry.Module.Prelude.C_Char('g'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_456(x5)(x91)(x107)(x117)(x119)(x133)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_458_case__547 x1 x5 x91 x107 x117 x119 x131@((Curry.Module.Prelude.:<) x132 x133) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_457(x5)(x91)(x107)(x117)(x119)(x133)(x132)(x1)(st))(st)+c__case_458_case__547 x1 x5 x91 x107 x117 x119 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_458_case__547(x1)(x5)(x91)(x107)(x117)(x119)(x)(st))(i)(xs)(st)+c__case_458_case__547 x1 x5 x91 x107 x117 x119 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_458_case__547")(x)++++c__case_459_case__548 x1 x5 x91 x107 x117 x119 x131 x130 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x130)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_458(x5)(x91)(x107)(x117)(x119)(x131)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_460_case__549 x1 x5 x91 x107 x117 x119 x129@((Curry.Module.Prelude.:<) x130 x131) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_459(x5)(x91)(x107)(x117)(x119)(x131)(x130)(x1)(st))(st)+c__case_460_case__549 x1 x5 x91 x107 x117 x119 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_460_case__549(x1)(x5)(x91)(x107)(x117)(x119)(x)(st))(i)(xs)(st)+c__case_460_case__549 x1 x5 x91 x107 x117 x119 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_460_case__549")(x)++++c__case_461_case__550 x1 x5 x91 x107 x117 x119 x129 x128 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x128)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_460(x5)(x91)(x107)(x117)(x119)(x129)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_462_case__551 x1 x5 x91 x107 x117 x119 x127@((Curry.Module.Prelude.:<) x128 x129) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_461(x5)(x91)(x107)(x117)(x119)(x129)(x128)(x1)(st))(st)+c__case_462_case__551 x1 x5 x91 x107 x117 x119 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_462_case__551(x1)(x5)(x91)(x107)(x117)(x119)(x)(st))(i)(xs)(st)+c__case_462_case__551 x1 x5 x91 x107 x117 x119 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_462_case__551")(x)++++c__case_463_case__552 x1 x5 x91 x107 x117 x119 x127 x126 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x126)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_462(x5)(x91)(x107)(x117)(x119)(x127)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_464_case__553 x1 x5 x91 x107 x117 x119 x125@((Curry.Module.Prelude.:<) x126 x127) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_463(x5)(x91)(x107)(x117)(x119)(x127)(x126)(x1)(st))(st)+c__case_464_case__553 x1 x5 x91 x107 x117 x119 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_464_case__553(x1)(x5)(x91)(x107)(x117)(x119)(x)(st))(i)(xs)(st)+c__case_464_case__553 x1 x5 x91 x107 x117 x119 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_464_case__553")(x)++++c__case_465_case__554 x1 x5 x91 x107 x117 x119 x125 x124 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x124)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_464(x5)(x91)(x107)(x117)(x119)(x125)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_466_case__555 x1 x5 x91 x107 x117 x119 x123@((Curry.Module.Prelude.:<) x124 x125) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_465(x5)(x91)(x107)(x117)(x119)(x125)(x124)(x1)(st))(st)+c__case_466_case__555 x1 x5 x91 x107 x117 x119 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_466_case__555(x1)(x5)(x91)(x107)(x117)(x119)(x)(st))(i)(xs)(st)+c__case_466_case__555 x1 x5 x91 x107 x117 x119 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_466_case__555")(x)++++c__case_467_case__556 x1 x5 x91 x107 x117 x119 x123 x122 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x122)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_466(x5)(x91)(x107)(x117)(x119)(x123)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_468_case__557 x1 x5 x91 x107 x117 x119 x121@((Curry.Module.Prelude.:<) x122 x123) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_467(x5)(x91)(x107)(x117)(x119)(x123)(x122)(x1)(st))(st)+c__case_468_case__557 x1 x5 x91 x107 x117 x119 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_468_case__557(x1)(x5)(x91)(x107)(x117)(x119)(x)(st))(i)(xs)(st)+c__case_468_case__557 x1 x5 x91 x107 x117 x119 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_468_case__557")(x)++++c__case_469_case__558 x1 x5 x91 x107 x117 x119 x121 x120 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x120)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_468(x5)(x91)(x107)(x117)(x119)(x121)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_470_case__559 x1 x5 x91 x107 x117 x119 x118@((Curry.Module.Prelude.:<) x120 x121) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_469(x5)(x91)(x107)(x117)(x119)(x121)(x120)(x1)(st))(st)+c__case_470_case__559 x1 x5 x91 x107 x117 x119 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_470_case__559(x1)(x5)(x91)(x107)(x117)(x119)(x)(st))(i)(xs)(st)+c__case_470_case__559 x1 x5 x91 x107 x117 x119 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_470_case__559")(x)++++c__case_471_case__560 x1 x5 x91 x107 x117 x116@(Curry.Module.Prelude.T2 x118 x119) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_470(x5)(x91)(x107)(x117)(x119)(x118)(x1)(st))(st)+c__case_471_case__560 x1 x5 x91 x107 x117 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_471_case__560(x1)(x5)(x91)(x107)(x117)(x)(st))(i)(xs)(st)+c__case_471_case__560 x1 x5 x91 x107 x117 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_471_case__560")(x)++++c__case_472_case__561 x1 x5 x91 x107 x105@((Curry.Module.Prelude.:<) x116 x117) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_471(x5)(x91)(x107)(x117)(x116)(x1)(st))(st)+c__case_472_case__561 x1 x5 x91 x107 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_472_case__561(x1)(x5)(x91)(x107)(x)(st))(i)(xs)(st)+c__case_472_case__561 x1 x5 x91 x107 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_472_case__561")(x)++++c__case_473_case__562 x1 x5 x91 x105 x107 x115@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_472(x5)(x91)(x107)(x105)(x1)(st))(st)+c__case_473_case__562 x1 x5 x91 x105 x107 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_473_case__562(x1)(x5)(x91)(x105)(x107)(x)(st))(i)(xs)(st)+c__case_473_case__562 x1 x5 x91 x105 x107 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_473_case__562")(x)++++c__case_474_case__563 x1 x5 x91 x105 x107 x115 x114 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x114)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_473(x5)(x91)(x105)(x107)(x115)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_475_case__564 x1 x5 x91 x105 x107 x113@((Curry.Module.Prelude.:<) x114 x115) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_474(x5)(x91)(x105)(x107)(x115)(x114)(x1)(st))(st)+c__case_475_case__564 x1 x5 x91 x105 x107 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_475_case__564(x1)(x5)(x91)(x105)(x107)(x)(st))(i)(xs)(st)+c__case_475_case__564 x1 x5 x91 x105 x107 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_475_case__564")(x)++++c__case_476_case__565 x1 x5 x91 x105 x107 x113 x112 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x112)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_475(x5)(x91)(x105)(x107)(x113)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_477_case__566 x1 x5 x91 x105 x107 x111@((Curry.Module.Prelude.:<) x112 x113) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_476(x5)(x91)(x105)(x107)(x113)(x112)(x1)(st))(st)+c__case_477_case__566 x1 x5 x91 x105 x107 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_477_case__566(x1)(x5)(x91)(x105)(x107)(x)(st))(i)(xs)(st)+c__case_477_case__566 x1 x5 x91 x105 x107 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_477_case__566")(x)++++c__case_478_case__567 x1 x5 x91 x105 x107 x111 x110 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x110)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_477(x5)(x91)(x105)(x107)(x111)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_479_case__568 x1 x5 x91 x105 x107 x109@((Curry.Module.Prelude.:<) x110 x111) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_478(x5)(x91)(x105)(x107)(x111)(x110)(x1)(st))(st)+c__case_479_case__568 x1 x5 x91 x105 x107 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_479_case__568(x1)(x5)(x91)(x105)(x107)(x)(st))(i)(xs)(st)+c__case_479_case__568 x1 x5 x91 x105 x107 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_479_case__568")(x)++++c__case_480_case__569 x1 x5 x91 x105 x107 x109 x108 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x108)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_479(x5)(x91)(x105)(x107)(x109)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_481_case__570 x1 x5 x91 x105 x107 x106@((Curry.Module.Prelude.:<) x108 x109) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_480(x5)(x91)(x105)(x107)(x109)(x108)(x1)(st))(st)+c__case_481_case__570 x1 x5 x91 x105 x107 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_481_case__570(x1)(x5)(x91)(x105)(x107)(x)(st))(i)(xs)(st)+c__case_481_case__570 x1 x5 x91 x105 x107 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_481_case__570")(x)++++c__case_482_case__571 x1 x5 x91 x105 x104@(Curry.Module.Prelude.T2 x106 x107) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_481(x5)(x91)(x105)(x107)(x106)(x1)(st))(st)+c__case_482_case__571 x1 x5 x91 x105 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_482_case__571(x1)(x5)(x91)(x105)(x)(st))(i)(xs)(st)+c__case_482_case__571 x1 x5 x91 x105 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_482_case__571")(x)++++c__case_483_case__572 x1 x5 x91 x89@((Curry.Module.Prelude.:<) x104 x105) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_482(x5)(x91)(x105)(x104)(x1)(st))(st)+c__case_483_case__572 x1 x5 x91 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_483_case__572(x1)(x5)(x91)(x)(st))(i)(xs)(st)+c__case_483_case__572 x1 x5 x91 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_483_case__572")(x)++++c__case_484_case__573 x1 x5 x89 x91 x103@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_483(x5)(x91)(x89)(x1)(st))(st)+c__case_484_case__573 x1 x5 x89 x91 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_484_case__573(x1)(x5)(x89)(x91)(x)(st))(i)(xs)(st)+c__case_484_case__573 x1 x5 x89 x91 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_484_case__573")(x)++++c__case_485_case__574 x1 x5 x89 x91 x103 x102 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x102)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_484(x5)(x89)(x91)(x103)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_486_case__575 x1 x5 x89 x91 x101@((Curry.Module.Prelude.:<) x102 x103) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_485(x5)(x89)(x91)(x103)(x102)(x1)(st))(st)+c__case_486_case__575 x1 x5 x89 x91 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_486_case__575(x1)(x5)(x89)(x91)(x)(st))(i)(xs)(st)+c__case_486_case__575 x1 x5 x89 x91 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_486_case__575")(x)++++c__case_487_case__576 x1 x5 x89 x91 x101 x100 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x100)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_486(x5)(x89)(x91)(x101)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_488_case__577 x1 x5 x89 x91 x99@((Curry.Module.Prelude.:<) x100 x101) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_487(x5)(x89)(x91)(x101)(x100)(x1)(st))(st)+c__case_488_case__577 x1 x5 x89 x91 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_488_case__577(x1)(x5)(x89)(x91)(x)(st))(i)(xs)(st)+c__case_488_case__577 x1 x5 x89 x91 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_488_case__577")(x)++++c__case_489_case__578 x1 x5 x89 x91 x99 x98 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x98)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_488(x5)(x89)(x91)(x99)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_490_case__579 x1 x5 x89 x91 x97@((Curry.Module.Prelude.:<) x98 x99) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_489(x5)(x89)(x91)(x99)(x98)(x1)(st))(st)+c__case_490_case__579 x1 x5 x89 x91 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_490_case__579(x1)(x5)(x89)(x91)(x)(st))(i)(xs)(st)+c__case_490_case__579 x1 x5 x89 x91 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_490_case__579")(x)++++c__case_491_case__580 x1 x5 x89 x91 x97 x96 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x96)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_490(x5)(x89)(x91)(x97)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_492_case__581 x1 x5 x89 x91 x95@((Curry.Module.Prelude.:<) x96 x97) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_491(x5)(x89)(x91)(x97)(x96)(x1)(st))(st)+c__case_492_case__581 x1 x5 x89 x91 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_492_case__581(x1)(x5)(x89)(x91)(x)(st))(i)(xs)(st)+c__case_492_case__581 x1 x5 x89 x91 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_492_case__581")(x)++++c__case_493_case__582 x1 x5 x89 x91 x95 x94 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x94)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_492(x5)(x89)(x91)(x95)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_494_case__583 x1 x5 x89 x91 x93@((Curry.Module.Prelude.:<) x94 x95) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_493(x5)(x89)(x91)(x95)(x94)(x1)(st))(st)+c__case_494_case__583 x1 x5 x89 x91 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_494_case__583(x1)(x5)(x89)(x91)(x)(st))(i)(xs)(st)+c__case_494_case__583 x1 x5 x89 x91 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_494_case__583")(x)++++c__case_495_case__584 x1 x5 x89 x91 x93 x92 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x92)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_494(x5)(x89)(x91)(x93)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_496_case__585 x1 x5 x89 x91 x90@((Curry.Module.Prelude.:<) x92 x93) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_495(x5)(x89)(x91)(x93)(x92)(x1)(st))(st)+c__case_496_case__585 x1 x5 x89 x91 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_496_case__585(x1)(x5)(x89)(x91)(x)(st))(i)(xs)(st)+c__case_496_case__585 x1 x5 x89 x91 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_496_case__585")(x)++++c__case_497_case__586 x1 x5 x89 x88@(Curry.Module.Prelude.T2 x90 x91) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_496(x5)(x89)(x91)(x90)(x1)(st))(st)+c__case_497_case__586 x1 x5 x89 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_497_case__586(x1)(x5)(x89)(x)(st))(i)(xs)(st)+c__case_497_case__586 x1 x5 x89 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_497_case__586")(x)++++c__case_498_case__587 x1 x5 x4@((Curry.Module.Prelude.:<) x88 x89) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_497(x5)(x89)(x88)(x1)(st))(st)+c__case_498_case__587 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_498_case__587(x1)(x5)(x)(st))(i)(xs)(st)+c__case_498_case__587 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_498_case__587")(x)++++c__case_499_case__588 x1 x4 x5 x87@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_498(x5)(x4)(x1)(st))(st)+c__case_499_case__588 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_499_case__588(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_499_case__588 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_499_case__588")(x)++++c__case_500_case__589 x1 x4 x5 x87 x86 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x86)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_499(x4)(x5)(x87)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_501_case__590 x1 x4 x5 x85@((Curry.Module.Prelude.:<) x86 x87) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_500(x4)(x5)(x87)(x86)(x1)(st))(st)+c__case_501_case__590 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_501_case__590(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_501_case__590 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_501_case__590")(x)++++c__case_502_case__591 x1 x4 x5 x85 x84 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x84)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_501(x4)(x5)(x85)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_503_case__592 x1 x4 x5 x83@((Curry.Module.Prelude.:<) x84 x85) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_502(x4)(x5)(x85)(x84)(x1)(st))(st)+c__case_503_case__592 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_503_case__592(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_503_case__592 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_503_case__592")(x)++++c__case_504_case__593 x1 x4 x5 x83 x82 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x82)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_503(x4)(x5)(x83)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_505_case__594 x1 x4 x5 x81@((Curry.Module.Prelude.:<) x82 x83) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_504(x4)(x5)(x83)(x82)(x1)(st))(st)+c__case_505_case__594 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_505_case__594(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_505_case__594 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_505_case__594")(x)++++c__case_506_case__595 x1 x4 x5 x81 x80 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x80)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_505(x4)(x5)(x81)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_507_case__596 x1 x4 x5 x79@((Curry.Module.Prelude.:<) x80 x81) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_506(x4)(x5)(x81)(x80)(x1)(st))(st)+c__case_507_case__596 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_507_case__596(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_507_case__596 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_507_case__596")(x)++++c__case_508_case__597 x1 x4 x5 x79 x78 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x78)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_507(x4)(x5)(x79)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_509_case__598 x1 x4 x5 x77@((Curry.Module.Prelude.:<) x78 x79) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_508(x4)(x5)(x79)(x78)(x1)(st))(st)+c__case_509_case__598 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_509_case__598(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_509_case__598 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_509_case__598")(x)++++c__case_510_case__599 x1 x4 x5 x77 x76 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x76)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_509(x4)(x5)(x77)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_511_case__600 x1 x4 x5 x75@((Curry.Module.Prelude.:<) x76 x77) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_510(x4)(x5)(x77)(x76)(x1)(st))(st)+c__case_511_case__600 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_511_case__600(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_511_case__600 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_511_case__600")(x)++++c__case_512_case__601 x1 x4 x5 x75 x74 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x74)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_511(x4)(x5)(x75)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_513_case__602 x1 x4 x5 x39@((Curry.Module.Prelude.:<) x74 x75) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_512(x4)(x5)(x75)(x74)(x1)(st))(st)+c__case_513_case__602 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_513_case__602(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_513_case__602 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_513_case__602")(x)++++c__case_548_case__603 x1 x4 x5 x39 x38 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x38)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_547(x4)(x5)(x39)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x38)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_513(x4)(x5)(x39)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_549_case__604 x1 x4 x5 x37@((Curry.Module.Prelude.:<) x38 x39) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_548(x4)(x5)(x39)(x38)(x1)(st))(st)+c__case_549_case__604 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_549_case__604(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_549_case__604 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_549_case__604")(x)++++c__case_550_case__605 x1 x4 x5 x37 x36 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x36)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_549(x4)(x5)(x37)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_551_case__606 x1 x4 x5 x35@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_550(x4)(x5)(x37)(x36)(x1)(st))(st)+c__case_551_case__606 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_551_case__606(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_551_case__606 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_551_case__606")(x)++++c__case_552_case__607 x1 x4 x5 x35 x34 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x34)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_551(x4)(x5)(x35)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_553_case__608 x1 x4 x5 x33@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_552(x4)(x5)(x35)(x34)(x1)(st))(st)+c__case_553_case__608 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_553_case__608(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_553_case__608 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_553_case__608")(x)++++c__case_427_case__609 x1 x142 x159 x160@Curry.Module.Prelude.List st = let {x161 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x161)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Free(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2var))))(x142)(x1)(st))(Curry.Module.OracleFlatCurryXML.c_flatx2exp(x159)(x161)(st)))(st)+c__case_427_case__609 x1 x142 x159 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_427_case__609(x1)(x142)(x159)(x)(st))(i)(xs)(st)+c__case_427_case__609 x1 x142 x159 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_427_case__609")(x)++++c__case_428_case__610 x1 x142 x139@((Curry.Module.Prelude.:<) x159 x160) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_427(x142)(x159)(x160)(x1)(st))(st)+c__case_428_case__610 x1 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_428_case__610(x1)(x142)(x)(st))(i)(xs)(st)+c__case_428_case__610 x1 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_428_case__610")(x)++++c__case_429_case__611 x1 x139 x142 x141@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_428(x142)(x139)(x1)(st))(st)+c__case_429_case__611 x1 x139 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_429_case__611(x1)(x139)(x142)(x)(st))(i)(xs)(st)+c__case_429_case__611 x1 x139 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_429_case__611")(x)++++c__case_430_case__612 x1 x139 x141 x142 x158@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_429(x139)(x142)(x141)(x1)(st))(st)+c__case_430_case__612 x1 x139 x141 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_430_case__612(x1)(x139)(x141)(x142)(x)(st))(i)(xs)(st)+c__case_430_case__612 x1 x139 x141 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_430_case__612")(x)++++c__case_431_case__613 x1 x139 x141 x142 x158 x157 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x157)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_430(x139)(x141)(x142)(x158)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_432_case__614 x1 x139 x141 x142 x156@((Curry.Module.Prelude.:<) x157 x158) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_431(x139)(x141)(x142)(x158)(x157)(x1)(st))(st)+c__case_432_case__614 x1 x139 x141 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_432_case__614(x1)(x139)(x141)(x142)(x)(st))(i)(xs)(st)+c__case_432_case__614 x1 x139 x141 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_432_case__614")(x)++++c__case_433_case__615 x1 x139 x141 x142 x156 x155 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x155)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_432(x139)(x141)(x142)(x156)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_434_case__616 x1 x139 x141 x142 x154@((Curry.Module.Prelude.:<) x155 x156) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_433(x139)(x141)(x142)(x156)(x155)(x1)(st))(st)+c__case_434_case__616 x1 x139 x141 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_434_case__616(x1)(x139)(x141)(x142)(x)(st))(i)(xs)(st)+c__case_434_case__616 x1 x139 x141 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_434_case__616")(x)++++c__case_435_case__617 x1 x139 x141 x142 x154 x153 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x153)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_434(x139)(x141)(x142)(x154)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_436_case__618 x1 x139 x141 x142 x152@((Curry.Module.Prelude.:<) x153 x154) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_435(x139)(x141)(x142)(x154)(x153)(x1)(st))(st)+c__case_436_case__618 x1 x139 x141 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_436_case__618(x1)(x139)(x141)(x142)(x)(st))(i)(xs)(st)+c__case_436_case__618 x1 x139 x141 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_436_case__618")(x)++++c__case_437_case__619 x1 x139 x141 x142 x152 x151 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x151)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_436(x139)(x141)(x142)(x152)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_438_case__620 x1 x139 x141 x142 x150@((Curry.Module.Prelude.:<) x151 x152) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_437(x139)(x141)(x142)(x152)(x151)(x1)(st))(st)+c__case_438_case__620 x1 x139 x141 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_438_case__620(x1)(x139)(x141)(x142)(x)(st))(i)(xs)(st)+c__case_438_case__620 x1 x139 x141 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_438_case__620")(x)++++c__case_439_case__621 x1 x139 x141 x142 x150 x149 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x149)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_438(x139)(x141)(x142)(x150)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_440_case__622 x1 x139 x141 x142 x148@((Curry.Module.Prelude.:<) x149 x150) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_439(x139)(x141)(x142)(x150)(x149)(x1)(st))(st)+c__case_440_case__622 x1 x139 x141 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_440_case__622(x1)(x139)(x141)(x142)(x)(st))(i)(xs)(st)+c__case_440_case__622 x1 x139 x141 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_440_case__622")(x)++++c__case_441_case__623 x1 x139 x141 x142 x148 x147 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x147)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_440(x139)(x141)(x142)(x148)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_442_case__624 x1 x139 x141 x142 x146@((Curry.Module.Prelude.:<) x147 x148) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_441(x139)(x141)(x142)(x148)(x147)(x1)(st))(st)+c__case_442_case__624 x1 x139 x141 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_442_case__624(x1)(x139)(x141)(x142)(x)(st))(i)(xs)(st)+c__case_442_case__624 x1 x139 x141 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_442_case__624")(x)++++c__case_443_case__625 x1 x139 x141 x142 x146 x145 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x145)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_442(x139)(x141)(x142)(x146)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_444_case__626 x1 x139 x141 x142 x144@((Curry.Module.Prelude.:<) x145 x146) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_443(x139)(x141)(x142)(x146)(x145)(x1)(st))(st)+c__case_444_case__626 x1 x139 x141 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_444_case__626(x1)(x139)(x141)(x142)(x)(st))(i)(xs)(st)+c__case_444_case__626 x1 x139 x141 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_444_case__626")(x)++++c__case_445_case__627 x1 x139 x141 x142 x144 x143 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x143)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_444(x139)(x141)(x142)(x144)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_446_case__628 x1 x139 x141 x142 x140@((Curry.Module.Prelude.:<) x143 x144) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_445(x139)(x141)(x142)(x144)(x143)(x1)(st))(st)+c__case_446_case__628 x1 x139 x141 x142 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_446_case__628(x1)(x139)(x141)(x142)(x)(st))(i)(xs)(st)+c__case_446_case__628 x1 x139 x141 x142 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_446_case__628")(x)++++c__case_447_case__629 x1 x139 x138@(Curry.Module.XML.C_XElem x140 x141 x142) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_446(x139)(x141)(x142)(x140)(x1)(st))(st)+c__case_447_case__629 x1 x139 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_447_case__629(x1)(x139)(x)(st))(i)(xs)(st)+c__case_447_case__629 x1 x139 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_447_case__629")(x)++++c__case_448_case__630 x1 x5@((Curry.Module.Prelude.:<) x138 x139) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_447(x139)(x138)(x1)(st))(st)+c__case_448_case__630 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_448_case__630(x1)(x)(st))(i)(xs)(st)+c__case_448_case__630 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_448_case__630")(x)++++c__case_449_case__631 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_448(x5)(x1)(st))(st)+c__case_449_case__631 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_449_case__631(x1)(x5)(x)(st))(i)(xs)(st)+c__case_449_case__631 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_449_case__631")(x)++++c__case_450_case__632 x1 x4 x5 x137@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_449(x5)(x4)(x1)(st))(st)+c__case_450_case__632 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_450_case__632(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_450_case__632 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_450_case__632")(x)++++c__case_451_case__633 x1 x4 x5 x137 x136 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x136)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_450(x4)(x5)(x137)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_452_case__634 x1 x4 x5 x135@((Curry.Module.Prelude.:<) x136 x137) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_451(x4)(x5)(x137)(x136)(x1)(st))(st)+c__case_452_case__634 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_452_case__634(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_452_case__634 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_452_case__634")(x)++++c__case_453_case__635 x1 x4 x5 x135 x134 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x134)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_452(x4)(x5)(x135)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_454_case__636 x1 x4 x5 x33@((Curry.Module.Prelude.:<) x134 x135) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_453(x4)(x5)(x135)(x134)(x1)(st))(st)+c__case_454_case__636 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_454_case__636(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_454_case__636 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_454_case__636")(x)++++c__case_418_case__637 x1 x5@((Curry.Module.Prelude.:<) x167 x168) st = let {x169 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x169)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Case(Curry.Module.FlatCurry.C_Flex)(Curry.Module.OracleFlatCurryXML.c_flatx2exp(x167)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2branch))))(x168)(x169)(st)))(st)+c__case_418_case__637 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_418_case__637(x1)(x)(st))(i)(xs)(st)+c__case_418_case__637 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_418_case__637")(x)++++c__case_419_case__638 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_418(x5)(x1)(st))(st)+c__case_419_case__638 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_419_case__638(x1)(x5)(x)(st))(i)(xs)(st)+c__case_419_case__638 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_419_case__638")(x)++++c__case_420_case__639 x1 x4 x5 x166@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_419(x5)(x4)(x1)(st))(st)+c__case_420_case__639 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_420_case__639(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_420_case__639 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_420_case__639")(x)++++c__case_421_case__640 x1 x4 x5 x166 x165 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x165)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_420(x4)(x5)(x166)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_422_case__641 x1 x4 x5 x164@((Curry.Module.Prelude.:<) x165 x166) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_421(x4)(x5)(x166)(x165)(x1)(st))(st)+c__case_422_case__641 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_422_case__641(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_422_case__641 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_422_case__641")(x)++++c__case_423_case__642 x1 x4 x5 x164 x163 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x163)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_422(x4)(x5)(x164)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_424_case__643 x1 x4 x5 x162@((Curry.Module.Prelude.:<) x163 x164) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_423(x4)(x5)(x164)(x163)(x1)(st))(st)+c__case_424_case__643 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_424_case__643(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_424_case__643 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_424_case__643")(x)++++c__case_425_case__644 x1 x4 x5 x162 x161 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x161)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_424(x4)(x5)(x162)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_426_case__645 x1 x4 x5 x33@((Curry.Module.Prelude.:<) x161 x162) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_425(x4)(x5)(x162)(x161)(x1)(st))(st)+c__case_426_case__645 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_426_case__645(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_426_case__645 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_426_case__645")(x)++++c__case_554_case__646 x1 x4 x5 x33 x32 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x32)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_553(x4)(x5)(x33)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x32)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_454(x4)(x5)(x33)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x32)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_426(x4)(x5)(x33)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st))(st)++++c__case_555_case__647 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x32 x33) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_554(x4)(x5)(x33)(x32)(x1)(st))(st)+c__case_555_case__647 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_555_case__647(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_555_case__647 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_555_case__647")(x)++++c__case_376_case__648 x1 x5 x186 x202 x200@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_ConsCall)(Curry.Module.Prelude.T2(x186)(x202))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2exp))))(x5)(x1)(st)))(st)+c__case_376_case__648 x1 x5 x186 x202 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_376_case__648(x1)(x5)(x186)(x202)(x)(st))(i)(xs)(st)+c__case_376_case__648 x1 x5 x186 x202 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_376_case__648")(x)++++c__case_377_case__649 x1 x5 x186 x200 x202 x210@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_376(x5)(x186)(x202)(x200)(x1)(st))(st)+c__case_377_case__649 x1 x5 x186 x200 x202 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_377_case__649(x1)(x5)(x186)(x200)(x202)(x)(st))(i)(xs)(st)+c__case_377_case__649 x1 x5 x186 x200 x202 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_377_case__649")(x)++++c__case_378_case__650 x1 x5 x186 x200 x202 x210 x209 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x209)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_377(x5)(x186)(x200)(x202)(x210)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_379_case__651 x1 x5 x186 x200 x202 x208@((Curry.Module.Prelude.:<) x209 x210) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_378(x5)(x186)(x200)(x202)(x210)(x209)(x1)(st))(st)+c__case_379_case__651 x1 x5 x186 x200 x202 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_379_case__651(x1)(x5)(x186)(x200)(x202)(x)(st))(i)(xs)(st)+c__case_379_case__651 x1 x5 x186 x200 x202 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_379_case__651")(x)++++c__case_380_case__652 x1 x5 x186 x200 x202 x208 x207 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x207)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_379(x5)(x186)(x200)(x202)(x208)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_381_case__653 x1 x5 x186 x200 x202 x206@((Curry.Module.Prelude.:<) x207 x208) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_380(x5)(x186)(x200)(x202)(x208)(x207)(x1)(st))(st)+c__case_381_case__653 x1 x5 x186 x200 x202 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_381_case__653(x1)(x5)(x186)(x200)(x202)(x)(st))(i)(xs)(st)+c__case_381_case__653 x1 x5 x186 x200 x202 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_381_case__653")(x)++++c__case_382_case__654 x1 x5 x186 x200 x202 x206 x205 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x205)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_381(x5)(x186)(x200)(x202)(x206)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_383_case__655 x1 x5 x186 x200 x202 x204@((Curry.Module.Prelude.:<) x205 x206) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_382(x5)(x186)(x200)(x202)(x206)(x205)(x1)(st))(st)+c__case_383_case__655 x1 x5 x186 x200 x202 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_383_case__655(x1)(x5)(x186)(x200)(x202)(x)(st))(i)(xs)(st)+c__case_383_case__655 x1 x5 x186 x200 x202 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_383_case__655")(x)++++c__case_384_case__656 x1 x5 x186 x200 x202 x204 x203 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x203)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_383(x5)(x186)(x200)(x202)(x204)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_385_case__657 x1 x5 x186 x200 x202 x201@((Curry.Module.Prelude.:<) x203 x204) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_384(x5)(x186)(x200)(x202)(x204)(x203)(x1)(st))(st)+c__case_385_case__657 x1 x5 x186 x200 x202 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_385_case__657(x1)(x5)(x186)(x200)(x202)(x)(st))(i)(xs)(st)+c__case_385_case__657 x1 x5 x186 x200 x202 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_385_case__657")(x)++++c__case_386_case__658 x1 x5 x186 x200 x199@(Curry.Module.Prelude.T2 x201 x202) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_385(x5)(x186)(x200)(x202)(x201)(x1)(st))(st)+c__case_386_case__658 x1 x5 x186 x200 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_386_case__658(x1)(x5)(x186)(x200)(x)(st))(i)(xs)(st)+c__case_386_case__658 x1 x5 x186 x200 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_386_case__658")(x)++++c__case_387_case__659 x1 x5 x186 x184@((Curry.Module.Prelude.:<) x199 x200) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_386(x5)(x186)(x200)(x199)(x1)(st))(st)+c__case_387_case__659 x1 x5 x186 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_387_case__659(x1)(x5)(x186)(x)(st))(i)(xs)(st)+c__case_387_case__659 x1 x5 x186 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_387_case__659")(x)++++c__case_388_case__660 x1 x5 x184 x186 x198@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_387(x5)(x186)(x184)(x1)(st))(st)+c__case_388_case__660 x1 x5 x184 x186 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_388_case__660(x1)(x5)(x184)(x186)(x)(st))(i)(xs)(st)+c__case_388_case__660 x1 x5 x184 x186 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_388_case__660")(x)++++c__case_389_case__661 x1 x5 x184 x186 x198 x197 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x197)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_388(x5)(x184)(x186)(x198)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_390_case__662 x1 x5 x184 x186 x196@((Curry.Module.Prelude.:<) x197 x198) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_389(x5)(x184)(x186)(x198)(x197)(x1)(st))(st)+c__case_390_case__662 x1 x5 x184 x186 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_390_case__662(x1)(x5)(x184)(x186)(x)(st))(i)(xs)(st)+c__case_390_case__662 x1 x5 x184 x186 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_390_case__662")(x)++++c__case_391_case__663 x1 x5 x184 x186 x196 x195 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x195)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_390(x5)(x184)(x186)(x196)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_392_case__664 x1 x5 x184 x186 x194@((Curry.Module.Prelude.:<) x195 x196) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_391(x5)(x184)(x186)(x196)(x195)(x1)(st))(st)+c__case_392_case__664 x1 x5 x184 x186 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_392_case__664(x1)(x5)(x184)(x186)(x)(st))(i)(xs)(st)+c__case_392_case__664 x1 x5 x184 x186 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_392_case__664")(x)++++c__case_393_case__665 x1 x5 x184 x186 x194 x193 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x193)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_392(x5)(x184)(x186)(x194)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_394_case__666 x1 x5 x184 x186 x192@((Curry.Module.Prelude.:<) x193 x194) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_393(x5)(x184)(x186)(x194)(x193)(x1)(st))(st)+c__case_394_case__666 x1 x5 x184 x186 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_394_case__666(x1)(x5)(x184)(x186)(x)(st))(i)(xs)(st)+c__case_394_case__666 x1 x5 x184 x186 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_394_case__666")(x)++++c__case_395_case__667 x1 x5 x184 x186 x192 x191 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x191)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_394(x5)(x184)(x186)(x192)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_396_case__668 x1 x5 x184 x186 x190@((Curry.Module.Prelude.:<) x191 x192) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_395(x5)(x184)(x186)(x192)(x191)(x1)(st))(st)+c__case_396_case__668 x1 x5 x184 x186 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_396_case__668(x1)(x5)(x184)(x186)(x)(st))(i)(xs)(st)+c__case_396_case__668 x1 x5 x184 x186 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_396_case__668")(x)++++c__case_397_case__669 x1 x5 x184 x186 x190 x189 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x189)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_396(x5)(x184)(x186)(x190)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_398_case__670 x1 x5 x184 x186 x188@((Curry.Module.Prelude.:<) x189 x190) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_397(x5)(x184)(x186)(x190)(x189)(x1)(st))(st)+c__case_398_case__670 x1 x5 x184 x186 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_398_case__670(x1)(x5)(x184)(x186)(x)(st))(i)(xs)(st)+c__case_398_case__670 x1 x5 x184 x186 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_398_case__670")(x)++++c__case_399_case__671 x1 x5 x184 x186 x188 x187 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x187)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_398(x5)(x184)(x186)(x188)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_400_case__672 x1 x5 x184 x186 x185@((Curry.Module.Prelude.:<) x187 x188) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_399(x5)(x184)(x186)(x188)(x187)(x1)(st))(st)+c__case_400_case__672 x1 x5 x184 x186 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_400_case__672(x1)(x5)(x184)(x186)(x)(st))(i)(xs)(st)+c__case_400_case__672 x1 x5 x184 x186 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_400_case__672")(x)++++c__case_401_case__673 x1 x5 x184 x183@(Curry.Module.Prelude.T2 x185 x186) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_400(x5)(x184)(x186)(x185)(x1)(st))(st)+c__case_401_case__673 x1 x5 x184 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_401_case__673(x1)(x5)(x184)(x)(st))(i)(xs)(st)+c__case_401_case__673 x1 x5 x184 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_401_case__673")(x)++++c__case_402_case__674 x1 x5 x4@((Curry.Module.Prelude.:<) x183 x184) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_401(x5)(x184)(x183)(x1)(st))(st)+c__case_402_case__674 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_402_case__674(x1)(x5)(x)(st))(i)(xs)(st)+c__case_402_case__674 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_402_case__674")(x)++++c__case_403_case__675 x1 x4 x5 x182@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_402(x5)(x4)(x1)(st))(st)+c__case_403_case__675 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_403_case__675(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_403_case__675 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_403_case__675")(x)++++c__case_404_case__676 x1 x4 x5 x182 x181 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x181)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_403(x4)(x5)(x182)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_405_case__677 x1 x4 x5 x180@((Curry.Module.Prelude.:<) x181 x182) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_404(x4)(x5)(x182)(x181)(x1)(st))(st)+c__case_405_case__677 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_405_case__677(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_405_case__677 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_405_case__677")(x)++++c__case_406_case__678 x1 x4 x5 x180 x179 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x179)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_405(x4)(x5)(x180)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_407_case__679 x1 x4 x5 x178@((Curry.Module.Prelude.:<) x179 x180) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_406(x4)(x5)(x180)(x179)(x1)(st))(st)+c__case_407_case__679 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_407_case__679(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_407_case__679 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_407_case__679")(x)++++c__case_408_case__680 x1 x4 x5 x178 x177 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x177)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_407(x4)(x5)(x178)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_409_case__681 x1 x4 x5 x176@((Curry.Module.Prelude.:<) x177 x178) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_408(x4)(x5)(x178)(x177)(x1)(st))(st)+c__case_409_case__681 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_409_case__681(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_409_case__681 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_409_case__681")(x)++++c__case_317_case__682 x1 x5 x228 x244 x256 x254@Curry.Module.Prelude.List st = let {x257 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x257)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_ConsPartCall(Curry.Module.OracleRead.c_readNat(x256)(x1)(st)))(Curry.Module.Prelude.T2(x228)(x244))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2exp))))(x5)(x257)(st)))(st)+c__case_317_case__682 x1 x5 x228 x244 x256 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_317_case__682(x1)(x5)(x228)(x244)(x256)(x)(st))(i)(xs)(st)+c__case_317_case__682 x1 x5 x228 x244 x256 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_317_case__682")(x)++++c__case_318_case__683 x1 x5 x228 x244 x254 x256 x270@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_317(x5)(x228)(x244)(x256)(x254)(x1)(st))(st)+c__case_318_case__683 x1 x5 x228 x244 x254 x256 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_318_case__683(x1)(x5)(x228)(x244)(x254)(x256)(x)(st))(i)(xs)(st)+c__case_318_case__683 x1 x5 x228 x244 x254 x256 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_318_case__683")(x)++++c__case_319_case__684 x1 x5 x228 x244 x254 x256 x270 x269 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x269)(Curry.Module.Prelude.C_Char('g'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_318(x5)(x228)(x244)(x254)(x256)(x270)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_320_case__685 x1 x5 x228 x244 x254 x256 x268@((Curry.Module.Prelude.:<) x269 x270) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_319(x5)(x228)(x244)(x254)(x256)(x270)(x269)(x1)(st))(st)+c__case_320_case__685 x1 x5 x228 x244 x254 x256 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_320_case__685(x1)(x5)(x228)(x244)(x254)(x256)(x)(st))(i)(xs)(st)+c__case_320_case__685 x1 x5 x228 x244 x254 x256 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_320_case__685")(x)++++c__case_321_case__686 x1 x5 x228 x244 x254 x256 x268 x267 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x267)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_320(x5)(x228)(x244)(x254)(x256)(x268)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_322_case__687 x1 x5 x228 x244 x254 x256 x266@((Curry.Module.Prelude.:<) x267 x268) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_321(x5)(x228)(x244)(x254)(x256)(x268)(x267)(x1)(st))(st)+c__case_322_case__687 x1 x5 x228 x244 x254 x256 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_322_case__687(x1)(x5)(x228)(x244)(x254)(x256)(x)(st))(i)(xs)(st)+c__case_322_case__687 x1 x5 x228 x244 x254 x256 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_322_case__687")(x)++++c__case_323_case__688 x1 x5 x228 x244 x254 x256 x266 x265 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x265)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_322(x5)(x228)(x244)(x254)(x256)(x266)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_324_case__689 x1 x5 x228 x244 x254 x256 x264@((Curry.Module.Prelude.:<) x265 x266) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_323(x5)(x228)(x244)(x254)(x256)(x266)(x265)(x1)(st))(st)+c__case_324_case__689 x1 x5 x228 x244 x254 x256 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_324_case__689(x1)(x5)(x228)(x244)(x254)(x256)(x)(st))(i)(xs)(st)+c__case_324_case__689 x1 x5 x228 x244 x254 x256 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_324_case__689")(x)++++c__case_325_case__690 x1 x5 x228 x244 x254 x256 x264 x263 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x263)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_324(x5)(x228)(x244)(x254)(x256)(x264)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_326_case__691 x1 x5 x228 x244 x254 x256 x262@((Curry.Module.Prelude.:<) x263 x264) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_325(x5)(x228)(x244)(x254)(x256)(x264)(x263)(x1)(st))(st)+c__case_326_case__691 x1 x5 x228 x244 x254 x256 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_326_case__691(x1)(x5)(x228)(x244)(x254)(x256)(x)(st))(i)(xs)(st)+c__case_326_case__691 x1 x5 x228 x244 x254 x256 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_326_case__691")(x)++++c__case_327_case__692 x1 x5 x228 x244 x254 x256 x262 x261 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x261)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_326(x5)(x228)(x244)(x254)(x256)(x262)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_328_case__693 x1 x5 x228 x244 x254 x256 x260@((Curry.Module.Prelude.:<) x261 x262) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_327(x5)(x228)(x244)(x254)(x256)(x262)(x261)(x1)(st))(st)+c__case_328_case__693 x1 x5 x228 x244 x254 x256 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_328_case__693(x1)(x5)(x228)(x244)(x254)(x256)(x)(st))(i)(xs)(st)+c__case_328_case__693 x1 x5 x228 x244 x254 x256 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_328_case__693")(x)++++c__case_329_case__694 x1 x5 x228 x244 x254 x256 x260 x259 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x259)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_328(x5)(x228)(x244)(x254)(x256)(x260)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_330_case__695 x1 x5 x228 x244 x254 x256 x258@((Curry.Module.Prelude.:<) x259 x260) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_329(x5)(x228)(x244)(x254)(x256)(x260)(x259)(x1)(st))(st)+c__case_330_case__695 x1 x5 x228 x244 x254 x256 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_330_case__695(x1)(x5)(x228)(x244)(x254)(x256)(x)(st))(i)(xs)(st)+c__case_330_case__695 x1 x5 x228 x244 x254 x256 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_330_case__695")(x)++++c__case_331_case__696 x1 x5 x228 x244 x254 x256 x258 x257 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x257)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_330(x5)(x228)(x244)(x254)(x256)(x258)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_332_case__697 x1 x5 x228 x244 x254 x256 x255@((Curry.Module.Prelude.:<) x257 x258) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_331(x5)(x228)(x244)(x254)(x256)(x258)(x257)(x1)(st))(st)+c__case_332_case__697 x1 x5 x228 x244 x254 x256 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_332_case__697(x1)(x5)(x228)(x244)(x254)(x256)(x)(st))(i)(xs)(st)+c__case_332_case__697 x1 x5 x228 x244 x254 x256 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_332_case__697")(x)++++c__case_333_case__698 x1 x5 x228 x244 x254 x253@(Curry.Module.Prelude.T2 x255 x256) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_332(x5)(x228)(x244)(x254)(x256)(x255)(x1)(st))(st)+c__case_333_case__698 x1 x5 x228 x244 x254 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_333_case__698(x1)(x5)(x228)(x244)(x254)(x)(st))(i)(xs)(st)+c__case_333_case__698 x1 x5 x228 x244 x254 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_333_case__698")(x)++++c__case_334_case__699 x1 x5 x228 x244 x242@((Curry.Module.Prelude.:<) x253 x254) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_333(x5)(x228)(x244)(x254)(x253)(x1)(st))(st)+c__case_334_case__699 x1 x5 x228 x244 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_334_case__699(x1)(x5)(x228)(x244)(x)(st))(i)(xs)(st)+c__case_334_case__699 x1 x5 x228 x244 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_334_case__699")(x)++++c__case_335_case__700 x1 x5 x228 x242 x244 x252@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_334(x5)(x228)(x244)(x242)(x1)(st))(st)+c__case_335_case__700 x1 x5 x228 x242 x244 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_335_case__700(x1)(x5)(x228)(x242)(x244)(x)(st))(i)(xs)(st)+c__case_335_case__700 x1 x5 x228 x242 x244 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_335_case__700")(x)++++c__case_336_case__701 x1 x5 x228 x242 x244 x252 x251 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x251)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_335(x5)(x228)(x242)(x244)(x252)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_337_case__702 x1 x5 x228 x242 x244 x250@((Curry.Module.Prelude.:<) x251 x252) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_336(x5)(x228)(x242)(x244)(x252)(x251)(x1)(st))(st)+c__case_337_case__702 x1 x5 x228 x242 x244 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_337_case__702(x1)(x5)(x228)(x242)(x244)(x)(st))(i)(xs)(st)+c__case_337_case__702 x1 x5 x228 x242 x244 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_337_case__702")(x)++++c__case_338_case__703 x1 x5 x228 x242 x244 x250 x249 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x249)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_337(x5)(x228)(x242)(x244)(x250)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_339_case__704 x1 x5 x228 x242 x244 x248@((Curry.Module.Prelude.:<) x249 x250) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_338(x5)(x228)(x242)(x244)(x250)(x249)(x1)(st))(st)+c__case_339_case__704 x1 x5 x228 x242 x244 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_339_case__704(x1)(x5)(x228)(x242)(x244)(x)(st))(i)(xs)(st)+c__case_339_case__704 x1 x5 x228 x242 x244 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_339_case__704")(x)++++c__case_340_case__705 x1 x5 x228 x242 x244 x248 x247 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x247)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_339(x5)(x228)(x242)(x244)(x248)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_341_case__706 x1 x5 x228 x242 x244 x246@((Curry.Module.Prelude.:<) x247 x248) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_340(x5)(x228)(x242)(x244)(x248)(x247)(x1)(st))(st)+c__case_341_case__706 x1 x5 x228 x242 x244 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_341_case__706(x1)(x5)(x228)(x242)(x244)(x)(st))(i)(xs)(st)+c__case_341_case__706 x1 x5 x228 x242 x244 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_341_case__706")(x)++++c__case_342_case__707 x1 x5 x228 x242 x244 x246 x245 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x245)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_341(x5)(x228)(x242)(x244)(x246)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_343_case__708 x1 x5 x228 x242 x244 x243@((Curry.Module.Prelude.:<) x245 x246) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_342(x5)(x228)(x242)(x244)(x246)(x245)(x1)(st))(st)+c__case_343_case__708 x1 x5 x228 x242 x244 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_343_case__708(x1)(x5)(x228)(x242)(x244)(x)(st))(i)(xs)(st)+c__case_343_case__708 x1 x5 x228 x242 x244 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_343_case__708")(x)++++c__case_344_case__709 x1 x5 x228 x242 x241@(Curry.Module.Prelude.T2 x243 x244) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_343(x5)(x228)(x242)(x244)(x243)(x1)(st))(st)+c__case_344_case__709 x1 x5 x228 x242 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_344_case__709(x1)(x5)(x228)(x242)(x)(st))(i)(xs)(st)+c__case_344_case__709 x1 x5 x228 x242 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_344_case__709")(x)++++c__case_345_case__710 x1 x5 x228 x226@((Curry.Module.Prelude.:<) x241 x242) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_344(x5)(x228)(x242)(x241)(x1)(st))(st)+c__case_345_case__710 x1 x5 x228 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_345_case__710(x1)(x5)(x228)(x)(st))(i)(xs)(st)+c__case_345_case__710 x1 x5 x228 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_345_case__710")(x)++++c__case_346_case__711 x1 x5 x226 x228 x240@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_345(x5)(x228)(x226)(x1)(st))(st)+c__case_346_case__711 x1 x5 x226 x228 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_346_case__711(x1)(x5)(x226)(x228)(x)(st))(i)(xs)(st)+c__case_346_case__711 x1 x5 x226 x228 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_346_case__711")(x)++++c__case_347_case__712 x1 x5 x226 x228 x240 x239 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x239)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_346(x5)(x226)(x228)(x240)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_348_case__713 x1 x5 x226 x228 x238@((Curry.Module.Prelude.:<) x239 x240) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_347(x5)(x226)(x228)(x240)(x239)(x1)(st))(st)+c__case_348_case__713 x1 x5 x226 x228 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_348_case__713(x1)(x5)(x226)(x228)(x)(st))(i)(xs)(st)+c__case_348_case__713 x1 x5 x226 x228 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_348_case__713")(x)++++c__case_349_case__714 x1 x5 x226 x228 x238 x237 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x237)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_348(x5)(x226)(x228)(x238)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_350_case__715 x1 x5 x226 x228 x236@((Curry.Module.Prelude.:<) x237 x238) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_349(x5)(x226)(x228)(x238)(x237)(x1)(st))(st)+c__case_350_case__715 x1 x5 x226 x228 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_350_case__715(x1)(x5)(x226)(x228)(x)(st))(i)(xs)(st)+c__case_350_case__715 x1 x5 x226 x228 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_350_case__715")(x)++++c__case_351_case__716 x1 x5 x226 x228 x236 x235 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x235)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_350(x5)(x226)(x228)(x236)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_352_case__717 x1 x5 x226 x228 x234@((Curry.Module.Prelude.:<) x235 x236) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_351(x5)(x226)(x228)(x236)(x235)(x1)(st))(st)+c__case_352_case__717 x1 x5 x226 x228 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_352_case__717(x1)(x5)(x226)(x228)(x)(st))(i)(xs)(st)+c__case_352_case__717 x1 x5 x226 x228 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_352_case__717")(x)++++c__case_353_case__718 x1 x5 x226 x228 x234 x233 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x233)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_352(x5)(x226)(x228)(x234)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_354_case__719 x1 x5 x226 x228 x232@((Curry.Module.Prelude.:<) x233 x234) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_353(x5)(x226)(x228)(x234)(x233)(x1)(st))(st)+c__case_354_case__719 x1 x5 x226 x228 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_354_case__719(x1)(x5)(x226)(x228)(x)(st))(i)(xs)(st)+c__case_354_case__719 x1 x5 x226 x228 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_354_case__719")(x)++++c__case_355_case__720 x1 x5 x226 x228 x232 x231 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x231)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_354(x5)(x226)(x228)(x232)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_356_case__721 x1 x5 x226 x228 x230@((Curry.Module.Prelude.:<) x231 x232) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_355(x5)(x226)(x228)(x232)(x231)(x1)(st))(st)+c__case_356_case__721 x1 x5 x226 x228 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_356_case__721(x1)(x5)(x226)(x228)(x)(st))(i)(xs)(st)+c__case_356_case__721 x1 x5 x226 x228 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_356_case__721")(x)++++c__case_357_case__722 x1 x5 x226 x228 x230 x229 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x229)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_356(x5)(x226)(x228)(x230)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_358_case__723 x1 x5 x226 x228 x227@((Curry.Module.Prelude.:<) x229 x230) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_357(x5)(x226)(x228)(x230)(x229)(x1)(st))(st)+c__case_358_case__723 x1 x5 x226 x228 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_358_case__723(x1)(x5)(x226)(x228)(x)(st))(i)(xs)(st)+c__case_358_case__723 x1 x5 x226 x228 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_358_case__723")(x)++++c__case_359_case__724 x1 x5 x226 x225@(Curry.Module.Prelude.T2 x227 x228) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_358(x5)(x226)(x228)(x227)(x1)(st))(st)+c__case_359_case__724 x1 x5 x226 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_359_case__724(x1)(x5)(x226)(x)(st))(i)(xs)(st)+c__case_359_case__724 x1 x5 x226 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_359_case__724")(x)++++c__case_360_case__725 x1 x5 x4@((Curry.Module.Prelude.:<) x225 x226) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_359(x5)(x226)(x225)(x1)(st))(st)+c__case_360_case__725 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_360_case__725(x1)(x5)(x)(st))(i)(xs)(st)+c__case_360_case__725 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_360_case__725")(x)++++c__case_361_case__726 x1 x4 x5 x224@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_360(x5)(x4)(x1)(st))(st)+c__case_361_case__726 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_361_case__726(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_361_case__726 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_361_case__726")(x)++++c__case_362_case__727 x1 x4 x5 x224 x223 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x223)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_361(x4)(x5)(x224)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_363_case__728 x1 x4 x5 x222@((Curry.Module.Prelude.:<) x223 x224) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_362(x4)(x5)(x224)(x223)(x1)(st))(st)+c__case_363_case__728 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_363_case__728(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_363_case__728 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_363_case__728")(x)++++c__case_364_case__729 x1 x4 x5 x222 x221 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x221)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_363(x4)(x5)(x222)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_365_case__730 x1 x4 x5 x220@((Curry.Module.Prelude.:<) x221 x222) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_364(x4)(x5)(x222)(x221)(x1)(st))(st)+c__case_365_case__730 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_365_case__730(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_365_case__730 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_365_case__730")(x)++++c__case_366_case__731 x1 x4 x5 x220 x219 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x219)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_365(x4)(x5)(x220)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_367_case__732 x1 x4 x5 x218@((Curry.Module.Prelude.:<) x219 x220) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_366(x4)(x5)(x220)(x219)(x1)(st))(st)+c__case_367_case__732 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_367_case__732(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_367_case__732 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_367_case__732")(x)++++c__case_368_case__733 x1 x4 x5 x218 x217 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x217)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_367(x4)(x5)(x218)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_369_case__734 x1 x4 x5 x216@((Curry.Module.Prelude.:<) x217 x218) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_368(x4)(x5)(x218)(x217)(x1)(st))(st)+c__case_369_case__734 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_369_case__734(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_369_case__734 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_369_case__734")(x)++++c__case_370_case__735 x1 x4 x5 x216 x215 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x215)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_369(x4)(x5)(x216)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_371_case__736 x1 x4 x5 x214@((Curry.Module.Prelude.:<) x215 x216) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_370(x4)(x5)(x216)(x215)(x1)(st))(st)+c__case_371_case__736 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_371_case__736(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_371_case__736 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_371_case__736")(x)++++c__case_372_case__737 x1 x4 x5 x214 x213 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x213)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_371(x4)(x5)(x214)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_373_case__738 x1 x4 x5 x212@((Curry.Module.Prelude.:<) x213 x214) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_372(x4)(x5)(x214)(x213)(x1)(st))(st)+c__case_373_case__738 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_373_case__738(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_373_case__738 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_373_case__738")(x)++++c__case_374_case__739 x1 x4 x5 x212 x211 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x211)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_373(x4)(x5)(x212)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_375_case__740 x1 x4 x5 x176@((Curry.Module.Prelude.:<) x211 x212) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_374(x4)(x5)(x212)(x211)(x1)(st))(st)+c__case_375_case__740 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_375_case__740(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_375_case__740 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_375_case__740")(x)++++c__case_410_case__741 x1 x4 x5 x176 x175 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x175)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_409(x4)(x5)(x176)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x175)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_375(x4)(x5)(x176)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_411_case__742 x1 x4 x5 x174@((Curry.Module.Prelude.:<) x175 x176) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_410(x4)(x5)(x176)(x175)(x1)(st))(st)+c__case_411_case__742 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_411_case__742(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_411_case__742 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_411_case__742")(x)++++c__case_412_case__743 x1 x4 x5 x174 x173 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x173)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_411(x4)(x5)(x174)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_413_case__744 x1 x4 x5 x172@((Curry.Module.Prelude.:<) x173 x174) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_412(x4)(x5)(x174)(x173)(x1)(st))(st)+c__case_413_case__744 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_413_case__744(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_413_case__744 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_413_case__744")(x)++++c__case_414_case__745 x1 x4 x5 x172 x171 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x171)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_413(x4)(x5)(x172)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_415_case__746 x1 x4 x5 x170@((Curry.Module.Prelude.:<) x171 x172) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_414(x4)(x5)(x172)(x171)(x1)(st))(st)+c__case_415_case__746 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_415_case__746(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_415_case__746 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_415_case__746")(x)++++c__case_310_case__747 x1 x5@((Curry.Module.Prelude.:<) x275 x276) st = let {x277 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x277)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Case(Curry.Module.FlatCurry.C_Rigid)(Curry.Module.OracleFlatCurryXML.c_flatx2exp(x275)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2branch))))(x276)(x277)(st)))(st)+c__case_310_case__747 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_310_case__747(x1)(x)(st))(i)(xs)(st)+c__case_310_case__747 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_310_case__747")(x)++++c__case_311_case__748 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_310(x5)(x1)(st))(st)+c__case_311_case__748 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_311_case__748(x1)(x5)(x)(st))(i)(xs)(st)+c__case_311_case__748 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_311_case__748")(x)++++c__case_312_case__749 x1 x4 x5 x274@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_311(x5)(x4)(x1)(st))(st)+c__case_312_case__749 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_312_case__749(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_312_case__749 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_312_case__749")(x)++++c__case_313_case__750 x1 x4 x5 x274 x273 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x273)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_312(x4)(x5)(x274)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_314_case__751 x1 x4 x5 x272@((Curry.Module.Prelude.:<) x273 x274) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_313(x4)(x5)(x274)(x273)(x1)(st))(st)+c__case_314_case__751 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_314_case__751(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_314_case__751 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_314_case__751")(x)++++c__case_315_case__752 x1 x4 x5 x272 x271 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x271)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_314(x4)(x5)(x272)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_316_case__753 x1 x4 x5 x170@((Curry.Module.Prelude.:<) x271 x272) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_315(x4)(x5)(x272)(x271)(x1)(st))(st)+c__case_316_case__753 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_316_case__753(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_316_case__753 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_316_case__753")(x)++++c__case_416_case__754 x1 x4 x5 x170 x169 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x169)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_415(x4)(x5)(x170)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x169)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_316(x4)(x5)(x170)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_417_case__755 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x169 x170) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_416(x4)(x5)(x170)(x169)(x1)(st))(st)+c__case_417_case__755 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_417_case__755(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_417_case__755 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_417_case__755")(x)++++c__case_303_case__756 x1 x279 x281 x282@Curry.Module.Prelude.List st = let {x283 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x283)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Or(Curry.Module.OracleFlatCurryXML.c_flatx2exp(x279)(x1)(st))(Curry.Module.OracleFlatCurryXML.c_flatx2exp(x281)(x283)(st)))(st)+c__case_303_case__756 x1 x279 x281 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_303_case__756(x1)(x279)(x281)(x)(st))(i)(xs)(st)+c__case_303_case__756 x1 x279 x281 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_303_case__756")(x)++++c__case_304_case__757 x1 x279 x280@((Curry.Module.Prelude.:<) x281 x282) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_303(x279)(x281)(x282)(x1)(st))(st)+c__case_304_case__757 x1 x279 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_304_case__757(x1)(x279)(x)(st))(i)(xs)(st)+c__case_304_case__757 x1 x279 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_304_case__757")(x)++++c__case_305_case__758 x1 x5@((Curry.Module.Prelude.:<) x279 x280) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_304(x279)(x280)(x1)(st))(st)+c__case_305_case__758 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_305_case__758(x1)(x)(st))(i)(xs)(st)+c__case_305_case__758 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_305_case__758")(x)++++c__case_306_case__759 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_305(x5)(x1)(st))(st)+c__case_306_case__759 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_306_case__759(x1)(x5)(x)(st))(i)(xs)(st)+c__case_306_case__759 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_306_case__759")(x)++++c__case_307_case__760 x1 x4 x5 x278@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_306(x5)(x4)(x1)(st))(st)+c__case_307_case__760 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_307_case__760(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_307_case__760 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_307_case__760")(x)++++c__case_308_case__761 x1 x4 x5 x278 x277 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x277)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_307(x4)(x5)(x278)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_309_case__762 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x277 x278) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_308(x4)(x5)(x278)(x277)(x1)(st))(st)+c__case_309_case__762 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_309_case__762(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_309_case__762 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_309_case__762")(x)++++c__case_581_case__763 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_580(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_574(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_555(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_417(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_309(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st))(st))(st))(st)++++c__case_582_case__764 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_581(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_582_case__764 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_582_case__764(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_582_case__764 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_582_case__764")(x)++++c__case_583_case__765 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_582(x4)(x5)(x3)(x1)(st))(st)+c__case_583_case__765 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_583_case__765(x1)(x)(st))(i)(xs)(st)+c__case_583_case__765 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_583_case__765")(x)++++c__case_302_case__766 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_302_case__766 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_302_case__766(x1)(x)(st))(i)(xs)(st)+c__case_302_case__766 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_302_case__766")(x)++++c__case_301_case__767 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_301_case__767 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_301_case__767(x1)(x)(st))(i)(xs)(st)+c__case_301_case__767 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_301_case__767")(x)++++c__case_300_case__768 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_300_case__768 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_300_case__768(x1)(x)(st))(i)(xs)(st)+c__case_300_case__768 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_300_case__768")(x)++++c__case_299_case__769 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_299_case__769 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_299_case__769(x1)(x)(st))(i)(xs)(st)+c__case_299_case__769 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_299_case__769")(x)++++c__case_268_case__770 x1 x5 x6 x28 x35 x36@Curry.Module.Prelude.List st = let {x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List))(let {x37 = Curry.Module.OracleFlatCurryXML.c_flatx2let((Curry.Module.Prelude.:<)(x5)(x6))(x1)(st)} in let {x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x40)((Curry.Module.Prelude.:<)(x41)(Curry.Module.Prelude.List))(let {x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x41)((Curry.Module.Prelude.:<)(x42)(Curry.Module.Prelude.List))(let {x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x42)((Curry.Module.Prelude.:<)(x43)((Curry.Module.Prelude.:<)(x44)(Curry.Module.Prelude.List)))(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.OracleRead.c_readNat(Curry.Module.OracleXML.c_textOfXml(x28)(x42)(st))(x43)(st))(Curry.Module.OracleFlatCurryXML.c_flatx2exp(x35)(x44)(st)))(Curry.Module.OracleFlatCurryXML.c_flatx2let'46_'35selFP9'35bindings(x37)(x40)(st)))(Curry.Module.OracleFlatCurryXML.c_flatx2let'46_'35selFP10'35exp(x37)(x41)(st)))(st))(st))(st))(st)+c__case_268_case__770 x1 x5 x6 x28 x35 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_268_case__770(x1)(x5)(x6)(x28)(x35)(x)(st))(i)(xs)(st)+c__case_268_case__770 x1 x5 x6 x28 x35 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_268_case__770")(x)++++c__case_269_case__771 x1 x5 x6 x28 x25@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_268(x5)(x6)(x28)(x35)(x36)(x1)(st))(st)+c__case_269_case__771 x1 x5 x6 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_269_case__771(x1)(x5)(x6)(x28)(x)(st))(i)(xs)(st)+c__case_269_case__771 x1 x5 x6 x28 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_269_case__771")(x)++++c__case_270_case__772 x1 x5 x6 x25 x28 x27@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_269(x5)(x6)(x28)(x25)(x1)(st))(st)+c__case_270_case__772 x1 x5 x6 x25 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_270_case__772(x1)(x5)(x6)(x25)(x28)(x)(st))(i)(xs)(st)+c__case_270_case__772 x1 x5 x6 x25 x28 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_270_case__772")(x)++++c__case_271_case__773 x1 x5 x6 x25 x27 x28 x34@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_270(x5)(x6)(x25)(x28)(x27)(x1)(st))(st)+c__case_271_case__773 x1 x5 x6 x25 x27 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_271_case__773(x1)(x5)(x6)(x25)(x27)(x28)(x)(st))(i)(xs)(st)+c__case_271_case__773 x1 x5 x6 x25 x27 x28 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_271_case__773")(x)++++c__case_272_case__774 x1 x5 x6 x25 x27 x28 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_271(x5)(x6)(x25)(x27)(x28)(x34)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_273_case__775 x1 x5 x6 x25 x27 x28 x32@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_272(x5)(x6)(x25)(x27)(x28)(x34)(x33)(x1)(st))(st)+c__case_273_case__775 x1 x5 x6 x25 x27 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_273_case__775(x1)(x5)(x6)(x25)(x27)(x28)(x)(st))(i)(xs)(st)+c__case_273_case__775 x1 x5 x6 x25 x27 x28 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_273_case__775")(x)++++c__case_274_case__776 x1 x5 x6 x25 x27 x28 x32 x31 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x31)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_273(x5)(x6)(x25)(x27)(x28)(x32)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_275_case__777 x1 x5 x6 x25 x27 x28 x30@((Curry.Module.Prelude.:<) x31 x32) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_274(x5)(x6)(x25)(x27)(x28)(x32)(x31)(x1)(st))(st)+c__case_275_case__777 x1 x5 x6 x25 x27 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_275_case__777(x1)(x5)(x6)(x25)(x27)(x28)(x)(st))(i)(xs)(st)+c__case_275_case__777 x1 x5 x6 x25 x27 x28 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_275_case__777")(x)++++c__case_276_case__778 x1 x5 x6 x25 x27 x28 x30 x29 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x29)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_275(x5)(x6)(x25)(x27)(x28)(x30)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_277_case__779 x1 x5 x6 x25 x27 x28 x26@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_276(x5)(x6)(x25)(x27)(x28)(x30)(x29)(x1)(st))(st)+c__case_277_case__779 x1 x5 x6 x25 x27 x28 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_277_case__779(x1)(x5)(x6)(x25)(x27)(x28)(x)(st))(i)(xs)(st)+c__case_277_case__779 x1 x5 x6 x25 x27 x28 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_277_case__779")(x)++++c__case_278_case__780 x1 x5 x6 x25 x24@(Curry.Module.XML.C_XElem x26 x27 x28) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_277(x5)(x6)(x25)(x27)(x28)(x26)(x1)(st))(st)+c__case_278_case__780 x1 x5 x6 x25 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_278_case__780(x1)(x5)(x6)(x25)(x)(st))(i)(xs)(st)+c__case_278_case__780 x1 x5 x6 x25 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_278_case__780")(x)++++c__case_279_case__781 x1 x5 x6 x9@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_278(x5)(x6)(x25)(x24)(x1)(st))(st)+c__case_279_case__781 x1 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_279_case__781(x1)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_279_case__781 x1 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_279_case__781")(x)++++c__case_280_case__782 x1 x5 x6 x9 x8@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_279(x5)(x6)(x9)(x1)(st))(st)+c__case_280_case__782 x1 x5 x6 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_280_case__782(x1)(x5)(x6)(x9)(x)(st))(i)(xs)(st)+c__case_280_case__782 x1 x5 x6 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_280_case__782")(x)++++c__case_281_case__783 x1 x5 x6 x8 x9 x23@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_280(x5)(x6)(x9)(x8)(x1)(st))(st)+c__case_281_case__783 x1 x5 x6 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_281_case__783(x1)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_281_case__783 x1 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_281_case__783")(x)++++c__case_282_case__784 x1 x5 x6 x8 x9 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('g'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_281(x5)(x6)(x8)(x9)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_283_case__785 x1 x5 x6 x8 x9 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_282(x5)(x6)(x8)(x9)(x23)(x22)(x1)(st))(st)+c__case_283_case__785 x1 x5 x6 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_283_case__785(x1)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_283_case__785 x1 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_283_case__785")(x)++++c__case_284_case__786 x1 x5 x6 x8 x9 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_283(x5)(x6)(x8)(x9)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_285_case__787 x1 x5 x6 x8 x9 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_284(x5)(x6)(x8)(x9)(x21)(x20)(x1)(st))(st)+c__case_285_case__787 x1 x5 x6 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_285_case__787(x1)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_285_case__787 x1 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_285_case__787")(x)++++c__case_286_case__788 x1 x5 x6 x8 x9 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_285(x5)(x6)(x8)(x9)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_287_case__789 x1 x5 x6 x8 x9 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_286(x5)(x6)(x8)(x9)(x19)(x18)(x1)(st))(st)+c__case_287_case__789 x1 x5 x6 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_287_case__789(x1)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_287_case__789 x1 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_287_case__789")(x)++++c__case_288_case__790 x1 x5 x6 x8 x9 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_287(x5)(x6)(x8)(x9)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_289_case__791 x1 x5 x6 x8 x9 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_288(x5)(x6)(x8)(x9)(x17)(x16)(x1)(st))(st)+c__case_289_case__791 x1 x5 x6 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_289_case__791(x1)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_289_case__791 x1 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_289_case__791")(x)++++c__case_290_case__792 x1 x5 x6 x8 x9 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_289(x5)(x6)(x8)(x9)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_291_case__793 x1 x5 x6 x8 x9 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_290(x5)(x6)(x8)(x9)(x15)(x14)(x1)(st))(st)+c__case_291_case__793 x1 x5 x6 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_291_case__793(x1)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_291_case__793 x1 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_291_case__793")(x)++++c__case_292_case__794 x1 x5 x6 x8 x9 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_291(x5)(x6)(x8)(x9)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_293_case__795 x1 x5 x6 x8 x9 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_292(x5)(x6)(x8)(x9)(x13)(x12)(x1)(st))(st)+c__case_293_case__795 x1 x5 x6 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_293_case__795(x1)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_293_case__795 x1 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_293_case__795")(x)++++c__case_294_case__796 x1 x5 x6 x8 x9 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('b'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_293(x5)(x6)(x8)(x9)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_295_case__797 x1 x5 x6 x8 x9 x7@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_294(x5)(x6)(x8)(x9)(x11)(x10)(x1)(st))(st)+c__case_295_case__797 x1 x5 x6 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_295_case__797(x1)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_295_case__797 x1 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_295_case__797")(x)++++c__case_296_case__798 x1 x5 x6 x3@(Curry.Module.XML.C_XElem x7 x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_295(x5)(x6)(x8)(x9)(x7)(x1)(st))(st)+c__case_296_case__798 x1 x5 x6 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_296_case__798(x1)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_296_case__798 x1 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_296_case__798")(x)++++c__case_297_case__799 x1 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.OracleFlatCurryXML.c_flatx2exp(x3)(x1)(st)))(st)+c__case_297_case__799 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_296(x5)(x6)(x3)(x1)(st))(st)+c__case_297_case__799 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_297_case__799(x1)(x3)(x)(st))(i)(xs)(st)+c__case_297_case__799 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_297_case__799")(x)++++c__case_298_case__800 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_297(x3)(x4)(x1)(st))(st)+c__case_298_case__800 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_298_case__800(x1)(x)(st))(i)(xs)(st)+c__case_298_case__800 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_298_case__800")(x)++++c__case_267_case__801 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_267_case__801 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_267_case__801(x1)(x)(st))(i)(xs)(st)+c__case_267_case__801 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_267_case__801")(x)++++c__case_266_case__802 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_266_case__802 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_266_case__802(x1)(x)(st))(i)(xs)(st)+c__case_266_case__802 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_266_case__802")(x)++++c__case_205_case__803 x1 x22 x40 x56 x65 x66@Curry.Module.Prelude.List st = let {x67 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x67)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Branch(Curry.Module.FlatCurry.C_Pattern(Curry.Module.Prelude.T2(x40)(x56))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2var))))(x22)(x1)(st)))(Curry.Module.OracleFlatCurryXML.c_flatx2exp(x65)(x67)(st)))(st)+c__case_205_case__803 x1 x22 x40 x56 x65 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_205_case__803(x1)(x22)(x40)(x56)(x65)(x)(st))(i)(xs)(st)+c__case_205_case__803 x1 x22 x40 x56 x65 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_205_case__803")(x)++++c__case_206_case__804 x1 x22 x40 x56 x19@((Curry.Module.Prelude.:<) x65 x66) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_205(x22)(x40)(x56)(x65)(x66)(x1)(st))(st)+c__case_206_case__804 x1 x22 x40 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_206_case__804(x1)(x22)(x40)(x56)(x)(st))(i)(xs)(st)+c__case_206_case__804 x1 x22 x40 x56 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_206_case__804")(x)++++c__case_207_case__805 x1 x19 x22 x40 x56 x54@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_206(x22)(x40)(x56)(x19)(x1)(st))(st)+c__case_207_case__805 x1 x19 x22 x40 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_207_case__805(x1)(x19)(x22)(x40)(x56)(x)(st))(i)(xs)(st)+c__case_207_case__805 x1 x19 x22 x40 x56 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_207_case__805")(x)++++c__case_208_case__806 x1 x19 x22 x40 x54 x56 x64@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_207(x19)(x22)(x40)(x56)(x54)(x1)(st))(st)+c__case_208_case__806 x1 x19 x22 x40 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_208_case__806(x1)(x19)(x22)(x40)(x54)(x56)(x)(st))(i)(xs)(st)+c__case_208_case__806 x1 x19 x22 x40 x54 x56 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_208_case__806")(x)++++c__case_209_case__807 x1 x19 x22 x40 x54 x56 x64 x63 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x63)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_208(x19)(x22)(x40)(x54)(x56)(x64)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_210_case__808 x1 x19 x22 x40 x54 x56 x62@((Curry.Module.Prelude.:<) x63 x64) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_209(x19)(x22)(x40)(x54)(x56)(x64)(x63)(x1)(st))(st)+c__case_210_case__808 x1 x19 x22 x40 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_210_case__808(x1)(x19)(x22)(x40)(x54)(x56)(x)(st))(i)(xs)(st)+c__case_210_case__808 x1 x19 x22 x40 x54 x56 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_210_case__808")(x)++++c__case_211_case__809 x1 x19 x22 x40 x54 x56 x62 x61 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x61)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_210(x19)(x22)(x40)(x54)(x56)(x62)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_212_case__810 x1 x19 x22 x40 x54 x56 x60@((Curry.Module.Prelude.:<) x61 x62) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_211(x19)(x22)(x40)(x54)(x56)(x62)(x61)(x1)(st))(st)+c__case_212_case__810 x1 x19 x22 x40 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_212_case__810(x1)(x19)(x22)(x40)(x54)(x56)(x)(st))(i)(xs)(st)+c__case_212_case__810 x1 x19 x22 x40 x54 x56 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_212_case__810")(x)++++c__case_213_case__811 x1 x19 x22 x40 x54 x56 x60 x59 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x59)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_212(x19)(x22)(x40)(x54)(x56)(x60)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_214_case__812 x1 x19 x22 x40 x54 x56 x58@((Curry.Module.Prelude.:<) x59 x60) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_213(x19)(x22)(x40)(x54)(x56)(x60)(x59)(x1)(st))(st)+c__case_214_case__812 x1 x19 x22 x40 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_214_case__812(x1)(x19)(x22)(x40)(x54)(x56)(x)(st))(i)(xs)(st)+c__case_214_case__812 x1 x19 x22 x40 x54 x56 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_214_case__812")(x)++++c__case_215_case__813 x1 x19 x22 x40 x54 x56 x58 x57 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x57)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_214(x19)(x22)(x40)(x54)(x56)(x58)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_216_case__814 x1 x19 x22 x40 x54 x56 x55@((Curry.Module.Prelude.:<) x57 x58) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_215(x19)(x22)(x40)(x54)(x56)(x58)(x57)(x1)(st))(st)+c__case_216_case__814 x1 x19 x22 x40 x54 x56 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_216_case__814(x1)(x19)(x22)(x40)(x54)(x56)(x)(st))(i)(xs)(st)+c__case_216_case__814 x1 x19 x22 x40 x54 x56 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_216_case__814")(x)++++c__case_217_case__815 x1 x19 x22 x40 x54 x53@(Curry.Module.Prelude.T2 x55 x56) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_216(x19)(x22)(x40)(x54)(x56)(x55)(x1)(st))(st)+c__case_217_case__815 x1 x19 x22 x40 x54 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_217_case__815(x1)(x19)(x22)(x40)(x54)(x)(st))(i)(xs)(st)+c__case_217_case__815 x1 x19 x22 x40 x54 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_217_case__815")(x)++++c__case_218_case__816 x1 x19 x22 x40 x38@((Curry.Module.Prelude.:<) x53 x54) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_217(x19)(x22)(x40)(x54)(x53)(x1)(st))(st)+c__case_218_case__816 x1 x19 x22 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_218_case__816(x1)(x19)(x22)(x40)(x)(st))(i)(xs)(st)+c__case_218_case__816 x1 x19 x22 x40 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_218_case__816")(x)++++c__case_219_case__817 x1 x19 x22 x38 x40 x52@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_218(x19)(x22)(x40)(x38)(x1)(st))(st)+c__case_219_case__817 x1 x19 x22 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_219_case__817(x1)(x19)(x22)(x38)(x40)(x)(st))(i)(xs)(st)+c__case_219_case__817 x1 x19 x22 x38 x40 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_219_case__817")(x)++++c__case_220_case__818 x1 x19 x22 x38 x40 x52 x51 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x51)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_219(x19)(x22)(x38)(x40)(x52)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_221_case__819 x1 x19 x22 x38 x40 x50@((Curry.Module.Prelude.:<) x51 x52) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_220(x19)(x22)(x38)(x40)(x52)(x51)(x1)(st))(st)+c__case_221_case__819 x1 x19 x22 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_221_case__819(x1)(x19)(x22)(x38)(x40)(x)(st))(i)(xs)(st)+c__case_221_case__819 x1 x19 x22 x38 x40 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_221_case__819")(x)++++c__case_222_case__820 x1 x19 x22 x38 x40 x50 x49 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x49)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_221(x19)(x22)(x38)(x40)(x50)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_223_case__821 x1 x19 x22 x38 x40 x48@((Curry.Module.Prelude.:<) x49 x50) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_222(x19)(x22)(x38)(x40)(x50)(x49)(x1)(st))(st)+c__case_223_case__821 x1 x19 x22 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_223_case__821(x1)(x19)(x22)(x38)(x40)(x)(st))(i)(xs)(st)+c__case_223_case__821 x1 x19 x22 x38 x40 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_223_case__821")(x)++++c__case_224_case__822 x1 x19 x22 x38 x40 x48 x47 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x47)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_223(x19)(x22)(x38)(x40)(x48)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_225_case__823 x1 x19 x22 x38 x40 x46@((Curry.Module.Prelude.:<) x47 x48) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_224(x19)(x22)(x38)(x40)(x48)(x47)(x1)(st))(st)+c__case_225_case__823 x1 x19 x22 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_225_case__823(x1)(x19)(x22)(x38)(x40)(x)(st))(i)(xs)(st)+c__case_225_case__823 x1 x19 x22 x38 x40 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_225_case__823")(x)++++c__case_226_case__824 x1 x19 x22 x38 x40 x46 x45 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x45)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_225(x19)(x22)(x38)(x40)(x46)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_227_case__825 x1 x19 x22 x38 x40 x44@((Curry.Module.Prelude.:<) x45 x46) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_226(x19)(x22)(x38)(x40)(x46)(x45)(x1)(st))(st)+c__case_227_case__825 x1 x19 x22 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_227_case__825(x1)(x19)(x22)(x38)(x40)(x)(st))(i)(xs)(st)+c__case_227_case__825 x1 x19 x22 x38 x40 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_227_case__825")(x)++++c__case_228_case__826 x1 x19 x22 x38 x40 x44 x43 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x43)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_227(x19)(x22)(x38)(x40)(x44)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_229_case__827 x1 x19 x22 x38 x40 x42@((Curry.Module.Prelude.:<) x43 x44) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_228(x19)(x22)(x38)(x40)(x44)(x43)(x1)(st))(st)+c__case_229_case__827 x1 x19 x22 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_229_case__827(x1)(x19)(x22)(x38)(x40)(x)(st))(i)(xs)(st)+c__case_229_case__827 x1 x19 x22 x38 x40 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_229_case__827")(x)++++c__case_230_case__828 x1 x19 x22 x38 x40 x42 x41 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x41)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_229(x19)(x22)(x38)(x40)(x42)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_231_case__829 x1 x19 x22 x38 x40 x39@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_230(x19)(x22)(x38)(x40)(x42)(x41)(x1)(st))(st)+c__case_231_case__829 x1 x19 x22 x38 x40 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_231_case__829(x1)(x19)(x22)(x38)(x40)(x)(st))(i)(xs)(st)+c__case_231_case__829 x1 x19 x22 x38 x40 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_231_case__829")(x)++++c__case_232_case__830 x1 x19 x22 x38 x37@(Curry.Module.Prelude.T2 x39 x40) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_231(x19)(x22)(x38)(x40)(x39)(x1)(st))(st)+c__case_232_case__830 x1 x19 x22 x38 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_232_case__830(x1)(x19)(x22)(x38)(x)(st))(i)(xs)(st)+c__case_232_case__830 x1 x19 x22 x38 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_232_case__830")(x)++++c__case_233_case__831 x1 x19 x22 x21@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_232(x19)(x22)(x38)(x37)(x1)(st))(st)+c__case_233_case__831 x1 x19 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_233_case__831(x1)(x19)(x22)(x)(st))(i)(xs)(st)+c__case_233_case__831 x1 x19 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_233_case__831")(x)++++c__case_234_case__832 x1 x19 x21 x22 x36@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_233(x19)(x22)(x21)(x1)(st))(st)+c__case_234_case__832 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_234_case__832(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_234_case__832 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_234_case__832")(x)++++c__case_235_case__833 x1 x19 x21 x22 x36 x35 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x35)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_234(x19)(x21)(x22)(x36)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_236_case__834 x1 x19 x21 x22 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_235(x19)(x21)(x22)(x36)(x35)(x1)(st))(st)+c__case_236_case__834 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_236_case__834(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_236_case__834 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_236_case__834")(x)++++c__case_237_case__835 x1 x19 x21 x22 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_236(x19)(x21)(x22)(x34)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_238_case__836 x1 x19 x21 x22 x32@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_237(x19)(x21)(x22)(x34)(x33)(x1)(st))(st)+c__case_238_case__836 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_238_case__836(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_238_case__836 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_238_case__836")(x)++++c__case_239_case__837 x1 x19 x21 x22 x32 x31 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x31)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_238(x19)(x21)(x22)(x32)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_240_case__838 x1 x19 x21 x22 x30@((Curry.Module.Prelude.:<) x31 x32) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_239(x19)(x21)(x22)(x32)(x31)(x1)(st))(st)+c__case_240_case__838 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_240_case__838(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_240_case__838 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_240_case__838")(x)++++c__case_241_case__839 x1 x19 x21 x22 x30 x29 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x29)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_240(x19)(x21)(x22)(x30)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_242_case__840 x1 x19 x21 x22 x28@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_241(x19)(x21)(x22)(x30)(x29)(x1)(st))(st)+c__case_242_case__840 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_242_case__840(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_242_case__840 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_242_case__840")(x)++++c__case_243_case__841 x1 x19 x21 x22 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_242(x19)(x21)(x22)(x28)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_244_case__842 x1 x19 x21 x22 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_243(x19)(x21)(x22)(x28)(x27)(x1)(st))(st)+c__case_244_case__842 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_244_case__842(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_244_case__842 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_244_case__842")(x)++++c__case_245_case__843 x1 x19 x21 x22 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_244(x19)(x21)(x22)(x26)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_246_case__844 x1 x19 x21 x22 x24@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_245(x19)(x21)(x22)(x26)(x25)(x1)(st))(st)+c__case_246_case__844 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_246_case__844(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_246_case__844 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_246_case__844")(x)++++c__case_185_case__845 x1 x81 x83 x84@Curry.Module.Prelude.List st = let {x85 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x85)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Branch(Curry.Module.FlatCurry.C_LPattern(Curry.Module.OracleFlatCurryXML.c_flatx2lit(x81)(x1)(st)))(Curry.Module.OracleFlatCurryXML.c_flatx2exp(x83)(x85)(st)))(st)+c__case_185_case__845 x1 x81 x83 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_185_case__845(x1)(x81)(x83)(x)(st))(i)(xs)(st)+c__case_185_case__845 x1 x81 x83 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_185_case__845")(x)++++c__case_186_case__846 x1 x81 x19@((Curry.Module.Prelude.:<) x83 x84) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_185(x81)(x83)(x84)(x1)(st))(st)+c__case_186_case__846 x1 x81 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_186_case__846(x1)(x81)(x)(st))(i)(xs)(st)+c__case_186_case__846 x1 x81 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_186_case__846")(x)++++c__case_187_case__847 x1 x19 x81 x82@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_186(x81)(x19)(x1)(st))(st)+c__case_187_case__847 x1 x19 x81 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_187_case__847(x1)(x19)(x81)(x)(st))(i)(xs)(st)+c__case_187_case__847 x1 x19 x81 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_187_case__847")(x)++++c__case_188_case__848 x1 x19 x22@((Curry.Module.Prelude.:<) x81 x82) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_187(x19)(x81)(x82)(x1)(st))(st)+c__case_188_case__848 x1 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_188_case__848(x1)(x19)(x)(st))(i)(xs)(st)+c__case_188_case__848 x1 x19 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_188_case__848")(x)++++c__case_189_case__849 x1 x19 x22 x21@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_188(x19)(x22)(x1)(st))(st)+c__case_189_case__849 x1 x19 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_189_case__849(x1)(x19)(x22)(x)(st))(i)(xs)(st)+c__case_189_case__849 x1 x19 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_189_case__849")(x)++++c__case_190_case__850 x1 x19 x21 x22 x80@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_189(x19)(x22)(x21)(x1)(st))(st)+c__case_190_case__850 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_190_case__850(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_190_case__850 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_190_case__850")(x)++++c__case_191_case__851 x1 x19 x21 x22 x80 x79 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x79)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_190(x19)(x21)(x22)(x80)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_192_case__852 x1 x19 x21 x22 x78@((Curry.Module.Prelude.:<) x79 x80) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_191(x19)(x21)(x22)(x80)(x79)(x1)(st))(st)+c__case_192_case__852 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_192_case__852(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_192_case__852 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_192_case__852")(x)++++c__case_193_case__853 x1 x19 x21 x22 x78 x77 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x77)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_192(x19)(x21)(x22)(x78)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_194_case__854 x1 x19 x21 x22 x76@((Curry.Module.Prelude.:<) x77 x78) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_193(x19)(x21)(x22)(x78)(x77)(x1)(st))(st)+c__case_194_case__854 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_194_case__854(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_194_case__854 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_194_case__854")(x)++++c__case_195_case__855 x1 x19 x21 x22 x76 x75 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x75)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_194(x19)(x21)(x22)(x76)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_196_case__856 x1 x19 x21 x22 x74@((Curry.Module.Prelude.:<) x75 x76) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_195(x19)(x21)(x22)(x76)(x75)(x1)(st))(st)+c__case_196_case__856 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_196_case__856(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_196_case__856 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_196_case__856")(x)++++c__case_197_case__857 x1 x19 x21 x22 x74 x73 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x73)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_196(x19)(x21)(x22)(x74)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_198_case__858 x1 x19 x21 x22 x72@((Curry.Module.Prelude.:<) x73 x74) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_197(x19)(x21)(x22)(x74)(x73)(x1)(st))(st)+c__case_198_case__858 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_198_case__858(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_198_case__858 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_198_case__858")(x)++++c__case_199_case__859 x1 x19 x21 x22 x72 x71 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x71)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_198(x19)(x21)(x22)(x72)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_200_case__860 x1 x19 x21 x22 x70@((Curry.Module.Prelude.:<) x71 x72) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_199(x19)(x21)(x22)(x72)(x71)(x1)(st))(st)+c__case_200_case__860 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_200_case__860(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_200_case__860 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_200_case__860")(x)++++c__case_201_case__861 x1 x19 x21 x22 x70 x69 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x69)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_200(x19)(x21)(x22)(x70)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_202_case__862 x1 x19 x21 x22 x68@((Curry.Module.Prelude.:<) x69 x70) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_201(x19)(x21)(x22)(x70)(x69)(x1)(st))(st)+c__case_202_case__862 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_202_case__862(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_202_case__862 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_202_case__862")(x)++++c__case_203_case__863 x1 x19 x21 x22 x68 x67 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x67)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_202(x19)(x21)(x22)(x68)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_204_case__864 x1 x19 x21 x22 x24@((Curry.Module.Prelude.:<) x67 x68) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_203(x19)(x21)(x22)(x68)(x67)(x1)(st))(st)+c__case_204_case__864 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_204_case__864(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_204_case__864 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_204_case__864")(x)++++c__case_168_case__865 x1 x100@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('H'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_168_case__865 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_168_case__865(x1)(x)(st))(i)(xs)(st)+c__case_168_case__865 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_168_case__865")(x)++++c__case_169_case__866 x1 x19@((Curry.Module.Prelude.:<) x99 x100) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_168(x100)(x1)(st))(st)+c__case_169_case__866 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_169_case__866(x1)(x)(st))(i)(xs)(st)+c__case_169_case__866 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_169_case__866")(x)++++c__case_170_case__867 x1 x19 x98@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_169(x19)(x1)(st))(st)+c__case_170_case__867 x1 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_170_case__867(x1)(x19)(x)(st))(i)(xs)(st)+c__case_170_case__867 x1 x19 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_170_case__867")(x)++++c__case_171_case__868 x1 x19 x98 x97 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x97)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_170(x19)(x98)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_172_case__869 x1 x19 x96@((Curry.Module.Prelude.:<) x97 x98) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_171(x19)(x98)(x97)(x1)(st))(st)+c__case_172_case__869 x1 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_172_case__869(x1)(x19)(x)(st))(i)(xs)(st)+c__case_172_case__869 x1 x19 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_172_case__869")(x)++++c__case_173_case__870 x1 x19 x96 x95 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x95)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_172(x19)(x96)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_174_case__871 x1 x19 x94@((Curry.Module.Prelude.:<) x95 x96) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_173(x19)(x96)(x95)(x1)(st))(st)+c__case_174_case__871 x1 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_174_case__871(x1)(x19)(x)(st))(i)(xs)(st)+c__case_174_case__871 x1 x19 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_174_case__871")(x)++++c__case_175_case__872 x1 x19 x94 x93 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x93)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_174(x19)(x94)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_176_case__873 x1 x19 x92@((Curry.Module.Prelude.:<) x93 x94) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_175(x19)(x94)(x93)(x1)(st))(st)+c__case_176_case__873 x1 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_176_case__873(x1)(x19)(x)(st))(i)(xs)(st)+c__case_176_case__873 x1 x19 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_176_case__873")(x)++++c__case_177_case__874 x1 x19 x92 x91 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x91)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_176(x19)(x92)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_178_case__875 x1 x19 x90@((Curry.Module.Prelude.:<) x91 x92) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_177(x19)(x92)(x91)(x1)(st))(st)+c__case_178_case__875 x1 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_178_case__875(x1)(x19)(x)(st))(i)(xs)(st)+c__case_178_case__875 x1 x19 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_178_case__875")(x)++++c__case_179_case__876 x1 x19 x90 x89 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x89)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_178(x19)(x90)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_180_case__877 x1 x19 x88@((Curry.Module.Prelude.:<) x89 x90) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_179(x19)(x90)(x89)(x1)(st))(st)+c__case_180_case__877 x1 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_180_case__877(x1)(x19)(x)(st))(i)(xs)(st)+c__case_180_case__877 x1 x19 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_180_case__877")(x)++++c__case_181_case__878 x1 x19 x88 x87 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x87)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_180(x19)(x88)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_182_case__879 x1 x19 x86@((Curry.Module.Prelude.:<) x87 x88) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_181(x19)(x88)(x87)(x1)(st))(st)+c__case_182_case__879 x1 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_182_case__879(x1)(x19)(x)(st))(i)(xs)(st)+c__case_182_case__879 x1 x19 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_182_case__879")(x)++++c__case_183_case__880 x1 x19 x86 x85 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x85)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_182(x19)(x86)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_184_case__881 x1 x19 x24@((Curry.Module.Prelude.:<) x85 x86) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_183(x19)(x86)(x85)(x1)(st))(st)+c__case_184_case__881 x1 x19 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_184_case__881(x1)(x19)(x)(st))(i)(xs)(st)+c__case_184_case__881 x1 x19 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_184_case__881")(x)++++c__case_247_case__882 x1 x19 x21 x22 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_246(x19)(x21)(x22)(x24)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_204(x19)(x21)(x22)(x24)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('h'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_184(x19)(x24)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st))(st)++++c__case_248_case__883 x1 x19 x21 x22 x20@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_247(x19)(x21)(x22)(x24)(x23)(x1)(st))(st)+c__case_248_case__883 x1 x19 x21 x22 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_248_case__883(x1)(x19)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_248_case__883 x1 x19 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_248_case__883")(x)++++c__case_249_case__884 x1 x19 x18@(Curry.Module.XML.C_XElem x20 x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_248(x19)(x21)(x22)(x20)(x1)(st))(st)+c__case_249_case__884 x1 x19 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_249_case__884(x1)(x19)(x)(st))(i)(xs)(st)+c__case_249_case__884 x1 x19 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_249_case__884")(x)++++c__case_250_case__885 x1 x5@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_249(x19)(x18)(x1)(st))(st)+c__case_250_case__885 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_250_case__885(x1)(x)(st))(i)(xs)(st)+c__case_250_case__885 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_250_case__885")(x)++++c__case_251_case__886 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_250(x5)(x1)(st))(st)+c__case_251_case__886 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_251_case__886(x1)(x5)(x)(st))(i)(xs)(st)+c__case_251_case__886 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_251_case__886")(x)++++c__case_252_case__887 x1 x4 x5 x17@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_251(x5)(x4)(x1)(st))(st)+c__case_252_case__887 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_252_case__887(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_252_case__887 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_252_case__887")(x)++++c__case_253_case__888 x1 x4 x5 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('h'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_252(x4)(x5)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_254_case__889 x1 x4 x5 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_253(x4)(x5)(x17)(x16)(x1)(st))(st)+c__case_254_case__889 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_254_case__889(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_254_case__889 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_254_case__889")(x)++++c__case_255_case__890 x1 x4 x5 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_254(x4)(x5)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_256_case__891 x1 x4 x5 x13@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_255(x4)(x5)(x15)(x14)(x1)(st))(st)+c__case_256_case__891 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_256_case__891(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_256_case__891 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_256_case__891")(x)++++c__case_257_case__892 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_256(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_258_case__893 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_257(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_258_case__893 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_258_case__893(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_258_case__893 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_258_case__893")(x)++++c__case_259_case__894 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_258(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_260_case__895 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_259(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_260_case__895 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_260_case__895(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_260_case__895 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_260_case__895")(x)++++c__case_261_case__896 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_260(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_262_case__897 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_261(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_262_case__897 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_262_case__897(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_262_case__897 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_262_case__897")(x)++++c__case_263_case__898 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('b'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_262(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_264_case__899 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_263(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_264_case__899 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_264_case__899(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_264_case__899 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_264_case__899")(x)++++c__case_265_case__900 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_264(x4)(x5)(x3)(x1)(st))(st)+c__case_265_case__900 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_265_case__900(x1)(x)(st))(i)(xs)(st)+c__case_265_case__900 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_265_case__900")(x)++++c__case_157_case__901 x1 x5 x4@Curry.Module.Prelude.List st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_Intc(Curry.Module.OracleRead.c_readNat(Curry.Module.OracleXML.c_textOfXml(x5)(x1)(st))(x6)(st)))(st)+c__case_157_case__901 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_157_case__901(x1)(x5)(x)(st))(i)(xs)(st)+c__case_157_case__901 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_157_case__901")(x)++++c__case_158_case__902 x1 x4 x5 x13@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_157(x5)(x4)(x1)(st))(st)+c__case_158_case__902 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_158_case__902(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_158_case__902 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_158_case__902")(x)++++c__case_159_case__903 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_158(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_160_case__904 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_159(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_160_case__904 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_160_case__904(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_160_case__904 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_160_case__904")(x)++++c__case_161_case__905 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_160(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_162_case__906 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_161(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_162_case__906 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_162_case__906(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_162_case__906 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_162_case__906")(x)++++c__case_163_case__907 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_162(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_164_case__908 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_163(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_164_case__908 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_164_case__908(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_164_case__908 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_164_case__908")(x)++++c__case_145_case__909 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_145_case__909 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_145_case__909(x1)(x)(st))(i)(xs)(st)+c__case_145_case__909 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_145_case__909")(x)++++c__case_146_case__910 x1 x4 x23@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_145(x4)(x1)(st))(st)+c__case_146_case__910 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_146_case__910(x1)(x4)(x)(st))(i)(xs)(st)+c__case_146_case__910 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_146_case__910")(x)++++c__case_147_case__911 x1 x4 x23 x22 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x22)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_146(x4)(x23)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_148_case__912 x1 x4 x21@((Curry.Module.Prelude.:<) x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_147(x4)(x23)(x22)(x1)(st))(st)+c__case_148_case__912 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_148_case__912(x1)(x4)(x)(st))(i)(xs)(st)+c__case_148_case__912 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_148_case__912")(x)++++c__case_149_case__913 x1 x4 x21 x20 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x20)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_148(x4)(x21)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_150_case__914 x1 x4 x19@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_149(x4)(x21)(x20)(x1)(st))(st)+c__case_150_case__914 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_150_case__914(x1)(x4)(x)(st))(i)(xs)(st)+c__case_150_case__914 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_150_case__914")(x)++++c__case_151_case__915 x1 x4 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_150(x4)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_152_case__916 x1 x4 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_151(x4)(x19)(x18)(x1)(st))(st)+c__case_152_case__916 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_152_case__916(x1)(x4)(x)(st))(i)(xs)(st)+c__case_152_case__916 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_152_case__916")(x)++++c__case_153_case__917 x1 x4 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_152(x4)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_154_case__918 x1 x4 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_153(x4)(x17)(x16)(x1)(st))(st)+c__case_154_case__918 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_154_case__918(x1)(x4)(x)(st))(i)(xs)(st)+c__case_154_case__918 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_154_case__918")(x)++++c__case_155_case__919 x1 x4 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_154(x4)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_156_case__920 x1 x4 x7@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_155(x4)(x15)(x14)(x1)(st))(st)+c__case_156_case__920 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_156_case__920(x1)(x4)(x)(st))(i)(xs)(st)+c__case_156_case__920 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_156_case__920")(x)++++c__case_135_case__921 x1 x5 x4@Curry.Module.Prelude.List st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.FlatCurry.C_Charc(Curry.Module.OraclePrelude.c_chr(Curry.Module.OracleRead.c_readNat(Curry.Module.OracleXML.c_textOfXml(x5)(x1)(st))(x6)(st))(x7)(st)))(st)+c__case_135_case__921 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_135_case__921(x1)(x5)(x)(st))(i)(xs)(st)+c__case_135_case__921 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_135_case__921")(x)++++c__case_136_case__922 x1 x4 x5 x31@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_135(x5)(x4)(x1)(st))(st)+c__case_136_case__922 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_136_case__922(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_136_case__922 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_136_case__922")(x)++++c__case_137_case__923 x1 x4 x5 x31 x30 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x30)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_136(x4)(x5)(x31)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_138_case__924 x1 x4 x5 x29@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_137(x4)(x5)(x31)(x30)(x1)(st))(st)+c__case_138_case__924 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_138_case__924(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_138_case__924 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_138_case__924")(x)++++c__case_139_case__925 x1 x4 x5 x29 x28 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x28)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_138(x4)(x5)(x29)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_140_case__926 x1 x4 x5 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_139(x4)(x5)(x29)(x28)(x1)(st))(st)+c__case_140_case__926 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_140_case__926(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_140_case__926 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_140_case__926")(x)++++c__case_141_case__927 x1 x4 x5 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_140(x4)(x5)(x27)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_142_case__928 x1 x4 x5 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_141(x4)(x5)(x27)(x26)(x1)(st))(st)+c__case_142_case__928 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_142_case__928(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_142_case__928 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_142_case__928")(x)++++c__case_143_case__929 x1 x4 x5 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('h'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_142(x4)(x5)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_144_case__930 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_143(x4)(x5)(x25)(x24)(x1)(st))(st)+c__case_144_case__930 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_144_case__930(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_144_case__930 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_144_case__930")(x)++++c__case_165_case__931 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_164(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_156(x4)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_144(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st))(st)++++c__case_166_case__932 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_165(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_166_case__932 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_166_case__932(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_166_case__932 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_166_case__932")(x)++++c__case_167_case__933 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_166(x4)(x5)(x3)(x1)(st))(st)+c__case_167_case__933 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_167_case__933(x1)(x)(st))(i)(xs)(st)+c__case_167_case__933 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_167_case__933")(x)++++c__case_124_case__934 x1 x5 x4@Curry.Module.Prelude.List st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_TVar(Curry.Module.OracleRead.c_readNat(Curry.Module.OracleXML.c_textOfXml(x5)(x1)(st))(x6)(st)))(st)+c__case_124_case__934 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_124_case__934(x1)(x5)(x)(st))(i)(xs)(st)+c__case_124_case__934 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_124_case__934")(x)++++c__case_125_case__935 x1 x4 x5 x13@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_124(x5)(x4)(x1)(st))(st)+c__case_125_case__935 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_125_case__935(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_125_case__935 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_125_case__935")(x)++++c__case_126_case__936 x1 x4 x5 x13 x12 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x12)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_125(x4)(x5)(x13)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_127_case__937 x1 x4 x5 x11@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_126(x4)(x5)(x13)(x12)(x1)(st))(st)+c__case_127_case__937 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_127_case__937(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_127_case__937 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_127_case__937")(x)++++c__case_128_case__938 x1 x4 x5 x11 x10 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x10)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_127(x4)(x5)(x11)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_129_case__939 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_128(x4)(x5)(x11)(x10)(x1)(st))(st)+c__case_129_case__939 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_129_case__939(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_129_case__939 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_129_case__939")(x)++++c__case_90_case__940 x1 x5 x23 x39 x37@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FlatCurry.C_TCons(Curry.Module.Prelude.T2(x23)(x39))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlatCurryXML.c_flatx2texp))))(x5)(x1)(st)))(st)+c__case_90_case__940 x1 x5 x23 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_90_case__940(x1)(x5)(x23)(x39)(x)(st))(i)(xs)(st)+c__case_90_case__940 x1 x5 x23 x39 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_90_case__940")(x)++++c__case_91_case__941 x1 x5 x23 x37 x39 x47@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_90(x5)(x23)(x39)(x37)(x1)(st))(st)+c__case_91_case__941 x1 x5 x23 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_91_case__941(x1)(x5)(x23)(x37)(x39)(x)(st))(i)(xs)(st)+c__case_91_case__941 x1 x5 x23 x37 x39 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_91_case__941")(x)++++c__case_92_case__942 x1 x5 x23 x37 x39 x47 x46 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x46)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_91(x5)(x23)(x37)(x39)(x47)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_93_case__943 x1 x5 x23 x37 x39 x45@((Curry.Module.Prelude.:<) x46 x47) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_92(x5)(x23)(x37)(x39)(x47)(x46)(x1)(st))(st)+c__case_93_case__943 x1 x5 x23 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_93_case__943(x1)(x5)(x23)(x37)(x39)(x)(st))(i)(xs)(st)+c__case_93_case__943 x1 x5 x23 x37 x39 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_93_case__943")(x)++++c__case_94_case__944 x1 x5 x23 x37 x39 x45 x44 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x44)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_93(x5)(x23)(x37)(x39)(x45)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_95_case__945 x1 x5 x23 x37 x39 x43@((Curry.Module.Prelude.:<) x44 x45) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_94(x5)(x23)(x37)(x39)(x45)(x44)(x1)(st))(st)+c__case_95_case__945 x1 x5 x23 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_95_case__945(x1)(x5)(x23)(x37)(x39)(x)(st))(i)(xs)(st)+c__case_95_case__945 x1 x5 x23 x37 x39 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_95_case__945")(x)++++c__case_96_case__946 x1 x5 x23 x37 x39 x43 x42 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x42)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_95(x5)(x23)(x37)(x39)(x43)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_97_case__947 x1 x5 x23 x37 x39 x41@((Curry.Module.Prelude.:<) x42 x43) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_96(x5)(x23)(x37)(x39)(x43)(x42)(x1)(st))(st)+c__case_97_case__947 x1 x5 x23 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_97_case__947(x1)(x5)(x23)(x37)(x39)(x)(st))(i)(xs)(st)+c__case_97_case__947 x1 x5 x23 x37 x39 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_97_case__947")(x)++++c__case_98_case__948 x1 x5 x23 x37 x39 x41 x40 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x40)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_97(x5)(x23)(x37)(x39)(x41)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_99_case__949 x1 x5 x23 x37 x39 x38@((Curry.Module.Prelude.:<) x40 x41) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_98(x5)(x23)(x37)(x39)(x41)(x40)(x1)(st))(st)+c__case_99_case__949 x1 x5 x23 x37 x39 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_99_case__949(x1)(x5)(x23)(x37)(x39)(x)(st))(i)(xs)(st)+c__case_99_case__949 x1 x5 x23 x37 x39 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_99_case__949")(x)++++c__case_100_case__950 x1 x5 x23 x37 x36@(Curry.Module.Prelude.T2 x38 x39) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_99(x5)(x23)(x37)(x39)(x38)(x1)(st))(st)+c__case_100_case__950 x1 x5 x23 x37 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_100_case__950(x1)(x5)(x23)(x37)(x)(st))(i)(xs)(st)+c__case_100_case__950 x1 x5 x23 x37 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_100_case__950")(x)++++c__case_101_case__951 x1 x5 x23 x21@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_100(x5)(x23)(x37)(x36)(x1)(st))(st)+c__case_101_case__951 x1 x5 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_101_case__951(x1)(x5)(x23)(x)(st))(i)(xs)(st)+c__case_101_case__951 x1 x5 x23 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_101_case__951")(x)++++c__case_102_case__952 x1 x5 x21 x23 x35@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_101(x5)(x23)(x21)(x1)(st))(st)+c__case_102_case__952 x1 x5 x21 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_102_case__952(x1)(x5)(x21)(x23)(x)(st))(i)(xs)(st)+c__case_102_case__952 x1 x5 x21 x23 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_102_case__952")(x)++++c__case_103_case__953 x1 x5 x21 x23 x35 x34 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x34)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_102(x5)(x21)(x23)(x35)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_104_case__954 x1 x5 x21 x23 x33@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_103(x5)(x21)(x23)(x35)(x34)(x1)(st))(st)+c__case_104_case__954 x1 x5 x21 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_104_case__954(x1)(x5)(x21)(x23)(x)(st))(i)(xs)(st)+c__case_104_case__954 x1 x5 x21 x23 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_104_case__954")(x)++++c__case_105_case__955 x1 x5 x21 x23 x33 x32 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x32)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_104(x5)(x21)(x23)(x33)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_106_case__956 x1 x5 x21 x23 x31@((Curry.Module.Prelude.:<) x32 x33) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_105(x5)(x21)(x23)(x33)(x32)(x1)(st))(st)+c__case_106_case__956 x1 x5 x21 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_106_case__956(x1)(x5)(x21)(x23)(x)(st))(i)(xs)(st)+c__case_106_case__956 x1 x5 x21 x23 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_106_case__956")(x)++++c__case_107_case__957 x1 x5 x21 x23 x31 x30 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x30)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_106(x5)(x21)(x23)(x31)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_108_case__958 x1 x5 x21 x23 x29@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_107(x5)(x21)(x23)(x31)(x30)(x1)(st))(st)+c__case_108_case__958 x1 x5 x21 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_108_case__958(x1)(x5)(x21)(x23)(x)(st))(i)(xs)(st)+c__case_108_case__958 x1 x5 x21 x23 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_108_case__958")(x)++++c__case_109_case__959 x1 x5 x21 x23 x29 x28 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x28)(Curry.Module.Prelude.C_Char('d'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_108(x5)(x21)(x23)(x29)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_110_case__960 x1 x5 x21 x23 x27@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_109(x5)(x21)(x23)(x29)(x28)(x1)(st))(st)+c__case_110_case__960 x1 x5 x21 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_110_case__960(x1)(x5)(x21)(x23)(x)(st))(i)(xs)(st)+c__case_110_case__960 x1 x5 x21 x23 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_110_case__960")(x)++++c__case_111_case__961 x1 x5 x21 x23 x27 x26 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x26)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_110(x5)(x21)(x23)(x27)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_112_case__962 x1 x5 x21 x23 x25@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_111(x5)(x21)(x23)(x27)(x26)(x1)(st))(st)+c__case_112_case__962 x1 x5 x21 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_112_case__962(x1)(x5)(x21)(x23)(x)(st))(i)(xs)(st)+c__case_112_case__962 x1 x5 x21 x23 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_112_case__962")(x)++++c__case_113_case__963 x1 x5 x21 x23 x25 x24 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x24)(Curry.Module.Prelude.C_Char('m'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_112(x5)(x21)(x23)(x25)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_114_case__964 x1 x5 x21 x23 x22@((Curry.Module.Prelude.:<) x24 x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_113(x5)(x21)(x23)(x25)(x24)(x1)(st))(st)+c__case_114_case__964 x1 x5 x21 x23 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_114_case__964(x1)(x5)(x21)(x23)(x)(st))(i)(xs)(st)+c__case_114_case__964 x1 x5 x21 x23 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_114_case__964")(x)++++c__case_115_case__965 x1 x5 x21 x20@(Curry.Module.Prelude.T2 x22 x23) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_114(x5)(x21)(x23)(x22)(x1)(st))(st)+c__case_115_case__965 x1 x5 x21 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_115_case__965(x1)(x5)(x21)(x)(st))(i)(xs)(st)+c__case_115_case__965 x1 x5 x21 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_115_case__965")(x)++++c__case_116_case__966 x1 x5 x4@((Curry.Module.Prelude.:<) x20 x21) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_115(x5)(x21)(x20)(x1)(st))(st)+c__case_116_case__966 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_116_case__966(x1)(x5)(x)(st))(i)(xs)(st)+c__case_116_case__966 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_116_case__966")(x)++++c__case_117_case__967 x1 x4 x5 x19@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_116(x5)(x4)(x1)(st))(st)+c__case_117_case__967 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_117_case__967(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_117_case__967 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_117_case__967")(x)++++c__case_118_case__968 x1 x4 x5 x19 x18 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x18)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_117(x4)(x5)(x19)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_119_case__969 x1 x4 x5 x17@((Curry.Module.Prelude.:<) x18 x19) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_118(x4)(x5)(x19)(x18)(x1)(st))(st)+c__case_119_case__969 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_119_case__969(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_119_case__969 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_119_case__969")(x)++++c__case_120_case__970 x1 x4 x5 x17 x16 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x16)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_119(x4)(x5)(x17)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_121_case__971 x1 x4 x5 x15@((Curry.Module.Prelude.:<) x16 x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_120(x4)(x5)(x17)(x16)(x1)(st))(st)+c__case_121_case__971 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_121_case__971(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_121_case__971 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_121_case__971")(x)++++c__case_122_case__972 x1 x4 x5 x15 x14 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x14)(Curry.Module.Prelude.C_Char('o'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_121(x4)(x5)(x15)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_123_case__973 x1 x4 x5 x9@((Curry.Module.Prelude.:<) x14 x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_122(x4)(x5)(x15)(x14)(x1)(st))(st)+c__case_123_case__973 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_123_case__973(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_123_case__973 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_123_case__973")(x)++++c__case_130_case__974 x1 x4 x5 x9 x8 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_129(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x8)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_123(x4)(x5)(x9)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_131_case__975 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_130(x4)(x5)(x9)(x8)(x1)(st))(st)+c__case_131_case__975 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_131_case__975(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_131_case__975 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_131_case__975")(x)++++c__case_71_case__976 x1 x62 x64 x65@Curry.Module.Prelude.List st = let {x66 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x66)(Curry.Module.Prelude.List))(Curry.Module.FlatCurry.C_FuncType(Curry.Module.OracleFlatCurryXML.c_flatx2texp(x62)(x1)(st))(Curry.Module.OracleFlatCurryXML.c_flatx2texp(x64)(x66)(st)))(st)+c__case_71_case__976 x1 x62 x64 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_71_case__976(x1)(x62)(x64)(x)(st))(i)(xs)(st)+c__case_71_case__976 x1 x62 x64 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_71_case__976")(x)++++c__case_72_case__977 x1 x62 x63@((Curry.Module.Prelude.:<) x64 x65) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_71(x62)(x64)(x65)(x1)(st))(st)+c__case_72_case__977 x1 x62 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_72_case__977(x1)(x62)(x)(st))(i)(xs)(st)+c__case_72_case__977 x1 x62 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_72_case__977")(x)++++c__case_73_case__978 x1 x5@((Curry.Module.Prelude.:<) x62 x63) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_72(x62)(x63)(x1)(st))(st)+c__case_73_case__978 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_73_case__978(x1)(x)(st))(i)(xs)(st)+c__case_73_case__978 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_73_case__978")(x)++++c__case_74_case__979 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_73(x5)(x1)(st))(st)+c__case_74_case__979 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_74_case__979(x1)(x5)(x)(st))(i)(xs)(st)+c__case_74_case__979 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_74_case__979")(x)++++c__case_75_case__980 x1 x4 x5 x61@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_74(x5)(x4)(x1)(st))(st)+c__case_75_case__980 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_75_case__980(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_75_case__980 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_75_case__980")(x)++++c__case_76_case__981 x1 x4 x5 x61 x60 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x60)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_75(x4)(x5)(x61)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_77_case__982 x1 x4 x5 x59@((Curry.Module.Prelude.:<) x60 x61) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_76(x4)(x5)(x61)(x60)(x1)(st))(st)+c__case_77_case__982 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_77_case__982(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_77_case__982 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_77_case__982")(x)++++c__case_78_case__983 x1 x4 x5 x59 x58 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x58)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_77(x4)(x5)(x59)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_79_case__984 x1 x4 x5 x57@((Curry.Module.Prelude.:<) x58 x59) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_78(x4)(x5)(x59)(x58)(x1)(st))(st)+c__case_79_case__984 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_79_case__984(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_79_case__984 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_79_case__984")(x)++++c__case_80_case__985 x1 x4 x5 x57 x56 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x56)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_79(x4)(x5)(x57)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_81_case__986 x1 x4 x5 x55@((Curry.Module.Prelude.:<) x56 x57) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_80(x4)(x5)(x57)(x56)(x1)(st))(st)+c__case_81_case__986 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_81_case__986(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_81_case__986 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_81_case__986")(x)++++c__case_82_case__987 x1 x4 x5 x55 x54 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x54)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_81(x4)(x5)(x55)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_83_case__988 x1 x4 x5 x53@((Curry.Module.Prelude.:<) x54 x55) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_82(x4)(x5)(x55)(x54)(x1)(st))(st)+c__case_83_case__988 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_83_case__988(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_83_case__988 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_83_case__988")(x)++++c__case_84_case__989 x1 x4 x5 x53 x52 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x52)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_83(x4)(x5)(x53)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_85_case__990 x1 x4 x5 x51@((Curry.Module.Prelude.:<) x52 x53) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_84(x4)(x5)(x53)(x52)(x1)(st))(st)+c__case_85_case__990 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_85_case__990(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_85_case__990 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_85_case__990")(x)++++c__case_86_case__991 x1 x4 x5 x51 x50 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x50)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_85(x4)(x5)(x51)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_87_case__992 x1 x4 x5 x49@((Curry.Module.Prelude.:<) x50 x51) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_86(x4)(x5)(x51)(x50)(x1)(st))(st)+c__case_87_case__992 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_87_case__992(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_87_case__992 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_87_case__992")(x)++++c__case_88_case__993 x1 x4 x5 x49 x48 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x48)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_87(x4)(x5)(x49)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_89_case__994 x1 x4 x5 x7@((Curry.Module.Prelude.:<) x48 x49) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_88(x4)(x5)(x49)(x48)(x1)(st))(st)+c__case_89_case__994 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_89_case__994(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_89_case__994 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_89_case__994")(x)++++c__case_132_case__995 x1 x4 x5 x7 x6 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_131(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x6)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_89(x4)(x5)(x7)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_133_case__996 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_132(x4)(x5)(x7)(x6)(x1)(st))(st)+c__case_133_case__996 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_133_case__996(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_133_case__996 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_133_case__996")(x)++++c__case_134_case__997 x1 x2@(Curry.Module.XML.C_XElem x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_133(x4)(x5)(x3)(x1)(st))(st)+c__case_134_case__997 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_134_case__997(x1)(x)(st))(i)(xs)(st)+c__case_134_case__997 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_134_case__997")(x)++++c__case_36_case__998 x1 x36@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlatCurry.C_Public)(st)+c__case_36_case__998 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_36_case__998(x1)(x)(st))(i)(xs)(st)+c__case_36_case__998 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_36_case__998")(x)++++c__case_37_case__999 x1 x36 x35 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x35)(Curry.Module.Prelude.C_Char('c'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_36(x36)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_38_case__1000 x1 x34@((Curry.Module.Prelude.:<) x35 x36) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_37(x36)(x35)(x1)(st))(st)+c__case_38_case__1000 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_38_case__1000(x1)(x)(st))(i)(xs)(st)+c__case_38_case__1000 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_38_case__1000")(x)++++c__case_39_case__1001 x1 x34 x33 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x33)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_38(x34)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_40_case__1002 x1 x32@((Curry.Module.Prelude.:<) x33 x34) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_39(x34)(x33)(x1)(st))(st)+c__case_40_case__1002 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_40_case__1002(x1)(x)(st))(i)(xs)(st)+c__case_40_case__1002 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_40_case__1002")(x)++++c__case_41_case__1003 x1 x32 x31 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x31)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_40(x32)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_42_case__1004 x1 x30@((Curry.Module.Prelude.:<) x31 x32) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_41(x32)(x31)(x1)(st))(st)+c__case_42_case__1004 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_42_case__1004(x1)(x)(st))(i)(xs)(st)+c__case_42_case__1004 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_42_case__1004")(x)++++c__case_43_case__1005 x1 x30 x29 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x29)(Curry.Module.Prelude.C_Char('b'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_42(x30)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_44_case__1006 x1 x28@((Curry.Module.Prelude.:<) x29 x30) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_43(x30)(x29)(x1)(st))(st)+c__case_44_case__1006 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_44_case__1006(x1)(x)(st))(i)(xs)(st)+c__case_44_case__1006 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_44_case__1006")(x)++++c__case_25_case__1007 x1 x46@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlatCurry.C_Private)(st)+c__case_25_case__1007 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_25_case__1007(x1)(x)(st))(i)(xs)(st)+c__case_25_case__1007 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_25_case__1007")(x)++++c__case_26_case__1008 x1 x46 x45 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x45)(Curry.Module.Prelude.C_Char('e'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_25(x46)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_27_case__1009 x1 x44@((Curry.Module.Prelude.:<) x45 x46) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_26(x46)(x45)(x1)(st))(st)+c__case_27_case__1009 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_27_case__1009(x1)(x)(st))(i)(xs)(st)+c__case_27_case__1009 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_27_case__1009")(x)++++c__case_28_case__1010 x1 x44 x43 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x43)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_27(x44)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_29_case__1011 x1 x42@((Curry.Module.Prelude.:<) x43 x44) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_28(x44)(x43)(x1)(st))(st)+c__case_29_case__1011 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_29_case__1011(x1)(x)(st))(i)(xs)(st)+c__case_29_case__1011 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_29_case__1011")(x)++++c__case_30_case__1012 x1 x42 x41 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x41)(Curry.Module.Prelude.C_Char('a'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_29(x42)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_31_case__1013 x1 x40@((Curry.Module.Prelude.:<) x41 x42) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_30(x42)(x41)(x1)(st))(st)+c__case_31_case__1013 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_31_case__1013(x1)(x)(st))(i)(xs)(st)+c__case_31_case__1013 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_31_case__1013")(x)++++c__case_32_case__1014 x1 x40 x39 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x39)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_31(x40)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_33_case__1015 x1 x38@((Curry.Module.Prelude.:<) x39 x40) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_32(x40)(x39)(x1)(st))(st)+c__case_33_case__1015 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_33_case__1015(x1)(x)(st))(i)(xs)(st)+c__case_33_case__1015 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_33_case__1015")(x)++++c__case_34_case__1016 x1 x38 x37 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x37)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_33(x38)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_35_case__1017 x1 x28@((Curry.Module.Prelude.:<) x37 x38) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_34(x38)(x37)(x1)(st))(st)+c__case_35_case__1017 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_35_case__1017(x1)(x)(st))(i)(xs)(st)+c__case_35_case__1017 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_35_case__1017")(x)++++c__case_45_case__1018 x1 x28 x27 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char('u'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_44(x28)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x27)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_35(x28)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st)++++c__case_46_case__1019 x1 x26@((Curry.Module.Prelude.:<) x27 x28) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_45(x28)(x27)(x1)(st))(st)+c__case_46_case__1019 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_46_case__1019(x1)(x)(st))(i)(xs)(st)+c__case_46_case__1019 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_46_case__1019")(x)++++c__case_47_case__1020 x1 x26 x25 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x25)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_46(x26)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_48_case__1021 x1 x4@((Curry.Module.Prelude.:<) x25 x26) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_47(x26)(x25)(x1)(st))(st)+c__case_48_case__1021 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_48_case__1021(x1)(x)(st))(i)(xs)(st)+c__case_48_case__1021 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_48_case__1021")(x)++++c__case_49_case__1022 x1 x4 x24@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_48(x4)(x1)(st))(st)+c__case_49_case__1022 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_49_case__1022(x1)(x4)(x)(st))(i)(xs)(st)+c__case_49_case__1022 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_49_case__1022")(x)++++c__case_50_case__1023 x1 x4 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('y'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_49(x4)(x24)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_51_case__1024 x1 x4 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_50(x4)(x24)(x23)(x1)(st))(st)+c__case_51_case__1024 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_51_case__1024(x1)(x4)(x)(st))(i)(xs)(st)+c__case_51_case__1024 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_51_case__1024")(x)++++c__case_52_case__1025 x1 x4 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('t'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_51(x4)(x22)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_53_case__1026 x1 x4 x20@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_52(x4)(x22)(x21)(x1)(st))(st)+c__case_53_case__1026 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_53_case__1026(x1)(x4)(x)(st))(i)(xs)(st)+c__case_53_case__1026 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_53_case__1026")(x)++++c__case_54_case__1027 x1 x4 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_53(x4)(x20)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_55_case__1028 x1 x4 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_54(x4)(x20)(x19)(x1)(st))(st)+c__case_55_case__1028 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_55_case__1028(x1)(x4)(x)(st))(i)(xs)(st)+c__case_55_case__1028 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_55_case__1028")(x)++++c__case_56_case__1029 x1 x4 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_55(x4)(x18)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_57_case__1030 x1 x4 x16@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_56(x4)(x18)(x17)(x1)(st))(st)+c__case_57_case__1030 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_57_case__1030(x1)(x4)(x)(st))(i)(xs)(st)+c__case_57_case__1030 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_57_case__1030")(x)++++c__case_58_case__1031 x1 x4 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_57(x4)(x16)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_59_case__1032 x1 x4 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_58(x4)(x16)(x15)(x1)(st))(st)+c__case_59_case__1032 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_59_case__1032(x1)(x4)(x)(st))(i)(xs)(st)+c__case_59_case__1032 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_59_case__1032")(x)++++c__case_60_case__1033 x1 x4 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('b'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_59(x4)(x14)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_61_case__1034 x1 x4 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_60(x4)(x14)(x13)(x1)(st))(st)+c__case_61_case__1034 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_61_case__1034(x1)(x4)(x)(st))(i)(xs)(st)+c__case_61_case__1034 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_61_case__1034")(x)++++c__case_62_case__1035 x1 x4 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_61(x4)(x12)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_63_case__1036 x1 x4 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_62(x4)(x12)(x11)(x1)(st))(st)+c__case_63_case__1036 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_63_case__1036(x1)(x4)(x)(st))(i)(xs)(st)+c__case_63_case__1036 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_63_case__1036")(x)++++c__case_64_case__1037 x1 x4 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('s'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_63(x4)(x10)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_65_case__1038 x1 x4 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_64(x4)(x10)(x9)(x1)(st))(st)+c__case_65_case__1038 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_65_case__1038(x1)(x4)(x)(st))(i)(xs)(st)+c__case_65_case__1038 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_65_case__1038")(x)++++c__case_66_case__1039 x1 x4 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_65(x4)(x8)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_67_case__1040 x1 x4 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_66(x4)(x8)(x7)(x1)(st))(st)+c__case_67_case__1040 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_67_case__1040(x1)(x4)(x)(st))(i)(xs)(st)+c__case_67_case__1040 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_67_case__1040")(x)++++c__case_68_case__1041 x1 x4 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('v'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_67(x4)(x6)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_69_case__1042 x1 x4 x3@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_68(x4)(x6)(x5)(x1)(st))(st)+c__case_69_case__1042 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_69_case__1042(x1)(x4)(x)(st))(i)(xs)(st)+c__case_69_case__1042 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_69_case__1042")(x)++++c__case_70_case__1043 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_69(x4)(x3)(x1)(st))(st)+c__case_70_case__1043 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_70_case__1043(x1)(x)(st))(i)(xs)(st)+c__case_70_case__1043 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_70_case__1043")(x)++++c__case_10_case__1044 x1 x16@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlatCurry.C_InfixOp)(st)+c__case_10_case__1044 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_10_case__1044(x1)(x)(st))(i)(xs)(st)+c__case_10_case__1044 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_10_case__1044")(x)++++c__case_11_case__1045 x1 x16 x15 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x15)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_10(x16)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_12_case__1046 x1 x14@((Curry.Module.Prelude.:<) x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_11(x16)(x15)(x1)(st))(st)+c__case_12_case__1046 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_12_case__1046(x1)(x)(st))(i)(xs)(st)+c__case_12_case__1046 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_12_case__1046")(x)++++c__case_5_case__1047 x1 x20@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlatCurry.C_InfixlOp)(st)+c__case_5_case__1047 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_5_case__1047(x1)(x)(st))(i)(xs)(st)+c__case_5_case__1047 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_5_case__1047")(x)++++c__case_6_case__1048 x1 x20 x19 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x19)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_5(x20)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_7_case__1049 x1 x18@((Curry.Module.Prelude.:<) x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_6(x20)(x19)(x1)(st))(st)+c__case_7_case__1049 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_7_case__1049(x1)(x)(st))(i)(xs)(st)+c__case_7_case__1049 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_7_case__1049")(x)++++c__case_8_case__1050 x1 x18 x17 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x17)(Curry.Module.Prelude.C_Char('O'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_7(x18)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_9_case__1051 x1 x14@((Curry.Module.Prelude.:<) x17 x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_8(x18)(x17)(x1)(st))(st)+c__case_9_case__1051 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_9_case__1051(x1)(x)(st))(i)(xs)(st)+c__case_9_case__1051 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_9_case__1051")(x)++++c__case_0_case__1052 x1 x24@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlatCurry.C_InfixrOp)(st)+c__case_0_case__1052 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_0_case__1052(x1)(x)(st))(i)(xs)(st)+c__case_0_case__1052 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_0_case__1052")(x)++++c__case_1_case__1053 x1 x24 x23 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x23)(Curry.Module.Prelude.C_Char('p'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_0(x24)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_2_case__1054 x1 x22@((Curry.Module.Prelude.:<) x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_1(x24)(x23)(x1)(st))(st)+c__case_2_case__1054 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_2_case__1054(x1)(x)(st))(i)(xs)(st)+c__case_2_case__1054 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_2_case__1054")(x)++++c__case_3_case__1055 x1 x22 x21 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x21)(Curry.Module.Prelude.C_Char('O'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_2(x22)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_4_case__1056 x1 x14@((Curry.Module.Prelude.:<) x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_3(x22)(x21)(x1)(st))(st)+c__case_4_case__1056 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_4_case__1056(x1)(x)(st))(i)(xs)(st)+c__case_4_case__1056 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_4_case__1056")(x)++++c__case_13_case__1057 x1 x14 x13 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('O'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_12(x14)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('l'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_9(x14)(x1)(st))(st))(Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x13)(Curry.Module.Prelude.C_Char('r'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_4(x14)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st))(st))(st)++++c__case_14_case__1058 x1 x12@((Curry.Module.Prelude.:<) x13 x14) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_13(x14)(x13)(x1)(st))(st)+c__case_14_case__1058 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_14_case__1058(x1)(x)(st))(i)(xs)(st)+c__case_14_case__1058 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_14_case__1058")(x)++++c__case_15_case__1059 x1 x12 x11 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x11)(Curry.Module.Prelude.C_Char('x'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_14(x12)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_16_case__1060 x1 x10@((Curry.Module.Prelude.:<) x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_15(x12)(x11)(x1)(st))(st)+c__case_16_case__1060 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_16_case__1060(x1)(x)(st))(i)(xs)(st)+c__case_16_case__1060 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_16_case__1060")(x)++++c__case_17_case__1061 x1 x10 x9 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x9)(Curry.Module.Prelude.C_Char('i'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_16(x10)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_18_case__1062 x1 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_17(x10)(x9)(x1)(st))(st)+c__case_18_case__1062 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_18_case__1062(x1)(x)(st))(i)(xs)(st)+c__case_18_case__1062 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_18_case__1062")(x)++++c__case_19_case__1063 x1 x8 x7 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x7)(Curry.Module.Prelude.C_Char('f'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_18(x8)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_20_case__1064 x1 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_19(x8)(x7)(x1)(st))(st)+c__case_20_case__1064 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_20_case__1064(x1)(x)(st))(i)(xs)(st)+c__case_20_case__1064 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_20_case__1064")(x)++++c__case_21_case__1065 x1 x6 x5 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x5)(Curry.Module.Prelude.C_Char('n'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_20(x6)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_22_case__1066 x1 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_21(x6)(x5)(x1)(st))(st)+c__case_22_case__1066 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_22_case__1066(x1)(x)(st))(i)(xs)(st)+c__case_22_case__1066 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_22_case__1066")(x)++++c__case_23_case__1067 x1 x4 x3 st = Curry.Module.Prelude.c_if_then_else(Curry.Module.Prelude.op_61_61_61(x3)(Curry.Module.Prelude.C_Char('I'))(st))(Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_22(x4)(x1)(st))(st))(Curry.Module.Prelude.c_failed(st))(st)++++c__case_24_case__1068 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryXML.c__case_23(x4)(x3)(x1)(st))(st)+c__case_24_case__1068 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlatCurryXML.c__case_24_case__1068(x1)(x)(st))(i)(xs)(st)+c__case_24_case__1068 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlatCurryXML._case_24_case__1068")(x)++
+ dist/build/Curry/Module/OracleFlexRigid.hs view
@@ -0,0 +1,140 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleFlexRigid (module Curry.Module.OracleFlexRigid) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.FlexRigid+import Curry.Module.FlatCurry+import Curry.Module.Prelude+import Curry.Module.OracleFlatCurry+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_getFlexRigid :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlexRigid.C_FlexRigidResult+c_getFlexRigid x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_7(x2)(x1)(st))(st)++++c_getFlexRigid'46_'35lambda2 :: Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_getFlexRigid'46_'35lambda2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_5(x2)(x1)(st))(st)++++c_joinCaseTypes :: Curry.Module.FlexRigid.C_FlexRigidResult -> Curry.Module.FlexRigid.C_FlexRigidResult -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlexRigid.C_FlexRigidResult+c_joinCaseTypes x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_4(x3)(x2)(x1)(st))(st)++++c__case_4 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_4_case__7(x1)(x3)(x2)(st))(st)++++c__case_0 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_0_case__6(x1)(x3)(st))(st)++++c__case_1 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_1_case__5(x1)(x3)(st))(st)++++c__case_2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_2_case__4(x1)(x3)(st))(st)++++c__case_3 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_3_case__3(x1)(x3)(st))(st)++++c__case_5 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_5_case__2(x1)(x2)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_7_case__1(x1)(x2)(st))(st)++++c__case_6 x14 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_6_case__0(x1)(x15)(st))(st)++++c__case_6_case__0 x1 x15@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_KnownFlex)(st)+c__case_6_case__0 x1 x15@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_KnownRigid)(st)+c__case_6_case__0 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlexRigid.c__case_6_case__0(x1)(x)(st))(i)(xs)(st)+c__case_6_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlexRigid._case_6_case__0")(x)++++c__case_7_case__1 x1 x2@(Curry.Module.FlatCurry.C_Var x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_UnknownFR)(st)+c__case_7_case__1 x1 x2@(Curry.Module.FlatCurry.C_Lit x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_UnknownFR)(st)+c__case_7_case__1 x1 x2@(Curry.Module.FlatCurry.C_Comb x5 x6 x7) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlexRigid.c_joinCaseTypes))(st))(Curry.Module.FlexRigid.C_UnknownFR)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlexRigid.c_getFlexRigid))))(x7)(x1)(st))(x17)(st))(st)+c__case_7_case__1 x1 x2@(Curry.Module.FlatCurry.C_Let x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c_getFlexRigid(x9)(x1)(st))(st)+c__case_7_case__1 x1 x2@(Curry.Module.FlatCurry.C_Free x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c_getFlexRigid(x11)(x1)(st))(st)+c__case_7_case__1 x1 x2@(Curry.Module.FlatCurry.C_Or x12 x13) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))(Curry.Module.OracleFlexRigid.c_joinCaseTypes(Curry.Module.OracleFlexRigid.c_getFlexRigid(x12)(x1)(st))(Curry.Module.OracleFlexRigid.c_getFlexRigid(x13)(x18)(st))(x19)(st))(st)+c__case_7_case__1 x1 x2@(Curry.Module.FlatCurry.C_Case x14 x15 x16) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFlexRigid.c_joinCaseTypes))(st))(Curry.Module.OracleFlexRigid.c__case_6(x14)(Curry.Module.OraclePrelude.op_61_61(x14)(Curry.Module.FlatCurry.C_Flex)(x1)(st))(x20)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlexRigid.c_getFlexRigid))))((Curry.Module.Prelude.:<)(x15)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFlexRigid.c_getFlexRigid'46_'35lambda2))))(x16)(x21)(st)))(x22)(st))(x23)(st))(st)+c__case_7_case__1 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlexRigid.c__case_7_case__1(x1)(x)(st))(i)(xs)(st)+c__case_7_case__1 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlexRigid._case_7_case__1")(x)++++c__case_5_case__2 x1 x2@(Curry.Module.FlatCurry.C_Branch x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_5_case__2 x1 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlexRigid.c__case_5_case__2(x1)(x)(st))(i)(xs)(st)+c__case_5_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlexRigid._case_5_case__2")(x)++++c__case_3_case__3 x1 x3@Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_ConflictFR)(st)+c__case_3_case__3 x1 x3@Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_ConflictFR)(st)+c__case_3_case__3 x1 x3@Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_ConflictFR)(st)+c__case_3_case__3 x1 x3@Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_ConflictFR)(st)+c__case_3_case__3 x1 (Curry.Module.FlexRigid.C_FlexRigidResultOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlexRigid.c__case_3_case__3(x1)(x)(st))(i)(xs)(st)+c__case_3_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlexRigid._case_3_case__3")(x)++++c__case_2_case__4 x1 x3@Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_ConflictFR)(st)+c__case_2_case__4 x1 x3@Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_UnknownFR)(st)+c__case_2_case__4 x1 x3@Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_KnownFlex)(st)+c__case_2_case__4 x1 x3@Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_KnownRigid)(st)+c__case_2_case__4 x1 (Curry.Module.FlexRigid.C_FlexRigidResultOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlexRigid.c__case_2_case__4(x1)(x)(st))(i)(xs)(st)+c__case_2_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlexRigid._case_2_case__4")(x)++++c__case_1_case__5 x1 x3@Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_ConflictFR)(st)+c__case_1_case__5 x1 x3@Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_KnownFlex)(st)+c__case_1_case__5 x1 x3@Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_KnownFlex)(st)+c__case_1_case__5 x1 x3@Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_ConflictFR)(st)+c__case_1_case__5 x1 (Curry.Module.FlexRigid.C_FlexRigidResultOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlexRigid.c__case_1_case__5(x1)(x)(st))(i)(xs)(st)+c__case_1_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlexRigid._case_1_case__5")(x)++++c__case_0_case__6 x1 x3@Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_ConflictFR)(st)+c__case_0_case__6 x1 x3@Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_KnownRigid)(st)+c__case_0_case__6 x1 x3@Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_ConflictFR)(st)+c__case_0_case__6 x1 x3@Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlexRigid.C_KnownRigid)(st)+c__case_0_case__6 x1 (Curry.Module.FlexRigid.C_FlexRigidResultOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlexRigid.c__case_0_case__6(x1)(x)(st))(i)(xs)(st)+c__case_0_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleFlexRigid._case_0_case__6")(x)++++c__case_4_case__7 x1 x3 x2@Curry.Module.FlexRigid.C_ConflictFR st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_3(x3)(x1)(st))(st)+c__case_4_case__7 x1 x3 x2@Curry.Module.FlexRigid.C_UnknownFR st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_2(x3)(x1)(st))(st)+c__case_4_case__7 x1 x3 x2@Curry.Module.FlexRigid.C_KnownFlex st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_1(x3)(x1)(st))(st)+c__case_4_case__7 x1 x3 x2@Curry.Module.FlexRigid.C_KnownRigid st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlexRigid.c__case_0(x3)(x1)(st))(st)+c__case_4_case__7 x1 x3 (Curry.Module.FlexRigid.C_FlexRigidResultOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleFlexRigid.c__case_4_case__7(x1)(x3)(x)(st))(i)(xs)(st)+c__case_4_case__7 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleFlexRigid._case_4_case__7")(x)++
+ dist/build/Curry/Module/OracleFloat.hs view
@@ -0,0 +1,201 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleFloat (module Curry.Module.OracleFloat) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Float+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++op_43_46 :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+op_43_46 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFloat.c_prim_Float_plus))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++op_45_46 :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+op_45_46 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFloat.c_prim_Float_minus))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++op_42_46 :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+op_42_46 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFloat.c_prim_Float_times))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++op_47_46 :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+op_47_46 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFloat.c_prim_Float_divide))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++op_60_46 :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_60_46 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFloat.c_prim_Float_lt))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++op_62_46 :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_62_46 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFloat.c_prim_Float_gt))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++op_60_61_46 :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_60_61_46 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFloat.c_prim_Float_leq))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++op_62_61_46 :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_62_61_46 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleFloat.c_prim_Float_geq))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_i2f :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_i2f x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFloat.c_prim_i2f))))(x2)(x1)(st))(st)++++c_truncate :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_truncate x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFloat.c_prim_truncate))))(x2)(x1)(st))(st)++++c_round :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_round x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFloat.c_prim_round))))(x2)(x1)(st))(st)++++c_sqrt :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_sqrt x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFloat.c_prim_sqrt))))(x2)(x1)(st))(st)++++c_log :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_log x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFloat.c_prim_log))))(x2)(x1)(st))(st)++++c_exp :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_exp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFloat.c_prim_exp))))(x2)(x1)(st))(st)++++c_sin :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_sin x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFloat.c_prim_sin))))(x2)(x1)(st))(st)++++c_cos :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_cos x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFloat.c_prim_cos))))(x2)(x1)(st))(st)++++c_tan :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_tan x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFloat.c_prim_tan))))(x2)(x1)(st))(st)++++c_atan :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_atan x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleFloat.c_prim_atan))))(x2)(x1)(st))(st)++++c_prim_Float_plus :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_Float_plus x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_Float_plus(x3)(x2)(st))(st)++++c_prim_Float_minus :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_Float_minus x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_Float_minus(x3)(x2)(st))(st)++++c_prim_Float_times :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_Float_times x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_Float_times(x3)(x2)(st))(st)++++c_prim_Float_divide :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_Float_divide x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_Float_divide(x3)(x2)(st))(st)++++c_prim_Float_lt :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_prim_Float_lt x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_Float_lt(x3)(x2)(st))(st)++++c_prim_Float_gt :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_prim_Float_gt x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_Float_gt(x3)(x2)(st))(st)++++c_prim_Float_leq :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_prim_Float_leq x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_Float_leq(x3)(x2)(st))(st)++++c_prim_Float_geq :: Curry.Module.Prelude.C_Float -> Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_prim_Float_geq x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_Float_geq(x3)(x2)(st))(st)++++c_prim_i2f :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_i2f x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_i2f(x2)(st))(st)++++c_prim_truncate :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_prim_truncate x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_truncate(x2)(st))(st)++++c_prim_round :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_prim_round x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_round(x2)(st))(st)++++c_prim_sqrt :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_sqrt x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_sqrt(x2)(st))(st)++++c_prim_log :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_log x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_log(x2)(st))(st)++++c_prim_exp :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_exp x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_exp(x2)(st))(st)++++c_prim_sin :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_sin x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_sin(x2)(st))(st)++++c_prim_cos :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_cos x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_cos(x2)(st))(st)++++c_prim_tan :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_tan x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_tan(x2)(st))(st)++++c_prim_atan :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Float+c_prim_atan x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Float.c_prim_atan(x2)(st))(st)++
+ dist/build/Curry/Module/OracleGlobal.hs view
@@ -0,0 +1,41 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleGlobal (module Curry.Module.OracleGlobal) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Global+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_readGlobal :: (Curry t0) => (Curry.Module.Global.C_Global t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_readGlobal x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGlobal.c_prim_readGlobal))))(x2)(x1)(st))(st)++++c_writeGlobal :: (Curry t0) => (Curry.Module.Global.C_Global t0) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeGlobal x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGlobal.c_prim_writeGlobal))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_prim_readGlobal :: (Curry t0) => (Curry.Module.Global.C_Global t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_prim_readGlobal x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Global.c_prim_readGlobal(x2)(st))(st))))(st)++++c_prim_writeGlobal :: (Curry t0) => (Curry.Module.Global.C_Global t0) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_writeGlobal x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Global.c_prim_writeGlobal(x3)(x2)(st))))(st)++
+ dist/build/Curry/Module/OracleGraphInductive.hs view
@@ -0,0 +1,1650 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleGraphInductive (module Curry.Module.OracleGraphInductive) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.GraphInductive+import Curry.Module.FiniteMap+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.Sort+import Curry.Module.OracleFiniteMap+import Curry.Module.OracleMaybe+import Curry.Module.OraclePrelude+import Curry.Module.OracleSort++++-- begin included++++-- end included++type C_GDecomp t0 t1 = Curry.Module.Prelude.T2 (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int))) (Curry.Module.GraphInductive.C_Graph t0 t1)++type C_Decomp t0 t1 = Curry.Module.Prelude.T2 (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)))) (Curry.Module.GraphInductive.C_Graph t0 t1)++type C_GraphRep t0 t1 = Curry.Module.FiniteMap.C_FM Curry.Module.Prelude.C_Int (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)) t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)))++type C_UGr = Curry.Module.GraphInductive.C_Graph Curry.Module.Prelude.T0 Curry.Module.Prelude.T0++data C_Graph t0 t1 = C_Gr (Curry.Module.OracleFiniteMap.C_FM Curry.Module.Prelude.C_Int (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)) t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int))))+  | C_GraphFail Curry.RunTimeSystem.C_Exceptions+  | C_GraphOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.OracleGraphInductive.C_Graph t0 t1))++instance (BaseCurry t0,BaseCurry t1) => BaseCurry (Curry.Module.OracleGraphInductive.C_Graph t0 t1) where+  nf f (Curry.Module.OracleGraphInductive.C_Gr x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.OracleGraphInductive.C_Gr(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.OracleGraphInductive.C_Gr x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.OracleGraphInductive.C_Gr(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.OracleGraphInductive.C_GraphOr(Curry.RunTimeSystem.mkRef(r)(1)(i))([Curry.Module.OracleGraphInductive.C_Gr(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(1)++  failed  = Curry.Module.OracleGraphInductive.C_GraphFail++  branching  = Curry.Module.OracleGraphInductive.C_GraphOr++  consKind (Curry.Module.OracleGraphInductive.C_GraphOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.OracleGraphInductive.C_GraphFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.OracleGraphInductive.C_GraphFail x) = x++  orRef (Curry.Module.OracleGraphInductive.C_GraphOr x _) = x++  branches (Curry.Module.OracleGraphInductive.C_GraphOr _ x) = x++++++instance (Curry t0,Curry t1) => Curry (Curry.Module.OracleGraphInductive.C_Graph t0 t1) where+  strEq (Curry.Module.OracleGraphInductive.C_Gr x1) (Curry.Module.OracleGraphInductive.C_Gr y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.OracleGraphInductive.C_Gr x1) (Curry.Module.OracleGraphInductive.C_Gr y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.OracleGraphInductive.C_Gr x1) st = Curry.Module.OracleGraphInductive.C_Gr(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.OracleGraphInductive.C_Gr x1) st = f(x1)(c)(st)++  typeName _ = "Graph"++  showQ d (Curry.Module.OracleGraphInductive.C_Gr x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleGraphInductive.Gr "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.OracleGraphInductive.C_GraphOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0,Show t1) => Show (Curry.Module.OracleGraphInductive.C_Graph t0 t1) where+  showsPrec d (Curry.Module.OracleGraphInductive.C_Gr x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Gr "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.OracleGraphInductive.C_GraphOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Read t0,Read t1) => Read (Curry.Module.OracleGraphInductive.C_Graph t0 t1) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.OracleGraphInductive.C_Gr(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleGraphInductive")("Gr")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r)++++++op_58_38 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> (Curry.Module.OracleGraphInductive.C_Graph t1 t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t1 t0+op_58_38 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_99(x3)(x2)(x1)(st))(st)++++c_matchAny :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int))) (Curry.Module.OracleGraphInductive.C_Graph t0 t1)+c_matchAny x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_95(x2)(x1)(st))(st)++++c_empty :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t0 t1+c_empty x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.C_Gr(Curry.Module.OracleFiniteMap.c_emptyFM(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_60))(st))(x1)(st)))(st)++++c_mkGraph :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t1)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t0 t1+c_mkGraph x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_insEdges(x3)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_insNodes(x2)))))(x1)(st))(Curry.Module.OracleGraphInductive.c_empty(x4)(st))(x5)(st))(st)++++c_buildGr :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)))) -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t1 t0))+c_buildGr x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.op_58_38))(st))(Curry.Module.OracleGraphInductive.c_empty(x1)(st))))))(st)++++c_mkUGraph :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph Curry.Module.Prelude.T0 Curry.Module.Prelude.T0+c_mkUGraph x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))(Curry.Module.OracleGraphInductive.c_mkGraph(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.c_labUNodes(x1)(st))(x2)(x4)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.c_labUEdges(x5)(st))(x3)(x6)(st))(x7)(st))(st)++++c_insNode :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t0 t1))+c_insNode x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_89(x2)(x1)(st))(st)++++c_insEdge :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t0) -> (Curry.Module.OracleGraphInductive.C_Graph t1 t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t1 t0+c_insEdge x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_88(x3)(x2)(x1)(st))(st)++++c_insEdge'46_'35selFP3'35pr :: (Curry t213,Curry t212) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t213 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t212 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t213 Curry.Module.Prelude.C_Int)))) (Curry.Module.OracleGraphInductive.C_Graph t212 t213)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t213 Curry.Module.Prelude.C_Int)+c_insEdge'46_'35selFP3'35pr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_87(x2)(x1)(st))(st)++++c_insEdge'46_'35selFP4'35la :: (Curry t213,Curry t212) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t213 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t212 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t213 Curry.Module.Prelude.C_Int)))) (Curry.Module.OracleGraphInductive.C_Graph t212 t213)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t212+c_insEdge'46_'35selFP4'35la x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_84(x2)(x1)(st))(st)++++c_insEdge'46_'35selFP5'35su :: (Curry t213,Curry t212) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t213 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t212 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t213 Curry.Module.Prelude.C_Int)))) (Curry.Module.OracleGraphInductive.C_Graph t212 t213)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t213 Curry.Module.Prelude.C_Int)+c_insEdge'46_'35selFP5'35su x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_81(x2)(x1)(st))(st)++++c_insEdge'46_'35selFP6'35g'39 :: (Curry t213,Curry t212) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t213 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t212 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t213 Curry.Module.Prelude.C_Int)))) (Curry.Module.OracleGraphInductive.C_Graph t212 t213)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t212 t213+c_insEdge'46_'35selFP6'35g'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_78(x2)(x1)(st))(st)++++c_delNode :: (Curry t0,Curry t1) => Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t0 t1))+c_delNode x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_delNodes((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))))))(st)++++c_delEdge :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int) -> (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t0 t1+c_delEdge x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_75(x3)(x2)(x1)(st))(st)++++c_insNodes :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)) -> (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t0 t1+c_insNodes x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_insNode))))(x3)(x2)(x1)(st))(st)++++c_insEdges :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t0)) -> (Curry.Module.OracleGraphInductive.C_Graph t1 t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t1 t0+c_insEdges x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_insEdge))(st))(x3)(x2)(x1)(st))(st)++++c_delNodes :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t0 t1+c_delNodes x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_71(x3)(x2)(x1)(st))(st)++++c_delEdges :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)) -> (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t0 t1+c_delEdges x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_delEdge))(st))(x3)(x2)(x1)(st))(st)++++c_isEmpty :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isEmpty x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_70(x2)(x1)(st))(st)++++c_match :: (Curry t0,Curry t1) => Curry.Module.Prelude.C_Int -> (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)))) (Curry.Module.OracleGraphInductive.C_Graph t0 t1)+c_match x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_69(x2)(x3)(x1)(st))(st)++++c_match'46_'35lambda5 :: (Curry t146,Curry t148) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.T2 (Curry.Module.OracleFiniteMap.C_FM Curry.Module.Prelude.C_Int (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t146 Curry.Module.Prelude.C_Int)) t148 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t146 Curry.Module.Prelude.C_Int)))) (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t146 Curry.Module.Prelude.C_Int)) t148 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t146 Curry.Module.Prelude.C_Int))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t146 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t148 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t146 Curry.Module.Prelude.C_Int)))) (Curry.Module.OracleGraphInductive.C_Graph t148 t146)+c_match'46_'35lambda5 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_68(x2)(x3)(x1)(st))(st)++++c_noNodes :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_noNodes x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_65(x2)(x1)(st))(st)++++c_nodeRange :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int+c_nodeRange x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_64(x2)(x1)(st))(st)++++c_context :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t0 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int))+c_context x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_61(x2)(x3)(Curry.Module.OracleGraphInductive.c_match(x3)(x2)(x1)(st))(x4)(st))(st)++++c_lab :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t0+c_lab x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OracleMaybe.op_62_62_45(Curry.Module.OraclePrelude.c_fst(Curry.Module.OracleGraphInductive.c_match(x3)(x2)(x1)(st))(x4)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_lab'39))))(x5)(st))(x6)(st))(st)++++c_neighbors :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))+c_neighbors x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.op_46_58(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_neighbors'46_'35lambda7))))(x2)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_context))(st))(x3)(st))(st)++++c_neighbors'46_'35lambda7 :: (Curry t416,Curry t415) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t416 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t415 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t416 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_neighbors'46_'35lambda7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_59(x2)(x1)(st))(st)++++c_suc :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))+c_suc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.op_46_58(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))))))(x2)(st))(Curry.Module.OracleGraphInductive.c_context4(x3)(st))(x4)(st))(st)++++c_pre :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))+c_pre x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.op_46_58(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))))))(x2)(st))(Curry.Module.OracleGraphInductive.c_context1(x3)(st))(x4)(st))(st)++++c_lsuc :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t1)))))+c_lsuc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.op_46_58(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_flip2))))))))(x2)(st))(Curry.Module.OracleGraphInductive.c_context4(x3)(st))(x4)(st))(st)++++c_lpre :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t1)))))+c_lpre x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.op_46_58(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_flip2))))))))(x2)(st))(Curry.Module.OracleGraphInductive.c_context1(x3)(st))(x4)(st))(st)++++c_out :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t1)+c_out x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_out'46_'35lambda8(x3)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.c_context4(x1)(st))(x2)(x4)(st))(x3)(x5)(st))(x6)(st))(st)++++c_out'46_'35lambda8 :: (Curry t511) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.T2 t511 Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t511+c_out'46_'35lambda8 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_58(x2)(x3)(x1)(st))(st)++++c_inn :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t1)+c_inn x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_inn'46_'35lambda9(x3)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.c_context1(x1)(st))(x2)(x4)(st))(x3)(x5)(st))(x6)(st))(st)++++c_inn'46_'35lambda9 :: (Curry t521) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.T2 t521 Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t521+c_inn'46_'35lambda9 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_57(x2)(x3)(x1)(st))(st)++++c_outdeg :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))))+c_outdeg x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.op_46_58(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_length))))(x2)(st))(Curry.Module.OracleGraphInductive.c_context4(x3)(st))(x4)(st))(st)++++c_indeg :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))))+c_indeg x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.op_46_58(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_length))))(x2)(st))(Curry.Module.OracleGraphInductive.c_context1(x3)(st))(x4)(st))(st)++++c_deg :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))))+c_deg x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.op_46_58(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_deg'46_'35lambda10))))(x2)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_context))(st))(x3)(st))(st)++++c_deg'46_'35lambda10 :: (Curry t553,Curry t552) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t553 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t552 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t553 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_deg'46_'35lambda10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_56(x2)(x1)(st))(st)++++c_gelem :: (Curry t0,Curry t1) => Curry.Module.Prelude.C_Int -> (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_gelem x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleMaybe.c_isJust(Curry.Module.OraclePrelude.c_fst(Curry.Module.OracleGraphInductive.c_match(x2)(x3)(x1)(st))(x4)(st))(x5)(st))(st)++++c_equal :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_equal x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.c_slabNodes(x1)(st))(x2)(x4)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.c_slabNodes(x5)(st))(x3)(x6)(st))(x7)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.c_slabEdges(x8)(st))(x2)(x9)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.c_slabEdges(x10)(st))(x3)(x11)(st))(x12)(st))(x13)(st))(st)++++c_nodeComp :: (Curry t0) => (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering+c_nodeComp x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_55(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)(x3)(x1)(st))(x4)(st))(st)++++c_slabNodes :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)))+c_slabNodes x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleGraphInductive.c_sortBy(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_nodeComp))(st))(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_labNodes))))(x2)(st))(st)++++c_edgeComp :: (Curry t0) => (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t0) -> (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering+c_edgeComp x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x11)(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_52(x2)(x3)(Curry.Module.OracleGraphInductive.c_edgeComp'46_'35selFP11'35v(x2)(x1)(st))(Curry.Module.OracleGraphInductive.c_edgeComp'46_'35selFP12'35w(x2)(x10)(st))(Curry.Module.OracleGraphInductive.c_edgeComp'46_'35selFP9'35x(x3)(x11)(st))(Curry.Module.OracleGraphInductive.c_edgeComp'46_'35selFP10'35y(x3)(x12)(st))(Curry.Module.OraclePrelude.op_61_61(x2)(x3)(x13)(st))(x14)(st))(st))(st))(st))(st))(st))(st))(st)++++c_edgeComp'46_'35selFP11'35v :: (Curry t613) => (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t613) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_edgeComp'46_'35selFP11'35v x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_49(x2)(x1)(st))(st)++++c_edgeComp'46_'35selFP12'35w :: (Curry t613) => (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t613) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_edgeComp'46_'35selFP12'35w x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_48(x2)(x1)(st))(st)++++c_edgeComp'46_'35selFP9'35x :: (Curry t613) => (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t613) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_edgeComp'46_'35selFP9'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_47(x2)(x1)(st))(st)++++c_edgeComp'46_'35selFP10'35y :: (Curry t613) => (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t613) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_edgeComp'46_'35selFP10'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_46(x2)(x1)(st))(st)++++c_slabEdges :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t1)))+c_slabEdges x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleGraphInductive.c_sortBy(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_edgeComp))(st))(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_labEdges))))(x2)(st))(st)++++c_node'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_node'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_45(x2)(x1)(st))(st)++++c_lab'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1+c_lab'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_44(x2)(x1)(st))(st)++++c_labNode'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t1+c_labNode'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_43(x2)(x1)(st))(st)++++c_neighbors'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_neighbors'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_42(x2)(x1)(st))(st)++++c_suc'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_suc'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_41(x2)(x1)(st))(st)++++c_pre'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_pre'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_40(x2)(x1)(st))(st)++++c_lpre'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)+c_lpre'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_39(x2)(x1)(st))(st)++++c_lsuc'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)+c_lsuc'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_38(x2)(x1)(st))(st)++++c_out'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t0)+c_out'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_37(x2)(x1)(st))(st)++++c_out'39'46_'35lambda11 :: (Curry t732) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.T2 t732 Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t732+c_out'39'46_'35lambda11 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_36(x2)(x3)(x1)(st))(st)++++c_inn'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t0)+c_inn'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_35(x2)(x1)(st))(st)++++c_inn'39'46_'35lambda12 :: (Curry t742) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.T2 t742 Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t742+c_inn'39'46_'35lambda12 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_34(x2)(x3)(x1)(st))(st)++++c_outdeg'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_outdeg'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_33(x2)(x1)(st))(st)++++c_indeg'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_indeg'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_32(x2)(x1)(st))(st)++++c_deg'39 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_deg'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_31(x2)(x1)(st))(st)++++c_labNodes :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t0)+c_labNodes x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_30(x2)(x1)(st))(st)++++c_labNodes'46_'35lambda13 :: (Curry t574,Curry t573) => (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t574 Curry.Module.Prelude.C_Int)) t573 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t574 Curry.Module.Prelude.C_Int)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int t573+c_labNodes'46_'35lambda13 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_29(x2)(x1)(st))(st)++++c_labEdges :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t1)+c_labEdges x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_27(x2)(x1)(st))(st)++++c_labEdges'46_'35lambda14 :: (Curry t620,Curry t619) => (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t620 Curry.Module.Prelude.C_Int)) t619 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t620 Curry.Module.Prelude.C_Int)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t620)+c_labEdges'46_'35lambda14 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_26(x2)(x1)(st))(st)++++c_labEdges'46_'35lambda14'46_'35lambda15 :: (Curry t620) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.T2 t620 Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t620+c_labEdges'46_'35lambda14'46_'35lambda15 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_24(x2)(x3)(x1)(st))(st)++++c_nodes :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_nodes x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_fst))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_labNodes))))(x1)(st))(st)++++c_edges :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int)))+c_edges x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_edges'46_'35lambda16))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_labEdges))))(x1)(st))(st)++++c_edges'46_'35lambda16 :: (Curry t788) => (Curry.Module.Prelude.T3 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int t788) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int+c_edges'46_'35lambda16 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_23(x2)(x1)(st))(st)++++c_newNodes :: (Curry t0,Curry t1) => Curry.Module.Prelude.C_Int -> (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_newNodes x2 x3 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleGraphInductive.c_newNodes'46_'35selFP14'35n(Curry.Module.OracleGraphInductive.c_nodeRange(x3)(x1)(st))(x6)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_enumFromTo(Curry.Module.OraclePrelude.op_43(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x7)(st))(Curry.Module.OraclePrelude.op_43(x5)(x2)(x8)(st))(x9)(st))(st))(st))(st)++++c_newNodes'46_'35selFP14'35n :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_newNodes'46_'35selFP14'35n x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_22(x2)(x1)(st))(st)++++c_ufold :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t2))))) -> t2 -> (Curry.Module.OracleGraphInductive.C_Graph t1 t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t2+c_ufold x2 x3 x4 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleGraphInductive.c_matchAny(x4)(x1)(st)} in let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_21(x2)(x3)(x4)(Curry.Module.OracleGraphInductive.c_ufold'46_'35selFP16'35c(x5)(x8)(st))(Curry.Module.OracleGraphInductive.c_ufold'46_'35selFP17'35g'39(x5)(x9)(st))(Curry.Module.OracleGraphInductive.c_isEmpty(x4)(x10)(st))(x11)(st))(st))(st))(st))(st)++++c_ufold'46_'35selFP16'35c :: (Curry t807,Curry t806) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t807 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t806 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t807 Curry.Module.Prelude.C_Int))) (Curry.Module.OracleGraphInductive.C_Graph t806 t807)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t807 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t806 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t807 Curry.Module.Prelude.C_Int))+c_ufold'46_'35selFP16'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_19(x2)(x1)(st))(st)++++c_ufold'46_'35selFP17'35g'39 :: (Curry t807,Curry t806) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t807 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t806 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t807 Curry.Module.Prelude.C_Int))) (Curry.Module.OracleGraphInductive.C_Graph t806 t807)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t806 t807+c_ufold'46_'35selFP17'35g'39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_18(x2)(x1)(st))(st)++++c_gmap :: (Curry t0,Curry t1,Curry t2,Curry t3) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t2 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t2 Curry.Module.Prelude.C_Int))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t1 t0) -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t3 t2))+c_gmap x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_ufold(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_gmap'46_'35lambda17(x2)))))(Curry.Module.OracleGraphInductive.c_empty(x1)(st))))))(st)++++c_gmap'46_'35lambda17 :: (Curry t821,Curry t822,Curry t830,Curry t829) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t821 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t822 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t821 Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t830 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t829 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t830 Curry.Module.Prelude.C_Int))))) -> (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t821 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t822 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t821 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t829 t830) -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t829 t830))+c_gmap'46_'35lambda17 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.op_58_38(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))))))(st)++++c_nmap :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t2) -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t1 t2))+c_nmap x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c_gmap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_nmap'46_'35lambda18(x2)))))(x1)(st))(st)++++c_nmap'46_'35lambda18 :: (Curry t841,Curry t844,Curry t837) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t841 -> Curry.RunTimeSystem.State -> t844))) -> (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t837 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t841 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t837 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t837 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t844 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t837 Curry.Module.Prelude.C_Int))+c_nmap'46_'35lambda18 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_17(x2)(x3)(x1)(st))(st)++++c_emap :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t2 t0) -> Curry.RunTimeSystem.State -> Curry.Module.OracleGraphInductive.C_Graph t2 t1))+c_emap x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c_gmap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_emap'46_'35lambda20(x2)))))(x1)(st))(st)++++c_emap'46map1'46213 :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t2)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 t2)))+c_emap'46map1'46213 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_emap'46map1'46213'46_'35lambda19(x2)))))))))(st)++++c_emap'46map1'46213'46_'35lambda19 :: (Curry t853,Curry t856,Curry t854) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t853 -> Curry.RunTimeSystem.State -> t856))) -> (Curry.Module.Prelude.T2 t853 t854) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t856 t854+c_emap'46map1'46213'46_'35lambda19 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_16(x2)(x3)(x1)(st))(st)++++c_emap'46_'35lambda20 :: (Curry t865,Curry t866,Curry t863) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t865 -> Curry.RunTimeSystem.State -> t866))) -> (Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t865 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t863 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t865 Curry.Module.Prelude.C_Int))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T4 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t866 Curry.Module.Prelude.C_Int)) Curry.Module.Prelude.C_Int t863 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t866 Curry.Module.Prelude.C_Int))+c_emap'46_'35lambda20 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_15(x2)(x3)(x1)(st))(st)++++c_labUEdges :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T3 t0 t1 Curry.Module.Prelude.T0)))+c_labUEdges x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_labUEdges'46_'35lambda21))))))))(st)++++c_labUEdges'46_'35lambda21 :: (Curry t249,Curry t250) => (Curry.Module.Prelude.T2 t249 t250) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 t249 t250 Curry.Module.Prelude.T0+c_labUEdges'46_'35lambda21 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_14(x2)(x1)(st))(st)++++c_labUNodes :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.T0)))+c_labUNodes x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_labUNodes'46_'35lambda22))))))))(st)++++c_labUNodes'46_'35lambda22 :: (Curry t254) => t254 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t254 Curry.Module.Prelude.T0+c_labUNodes'46_'35lambda22 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x2)(Curry.Module.Prelude.T0))(st)++++c_showGraph :: (Curry t0,Curry t1) => (Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showGraph x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_13(x2)(x1)(st))(st)++++c_showNode :: (Curry t0,Curry t1,Curry t2,Curry t3) => (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.T3 t1 t2 t3)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showNode x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_12(x2)(x1)(st))(st)++++op_46_58 :: (Curry t0,Curry t1,Curry t2,Curry t3) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t3 -> Curry.RunTimeSystem.State -> t0))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t3 -> Curry.RunTimeSystem.State -> t1))))))))+op_46_58 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_46))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_46))(st))(x1)(st))(st)++++c_fst4 :: (Curry t0,Curry t1,Curry t2,Curry t3) => (Curry.Module.Prelude.T4 t0 t1 t2 t3) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_fst4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_10(x2)(x1)(st))(st)++++c_fth4 :: (Curry t0,Curry t1,Curry t2,Curry t3) => (Curry.Module.Prelude.T4 t0 t1 t2 t3) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t3+c_fth4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_9(x2)(x1)(st))(st)++++c_flip2 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T2 t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 t1 t0+c_flip2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_8(x2)(x1)(st))(st)++++c_context1 :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)))))+c_context1 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.op_46_58(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_fst4))))(x2)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_context))(st))(x3)(st))(st)++++c_context4 :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleGraphInductive.C_Graph t0 t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 Curry.Module.Prelude.C_Int)))))+c_context4 x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.op_46_58(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_fth4))))(x2)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_context))(st))(x3)(st))(st)++++c_addSucc :: (Curry t0,Curry t1,Curry t2,Curry t3) => t0 -> t1 -> (Curry.Module.Prelude.T3 t2 t3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 t2 t3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 t0))+c_addSucc x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_7(x2)(x3)(x4)(x1)(st))(st)++++c_addPred :: (Curry t0,Curry t1,Curry t2,Curry t3) => t0 -> t1 -> (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 t0)) t2 t3) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t1 t0)) t2 t3+c_addPred x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_6(x2)(x3)(x4)(x1)(st))(st)++++c_clearSucc :: (Curry t0,Curry t1,Curry t2,Curry t3,Curry t4) => t0 -> t1 -> (Curry.Module.Prelude.T3 t2 t3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t4 t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 t2 t3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t4 t0))+c_clearSucc x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_5(x2)(x4)(x1)(st))(st)++++c_clearPred :: (Curry t0,Curry t1,Curry t2,Curry t3,Curry t4) => t0 -> t1 -> (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t2 t0)) t3 t4) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t2 t0)) t3 t4+c_clearPred x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_4(x2)(x4)(x1)(st))(st)++++c_updAdj :: (Curry t0,Curry t1) => (Curry.Module.OracleFiniteMap.C_FM Curry.Module.Prelude.C_Int (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int))))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleFiniteMap.C_FM Curry.Module.Prelude.C_Int (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)) t1 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 Curry.Module.Prelude.C_Int)))+c_updAdj x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_3(x2)(x4)(x3)(x1)(st))(st)++++c_sortBy :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_sortBy x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSort.c_mergeSort(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_sortBy'46_'35lambda23(x2)))(st))))))(st)++++c_sortBy'46_'35lambda23 :: (Curry t587) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t587 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t587 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering))))) -> t587 -> t587 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_sortBy'46_'35lambda23 x2 x3 x4 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(let {x5 = Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(x4)(x6)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.C_EQ)(x7)(st))(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.C_LT)(x8)(st))(x9)(st))(st))(st)++++c__case_3 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_3_case__99(x1)(x2)(x4)(x3)(st))(st)++++c__case_2 x2 x4 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_2_case__98(x1)(x2)(x4)(x6)(x5)(st))(st)++++c__case_1 x2 x4 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_1_case__97(x1)(x2)(x4)(x6)(x7)(x8)(x9)(st))(st)++++c__case_0 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_0_case__96(x1)(x8)(x9)(st))(st)++++c__case_4 x2 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_4_case__95(x1)(x2)(x4)(st))(st)++++c__case_5 x2 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_5_case__94(x1)(x2)(x4)(st))(st)++++c__case_6 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_6_case__93(x1)(x2)(x3)(x4)(st))(st)++++c__case_7 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_7_case__92(x1)(x2)(x3)(x4)(st))(st)++++c__case_8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_8_case__91(x1)(x2)(st))(st)++++c__case_9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_9_case__90(x1)(x2)(st))(st)++++c__case_10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_10_case__89(x1)(x2)(st))(st)++++c__case_12 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_12_case__88(x1)(x2)(st))(st)++++c__case_11 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_11_case__87(x1)(x3)(x4)(st))(st)++++c__case_13 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_13_case__86(x1)(x2)(st))(st)++++c__case_14 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_14_case__85(x1)(x2)(st))(st)++++c__case_15 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_15_case__84(x1)(x2)(x3)(st))(st)++++c__case_16 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_16_case__83(x1)(x2)(x3)(st))(st)++++c__case_17 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_17_case__82(x1)(x2)(x3)(st))(st)++++c__case_18 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_18_case__81(x1)(x2)(st))(st)++++c__case_19 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_19_case__80(x1)(x2)(st))(st)++++c__case_21 x2 x3 x4 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_21_case__79(x1)(x2)(x3)(x6)(x7)(x8)(st))(st)++++c__case_20 x2 x3 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_20_case__78(x1)(x2)(x3)(x6)(x7)(x8)(st))(st)++++c__case_22 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_22_case__77(x1)(x2)(st))(st)++++c__case_23 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_23_case__76(x1)(x2)(st))(st)++++c__case_24 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_24_case__75(x1)(x2)(x3)(st))(st)++++c__case_26 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_26_case__74(x1)(x2)(st))(st)++++c__case_25 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_25_case__73(x1)(x3)(x4)(st))(st)++++c__case_27 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_27_case__72(x1)(x2)(st))(st)++++c__case_29 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_29_case__71(x1)(x2)(st))(st)++++c__case_28 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_28_case__70(x1)(x3)(x4)(st))(st)++++c__case_30 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_30_case__69(x1)(x2)(st))(st)++++c__case_31 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_31_case__68(x1)(x2)(st))(st)++++c__case_32 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_32_case__67(x1)(x2)(st))(st)++++c__case_33 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_33_case__66(x1)(x2)(st))(st)++++c__case_34 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_34_case__65(x1)(x2)(x3)(st))(st)++++c__case_35 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_35_case__64(x1)(x2)(st))(st)++++c__case_36 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_36_case__63(x1)(x2)(x3)(st))(st)++++c__case_37 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_37_case__62(x1)(x2)(st))(st)++++c__case_38 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_38_case__61(x1)(x2)(st))(st)++++c__case_39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_39_case__60(x1)(x2)(st))(st)++++c__case_40 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_40_case__59(x1)(x2)(st))(st)++++c__case_41 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_41_case__58(x1)(x2)(st))(st)++++c__case_42 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_42_case__57(x1)(x2)(st))(st)++++c__case_43 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_43_case__56(x1)(x2)(st))(st)++++c__case_44 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_44_case__55(x1)(x2)(st))(st)++++c__case_45 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_45_case__54(x1)(x2)(st))(st)++++c__case_46 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_46_case__53(x1)(x2)(st))(st)++++c__case_47 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_47_case__52(x1)(x2)(st))(st)++++c__case_48 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_48_case__51(x1)(x2)(st))(st)++++c__case_49 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_49_case__50(x1)(x2)(st))(st)++++c__case_52 x2 x3 x5 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_52_case__49(x1)(x5)(x6)(x8)(x9)(x10)(st))(st)++++c__case_51 x5 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_51_case__48(x1)(x10)(st))(st)++++c__case_50 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_50_case__47(x1)(x2)(st))(st)++++c__case_55 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_55_case__46(x1)(x2)(x3)(x4)(st))(st)++++c__case_54 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_54_case__45(x1)(x4)(st))(st)++++c__case_53 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_53_case__44(x1)(x2)(st))(st)++++c__case_56 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_56_case__43(x1)(x2)(st))(st)++++c__case_57 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_57_case__42(x1)(x2)(x3)(st))(st)++++c__case_58 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_58_case__41(x1)(x2)(x3)(st))(st)++++c__case_59 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_59_case__40(x1)(x2)(st))(st)++++c__case_61 x2 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_61_case__39(x1)(x3)(x6)(st))(st)++++c__case_60 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_60_case__38(x1)(x3)(x4)(st))(st)++++c__case_64 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_64_case__37(x1)(x2)(st))(st)++++c__case_63 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_63_case__36(x1)(x3)(x4)(x5)(st))(st)++++c__case_62 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_62_case__35(x1)(x3)(x4)(x5)(st))(st)++++c__case_65 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_65_case__34(x1)(x2)(st))(st)++++c__case_68 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_68_case__33(x1)(x2)(x3)(st))(st)++++c__case_67 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_67_case__32(x1)(x2)(x4)(x5)(st))(st)++++c__case_66 x2 x4 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_66_case__31(x1)(x2)(x4)(x7)(st))(st)++++c__case_69 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_69_case__30(x1)(x2)(x3)(st))(st)++++c__case_70 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_70_case__29(x1)(x2)(st))(st)++++c__case_71 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_71_case__28(x1)(x3)(x2)(st))(st)++++c__case_75 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_75_case__27(x1)(x3)(x2)(st))(st)++++c__case_74 x3 x4 x5 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_74_case__26(x1)(x3)(x5)(x8)(st))(st)++++c__case_73 x3 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_73_case__25(x1)(x3)(x5)(x7)(x6)(st))(st)++++c__case_72 x5 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_72_case__24(x1)(x5)(x7)(x8)(st))(st)++++c__case_78 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_78_case__23(x1)(x2)(st))(st)++++c__case_77 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_77_case__22(x1)(x4)(x3)(st))(st)++++c__case_76 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_76_case__21(x1)(x4)(x5)(st))(st)++++c__case_81 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_81_case__20(x1)(x2)(st))(st)++++c__case_80 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_80_case__19(x1)(x3)(st))(st)++++c__case_79 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_79_case__18(x1)(x5)(st))(st)++++c__case_84 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_84_case__17(x1)(x2)(st))(st)++++c__case_83 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_83_case__16(x1)(x3)(st))(st)++++c__case_82 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_82_case__15(x1)(x5)(st))(st)++++c__case_87 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_87_case__14(x1)(x2)(st))(st)++++c__case_86 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_86_case__13(x1)(x3)(st))(st)++++c__case_85 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_85_case__12(x1)(x5)(st))(st)++++c__case_88 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_88_case__11(x1)(x3)(x2)(st))(st)++++c__case_89 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_89_case__10(x1)(x2)(st))(st)++++c__case_95 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_95_case__9(x1)(x2)(st))(st)++++c__case_94 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_94_case__8(x1)(x3)(x4)(st))(st)++++c__case_93 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_93_case__7(x1)(x3)(x4)(st))(st)++++c__case_92 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_92_case__6(x1)(x3)(x6)(st))(st)++++c__case_91 x3 x4 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_91_case__5(x1)(x8)(st))(st)++++c__case_90 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_90_case__4(x1)(x7)(x6)(st))(st)++++c__case_99 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_99_case__3(x1)(x3)(x2)(st))(st)++++c__case_98 x4 x5 x6 x7 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_98_case__2(x1)(x4)(x5)(x6)(x7)(x3)(st))(st)++++c__case_97 x5 x6 x8 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_97_case__1(x1)(x5)(x6)(x11)(x12)(st))(st)++++c__case_96 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_96_case__0(x1)(x11)(x12)(st))(st)++++c__case_96_case__0 x1 x11 x12@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OracleGraphInductive.C_Gr(x11))(st)+c__case_96_case__0 x1 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_96_case__0 x1 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_96_case__0(x1)(x11)(x)(st))(i)(xs)(st)+c__case_96_case__0 x1 x11 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_96_case__0")(x)++++c__case_97_case__1 x1 x5 x6 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.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('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('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x1)(st))(Curry.Module.OraclePrelude.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.OraclePrelude.c_show(x6)(x13)(st))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(st)+c__case_97_case__1 x1 x5 x6 x11 x12@Curry.Module.Prelude.C_False st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_96(x11)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x18)(st))(st)+c__case_97_case__1 x1 x5 x6 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_97_case__1(x1)(x5)(x6)(x11)(x)(st))(i)(xs)(st)+c__case_97_case__1 x1 x5 x6 x11 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_97_case__1")(x)++++c__case_98_case__2 x1 x4 x5 x6 x7 x3@(Curry.Module.OracleGraphInductive.C_Gr x8) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_97(x5)(x6)(x8)(Curry.Module.OracleGraphInductive.c_updAdj(Curry.Module.OracleGraphInductive.c_updAdj(Curry.Module.OracleFiniteMap.c_addToFM(x8)(x5)(Curry.Module.Prelude.T3(x4)(x6)(x7))(x1)(st))(x4)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_addSucc(x5)))(st))(x12)(st))(x7)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_addPred(x5)))(st))(x13)(st))(Curry.Module.OracleFiniteMap.c_elemFM(x5)(x8)(x14)(st))(x15)(st))(st))(st))(st))(st)+c__case_98_case__2 x1 x4 x5 x6 x7 (Curry.Module.OracleGraphInductive.C_GraphOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_98_case__2(x1)(x4)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_98_case__2 x1 x4 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_98_case__2")(x)++++c__case_99_case__3 x1 x3 x2@(Curry.Module.Prelude.T4 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_98(x4)(x5)(x6)(x7)(x3)(x1)(st))(st)+c__case_99_case__3 x1 x3 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_99_case__3(x1)(x3)(x)(st))(i)(xs)(st)+c__case_99_case__3 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_99_case__3")(x)++++c__case_90_case__4 x1 x7 x6@(Curry.Module.Prelude.C_Just x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x8)(x7))(st)+c__case_90_case__4 x1 x7 x6@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_90_case__4 x1 x7 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_90_case__4(x1)(x7)(x)(st))(i)(xs)(st)+c__case_90_case__4 x1 x7 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_90_case__4")(x)++++c__case_91_case__5 x1 x8@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_90(x7)(x6)(x1)(st))(st)+c__case_91_case__5 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_91_case__5(x1)(x)(st))(i)(xs)(st)+c__case_91_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_91_case__5")(x)++++c__case_92_case__6 x1 x3 x6@(Curry.Module.Prelude.T2 x4 x5) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_91(x3)(x4)(Curry.Module.OracleGraphInductive.c_match(x4)(Curry.Module.OracleGraphInductive.C_Gr(x3))(x1)(st))(x7)(st))(st)+c__case_92_case__6 x1 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_92_case__6(x1)(x3)(x)(st))(i)(xs)(st)+c__case_92_case__6 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_92_case__6")(x)++++c__case_93_case__7 x1 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OracleGraphInductive.c__case_92(x3)(Curry.Module.OraclePrelude.c_head(Curry.Module.OracleFiniteMap.c_fmToListPreOrder(x3)(x1)(st))(x5)(st))(x6)(st))(st)+c__case_93_case__7 x1 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_93_case__7 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_93_case__7(x1)(x3)(x)(st))(i)(xs)(st)+c__case_93_case__7 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_93_case__7")(x)++++c__case_94_case__8 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((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('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(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('r'))((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('h'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))(x1)(st))(st)+c__case_94_case__8 x1 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_93(x3)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x5)(st))(st)+c__case_94_case__8 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_94_case__8(x1)(x3)(x)(st))(i)(xs)(st)+c__case_94_case__8 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_94_case__8")(x)++++c__case_95_case__9 x1 x2@(Curry.Module.OracleGraphInductive.C_Gr x3) st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_94(x3)(Curry.Module.OracleFiniteMap.c_isEmptyFM(x3)(x1)(st))(x4)(st))(st)+c__case_95_case__9 x1 (Curry.Module.OracleGraphInductive.C_GraphOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_95_case__9(x1)(x)(st))(i)(xs)(st)+c__case_95_case__9 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_95_case__9")(x)++++c__case_89_case__10 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.op_58_38(Curry.Module.Prelude.T4(Curry.Module.Prelude.List)(x3)(x4)(Curry.Module.Prelude.List))))))(st)+c__case_89_case__10 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_89_case__10(x1)(x)(st))(i)(xs)(st)+c__case_89_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_89_case__10")(x)++++c__case_88_case__11 x1 x3 x2@(Curry.Module.Prelude.T3 x4 x5 x6) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OracleGraphInductive.c_match(x4)(x3)(x1)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x16)(Curry.Module.OracleGraphInductive.op_58_38(Curry.Module.Prelude.T4(Curry.Module.OracleGraphInductive.c_insEdge'46_'35selFP3'35pr(x7)(x12)(st))(x4)(Curry.Module.OracleGraphInductive.c_insEdge'46_'35selFP4'35la(x7)(x13)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x6)(x5))(Curry.Module.OracleGraphInductive.c_insEdge'46_'35selFP5'35su(x7)(x14)(st))))(Curry.Module.OracleGraphInductive.c_insEdge'46_'35selFP6'35g'39(x7)(x15)(st))(x16)(st))(st))(st))(st))(st))(st))(st)+c__case_88_case__11 x1 x3 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_88_case__11(x1)(x3)(x)(st))(i)(xs)(st)+c__case_88_case__11 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_88_case__11")(x)++++c__case_85_case__12 x1 x5@(Curry.Module.Prelude.T4 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_85_case__12 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_85_case__12(x1)(x)(st))(i)(xs)(st)+c__case_85_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_85_case__12")(x)++++c__case_86_case__13 x1 x3@(Curry.Module.Prelude.C_Just x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_85(x5)(x1)(st))(st)+c__case_86_case__13 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_86_case__13(x1)(x)(st))(i)(xs)(st)+c__case_86_case__13 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_86_case__13")(x)++++c__case_87_case__14 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_86(x3)(x1)(st))(st)+c__case_87_case__14 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_87_case__14(x1)(x)(st))(i)(xs)(st)+c__case_87_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_87_case__14")(x)++++c__case_82_case__15 x1 x5@(Curry.Module.Prelude.T4 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_82_case__15 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_82_case__15(x1)(x)(st))(i)(xs)(st)+c__case_82_case__15 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_82_case__15")(x)++++c__case_83_case__16 x1 x3@(Curry.Module.Prelude.C_Just x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_82(x5)(x1)(st))(st)+c__case_83_case__16 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_83_case__16(x1)(x)(st))(i)(xs)(st)+c__case_83_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_83_case__16")(x)++++c__case_84_case__17 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_83(x3)(x1)(st))(st)+c__case_84_case__17 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_84_case__17(x1)(x)(st))(i)(xs)(st)+c__case_84_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_84_case__17")(x)++++c__case_79_case__18 x1 x5@(Curry.Module.Prelude.T4 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_79_case__18 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_79_case__18(x1)(x)(st))(i)(xs)(st)+c__case_79_case__18 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_79_case__18")(x)++++c__case_80_case__19 x1 x3@(Curry.Module.Prelude.C_Just x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_79(x5)(x1)(st))(st)+c__case_80_case__19 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_80_case__19(x1)(x)(st))(i)(xs)(st)+c__case_80_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_80_case__19")(x)++++c__case_81_case__20 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_80(x3)(x1)(st))(st)+c__case_81_case__20 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_81_case__20(x1)(x)(st))(i)(xs)(st)+c__case_81_case__20 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_81_case__20")(x)++++c__case_76_case__21 x1 x4 x5@(Curry.Module.Prelude.T4 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_76_case__21 x1 x4 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_76_case__21(x1)(x4)(x)(st))(i)(xs)(st)+c__case_76_case__21 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_76_case__21")(x)++++c__case_77_case__22 x1 x4 x3@(Curry.Module.Prelude.C_Just x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_76(x4)(x5)(x1)(st))(st)+c__case_77_case__22 x1 x4 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_77_case__22(x1)(x4)(x)(st))(i)(xs)(st)+c__case_77_case__22 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_77_case__22")(x)++++c__case_78_case__23 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_77(x4)(x3)(x1)(st))(st)+c__case_78_case__23 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_78_case__23(x1)(x)(st))(i)(xs)(st)+c__case_78_case__23 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_78_case__23")(x)++++c__case_72_case__24 x1 x5 x7 x8@(Curry.Module.Prelude.T4 x9 x10 x11 x12) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.OracleGraphInductive.op_58_38(Curry.Module.Prelude.T4(x9)(x10)(x11)(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(x5)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x1)(st))(x12)(x13)(st)))(x7)(x14)(st))(st)+c__case_72_case__24 x1 x5 x7 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_72_case__24(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_72_case__24 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_72_case__24")(x)++++c__case_73_case__25 x1 x3 x5 x7 x6@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_73_case__25 x1 x3 x5 x7 x6@(Curry.Module.Prelude.C_Just x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_72(x5)(x7)(x8)(x1)(st))(st)+c__case_73_case__25 x1 x3 x5 x7 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_73_case__25(x1)(x3)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_73_case__25 x1 x3 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_73_case__25")(x)++++c__case_74_case__26 x1 x3 x5 x8@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_73(x3)(x5)(x7)(x6)(x1)(st))(st)+c__case_74_case__26 x1 x3 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_74_case__26(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_74_case__26 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_74_case__26")(x)++++c__case_75_case__27 x1 x3 x2@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_74(x3)(x4)(x5)(Curry.Module.OracleGraphInductive.c_match(x4)(x3)(x1)(st))(x6)(st))(st)+c__case_75_case__27 x1 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_75_case__27(x1)(x3)(x)(st))(i)(xs)(st)+c__case_75_case__27 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_75_case__27")(x)++++c__case_71_case__28 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_71_case__28 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OracleGraphInductive.c_delNodes(x5)(Curry.Module.OraclePrelude.c_snd(Curry.Module.OracleGraphInductive.c_match(x4)(x3)(x1)(st))(x6)(st))(x7)(st))(st)+c__case_71_case__28 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_71_case__28(x1)(x3)(x)(st))(i)(xs)(st)+c__case_71_case__28 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_71_case__28")(x)++++c__case_70_case__29 x1 x2@(Curry.Module.OracleGraphInductive.C_Gr x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_isEmptyFM(x3)(x1)(st))(st)+c__case_70_case__29 x1 (Curry.Module.OracleGraphInductive.C_GraphOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_70_case__29(x1)(x)(st))(i)(xs)(st)+c__case_70_case__29 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_70_case__29")(x)++++c__case_69_case__30 x1 x2 x3@(Curry.Module.OracleGraphInductive.C_Gr x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Nothing)(Curry.Module.OracleGraphInductive.C_Gr(x4)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_match'46_'35lambda5(x2)))))(Curry.Module.OracleFiniteMap.c_splitFM(x4)(x2)(x1)(st))(x5)(st))(st)+c__case_69_case__30 x1 x2 (Curry.Module.OracleGraphInductive.C_GraphOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_69_case__30(x1)(x2)(x)(st))(i)(xs)(st)+c__case_69_case__30 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_69_case__30")(x)++++c__case_66_case__31 x1 x2 x4 x7@(Curry.Module.Prelude.T3 x8 x9 x10) st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))(let {x12 = Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x16)(st))(x8)(x17)(st)} in let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x20)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.T4(x12)(x2)(x9)(x10)))(Curry.Module.OracleGraphInductive.C_Gr(Curry.Module.OracleGraphInductive.c_updAdj(Curry.Module.OracleGraphInductive.c_updAdj(x4)(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x1)(st))(x10)(x15)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_clearPred(x2)))(st))(x18)(st))(x12)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleGraphInductive.c_clearSucc(x2)))(st))(x19)(st))))(st))(st))(st))(st))(st)+c__case_66_case__31 x1 x2 x4 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_66_case__31(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_66_case__31 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_66_case__31")(x)++++c__case_67_case__32 x1 x2 x4 x5@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_66(x2)(x4)(x7)(x1)(st))(st)+c__case_67_case__32 x1 x2 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_67_case__32(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_67_case__32 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_67_case__32")(x)++++c__case_68_case__33 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_67(x2)(x4)(x5)(x1)(st))(st)+c__case_68_case__33 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_68_case__33(x1)(x2)(x)(st))(i)(xs)(st)+c__case_68_case__33 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_68_case__33")(x)++++c__case_65_case__34 x1 x2@(Curry.Module.OracleGraphInductive.C_Gr x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFiniteMap.c_sizeFM(x3)(x1)(st))(st)+c__case_65_case__34 x1 (Curry.Module.OracleGraphInductive.C_GraphOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_65_case__34(x1)(x)(st))(i)(xs)(st)+c__case_65_case__34 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_65_case__34")(x)++++c__case_62_case__35 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.T2(Curry.Module.Oracle.c_apply(x4)(Curry.Module.Oracle.c_apply(Curry.Module.OracleFiniteMap.c_minFM(x1)(st))(x3)(x6)(st))(x7)(st))(Curry.Module.Oracle.c_apply(x4)(Curry.Module.Oracle.c_apply(Curry.Module.OracleFiniteMap.c_maxFM(x8)(st))(x3)(x9)(st))(x10)(st)))(st)+c__case_62_case__35 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_62_case__35 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_62_case__35(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_62_case__35 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_62_case__35")(x)++++c__case_63_case__36 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.C_Zero))(st)+c__case_63_case__36 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_62(x3)(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x6)(st))(st)+c__case_63_case__36 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_63_case__36(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_63_case__36 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_63_case__36")(x)++++c__case_64_case__37 x1 x2@(Curry.Module.OracleGraphInductive.C_Gr x3) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_63(x3)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_fst))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMaybe.c_fromJust))))(x1)(st))(Curry.Module.OracleFiniteMap.c_isEmptyFM(x3)(x5)(st))(x6)(st))(st))(st)+c__case_64_case__37 x1 (Curry.Module.OracleGraphInductive.C_GraphOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_64_case__37(x1)(x)(st))(i)(xs)(st)+c__case_64_case__37 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_64_case__37")(x)++++c__case_60_case__38 x1 x3 x4@Curry.Module.Prelude.C_Nothing st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.op_43_43((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('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(x7)(st))(x8)(st))(st)+c__case_60_case__38 x1 x3 x4@(Curry.Module.Prelude.C_Just x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_60_case__38 x1 x3 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_60_case__38(x1)(x3)(x)(st))(i)(xs)(st)+c__case_60_case__38 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_60_case__38")(x)++++c__case_61_case__39 x1 x3 x6@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_60(x3)(x4)(x1)(st))(st)+c__case_61_case__39 x1 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_61_case__39(x1)(x3)(x)(st))(i)(xs)(st)+c__case_61_case__39 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_61_case__39")(x)++++c__case_59_case__40 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(Curry.Module.OraclePrelude.op_43_43(x3)(x6)(x1)(st))(x7)(st))(st)+c__case_59_case__40 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_59_case__40(x1)(x)(st))(i)(xs)(st)+c__case_59_case__40 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_59_case__40")(x)++++c__case_58_case__41 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T3(x2)(x5)(x4))(st)+c__case_58_case__41 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_58_case__41(x1)(x2)(x)(st))(i)(xs)(st)+c__case_58_case__41 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_58_case__41")(x)++++c__case_57_case__42 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T3(x5)(x2)(x4))(st)+c__case_57_case__42 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_57_case__42(x1)(x2)(x)(st))(i)(xs)(st)+c__case_57_case__42 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_57_case__42")(x)++++c__case_56_case__43 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_length(x3)(x1)(st))(Curry.Module.OraclePrelude.c_length(x6)(x7)(st))(x8)(st))(st)+c__case_56_case__43 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_56_case__43(x1)(x)(st))(i)(xs)(st)+c__case_56_case__43 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_56_case__43")(x)++++c__case_53_case__44 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_53_case__44 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_53_case__44 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_53_case__44(x1)(x)(st))(i)(xs)(st)+c__case_53_case__44 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_53_case__44")(x)++++c__case_54_case__45 x1 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_54_case__45 x1 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_53(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x5)(st))(st)+c__case_54_case__45 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_54_case__45(x1)(x)(st))(i)(xs)(st)+c__case_54_case__45 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_54_case__45")(x)++++c__case_55_case__46 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_EQ)(st)+c__case_55_case__46 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.OracleGraphInductive.c__case_54(x2)(x3)(Curry.Module.OraclePrelude.op_60(Curry.Module.OraclePrelude.c_fst(x2)(x1)(st))(Curry.Module.OraclePrelude.c_fst(x3)(x5)(st))(x6)(st))(x7)(st))(st)+c__case_55_case__46 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_55_case__46(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_55_case__46 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_55_case__46")(x)++++c__case_50_case__47 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_50_case__47 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_50_case__47 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_50_case__47(x1)(x)(st))(i)(xs)(st)+c__case_50_case__47 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_50_case__47")(x)++++c__case_51_case__48 x1 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_51_case__48 x1 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_50(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x11)(st))(st)+c__case_51_case__48 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_51_case__48(x1)(x)(st))(i)(xs)(st)+c__case_51_case__48 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_51_case__48")(x)++++c__case_52_case__49 x1 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_EQ)(st)+c__case_52_case__49 x1 x5 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))(Curry.Module.OracleGraphInductive.c__case_51(x5)(x6)(x8)(x9)(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_60(x5)(x8)(x1)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x5)(x8)(x11)(st))(Curry.Module.OraclePrelude.op_60(x6)(x9)(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_52_case__49 x1 x5 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_52_case__49(x1)(x5)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_52_case__49 x1 x5 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_52_case__49")(x)++++c__case_49_case__50 x1 x2@(Curry.Module.Prelude.T3 x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_49_case__50 x1 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_49_case__50(x1)(x)(st))(i)(xs)(st)+c__case_49_case__50 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_49_case__50")(x)++++c__case_48_case__51 x1 x2@(Curry.Module.Prelude.T3 x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_48_case__51 x1 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_48_case__51(x1)(x)(st))(i)(xs)(st)+c__case_48_case__51 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_48_case__51")(x)++++c__case_47_case__52 x1 x2@(Curry.Module.Prelude.T3 x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_47_case__52 x1 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_47_case__52(x1)(x)(st))(i)(xs)(st)+c__case_47_case__52 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_47_case__52")(x)++++c__case_46_case__53 x1 x2@(Curry.Module.Prelude.T3 x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_46_case__53 x1 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_46_case__53(x1)(x)(st))(i)(xs)(st)+c__case_46_case__53 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_46_case__53")(x)++++c__case_45_case__54 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_45_case__54 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_45_case__54(x1)(x)(st))(i)(xs)(st)+c__case_45_case__54 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_45_case__54")(x)++++c__case_44_case__55 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_44_case__55 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_44_case__55(x1)(x)(st))(i)(xs)(st)+c__case_44_case__55 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_44_case__55")(x)++++c__case_43_case__56 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x4)(x5))(st)+c__case_43_case__56 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_43_case__56(x1)(x)(st))(i)(xs)(st)+c__case_43_case__56 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_43_case__56")(x)++++c__case_42_case__57 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x3)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x6)(x7)(st))(x8)(st))(st)+c__case_42_case__57 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_42_case__57(x1)(x)(st))(i)(xs)(st)+c__case_42_case__57 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_42_case__57")(x)++++c__case_41_case__58 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x6)(x1)(st))(st)+c__case_41_case__58 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_41_case__58(x1)(x)(st))(i)(xs)(st)+c__case_41_case__58 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_41_case__58")(x)++++c__case_40_case__59 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x3)(x1)(st))(st)+c__case_40_case__59 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_40_case__59(x1)(x)(st))(i)(xs)(st)+c__case_40_case__59 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_40_case__59")(x)++++c__case_39_case__60 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_flip2))))(x3)(x1)(st))(st)+c__case_39_case__60 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_39_case__60(x1)(x)(st))(i)(xs)(st)+c__case_39_case__60 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_39_case__60")(x)++++c__case_38_case__61 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_flip2))))(x6)(x1)(st))(st)+c__case_38_case__61 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_38_case__61(x1)(x)(st))(i)(xs)(st)+c__case_38_case__61 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_38_case__61")(x)++++c__case_37_case__62 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_out'39'46_'35lambda11(x4)))))(x6)(x1)(st))(st)+c__case_37_case__62 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_37_case__62(x1)(x)(st))(i)(xs)(st)+c__case_37_case__62 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_37_case__62")(x)++++c__case_36_case__63 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T3(x2)(x5)(x4))(st)+c__case_36_case__63 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_36_case__63(x1)(x2)(x)(st))(i)(xs)(st)+c__case_36_case__63 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_36_case__63")(x)++++c__case_35_case__64 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_inn'39'46_'35lambda12(x4)))))(x3)(x1)(st))(st)+c__case_35_case__64 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_35_case__64(x1)(x)(st))(i)(xs)(st)+c__case_35_case__64 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_35_case__64")(x)++++c__case_34_case__65 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T3(x5)(x2)(x4))(st)+c__case_34_case__65 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_34_case__65(x1)(x2)(x)(st))(i)(xs)(st)+c__case_34_case__65 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_34_case__65")(x)++++c__case_33_case__66 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_length(x6)(x1)(st))(st)+c__case_33_case__66 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_33_case__66(x1)(x)(st))(i)(xs)(st)+c__case_33_case__66 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_33_case__66")(x)++++c__case_32_case__67 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_length(x3)(x1)(st))(st)+c__case_32_case__67 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_32_case__67(x1)(x)(st))(i)(xs)(st)+c__case_32_case__67 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_32_case__67")(x)++++c__case_31_case__68 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_length(x3)(x1)(st))(Curry.Module.OraclePrelude.c_length(x6)(x7)(st))(x8)(st))(st)+c__case_31_case__68 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_31_case__68(x1)(x)(st))(i)(xs)(st)+c__case_31_case__68 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_31_case__68")(x)++++c__case_30_case__69 x1 x2@(Curry.Module.OracleGraphInductive.C_Gr x3) st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_labNodes'46_'35lambda13))))(Curry.Module.OracleFiniteMap.c_fmToList(x3)(x1)(st))(x4)(st))(st)+c__case_30_case__69 x1 (Curry.Module.OracleGraphInductive.C_GraphOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_30_case__69(x1)(x)(st))(i)(xs)(st)+c__case_30_case__69 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_30_case__69")(x)++++c__case_28_case__70 x1 x3 x4@(Curry.Module.Prelude.T3 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x3)(x6))(st)+c__case_28_case__70 x1 x3 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_28_case__70(x1)(x3)(x)(st))(i)(xs)(st)+c__case_28_case__70 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_28_case__70")(x)++++c__case_29_case__71 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_28(x3)(x4)(x1)(st))(st)+c__case_29_case__71 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_29_case__71(x1)(x)(st))(i)(xs)(st)+c__case_29_case__71 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_29_case__71")(x)++++c__case_27_case__72 x1 x2@(Curry.Module.OracleGraphInductive.C_Gr x3) st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_labEdges'46_'35lambda14))))(x1)(st))(Curry.Module.OracleFiniteMap.c_fmToList(x3)(x4)(st))(x5)(st))(st)+c__case_27_case__72 x1 (Curry.Module.OracleGraphInductive.C_GraphOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_27_case__72(x1)(x)(st))(i)(xs)(st)+c__case_27_case__72 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_27_case__72")(x)++++c__case_25_case__73 x1 x3 x4@(Curry.Module.Prelude.T3 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_labEdges'46_'35lambda14'46_'35lambda15(x3)))))(x7)(x1)(st))(st)+c__case_25_case__73 x1 x3 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_25_case__73(x1)(x3)(x)(st))(i)(xs)(st)+c__case_25_case__73 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_25_case__73")(x)++++c__case_26_case__74 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_25(x3)(x4)(x1)(st))(st)+c__case_26_case__74 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_26_case__74(x1)(x)(st))(i)(xs)(st)+c__case_26_case__74 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_26_case__74")(x)++++c__case_24_case__75 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T3(x2)(x5)(x4))(st)+c__case_24_case__75 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_24_case__75(x1)(x2)(x)(st))(i)(xs)(st)+c__case_24_case__75 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_24_case__75")(x)++++c__case_23_case__76 x1 x2@(Curry.Module.Prelude.T3 x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x3)(x4))(st)+c__case_23_case__76 x1 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_23_case__76(x1)(x)(st))(i)(xs)(st)+c__case_23_case__76 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_23_case__76")(x)++++c__case_22_case__77 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_22_case__77 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_22_case__77(x1)(x)(st))(i)(xs)(st)+c__case_22_case__77 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_22_case__77")(x)++++c__case_20_case__78 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x6)(x1)(st))(Curry.Module.OracleGraphInductive.c_ufold(x2)(x3)(x7)(x9)(st))(x10)(st))(st)+c__case_20_case__78 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_20_case__78 x1 x2 x3 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_20_case__78(x1)(x2)(x3)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_20_case__78 x1 x2 x3 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_20_case__78")(x)++++c__case_21_case__79 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_21_case__79 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_20(x2)(x3)(x6)(x7)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x9)(st))(st)+c__case_21_case__79 x1 x2 x3 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_21_case__79(x1)(x2)(x3)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_21_case__79 x1 x2 x3 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_21_case__79")(x)++++c__case_19_case__80 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_19_case__80 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_19_case__80(x1)(x)(st))(i)(xs)(st)+c__case_19_case__80 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_19_case__80")(x)++++c__case_18_case__81 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_18_case__81 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_18_case__81(x1)(x)(st))(i)(xs)(st)+c__case_18_case__81 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_18_case__81")(x)++++c__case_17_case__82 x1 x2 x3@(Curry.Module.Prelude.T4 x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T4(x4)(x5)(Curry.Module.Oracle.c_apply(x2)(x6)(x1)(st))(x7))(st)+c__case_17_case__82 x1 x2 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_17_case__82(x1)(x2)(x)(st))(i)(xs)(st)+c__case_17_case__82 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_17_case__82")(x)++++c__case_16_case__83 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T2(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5))(st)+c__case_16_case__83 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_16_case__83(x1)(x2)(x)(st))(i)(xs)(st)+c__case_16_case__83 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_16_case__83")(x)++++c__case_15_case__84 x1 x2 x3@(Curry.Module.Prelude.T4 x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))(Curry.Module.Prelude.T4(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.c_emap'46map1'46213(x2)(x1)(st))(x4)(x8)(st))(x5)(x6)(Curry.Module.Oracle.c_apply(Curry.Module.OracleGraphInductive.c_emap'46map1'46213(x2)(x9)(st))(x7)(x10)(st)))(st)+c__case_15_case__84 x1 x2 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_15_case__84(x1)(x2)(x)(st))(i)(xs)(st)+c__case_15_case__84 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_15_case__84")(x)++++c__case_14_case__85 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T3(x3)(x4)(Curry.Module.Prelude.T0))(st)+c__case_14_case__85 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_14_case__85(x1)(x)(st))(i)(xs)(st)+c__case_14_case__85 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_14_case__85")(x)++++c__case_13_case__86 x1 x2@(Curry.Module.OracleGraphInductive.C_Gr x3) st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_unlines(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleGraphInductive.c_showNode))))(Curry.Module.OracleFiniteMap.c_fmToList(x3)(x1)(st))(x4)(st))(x5)(st))(st)+c__case_13_case__86 x1 (Curry.Module.OracleGraphInductive.C_GraphOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_13_case__86(x1)(x)(st))(i)(xs)(st)+c__case_13_case__86 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_13_case__86")(x)++++c__case_11_case__87 x1 x3 x4@(Curry.Module.Prelude.T3 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x6)(x8)(st))(Curry.Module.OraclePrelude.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.OraclePrelude.c_show(x7)(x9)(st))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(st)+c__case_11_case__87 x1 x3 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_11_case__87(x1)(x3)(x)(st))(i)(xs)(st)+c__case_11_case__87 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_11_case__87")(x)++++c__case_12_case__88 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_11(x3)(x4)(x1)(st))(st)+c__case_12_case__88 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_12_case__88(x1)(x)(st))(i)(xs)(st)+c__case_12_case__88 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_12_case__88")(x)++++c__case_10_case__89 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_10_case__89 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_10_case__89(x1)(x)(st))(i)(xs)(st)+c__case_10_case__89 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_10_case__89")(x)++++c__case_9_case__90 x1 x2@(Curry.Module.Prelude.T4 x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_9_case__90 x1 (Curry.Module.Prelude.T4Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_9_case__90(x1)(x)(st))(i)(xs)(st)+c__case_9_case__90 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_9_case__90")(x)++++c__case_8_case__91 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x4)(x3))(st)+c__case_8_case__91 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_8_case__91(x1)(x)(st))(i)(xs)(st)+c__case_8_case__91 x1 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_8_case__91")(x)++++c__case_7_case__92 x1 x2 x3 x4@(Curry.Module.Prelude.T3 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T3(x5)(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x3)(x2))(x7)))(st)+c__case_7_case__92 x1 x2 x3 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_7_case__92(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_7_case__92 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_7_case__92")(x)++++c__case_6_case__93 x1 x2 x3 x4@(Curry.Module.Prelude.T3 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T3((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x3)(x2))(x5))(x6)(x7))(st)+c__case_6_case__93 x1 x2 x3 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_6_case__93(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_6_case__93 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_6_case__93")(x)++++c__case_5_case__94 x1 x2 x4@(Curry.Module.Prelude.T3 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Prelude.T3(x5)(x6)(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x1)(st))(x7)(x8)(st)))(st)+c__case_5_case__94 x1 x2 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_5_case__94(x1)(x2)(x)(st))(i)(xs)(st)+c__case_5_case__94 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_5_case__94")(x)++++c__case_4_case__95 x1 x2 x4@(Curry.Module.Prelude.T3 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Prelude.T3(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x1)(st))(x5)(x8)(st))(x6)(x7))(st)+c__case_4_case__95 x1 x2 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_4_case__95(x1)(x2)(x)(st))(i)(xs)(st)+c__case_4_case__95 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_4_case__95")(x)++++c__case_0_case__96 x1 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(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('c'))((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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(Curry.Module.OraclePrelude.c_show(x8)(x1)(st))(x10)(st))(x11)(st))(st)+c__case_0_case__96 x1 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_0_case__96 x1 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_0_case__96(x1)(x8)(x)(st))(i)(xs)(st)+c__case_0_case__96 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_0_case__96")(x)++++c__case_1_case__97 x1 x2 x4 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleGraphInductive.c_updAdj(Curry.Module.OracleFiniteMap.c_updFM(x2)(x8)(Curry.Module.Oracle.c_apply(x4)(x7)(x1)(st))(x10)(st))(x6)(x4)(x11)(st))(st)+c__case_1_case__97 x1 x2 x4 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_0(x8)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x12)(st))(st)+c__case_1_case__97 x1 x2 x4 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_1_case__97(x1)(x2)(x4)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_1_case__97 x1 x2 x4 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_1_case__97")(x)++++c__case_2_case__98 x1 x2 x4 x6 x5@(Curry.Module.Prelude.T2 x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleGraphInductive.c__case_1(x2)(x4)(x6)(x7)(x8)(Curry.Module.OracleFiniteMap.c_elemFM(x8)(x2)(x1)(st))(x9)(st))(st)+c__case_2_case__98 x1 x2 x4 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_2_case__98(x1)(x2)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_2_case__98 x1 x2 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_2_case__98")(x)++++c__case_3_case__99 x1 x2 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_3_case__99 x1 x2 x4 x3@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleGraphInductive.c__case_2(x2)(x4)(x6)(x5)(x1)(st))(st)+c__case_3_case__99 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleGraphInductive.c__case_3_case__99(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_3_case__99 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleGraphInductive._case_3_case__99")(x)++
+ dist/build/Curry/Module/OracleIO.hs view
@@ -0,0 +1,244 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleIO (module Curry.Module.OracleIO) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.IO+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_openFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.IO.C_IOMode -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.IO.C_Handle))+c_openFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleIO.c_prim_openFile))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_hClose :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_hClose x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_prim_hClose))))(x2)(x1)(st))(st)++++c_hFlush :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_hFlush x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_prim_hFlush))))(x2)(x1)(st))(st)++++c_hIsEOF :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_hIsEOF x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_prim_hIsEOF))))(x2)(x1)(st))(st)++++c_isEOF :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_isEOF x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleIO.c_hIsEOF(Curry.Module.OracleIO.c_stdin(x1)(st))(x2)(st))(st)++++c_hSeek :: Curry.Module.IO.C_Handle -> Curry.Module.IO.C_SeekMode -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_hSeek x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OracleIO.c_prim_hSeek))(st))(x2)(x1)(st))(x3)(x5)(st))(x4)(x6)(st))(st)++++c_hWaitForInput :: Curry.Module.IO.C_Handle -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_hWaitForInput x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleIO.c_prim_hWaitForInput))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_hWaitForInputs :: (Curry.Module.Prelude.List Curry.Module.IO.C_Handle) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_hWaitForInputs x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleIO.c_prim_hWaitForInputs))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_hReady :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_hReady x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleIO.c_hWaitForInput(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(st)++++c_hGetChar :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Char))+c_hGetChar x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_prim_hGetChar))))(x2)(x1)(st))(st)++++c_hGetLine :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_hGetLine x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleIO.c_hGetChar(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_hGetLine'46_'35lambda2(x2)))))(x3)(st))(st)++++c_hGetLine'46_'35lambda2 :: Curry.Module.IO.C_Handle -> Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_hGetLine'46_'35lambda2 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleIO.c__case_2(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(x4)(st))(st)++++c_hGetLine'46_'35lambda2'46_'35lambda3 :: Curry.Module.Prelude.C_Char -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_hGetLine'46_'35lambda2'46_'35lambda3 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return((Curry.Module.Prelude.:<)(x2)(x3))(x1)(st))(st)++++c_hGetContents :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_hGetContents x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleIO.c_hIsEOF(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_hGetContents'46_'35lambda4(x2)))))(x3)(st))(st)++++c_hGetContents'46_'35lambda4 :: Curry.Module.IO.C_Handle -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_hGetContents'46_'35lambda4 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleIO.c__case_1(x2)(x3)(x1)(st))(st)++++c_hGetContents'46_'35lambda4'46_'35lambda5 :: Curry.Module.IO.C_Handle -> Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_hGetContents'46_'35lambda4'46_'35lambda5 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleIO.c_hGetContents(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_hGetContents'46_'35lambda4'46_'35lambda5'46_'35lambda6(x3)))))(x4)(st))(st)++++c_hGetContents'46_'35lambda4'46_'35lambda5'46_'35lambda6 :: Curry.Module.Prelude.C_Char -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_hGetContents'46_'35lambda4'46_'35lambda5'46_'35lambda6 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return((Curry.Module.Prelude.:<)(x2)(x3))(x1)(st))(st)++++c_getContents :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getContents x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleIO.c_hGetContents(Curry.Module.OracleIO.c_stdin(x1)(st))(x2)(st))(st)++++c_hPutChar :: Curry.Module.IO.C_Handle -> Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_hPutChar x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleIO.c_prim_hPutChar))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_hPutStr :: Curry.Module.IO.C_Handle -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_hPutStr x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleIO.c__case_0(x2)(x3)(x1)(st))(st)++++c_hPutStrLn :: Curry.Module.IO.C_Handle -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_hPutStrLn x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleIO.c_hPutStr(x2)(x3)(x1)(st))(Curry.Module.OracleIO.c_hPutChar(x2)(Curry.Module.Prelude.C_Char('\n'))(x4)(st))(x5)(st))(st)++++c_hPrint :: (Curry t0) => Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_hPrint x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_hPutStrLn(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x1)(st))(st)++++c_hIsReadable :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_hIsReadable x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_prim_hIsReadable))))(x2)(x1)(st))(st)++++c_hIsWritable :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_hIsWritable x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_prim_hIsWritable))))(x2)(x1)(st))(st)++++c__case_0 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleIO.c__case_0_case__2(x1)(x2)(x3)(st))(st)++++c__case_1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleIO.c__case_1_case__1(x1)(x2)(x3)(st))(st)++++c__case_2 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleIO.c__case_2_case__0(x1)(x2)(x3)(x4)(st))(st)++++c_stdin :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.IO.C_Handle+c_stdin x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.IO.c_stdin(st))(st)++++c_stdout :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.IO.C_Handle+c_stdout x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.IO.c_stdout(st))(st)++++c_stderr :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.IO.C_Handle+c_stderr x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.IO.c_stderr(st))(st)++++c_prim_openFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.IO.C_IOMode -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.IO.C_Handle))+c_prim_openFile x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IO.c_prim_openFile(x3)(x2)(st))(st))))(st)++++c_prim_hClose :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_hClose x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.IO.c_prim_hClose(x2)(st))))(st)++++c_prim_hFlush :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_hFlush x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.IO.c_prim_hFlush(x2)(st))))(st)++++c_prim_hIsEOF :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_prim_hIsEOF x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IO.c_prim_hIsEOF(x2)(st))(st))))(st)++++c_prim_hSeek :: Curry.Module.IO.C_Handle -> Curry.Module.IO.C_SeekMode -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_hSeek x4 x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.IO.c_prim_hSeek(x4)(x3)(x2)(st))))(st)++++c_prim_hWaitForInput :: Curry.Module.IO.C_Handle -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_prim_hWaitForInput x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IO.c_prim_hWaitForInput(x3)(x2)(st))(st))))(st)++++c_prim_hWaitForInputs :: (Curry.Module.Prelude.List Curry.Module.IO.C_Handle) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_prim_hWaitForInputs x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IO.c_prim_hWaitForInputs(x3)(x2)(st))(st))))(st)++++c_prim_hGetChar :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Char))+c_prim_hGetChar x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IO.c_prim_hGetChar(x2)(st))(st))))(st)++++c_prim_hPutChar :: Curry.Module.IO.C_Handle -> Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_hPutChar x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.IO.c_prim_hPutChar(x3)(x2)(st))))(st)++++c_prim_hIsReadable :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_prim_hIsReadable x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IO.c_prim_hIsReadable(x2)(st))(st))))(st)++++c_prim_hIsWritable :: Curry.Module.IO.C_Handle -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Bool))+c_prim_hIsWritable x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IO.c_prim_hIsWritable(x2)(st))(st))))(st)++++c__case_2_case__0 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.List)(x1)(st))(st)+c__case_2_case__0 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleIO.c_hGetLine(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_hGetLine'46_'35lambda2'46_'35lambda3(x3)))))(x5)(st))(st)+c__case_2_case__0 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleIO.c__case_2_case__0(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_2_case__0 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleIO._case_2_case__0")(x)++++c__case_1_case__1 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleIO.c_hClose(x2)(x1)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.List)(x4)(st))(x5)(st))(st)+c__case_1_case__1 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleIO.c_hGetChar(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIO.c_hGetContents'46_'35lambda4'46_'35lambda5(x2)))))(x6)(st))(st)+c__case_1_case__1 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleIO.c__case_1_case__1(x1)(x2)(x)(st))(i)(xs)(st)+c__case_1_case__1 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleIO._case_1_case__1")(x)++++c__case_0_case__2 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_done(x1)(st))(st)+c__case_0_case__2 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleIO.c_hPutChar(x2)(x4)(x1)(st))(Curry.Module.OracleIO.c_hPutStr(x2)(x5)(x6)(st))(x7)(st))(st)+c__case_0_case__2 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleIO.c__case_0_case__2(x1)(x2)(x)(st))(i)(xs)(st)+c__case_0_case__2 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleIO._case_0_case__2")(x)++
+ dist/build/Curry/Module/OracleIOExts.hs view
@@ -0,0 +1,136 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleIOExts (module Curry.Module.OracleIOExts) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.IOExts+import Curry.Module.IO+import Curry.Module.Prelude+import Curry.Module.System+import Curry.Module.OracleIO+import Curry.Module.OraclePrelude+import Curry.Module.OracleSystem++++-- begin included++++-- end included++c_execCmd :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 Curry.Module.IO.C_Handle Curry.Module.IO.C_Handle Curry.Module.IO.C_Handle)))+c_execCmd x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIOExts.c_prim_execCmd))))(x2)(x1)(st))(st)++++c_connectToCommand :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.IO.C_Handle))+c_connectToCommand x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIOExts.c_prim_connectToCmd))))(x2)(x1)(st))(st)++++c_readCompleteFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_readCompleteFile x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIOExts.c_readCompleteFile'46_'35lambda2))))(x3)(st))(st)++++c_readCompleteFile'46f'467 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List t0) -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1+c_readCompleteFile'46f'467 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleIOExts.c__case_0(x3)(x2)(x1)(st))(st)++++c_readCompleteFile'46_'35lambda2 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_readCompleteFile'46_'35lambda2 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleIOExts.c_readCompleteFile'46f'467(x2)(Curry.Module.OraclePrelude.c_return(x2)(x1)(st))(x3)(st))(st)++++c_updateFile :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_updateFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleIOExts.c_readCompleteFile(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIOExts.c_updateFile'46_'35lambda3(x2)(x3)))))(x4)(st))(st)++++c_updateFile'46_'35lambda3 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_updateFile'46_'35lambda3 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_writeFile(x3)(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(st))(st)++++c_exclusiveIO :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_exclusiveIO x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleSystem.c_system(Curry.Module.OraclePrelude.op_43_43((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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('k'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))(x2)(x1)(st))(x4)(st))(Curry.Module.Oracle.c_catchFail(Curry.Module.Oracle.op_62_62_61(x3)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIOExts.c_exclusiveIO'46_'35lambda4(x2)))))(x5)(st))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleSystem.c_system(Curry.Module.OraclePrelude.op_43_43((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.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(x2)(x6)(st))(x7)(st))(Curry.Module.OraclePrelude.c_failed(x8)(st))(x9)(st))(x10)(st))(x11)(st))(st)++++c_exclusiveIO'46_'35lambda4 :: (Curry t44) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t44 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t44))+c_exclusiveIO'46_'35lambda4 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleSystem.c_system(Curry.Module.OraclePrelude.op_43_43((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.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))(x2)(x1)(st))(x4)(st))(Curry.Module.OraclePrelude.c_return(x3)(x5)(st))(x6)(st))(st)++++c_setAssoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_setAssoc x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleIOExts.c_prim_setAssoc))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_getAssoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getAssoc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIOExts.c_prim_getAssoc))))(x2)(x1)(st))(st)++++c_readIORef :: (Curry t0) => (Curry.Module.IOExts.C_IORef t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_readIORef x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleIOExts.c_prim_readIORef))))(x2)(x1)(st))(st)++++c_writeIORef :: (Curry t0) => (Curry.Module.IOExts.C_IORef t0) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeIORef x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleIOExts.c_prim_writeIORef))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c__case_0 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleIOExts.c__case_0_case__0(x1)(x3)(x2)(st))(st)++++c_prim_execCmd :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T3 Curry.Module.IO.C_Handle Curry.Module.IO.C_Handle Curry.Module.IO.C_Handle)))+c_prim_execCmd x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IOExts.c_prim_execCmd(x2)(st))(st))))(st)++++c_prim_connectToCmd :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.IO.C_Handle))+c_prim_connectToCmd x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IOExts.c_prim_connectToCmd(x2)(st))(st))))(st)++++c_prim_setAssoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_setAssoc x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.IOExts.c_prim_setAssoc(x3)(x2)(st))))(st)++++c_prim_getAssoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_prim_getAssoc x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IOExts.c_prim_getAssoc(x2)(st))(st))))(st)++++c_newIORef :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.IOExts.C_IORef t0)))+c_newIORef x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IOExts.c_newIORef(x2)(st))(st))))(st)++++c_prim_readIORef :: (Curry t0) => (Curry.Module.IOExts.C_IORef t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_prim_readIORef x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.IOExts.c_prim_readIORef(x2)(st))(st))))(st)++++c_prim_writeIORef :: (Curry t0) => (Curry.Module.IOExts.C_IORef t0) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_writeIORef x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.IOExts.c_prim_writeIORef(x3)(x2)(st))))(st)++++c__case_0_case__0 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_0_case__0 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleIOExts.c_readCompleteFile'46f'467(x5)(x3)(x1)(st))(st)+c__case_0_case__0 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleIOExts.c__case_0_case__0(x1)(x3)(x)(st))(i)(xs)(st)+c__case_0_case__0 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleIOExts._case_0_case__0")(x)++
+ dist/build/Curry/Module/OracleInteger.hs view
@@ -0,0 +1,442 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleInteger (module Curry.Module.OracleInteger) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Integer+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_pow :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_pow x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_27(x2)(x3)(Curry.Module.OraclePrelude.op_62_61(x3)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)++++c_pow'46powaux'463 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_pow'46powaux'463 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_26(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Zero)(x1)(st))(x5)(st))(st)++++c_ilog :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ilog x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_24(x2)(Curry.Module.OraclePrelude.op_62(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x3)(st))(st)++++c_isqrt :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_isqrt x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_22(x2)(Curry.Module.OraclePrelude.op_62_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x3)(st))(st)++++c_isqrt'46aux'4621 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_isqrt'46aux'4621 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OracleInteger.c__case_19(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.OraclePrelude.op_43(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x5)(st))(x6)(st))(st)++++c_factorial :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_factorial x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_17(x2)(Curry.Module.OraclePrelude.op_62_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x3)(st))(st)++++c_binomial :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_binomial x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OracleInteger.c__case_15(x2)(x3)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62(x3)(Curry.Module.Prelude.C_Zero)(x1)(st))(Curry.Module.OraclePrelude.op_62_61(x2)(x3)(x4)(st))(x5)(st))(x6)(st))(st)++++c_binomial'46aux'4641 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_binomial'46aux'4641 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_14(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)++++c_abs :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_abs x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_13(x2)(Curry.Module.OraclePrelude.op_60(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x3)(st))(st)++++c_max :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_max x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_12(x2)(x3)(Curry.Module.OraclePrelude.op_60(x2)(x3)(x1)(st))(x4)(st))(st)++++c_min :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_min x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_11(x2)(x3)(Curry.Module.OraclePrelude.op_60(x2)(x3)(x1)(st))(x4)(st))(st)++++c_max3 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_max3 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c_max(x2)(Curry.Module.OracleInteger.c_max(x3)(x4)(x1)(st))(x5)(st))(st)++++c_min3 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_min3 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c_min(x2)(Curry.Module.OracleInteger.c_min(x3)(x4)(x1)(st))(x5)(st))(st)++++c_maxlist :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_maxlist x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_10(x2)(x1)(st))(st)++++c_minlist :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_minlist x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_8(x2)(x1)(st))(st)++++c_bitTrunc :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_bitTrunc x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleInteger.c_bitAnd(Curry.Module.OraclePrelude.op_45(Curry.Module.OracleInteger.c_pow(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x2)(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x4)(st))(x3)(x5)(st))(st)++++c_bitAnd :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_bitAnd x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_6(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)++++c_bitOr :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_bitOr x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_4(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)++++c_bitNot :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_bitNot x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c_bitNot'46aux'46100(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))(x2)(x1)(st))(st)++++c_bitNot'46aux'46100 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_bitNot'46aux'46100 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_2(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)++++c_bitXor :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_bitXor x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_1(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)++++c_even :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_even x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_mod(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.Prelude.C_Zero)(x3)(st))(st)++++c_odd :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_odd x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.OraclePrelude.c_mod(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.Prelude.C_Zero)(x3)(st))(st)++++c__case_1 x2 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_1_case__27(x1)(x2)(x3)(x6)(st))(st)++++c__case_0 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_0_case__26(x1)(x4)(st))(st)++++c__case_2 x2 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_2_case__25(x1)(x2)(x3)(x6)(st))(st)++++c__case_4 x2 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_4_case__24(x1)(x2)(x3)(x6)(st))(st)++++c__case_3 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_3_case__23(x1)(x2)(x4)(st))(st)++++c__case_6 x2 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_6_case__22(x1)(x2)(x3)(x6)(st))(st)++++c__case_5 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_5_case__21(x1)(x2)(x4)(st))(st)++++c__case_8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_8_case__20(x1)(x2)(st))(st)++++c__case_7 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_7_case__19(x1)(x3)(x4)(st))(st)++++c__case_10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_10_case__18(x1)(x2)(st))(st)++++c__case_9 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_9_case__17(x1)(x3)(x4)(st))(st)++++c__case_11 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_11_case__16(x1)(x2)(x3)(x4)(st))(st)++++c__case_12 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_12_case__15(x1)(x2)(x3)(x4)(st))(st)++++c__case_13 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_13_case__14(x1)(x2)(x3)(st))(st)++++c__case_14 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_14_case__13(x1)(x2)(x3)(x4)(st))(st)++++c__case_15 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_15_case__12(x1)(x2)(x3)(x4)(st))(st)++++c__case_17 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_17_case__11(x1)(x2)(x3)(st))(st)++++c__case_16 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_16_case__10(x1)(x2)(x3)(st))(st)++++c__case_19 x2 x3 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_19_case__9(x1)(x2)(x3)(x4)(x6)(st))(st)++++c__case_18 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_18_case__8(x1)(x2)(x3)(x4)(x5)(x6)(st))(st)++++c__case_22 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_22_case__7(x1)(x2)(x3)(st))(st)++++c__case_21 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_21_case__6(x1)(x2)(x3)(st))(st)++++c__case_20 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_20_case__5(x1)(x2)(x3)(st))(st)++++c__case_24 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_24_case__4(x1)(x2)(x3)(st))(st)++++c__case_23 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_23_case__3(x1)(x2)(x3)(st))(st)++++c__case_26 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_26_case__2(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_25 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_25_case__1(x1)(x3)(x5)(st))(st)++++c__case_27 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_27_case__0(x1)(x2)(x3)(x4)(st))(st)++++c__case_27_case__0 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c_pow'46powaux'463(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x2)(x3)(x1)(st))(st)+c__case_27_case__0 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_27_case__0 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_27_case__0(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_27_case__0 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_27_case__0")(x)++++c__case_25_case__1 x1 x3 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_25_case__1 x1 x3 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_25_case__1 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_25_case__1(x1)(x3)(x)(st))(i)(xs)(st)+c__case_25_case__1 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_25_case__1")(x)++++c__case_26_case__2 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_26_case__2 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))))))(Curry.Module.OracleInteger.c_pow'46powaux'463(Curry.Module.OraclePrelude.op_42(x2)(Curry.Module.OracleInteger.c__case_25(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_mod(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x6)(st))(x7)(st))(x8)(st))(Curry.Module.OraclePrelude.op_42(x3)(x3)(x9)(st))(Curry.Module.OraclePrelude.c_div(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x10)(st))(x11)(st))(st)+c__case_26_case__2 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_26_case__2(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_26_case__2 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_26_case__2")(x)++++c__case_23_case__3 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_23_case__3 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.OracleInteger.c_ilog(Curry.Module.OraclePrelude.c_div(x2)(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)))))(x1)(st))(x4)(st))(x5)(st))(st)+c__case_23_case__3 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_23_case__3(x1)(x2)(x)(st))(i)(xs)(st)+c__case_23_case__3 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_23_case__3")(x)++++c__case_24_case__4 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_23(x2)(Curry.Module.OraclePrelude.op_60(x2)(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)))))(x1)(st))(x4)(st))(st)+c__case_24_case__4 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_24_case__4 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_24_case__4(x1)(x2)(x)(st))(i)(xs)(st)+c__case_24_case__4 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_24_case__4")(x)++++c__case_20_case__5 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_20_case__5 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c_isqrt'46aux'4621(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x2)(x1)(st))(st)+c__case_20_case__5 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_20_case__5(x1)(x2)(x)(st))(i)(xs)(st)+c__case_20_case__5 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_20_case__5")(x)++++c__case_21_case__6 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_21_case__6 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_20(x2)(Curry.Module.OraclePrelude.op_60(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x1)(st))(x4)(st))(st)+c__case_21_case__6 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_21_case__6(x1)(x2)(x)(st))(i)(xs)(st)+c__case_21_case__6 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_21_case__6")(x)++++c__case_22_case__7 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_21(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)+c__case_22_case__7 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_22_case__7 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_22_case__7(x1)(x2)(x)(st))(i)(xs)(st)+c__case_22_case__7 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_22_case__7")(x)++++c__case_18_case__8 x1 x2 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c_isqrt'46aux'4621(x2)(x3)(x5)(x1)(st))(st)+c__case_18_case__8 x1 x2 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c_isqrt'46aux'4621(x2)(x5)(x4)(x1)(st))(st)+c__case_18_case__8 x1 x2 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_18_case__8(x1)(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_18_case__8 x1 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_18_case__8")(x)++++c__case_19_case__9 x1 x2 x3 x4 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_19_case__9 x1 x2 x3 x4 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(let {x5 = Curry.Module.OraclePrelude.c_div(Curry.Module.OraclePrelude.op_43(x4)(x3)(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(st)} in let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.OracleInteger.c__case_18(x2)(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_62(Curry.Module.OraclePrelude.op_42(x5)(x5)(x8)(st))(x2)(x9)(st))(x10)(st))(st))(st)+c__case_19_case__9 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_19_case__9(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_19_case__9 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_19_case__9")(x)++++c__case_16_case__10 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_16_case__10 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_42(x2)(Curry.Module.OracleInteger.c_factorial(Curry.Module.OraclePrelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x4)(st))(x5)(st))(st)+c__case_16_case__10 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_16_case__10(x1)(x2)(x)(st))(i)(xs)(st)+c__case_16_case__10 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_16_case__10")(x)++++c__case_17_case__11 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c__case_16(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)+c__case_17_case__11 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_17_case__11 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_17_case__11(x1)(x2)(x)(st))(i)(xs)(st)+c__case_17_case__11 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_17_case__11")(x)++++c__case_15_case__12 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_div(Curry.Module.OracleInteger.c_binomial'46aux'4641(x3)(x2)(x1)(st))(Curry.Module.OracleInteger.c_factorial(x3)(x5)(st))(x6)(st))(st)+c__case_15_case__12 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_15_case__12 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_15_case__12(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_15_case__12 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_15_case__12")(x)++++c__case_14_case__13 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_14_case__13 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_42(x3)(Curry.Module.OracleInteger.c_binomial'46aux'4641(Curry.Module.OraclePrelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(Curry.Module.OraclePrelude.op_45(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x5)(st))(x6)(st))(x7)(st))(st)+c__case_14_case__13 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_14_case__13(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_14_case__13 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_14_case__13")(x)++++c__case_13_case__14 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_negate(x2)(x1)(st))(st)+c__case_13_case__14 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_13_case__14 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_13_case__14(x1)(x2)(x)(st))(i)(xs)(st)+c__case_13_case__14 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_13_case__14")(x)++++c__case_12_case__15 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_12_case__15 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_12_case__15 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_12_case__15(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_12_case__15 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_12_case__15")(x)++++c__case_11_case__16 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_11_case__16 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_11_case__16 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_11_case__16(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_11_case__16 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_11_case__16")(x)++++c__case_9_case__17 x1 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_9_case__17 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c_max(x3)(Curry.Module.OracleInteger.c_maxlist((Curry.Module.Prelude.:<)(x5)(x6))(x1)(st))(x7)(st))(st)+c__case_9_case__17 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_9_case__17(x1)(x3)(x)(st))(i)(xs)(st)+c__case_9_case__17 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_9_case__17")(x)++++c__case_10_case__18 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_9(x3)(x4)(x1)(st))(st)+c__case_10_case__18 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_10_case__18(x1)(x)(st))(i)(xs)(st)+c__case_10_case__18 x1 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_10_case__18")(x)++++c__case_7_case__19 x1 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_7_case__19 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleInteger.c_min(x3)(Curry.Module.OracleInteger.c_minlist((Curry.Module.Prelude.:<)(x5)(x6))(x1)(st))(x7)(st))(st)+c__case_7_case__19 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_7_case__19(x1)(x3)(x)(st))(i)(xs)(st)+c__case_7_case__19 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_7_case__19")(x)++++c__case_8_case__20 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteger.c__case_7(x3)(x4)(x1)(st))(st)+c__case_8_case__20 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_8_case__20(x1)(x)(st))(i)(xs)(st)+c__case_8_case__20 x1 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_8_case__20")(x)++++c__case_5_case__21 x1 x2 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_5_case__21 x1 x2 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_mod(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(st)+c__case_5_case__21 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_5_case__21(x1)(x2)(x)(st))(i)(xs)(st)+c__case_5_case__21 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_5_case__21")(x)++++c__case_6_case__22 x1 x2 x3 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_6_case__22 x1 x2 x3 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(Curry.Module.CEventOracle.c_replace(x13)(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OracleInteger.c_bitAnd(Curry.Module.OraclePrelude.c_div(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.OraclePrelude.c_div(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(st))(x8)(st))(x9)(st))(Curry.Module.OracleInteger.c__case_5(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_mod(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x10)(st))(Curry.Module.Prelude.C_Zero)(x11)(st))(x12)(st))(x13)(st))(st))(st))(st)+c__case_6_case__22 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_6_case__22(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_6_case__22 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_6_case__22")(x)++++c__case_3_case__23 x1 x2 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_3_case__23 x1 x2 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_mod(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(st)+c__case_3_case__23 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_3_case__23(x1)(x2)(x)(st))(i)(xs)(st)+c__case_3_case__23 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_3_case__23")(x)++++c__case_4_case__24 x1 x2 x3 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_4_case__24 x1 x2 x3 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(Curry.Module.CEventOracle.c_replace(x13)(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OracleInteger.c_bitOr(Curry.Module.OraclePrelude.c_div(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.OraclePrelude.c_div(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(st))(x8)(st))(x9)(st))(Curry.Module.OracleInteger.c__case_3(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_mod(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x10)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x11)(st))(x12)(st))(x13)(st))(st))(st))(st)+c__case_4_case__24 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_4_case__24(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_4_case__24 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_4_case__24")(x)++++c__case_2_case__25 x1 x2 x3 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_2_case__25 x1 x2 x3 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.CEventOracle.c_replace(x12)(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OracleInteger.c_bitNot'46aux'46100(Curry.Module.OraclePrelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(Curry.Module.OraclePrelude.c_div(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(st))(x8)(st))(x9)(st))(Curry.Module.OraclePrelude.op_45(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.OraclePrelude.c_mod(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x10)(st))(x11)(st))(x12)(st))(st))(st))(st)+c__case_2_case__25 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_2_case__25(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_2_case__25 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_2_case__25")(x)++++c__case_0_case__26 x1 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_0_case__26 x1 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_0_case__26 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_0_case__26(x1)(x)(st))(i)(xs)(st)+c__case_0_case__26 x1 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_0_case__26")(x)++++c__case_1_case__27 x1 x2 x3 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_1_case__27 x1 x2 x3 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))(Curry.Module.CEventOracle.c_replace(x14)(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OracleInteger.c_bitXor(Curry.Module.OraclePrelude.c_div(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.OraclePrelude.c_div(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x7)(st))(x8)(st))(x9)(st))(Curry.Module.OracleInteger.c__case_0(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_mod(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x10)(st))(Curry.Module.OraclePrelude.c_mod(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x11)(st))(x12)(st))(x13)(st))(x14)(st))(st))(st))(st)+c__case_1_case__27 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteger.c__case_1_case__27(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_1_case__27 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleInteger._case_1_case__27")(x)++
+ dist/build/Curry/Module/OracleInteractive.hs view
@@ -0,0 +1,90 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleInteractive (module Curry.Module.OracleInteractive) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Interactive+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_interactiveSols :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_interactiveSols x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteractive.c__case_3(x2)(x1)(st))(st)++++c_interactiveSols'46_'35lambda2 :: (Curry t5) => (Curry.Module.Prelude.List t5) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_interactiveSols'46_'35lambda2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteractive.c__case_2(x2)(x3)(x1)(st))(st)++++c_printIO :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_printIO x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_62_62_61(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleInteractive.c_printIO'46_'35lambda4))))(x1)(st))(st)++++c_printIO'46_'35lambda4 :: (Curry t25) => t25 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_printIO'46_'35lambda4 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStr((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(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))(x1)(st))(Curry.Module.Oracle.op_36_33_33(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleInteractive.c_printTerm))))(x2)(x3)(st))(x4)(st))(st)++++c__case_2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteractive.c__case_2_case__3(x1)(x2)(x3)(st))(st)++++c__case_1 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteractive.c__case_1_case__2(x1)(x2)(x4)(x5)(st))(st)++++c__case_0 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteractive.c__case_0_case__1(x1)(x2)(x5)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteractive.c__case_3_case__0(x1)(x2)(st))(st)++++c_printTerm :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_printTerm x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Interactive.c_printTerm(x2)(st))))(st)++++c__case_3_case__0 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_putStrLn((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('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('S'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))))))))))))))))(x1)(st))(st)+c__case_3_case__0 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OracleInteractive.c_printTerm(x3)(x1)(st))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStrLn((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.List))))))(x5)(st))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_getLine(x6)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleInteractive.c_interactiveSols'46_'35lambda2(x4)))))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_3_case__0 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteractive.c__case_3_case__0(x1)(x)(st))(i)(xs)(st)+c__case_3_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleInteractive._case_3_case__0")(x)++++c__case_0_case__1 x1 x2 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T0)(x1)(st))(st)+c__case_0_case__1 x1 x2 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteractive.c_interactiveSols(x2)(x1)(st))(st)+c__case_0_case__1 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteractive.c__case_0_case__1(x1)(x2)(x)(st))(i)(xs)(st)+c__case_0_case__1 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteractive._case_0_case__1")(x)++++c__case_1_case__2 x1 x2 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T0)(x1)(st))(st)+c__case_1_case__2 x1 x2 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleInteractive.c__case_0(x2)(x4)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('N'))(x1)(st))(x6)(st))(st)+c__case_1_case__2 x1 x2 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteractive.c__case_1_case__2(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_1_case__2 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleInteractive._case_1_case__2")(x)++++c__case_2_case__3 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleInteractive.c__case_1(x2)(x4)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('n'))(x1)(st))(x6)(st))(st)+c__case_2_case__3 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleInteractive.c_interactiveSols(x2)(x1)(st))(st)+c__case_2_case__3 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleInteractive.c__case_2_case__3(x1)(x2)(x)(st))(i)(xs)(st)+c__case_2_case__3 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleInteractive._case_2_case__3")(x)++
+ dist/build/Curry/Module/OracleList.hs view
@@ -0,0 +1,445 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleList (module Curry.Module.OracleList) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.List+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.OracleMaybe+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_elemIndex :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))+c_elemIndex x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c_findIndex(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_61_61(x2)))))(x1)(st))(st)++++c_elemIndices :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))+c_elemIndices x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleList.c_findIndices(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_61_61(x2)))))))))(st)++++c_find :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t0))+c_find x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMaybe.c_listToMaybe))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_filter(x2)))))(x1)(st))(st)++++c_findIndex :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe Curry.Module.Prelude.C_Int))+c_findIndex x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMaybe.c_listToMaybe))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleList.c_findIndices(x2)))))(x1)(st))(st)++++c_findIndices :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_findIndices x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleList.c_findIndices'46_'35lambda4(x2)))(st))(Curry.Module.Prelude.List)(Curry.Module.OraclePrelude.c_zip(x3)(Curry.Module.OraclePrelude.c_enumFrom(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(x5)(st))(st)++++c_findIndices'46_'35lambda4 :: (Curry t7) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t7 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> (Curry.Module.Prelude.T2 t7 Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_findIndices'46_'35lambda4 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_26(x2)(x4)(x3)(x1)(st))(st)++++c_nub :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_nub x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c_nubBy(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))(x2)(x1)(st))(st)++++c_nubBy :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_nubBy x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_24(x2)(x3)(x1)(st))(st)++++c_nubBy'46_'35lambda6 :: (Curry t45) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t45 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t45 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> t45 -> t45 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_nubBy'46_'35lambda6 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_not(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(x4)(x5)(st))(x6)(st))(st)++++c_delete :: (Curry t0) => t0 -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_delete x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_23(x2)(x3)(x1)(st))(st)++++op_92_92 :: (Curry t0) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+op_92_92 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldl(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleList.c_delete))(st))))(st))(x2)(x3)(x1)(st))(st)++++c_union :: (Curry t0) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_union x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_21(x3)(x2)(x1)(st))(st)++++c_intersect :: (Curry t0) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_intersect x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_19(x3)(x2)(x1)(st))(st)++++c_intersperse :: (Curry t0) => t0 -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_intersperse x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_17(x2)(x3)(x1)(st))(st)++++c_transpose :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)+c_transpose x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_15(x2)(x1)(st))(st)++++c_partition :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t0)+c_partition x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleList.c_partition'46select'4653(x2)))(st))(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(x3)(x1)(st))(st)++++c_partition'46select'4653 :: (Curry t146) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t146 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> t146 -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t146) (Curry.Module.Prelude.List t146)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t146) (Curry.Module.Prelude.List t146)+c_partition'46select'4653 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_13(x2)(x3)(x4)(x1)(st))(st)++++c_group :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)))+c_group x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleList.c_groupBy(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))))))(st)++++c_groupBy :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)+c_groupBy x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_11(x2)(x3)(x1)(st))(st)++++c_groupBy'46_'35selFP3'35ys :: (Curry t154) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t154) (Curry.Module.Prelude.List t154)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t154+c_groupBy'46_'35selFP3'35ys x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_10(x2)(x1)(st))(st)++++c_groupBy'46_'35selFP4'35zs :: (Curry t154) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t154) (Curry.Module.Prelude.List t154)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t154+c_groupBy'46_'35selFP4'35zs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_9(x2)(x1)(st))(st)++++c_replace :: (Curry t0) => t0 -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_replace x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_8(x2)(x3)(x4)(x1)(st))(st)++++c_isPrefixOf :: (Curry t0) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isPrefixOf x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_5(x3)(x2)(x1)(st))(st)++++c_sortBy :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_sortBy x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleList.c_insertBy(x2)))(st))(Curry.Module.Prelude.List)))))(st)++++c_insertBy :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> t0 -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_insertBy x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_3(x2)(x3)(x4)(x1)(st))(st)++++c_last :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_last x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_1(x2)(x1)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_1_case__26(x1)(x2)(st))(st)++++c__case_0 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_0_case__25(x1)(x3)(x4)(st))(st)++++c__case_3 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_3_case__24(x1)(x2)(x3)(x4)(st))(st)++++c__case_2 x2 x3 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_2_case__23(x1)(x2)(x3)(x5)(x6)(x7)(st))(st)++++c__case_5 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_5_case__22(x1)(x3)(x2)(st))(st)++++c__case_4 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_4_case__21(x1)(x4)(x5)(x3)(st))(st)++++c__case_8 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_8_case__20(x1)(x2)(x3)(x4)(st))(st)++++c__case_7 x2 x3 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_7_case__19(x1)(x2)(x3)(x5)(x6)(x7)(st))(st)++++c__case_6 x2 x3 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_6_case__18(x1)(x2)(x3)(x5)(x6)(x7)(st))(st)++++c__case_9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_9_case__17(x1)(x2)(st))(st)++++c__case_10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_10_case__16(x1)(x2)(st))(st)++++c__case_11 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_11_case__15(x1)(x2)(x3)(st))(st)++++c__case_13 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_13_case__14(x1)(x2)(x3)(x4)(st))(st)++++c__case_12 x2 x3 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_12_case__13(x1)(x3)(x5)(x6)(x7)(st))(st)++++c__case_15 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_15_case__12(x1)(x2)(st))(st)++++c__case_14 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_14_case__11(x1)(x4)(x3)(st))(st)++++c__case_17 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_17_case__10(x1)(x2)(x3)(st))(st)++++c__case_16 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_16_case__9(x1)(x2)(x4)(x5)(st))(st)++++c__case_19 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_19_case__8(x1)(x3)(x2)(st))(st)++++c__case_18 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_18_case__7(x1)(x3)(x4)(x5)(x6)(st))(st)++++c__case_21 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_21_case__6(x1)(x3)(x2)(st))(st)++++c__case_20 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_20_case__5(x1)(x3)(x4)(x5)(x6)(st))(st)++++c__case_23 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_23_case__4(x1)(x2)(x3)(st))(st)++++c__case_22 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_22_case__3(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_24 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_24_case__2(x1)(x2)(x3)(st))(st)++++c__case_26 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_26_case__1(x1)(x2)(x4)(x3)(st))(st)++++c__case_25 x2 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_25_case__0(x1)(x6)(x7)(st))(st)++++c__case_25_case__0 x1 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(st)+c__case_25_case__0 x1 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_25_case__0 x1 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_25_case__0(x1)(x6)(x)(st))(i)(xs)(st)+c__case_25_case__0 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleList._case_25_case__0")(x)++++c__case_26_case__1 x1 x2 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleList.c__case_25(x2)(x5)(x6)(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x7)(st))(x4)(x8)(st))(st)+c__case_26_case__1 x1 x2 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_26_case__1(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_26_case__1 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleList._case_26_case__1")(x)++++c__case_24_case__2 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_24_case__2 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x4)(Curry.Module.OracleList.c_nubBy(x2)(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleList.c_nubBy'46_'35lambda6(x2)(x4)))))(x5)(x1)(st))(x6)(st)))(st)+c__case_24_case__2 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_24_case__2(x1)(x2)(x)(st))(i)(xs)(st)+c__case_24_case__2 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleList._case_24_case__2")(x)++++c__case_22_case__3 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_22_case__3 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.OracleList.c_delete(x2)(x5)(x1)(st)))(st)+c__case_22_case__3 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_22_case__3(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_22_case__3 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleList._case_22_case__3")(x)++++c__case_23_case__4 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_23_case__4 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleList.c__case_22(x2)(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x2)(x4)(x1)(st))(x6)(st))(st)+c__case_23_case__4 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_23_case__4(x1)(x2)(x)(st))(i)(xs)(st)+c__case_23_case__4 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleList._case_23_case__4")(x)++++c__case_20_case__5 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c_union(x5)(x3)(x1)(st))(st)+c__case_20_case__5 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.OracleList.c_union(x5)(x3)(x1)(st)))(st)+c__case_20_case__5 x1 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_20_case__5(x1)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_20_case__5 x1 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleList._case_20_case__5")(x)++++c__case_21_case__6 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_21_case__6 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OracleList.c__case_20(x3)(x4)(x5)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x4)(x1)(st))(x3)(x6)(st))(x7)(st))(st)+c__case_21_case__6 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_21_case__6(x1)(x3)(x)(st))(i)(xs)(st)+c__case_21_case__6 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleList._case_21_case__6")(x)++++c__case_18_case__7 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.OracleList.c_intersect(x5)(x3)(x1)(st)))(st)+c__case_18_case__7 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c_intersect(x5)(x3)(x1)(st))(st)+c__case_18_case__7 x1 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_18_case__7(x1)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_18_case__7 x1 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleList._case_18_case__7")(x)++++c__case_19_case__8 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_19_case__8 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OracleList.c__case_18(x3)(x4)(x5)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x4)(x1)(st))(x3)(x6)(st))(x7)(st))(st)+c__case_19_case__8 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_19_case__8(x1)(x3)(x)(st))(i)(xs)(st)+c__case_19_case__8 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleList._case_19_case__8")(x)++++c__case_16_case__9 x1 x2 x4 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(st)+c__case_16_case__9 x1 x2 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x2)(Curry.Module.OracleList.c_intersperse(x2)((Curry.Module.Prelude.:<)(x6)(x7))(x1)(st))))(st)+c__case_16_case__9 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_16_case__9(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_16_case__9 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleList._case_16_case__9")(x)++++c__case_17_case__10 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_17_case__10 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_16(x2)(x4)(x5)(x1)(st))(st)+c__case_17_case__10 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_17_case__10(x1)(x2)(x)(st))(i)(xs)(st)+c__case_17_case__10 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleList._case_17_case__10")(x)++++c__case_14_case__11 x1 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c_transpose(x4)(x1)(st))(st)+c__case_14_case__11 x1 x4 x3@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(x5)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_head))))(x4)(x1)(st)))(Curry.Module.OracleList.c_transpose((Curry.Module.Prelude.:<)(x6)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_tail))))(x4)(x7)(st)))(x8)(st)))(st)+c__case_14_case__11 x1 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_14_case__11(x1)(x4)(x)(st))(i)(xs)(st)+c__case_14_case__11 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleList._case_14_case__11")(x)++++c__case_15_case__12 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_15_case__12 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_14(x4)(x3)(x1)(st))(st)+c__case_15_case__12 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_15_case__12(x1)(x)(st))(i)(xs)(st)+c__case_15_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OracleList._case_15_case__12")(x)++++c__case_12_case__13 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x3)(x5))(x6))(st)+c__case_12_case__13 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x5)((Curry.Module.Prelude.:<)(x3)(x6)))(st)+c__case_12_case__13 x1 x3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_12_case__13(x1)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_12_case__13 x1 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleList._case_12_case__13")(x)++++c__case_13_case__14 x1 x2 x3 x4@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleList.c__case_12(x2)(x3)(x5)(x6)(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(x7)(st))(st)+c__case_13_case__14 x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_13_case__14(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_13_case__14 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleList._case_13_case__14")(x)++++c__case_11_case__15 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_11_case__15 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(let {x6 = Curry.Module.OraclePrelude.c_span(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x9)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x12)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(x4)(Curry.Module.OracleList.c_groupBy'46_'35selFP3'35ys(x6)(x10)(st)))(Curry.Module.OracleList.c_groupBy(x2)(Curry.Module.OracleList.c_groupBy'46_'35selFP4'35zs(x6)(x11)(st))(x12)(st)))(st))(st))(st))(st)+c__case_11_case__15 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_11_case__15(x1)(x2)(x)(st))(i)(xs)(st)+c__case_11_case__15 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleList._case_11_case__15")(x)++++c__case_10_case__16 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_10_case__16 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_10_case__16(x1)(x)(st))(i)(xs)(st)+c__case_10_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleList._case_10_case__16")(x)++++c__case_9_case__17 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_9_case__17 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_9_case__17(x1)(x)(st))(i)(xs)(st)+c__case_9_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OracleList._case_9_case__17")(x)++++c__case_6_case__18 x1 x2 x3 x5 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x5)(Curry.Module.OracleList.c_replace(x2)(Curry.Module.OraclePrelude.op_45(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x6)(x8)(st)))(st)+c__case_6_case__18 x1 x2 x3 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_6_case__18 x1 x2 x3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_6_case__18(x1)(x2)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_6_case__18 x1 x2 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleList._case_6_case__18")(x)++++c__case_7_case__19 x1 x2 x3 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x2)(x6))(st)+c__case_7_case__19 x1 x2 x3 x5 x6 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleList.c__case_6(x2)(x3)(x5)(x6)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x8)(st))(st)+c__case_7_case__19 x1 x2 x3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_7_case__19(x1)(x2)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_7_case__19 x1 x2 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleList._case_7_case__19")(x)++++c__case_8_case__20 x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_8_case__20 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleList.c__case_7(x2)(x3)(x5)(x6)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Zero)(x1)(st))(x7)(st))(st)+c__case_8_case__20 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_8_case__20(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_8_case__20 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleList._case_8_case__20")(x)++++c__case_4_case__21 x1 x4 x5 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_4_case__21 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x4)(x6)(x1)(st))(Curry.Module.OracleList.c_isPrefixOf(x5)(x7)(x8)(st))(x9)(st))(st)+c__case_4_case__21 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_4_case__21(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_4_case__21 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleList._case_4_case__21")(x)++++c__case_5_case__22 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_5_case__22 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_4(x4)(x5)(x3)(x1)(st))(st)+c__case_5_case__22 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_5_case__22(x1)(x3)(x)(st))(i)(xs)(st)+c__case_5_case__22 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleList._case_5_case__22")(x)++++c__case_2_case__23 x1 x2 x3 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x5)(x6)))(st)+c__case_2_case__23 x1 x2 x3 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.OracleList.c_insertBy(x2)(x3)(x6)(x1)(st)))(st)+c__case_2_case__23 x1 x2 x3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_2_case__23(x1)(x2)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_2_case__23 x1 x2 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleList._case_2_case__23")(x)++++c__case_3_case__24 x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(st)+c__case_3_case__24 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OracleList.c__case_2(x2)(x3)(x5)(x6)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(x5)(x7)(st))(x8)(st))(st)+c__case_3_case__24 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_3_case__24(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_3_case__24 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleList._case_3_case__24")(x)++++c__case_0_case__25 x1 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_0_case__25 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c_last((Curry.Module.Prelude.:<)(x5)(x6))(x1)(st))(st)+c__case_0_case__25 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_0_case__25(x1)(x3)(x)(st))(i)(xs)(st)+c__case_0_case__25 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleList._case_0_case__25")(x)++++c__case_1_case__26 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleList.c__case_0(x3)(x4)(x1)(st))(st)+c__case_1_case__26 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleList.c__case_1_case__26(x1)(x)(st))(i)(xs)(st)+c__case_1_case__26 x1 x st = Curry.RunTimeSystem.patternFail("OracleList._case_1_case__26")(x)++
+ dist/build/Curry/Module/OracleMaybe.hs view
@@ -0,0 +1,190 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleMaybe (module Curry.Module.OracleMaybe) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_isJust :: (Curry t0) => (Curry.Module.Prelude.C_Maybe t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isJust x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_8(x2)(x1)(st))(st)++++c_isNothing :: (Curry t0) => (Curry.Module.Prelude.C_Maybe t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isNothing x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_7(x2)(x1)(st))(st)++++c_fromJust :: (Curry t0) => (Curry.Module.Prelude.C_Maybe t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_fromJust x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_6(x2)(x1)(st))(st)++++c_fromMaybe :: (Curry t0) => t0 -> (Curry.Module.Prelude.C_Maybe t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_fromMaybe x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_5(x2)(x3)(x1)(st))(st)++++c_maybeToList :: (Curry t0) => (Curry.Module.Prelude.C_Maybe t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_maybeToList x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_4(x2)(x1)(st))(st)++++c_listToMaybe :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t0+c_listToMaybe x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_3(x2)(x1)(st))(st)++++c_catMaybes :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_catMaybes x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleMaybe.c_catMaybes'46_'35lambda4))(st))(Curry.Module.Prelude.List)(x2)(x1)(st))(st)++++c_catMaybes'46_'35lambda4 :: (Curry t37) => (Curry.Module.Prelude.C_Maybe t37) -> (Curry.Module.Prelude.List t37) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t37+c_catMaybes'46_'35lambda4 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_2(x3)(x2)(x1)(st))(st)++++c_mapMaybe :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))+c_mapMaybe x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMaybe.c_catMaybes))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(x1)(st))(st)++++op_62_62_45 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.C_Maybe t0) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t1+op_62_62_45 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_1(x3)(x2)(x1)(st))(st)++++c_sequenceMaybe :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List t0)+c_sequenceMaybe x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_0(x2)(x1)(st))(st)++++c_sequenceMaybe'46_'35lambda6 :: (Curry t66) => (Curry.Module.Prelude.List (Curry.Module.Prelude.C_Maybe t66)) -> t66 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List t66)+c_sequenceMaybe'46_'35lambda6 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleMaybe.op_62_62_45(Curry.Module.OracleMaybe.c_sequenceMaybe(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMaybe.c_sequenceMaybe'46_'35lambda6'46_'35lambda7(x3)))))(x4)(st))(st)++++c_sequenceMaybe'46_'35lambda6'46_'35lambda7 :: (Curry t66) => t66 -> (Curry.Module.Prelude.List t66) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List t66)+c_sequenceMaybe'46_'35lambda6'46_'35lambda7 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just((Curry.Module.Prelude.:<)(x2)(x3)))(st)++++c_mapMMaybe :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List t1)))+c_mapMMaybe x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMaybe.c_sequenceMaybe))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(x1)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_0_case__8(x1)(x2)(st))(st)++++c__case_1 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_1_case__7(x1)(x3)(x2)(st))(st)++++c__case_2 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_2_case__6(x1)(x3)(x2)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_3_case__5(x1)(x2)(st))(st)++++c__case_4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_4_case__4(x1)(x2)(st))(st)++++c__case_5 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_5_case__3(x1)(x2)(x3)(st))(st)++++c__case_6 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_6_case__2(x1)(x2)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_7_case__1(x1)(x2)(st))(st)++++c__case_8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.c__case_8_case__0(x1)(x2)(st))(st)++++c__case_8_case__0 x1 x2@(Curry.Module.Prelude.C_Just x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_8_case__0 x1 x2@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_8_case__0 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMaybe.c__case_8_case__0(x1)(x)(st))(i)(xs)(st)+c__case_8_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleMaybe._case_8_case__0")(x)++++c__case_7_case__1 x1 x2@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_7_case__1 x1 x2@(Curry.Module.Prelude.C_Just x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_7_case__1 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMaybe.c__case_7_case__1(x1)(x)(st))(i)(xs)(st)+c__case_7_case__1 x1 x st = Curry.RunTimeSystem.patternFail("OracleMaybe._case_7_case__1")(x)++++c__case_6_case__2 x1 x2@(Curry.Module.Prelude.C_Just x3) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_6_case__2 x1 x2@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((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('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('J'))((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('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('N'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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))))))))))))))))))))))))(x1)(st))(st)+c__case_6_case__2 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMaybe.c__case_6_case__2(x1)(x)(st))(i)(xs)(st)+c__case_6_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleMaybe._case_6_case__2")(x)++++c__case_5_case__3 x1 x2 x3@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_5_case__3 x1 x2 x3@(Curry.Module.Prelude.C_Just x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_5_case__3 x1 x2 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMaybe.c__case_5_case__3(x1)(x2)(x)(st))(i)(xs)(st)+c__case_5_case__3 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleMaybe._case_5_case__3")(x)++++c__case_4_case__4 x1 x2@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_4_case__4 x1 x2@(Curry.Module.Prelude.C_Just x3) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(st)+c__case_4_case__4 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMaybe.c__case_4_case__4(x1)(x)(st))(i)(xs)(st)+c__case_4_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleMaybe._case_4_case__4")(x)++++c__case_3_case__5 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_3_case__5 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just(x3))(st)+c__case_3_case__5 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMaybe.c__case_3_case__5(x1)(x)(st))(i)(xs)(st)+c__case_3_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleMaybe._case_3_case__5")(x)++++c__case_2_case__6 x1 x3 x2@(Curry.Module.Prelude.C_Just x4) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(x3))(st)+c__case_2_case__6 x1 x3 x2@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_2_case__6 x1 x3 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMaybe.c__case_2_case__6(x1)(x3)(x)(st))(i)(xs)(st)+c__case_2_case__6 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleMaybe._case_2_case__6")(x)++++c__case_1_case__7 x1 x3 x2@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_1_case__7 x1 x3 x2@(Curry.Module.Prelude.C_Just x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x3)(x4)(x1)(st))(st)+c__case_1_case__7 x1 x3 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMaybe.c__case_1_case__7(x1)(x3)(x)(st))(i)(xs)(st)+c__case_1_case__7 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleMaybe._case_1_case__7")(x)++++c__case_0_case__8 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.List))(st)+c__case_0_case__8 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMaybe.op_62_62_45(x3)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMaybe.c_sequenceMaybe'46_'35lambda6(x4)))))(x1)(st))(st)+c__case_0_case__8 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMaybe.c__case_0_case__8(x1)(x)(st))(i)(xs)(st)+c__case_0_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleMaybe._case_0_case__8")(x)++
+ dist/build/Curry/Module/OracleMeta.hs view
@@ -0,0 +1,188 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleMeta (module Curry.Module.OracleMeta) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Meta+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_isFree :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Either t0 t0)))+c_isFree x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_headNormalFormIO(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMeta.c_prim_isFree))))(x2)(x1)(st))(st)++++c_throw :: (Curry t0) => Curry.Module.Meta.C_Exception -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_throw x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMeta.c_prim_throw))))(x2)(x1)(st))(st)++++c_list :: (Curry t0) => (Curry.Module.Meta.C_Seq t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_list x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c__case_4(x2)(x1)(st))(st)++++c_interleave :: (Curry t0) => (Curry.Module.Meta.C_Seq t0) -> (Curry.Module.Meta.C_Seq t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Meta.C_Seq t0+c_interleave x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c__case_3(x3)(x2)(x1)(st))(st)++++c_seq :: (Curry t0) => (Curry.Module.Prelude.C_SearchTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Meta.C_Seq t0+c_seq x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c__case_1(x2)(x1)(st))(st)++++c_isValOrChoice :: (Curry t0) => (Curry.Module.Prelude.C_SearchTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isValOrChoice x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c__case_0(x2)(x1)(st))(st)++++c_allValuesI :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.C_SearchTree t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_allValuesI x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMeta.c_list))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMeta.c_seq))))(x1)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c__case_0_case__4(x1)(x2)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c__case_1_case__3(x1)(x2)(st))(st)++++c__case_3 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c__case_3_case__2(x1)(x3)(x2)(st))(st)++++c__case_2 x2 x6 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c__case_2_case__1(x1)(x2)(x6)(x3)(st))(st)++++c__case_4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c__case_4_case__0(x1)(x2)(st))(st)++++c_prim_isFree :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Either t0 t0)))+c_prim_isFree x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Meta.c_prim_isFree(x2)(st))(st))))(st)++++c_searchTree :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_SearchTree t0+c_searchTree x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.c_searchTree(x2)(st))(st)++++c_gnfIO :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_gnfIO x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Meta.c_gnfIO(x2)(st))(st))))(st)++++c_ghnfIO :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_ghnfIO x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Meta.c_ghnfIO(x2)(st))(st))))(st)++++c_nfIO :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_nfIO x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Meta.c_nfIO(x2)(st))(st))))(st)++++c_hnfIO :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_hnfIO x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Meta.c_hnfIO(x2)(st))(st))))(st)++++c_getRichSearchTree :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Meta.C_RichSearchTree t0)))+c_getRichSearchTree x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Meta.c_getRichSearchTree(x2)(st))(st))))(st)++++c_richSearchTree :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Meta.C_RichSearchTree t0+c_richSearchTree x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.c_richSearchTree(x2)(st))(st)++++c_parallelSearch :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List t0)))+c_parallelSearch x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Meta.c_parallelSearch(x2)(st))(st))))(st)++++c_cover :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_cover x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.c_cover(x2)(st))(st)++++c_st :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_SearchTree t0+c_st x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.c_st(x2)(st))(st)++++c_richST :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Meta.C_RichSearchTree t0+c_richST x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.c_richST(x2)(st))(st)++++c_ors :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_ors x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.c_ors(x2)(st))(st)++++c_prim_throw :: (Curry t0) => Curry.Module.Meta.C_Exception -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_prim_throw x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.c_prim_throw(x2)(st))(st)++++c__case_4_case__0 x1 x2@Curry.Module.Meta.C_Nil st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_4_case__0 x1 x2@(Curry.Module.Meta.C_Cons x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.OracleMeta.c_list(x4)(x1)(st)))(st)+c__case_4_case__0 x1 x2@(Curry.Module.Meta.C_Continued x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c_list(x5)(x1)(st))(st)+c__case_4_case__0 x1 (Curry.Module.Meta.C_SeqOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMeta.c__case_4_case__0(x1)(x)(st))(i)(xs)(st)+c__case_4_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleMeta._case_4_case__0")(x)++++c__case_2_case__1 x1 x2 x6 x3@Curry.Module.Meta.C_Nil st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_2_case__1 x1 x2 x6 x3@(Curry.Module.Meta.C_Cons x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Meta.C_Cons(x7)(Curry.Module.OracleMeta.c_interleave(x6)(x8)(x1)(st)))(st)+c__case_2_case__1 x1 x2 x6 x3@(Curry.Module.Meta.C_Continued x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Meta.C_Continued(Curry.Module.OracleMeta.c_interleave(x6)(x9)(x1)(st)))(st)+c__case_2_case__1 x1 x2 x6 (Curry.Module.Meta.C_SeqOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMeta.c__case_2_case__1(x1)(x2)(x6)(x)(st))(i)(xs)(st)+c__case_2_case__1 x1 x2 x6 x st = Curry.RunTimeSystem.patternFail("OracleMeta._case_2_case__1")(x)++++c__case_3_case__2 x1 x3 x2@Curry.Module.Meta.C_Nil st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.C_Continued(x3))(st)+c__case_3_case__2 x1 x3 x2@(Curry.Module.Meta.C_Cons x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Meta.C_Cons(x4)(Curry.Module.OracleMeta.c_interleave(x3)(x5)(x1)(st)))(st)+c__case_3_case__2 x1 x3 x2@(Curry.Module.Meta.C_Continued x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleMeta.c__case_2(x2)(x6)(x3)(x1)(st))(st)+c__case_3_case__2 x1 x3 (Curry.Module.Meta.C_SeqOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMeta.c__case_3_case__2(x1)(x3)(x)(st))(i)(xs)(st)+c__case_3_case__2 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleMeta._case_3_case__2")(x)++++c__case_1_case__3 x1 x2@Curry.Module.Prelude.C_Fail st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.C_Nil)(st)+c__case_1_case__3 x1 x2@(Curry.Module.Prelude.C_Value x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.C_Cons(x3)(Curry.Module.Meta.C_Nil))(st)+c__case_1_case__3 x1 x2@(Curry.Module.Prelude.C_Choice x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_foldr1(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleMeta.c_interleave))(st))((Curry.Module.Prelude.:<)(Curry.Module.Meta.C_Nil)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMeta.c_seq))))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMeta.c_isValOrChoice))))(x4)(x1)(st))(x5)(st)))(x6)(st))(st)+c__case_1_case__3 x1 x2@Curry.Module.Prelude.C_Suspend st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Meta.C_Nil)(st)+c__case_1_case__3 x1 (Curry.Module.Prelude.C_SearchTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMeta.c__case_1_case__3(x1)(x)(st))(i)(xs)(st)+c__case_1_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleMeta._case_1_case__3")(x)++++c__case_0_case__4 x1 x2@Curry.Module.Prelude.C_Fail st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_0_case__4 x1 x2@(Curry.Module.Prelude.C_Value x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_0_case__4 x1 x2@(Curry.Module.Prelude.C_Choice x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_0_case__4 x1 x2@Curry.Module.Prelude.C_Suspend st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_0_case__4 x1 (Curry.Module.Prelude.C_SearchTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleMeta.c__case_0_case__4(x1)(x)(st))(i)(xs)(st)+c__case_0_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleMeta._case_0_case__4")(x)++
+ dist/build/Curry/Module/OracleParser.hs view
@@ -0,0 +1,111 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleParser (module Curry.Module.OracleParser) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Parser+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++op_60_124_62 :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+op_60_124_62 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.RunTimeSystem.orF(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleParser.c_'60'124'62'46_'35lambda2(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleParser.c_'60'124'62'46_'35lambda3(x3))))))(st)++++c_'60'124'62'46_'35lambda2 :: (Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t2) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t2))) -> (Curry.Module.Prelude.List t2) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t2+c_'60'124'62'46_'35lambda2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(st)++++c_'60'124'62'46_'35lambda3 :: (Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t2) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t2))) -> (Curry.Module.Prelude.List t2) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t2+c_'60'124'62'46_'35lambda3 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(st)++++op_60_124_124_62 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))))+op_60_124_124_62 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleParser.c_'60'124'124'62'46_'35lambda4(x2)(x3)))))(st)++++c_'60'124'124'62'46_'35lambda4 :: (Curry t17,Curry t18) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t17 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t18) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t18))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t17 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t18) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t18))))) -> t17 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t18) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t18))+c_'60'124'124'62'46_'35lambda4 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OracleParser.op_60_124_62(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(Curry.Module.Oracle.c_apply(x3)(x4)(x5)(st))(x6)(st))(st)++++op_60_42_62 :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+op_60_42_62 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleParser.c_'60'42'62'46seq'4614(x2)(x3)))))(st)++++c_'60'42'62'46seq'4614 :: (Curry t23) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t23) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t23))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t23) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t23))) -> (Curry.Module.Prelude.List t23) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t23+c_'60'42'62'46seq'4614 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_33_33(x3)(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(st))(st)++++op_62_62_62 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))) -> t1 -> t1 -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+op_62_62_62 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_33_33(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleParser.c_'62'62'62'46attach'4618(x4)(x3)))))(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x6)(st))(st)++++c_'62'62'62'46attach'4618 :: (Curry t36,Curry t0) => t36 -> t36 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_'62'62'62'46attach'4618 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_cond(Curry.Module.OraclePrelude.op_61_58_61(x3)(x2)(x1)(st))(x4)(x5)(st))(st)++++c_empty :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_empty x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_terminal :: (Curry t0) => t0 -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_terminal x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleParser.c__case_1(x2)(x3)(x1)(st))(st)++++c_satisfy :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> t0 -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_satisfy x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleParser.c__case_0(x2)(x3)(x4)(x1)(st))(st)++++c_star :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))))+c_star x2 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))))(let {x3 = Curry.Module.Oracle.c_unknown(x1)(st); x4 = Curry.Module.Oracle.c_unknown(x5)(st)} in Curry.Module.OracleParser.op_60_124_124_62(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleParser.op_62_62_62(Curry.Module.OracleParser.op_60_42_62(Curry.Module.Oracle.c_apply(x2)(x3)(x6)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleParser.c_star(x2)(x7)(st))(x4)(x8)(st))(x9)(st))((Curry.Module.Prelude.:<)(x3)(x4))))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleParser.op_62_62_62(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleParser.c_empty))))(Curry.Module.Prelude.List)))(st))(x10)(st))(st)++++c_some :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))))+c_some x2 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))))(let {x3 = Curry.Module.Oracle.c_unknown(x1)(st); x4 = Curry.Module.Oracle.c_unknown(x5)(st)} in Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleParser.op_62_62_62(Curry.Module.OracleParser.op_60_42_62(Curry.Module.Oracle.c_apply(x2)(x3)(x6)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleParser.c_star(x2)(x7)(st))(x4)(x8)(st))(x9)(st))((Curry.Module.Prelude.:<)(x3)(x4))))(st))(st)++++c__case_0 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleParser.c__case_0_case__1(x1)(x2)(x3)(x4)(st))(st)++++c__case_1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleParser.c__case_1_case__0(x1)(x2)(x3)(st))(st)++++c__case_1_case__0 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_cond(Curry.Module.OraclePrelude.op_61_58_61(x2)(x4)(x1)(st))(x5)(x6)(st))(st)+c__case_1_case__0 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleParser.c__case_1_case__0(x1)(x2)(x)(st))(i)(xs)(st)+c__case_1_case__0 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleParser._case_1_case__0")(x)++++c__case_0_case__1 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.c_cond(Curry.Module.OraclePrelude.op_38(Curry.Module.OraclePrelude.op_61_58_61(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(Curry.Module.Prelude.C_True)(x7)(st))(Curry.Module.OraclePrelude.op_61_58_61(x3)(x5)(x8)(st))(x9)(st))(x6)(x10)(st))(st)+c__case_0_case__1 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleParser.c__case_0_case__1(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_0_case__1 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleParser._case_0_case__1")(x)++
+ dist/build/Curry/Module/OraclePrelude.hs view
@@ -0,0 +1,2694 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OraclePrelude (module Curry.Module.OraclePrelude) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Prelude++++-- begin included++++-- end included++op_46 :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t1))+op_46 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_'46'46_'35lambda2(x2)(x3)))))(st)++++c_'46'46_'35lambda2 :: (Curry t9,Curry t11,Curry t7) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t9 -> Curry.RunTimeSystem.State -> t11))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t7 -> Curry.RunTimeSystem.State -> t9))) -> t7 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t11+c_'46'46_'35lambda2 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Oracle.c_apply(x3)(x4)(x1)(st))(x5)(st))(st)++++c_id :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_id x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_const :: (Curry t0,Curry t1) => t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_const x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_curry :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.T2 t0 t1) -> Curry.RunTimeSystem.State -> t2))) -> t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t2+c_curry x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(Curry.Module.Prelude.T2(x3)(x4))(x1)(st))(st)++++c_uncurry :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2))))) -> (Curry.Module.Prelude.T2 t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t2+c_uncurry x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_155(x2)(x3)(x1)(st))(st)++++c_flip :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2))))) -> t1 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t2+c_flip x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x3)(x5)(st))(st)++++c_until :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_until x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_154(x2)(x3)(x4)(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(st))(st)++++op_36 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1+op_36 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(st)++++c_ensureSpine :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_ensureSpine x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_ensureSpine'46ensureList'4621))))))))(st)++++c_ensureSpine'46ensureList'4621 :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_ensureSpine'46ensureList'4621 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_153(x2)(x1)(st))(st)++++c_seq :: (Curry t0,Curry t1) => t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1+c_seq x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_33(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(x3)))))(x2)(x1)(st))(st)++++c_error :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_error x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_prim_error))))(x2)(x1)(st))(st)++++op_38_38 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_38_38 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_152(x3)(x2)(x1)(st))(st)++++op_124_124 :: Curry.Module.Prelude.C_Bool -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_124_124 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_151(x3)(x2)(x1)(st))(st)++++c_not :: Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_not x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_150(x2)(x1)(st))(st)++++c_otherwise :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_otherwise x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)++++c_if_then_else :: (Curry t0) => Curry.Module.Prelude.C_Bool -> t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_if_then_else x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_149(x3)(x4)(x2)(x1)(st))(st)++++c_isLT :: Curry.Module.Prelude.C_Ordering -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isLT x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_148(x2)(x1)(st))(st)++++c_isGT :: Curry.Module.Prelude.C_Ordering -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isGT x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_147(x2)(x1)(st))(st)++++c_isEQ :: Curry.Module.Prelude.C_Ordering -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isEQ x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_146(x2)(x1)(st))(st)++++c_compare :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering+c_compare x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_145(x3)(x2)(x1)(st))(st)++++op_60 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_60 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_compare(x2)(x3)(x1)(st))(Curry.Module.Prelude.C_LT)(x4)(st))(st)++++op_62 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_62 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_compare(x2)(x3)(x1)(st))(Curry.Module.Prelude.C_GT)(x4)(st))(st)++++op_60_61 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_60_61 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.OraclePrelude.c_compare(x2)(x3)(x1)(st))(Curry.Module.Prelude.C_GT)(x4)(st))(st)++++op_62_61 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_62_61 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.OraclePrelude.c_compare(x2)(x3)(x1)(st))(Curry.Module.Prelude.C_LT)(x4)(st))(st)++++c_max :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_max x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_141(x2)(x3)(Curry.Module.OraclePrelude.c_compare(x2)(x3)(x1)(st))(x4)(st))(st)++++c_min :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_min x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_140(x2)(x3)(Curry.Module.OraclePrelude.c_compare(x2)(x3)(x1)(st))(x4)(st))(st)++++op_47_61 :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_47_61 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_not(Curry.Module.OraclePrelude.op_61_61(x2)(x3)(x1)(st))(x4)(st))(st)++++c_fst :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T2 t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_fst x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_139(x2)(x1)(st))(st)++++c_snd :: (Curry t0,Curry t1) => (Curry.Module.Prelude.T2 t0 t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1+c_snd x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_138(x2)(x1)(st))(st)++++c_head :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_head x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_137(x2)(x1)(st))(st)++++c_tail :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_tail x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_136(x2)(x1)(st))(st)++++c_null :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_null x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_135(x2)(x1)(st))(st)++++op_43_43 :: (Curry t0) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+op_43_43 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_134(x3)(x2)(x1)(st))(st)++++c_length :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_length x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_133(x2)(x1)(st))(st)++++op_33_33 :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+op_33_33 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_132(x3)(x2)(x1)(st))(st)++++c_map :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1+c_map x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_129(x2)(x3)(x1)(st))(st)++++c_foldl :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t0))))) -> t0 -> (Curry.Module.Prelude.List t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_foldl x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_128(x2)(x3)(x4)(x1)(st))(st)++++c_foldl1 :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_foldl1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_127(x2)(x3)(x1)(st))(st)++++c_foldr :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1))))) -> t1 -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1+c_foldr x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_126(x2)(x3)(x4)(x1)(st))(st)++++c_foldr1 :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_foldr1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_125(x2)(x3)(x1)(st))(st)++++c_filter :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_filter x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_123(x2)(x3)(x1)(st))(st)++++c_zip :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)+c_zip x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_121(x3)(x2)(x1)(st))(st)++++c_zip3 :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t1) -> (Curry.Module.Prelude.List t2) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T3 t0 t1 t2)+c_zip3 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_119(x3)(x4)(x2)(x1)(st))(st)++++c_zipWith :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t2))))) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t2+c_zipWith x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_116(x2)(x4)(x3)(x1)(st))(st)++++c_zipWith3 :: (Curry t0,Curry t1,Curry t2,Curry t3) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t3))))))) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t1) -> (Curry.Module.Prelude.List t2) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t3+c_zipWith3 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_114(x2)(x4)(x5)(x3)(x1)(st))(st)++++c_unzip :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t1)+c_unzip x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_111(x2)(x1)(st))(st)++++c_unzip'46_'35selFP3'35xs :: (Curry t476,Curry t477) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t476) (Curry.Module.Prelude.List t477)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t476+c_unzip'46_'35selFP3'35xs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_109(x2)(x1)(st))(st)++++c_unzip'46_'35selFP4'35ys :: (Curry t476,Curry t477) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t476) (Curry.Module.Prelude.List t477)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t477+c_unzip'46_'35selFP4'35ys x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_108(x2)(x1)(st))(st)++++c_unzip3 :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.List (Curry.Module.Prelude.T3 t0 t1 t2)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T3 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.List t2)+c_unzip3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_107(x2)(x1)(st))(st)++++c_unzip3'46_'35selFP6'35xs :: (Curry t493,Curry t494,Curry t495) => (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List t493) (Curry.Module.Prelude.List t494) (Curry.Module.Prelude.List t495)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t493+c_unzip3'46_'35selFP6'35xs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_105(x2)(x1)(st))(st)++++c_unzip3'46_'35selFP7'35ys :: (Curry t493,Curry t494,Curry t495) => (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List t493) (Curry.Module.Prelude.List t494) (Curry.Module.Prelude.List t495)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t494+c_unzip3'46_'35selFP7'35ys x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_104(x2)(x1)(st))(st)++++c_unzip3'46_'35selFP8'35zs :: (Curry t493,Curry t494,Curry t495) => (Curry.Module.Prelude.T3 (Curry.Module.Prelude.List t493) (Curry.Module.Prelude.List t494) (Curry.Module.Prelude.List t495)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t495+c_unzip3'46_'35selFP8'35zs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_103(x2)(x1)(st))(st)++++c_concat :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_concat x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_43_43))(st))(Curry.Module.Prelude.List)(x2)(x1)(st))(st)++++c_concatMap :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))+c_concatMap x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_concat))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(x1)(st))(st)++++c_iterate :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_iterate x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x3)(Curry.Module.OraclePrelude.c_iterate(x2)(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(x4)(st)))(st)++++c_repeat :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_repeat x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.OraclePrelude.c_repeat(x2)(x1)(st)))(st)++++c_replicate :: (Curry t0) => Curry.Module.Prelude.C_Int -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_replicate x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_take(x2)(Curry.Module.OraclePrelude.c_repeat(x3)(x1)(st))(x4)(st))(st)++++c_take :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_take x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_102(x3)(x2)(x1)(st))(st)++++c_drop :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_drop x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_100(x2)(x3)(Curry.Module.OraclePrelude.op_60_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)++++c_drop'46dropp'46272 :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_drop'46dropp'46272 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_99(x2)(x3)(x1)(st))(st)++++c_splitAt :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t0)+c_splitAt x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_98(x2)(x3)(Curry.Module.OraclePrelude.op_60_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)++++c_splitAt'46splitAtp'46282 :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t0)+c_splitAt'46splitAtp'46282 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_97(x2)(x3)(x1)(st))(st)++++c_splitAt'46splitAtp'46282'46_'35selFP10'35ys :: (Curry t576) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t576) (Curry.Module.Prelude.List t576)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t576+c_splitAt'46splitAtp'46282'46_'35selFP10'35ys x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_96(x2)(x1)(st))(st)++++c_splitAt'46splitAtp'46282'46_'35selFP11'35zs :: (Curry t576) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t576) (Curry.Module.Prelude.List t576)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t576+c_splitAt'46splitAtp'46282'46_'35selFP11'35zs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_95(x2)(x1)(st))(st)++++c_takeWhile :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_takeWhile x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_94(x2)(x3)(x1)(st))(st)++++c_dropWhile :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_dropWhile x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_92(x2)(x3)(x1)(st))(st)++++c_span :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t0)+c_span x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_90(x2)(x3)(x1)(st))(st)++++c_span'46_'35selFP13'35ys :: (Curry t627) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t627) (Curry.Module.Prelude.List t627)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t627+c_span'46_'35selFP13'35ys x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_87(x2)(x1)(st))(st)++++c_span'46_'35selFP14'35zs :: (Curry t627) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t627) (Curry.Module.Prelude.List t627)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t627+c_span'46_'35selFP14'35zs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_86(x2)(x1)(st))(st)++++c_break :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t0)))+c_break x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_span(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_not))))(x2)(x1)(st))))))(st)++++c_lines :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_lines x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_85(x2)(x1)(st))(st)++++c_lines'46splitline'46314 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> 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_lines'46splitline'46314 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_84(x2)(x1)(st))(st)++++c_lines'46splitline'46314'46_'35selFP16'35ds :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_lines'46splitline'46314'46_'35selFP16'35ds x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_82(x2)(x1)(st))(st)++++c_lines'46splitline'46314'46_'35selFP17'35es :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_lines'46splitline'46314'46_'35selFP17'35es x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_81(x2)(x1)(st))(st)++++c_lines'46_'35selFP19'35l :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_lines'46_'35selFP19'35l x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_80(x2)(x1)(st))(st)++++c_lines'46_'35selFP20'35xs_l :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_lines'46_'35selFP20'35xs_l x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_79(x2)(x1)(st))(st)++++c_unlines :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_unlines x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_43_43))(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))(x1)(st))(x2)(x3)(st))(st)++++c_words :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_words x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(let {x3 = Curry.Module.OraclePrelude.c_dropWhile(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_words'46isSpace'46326))))(x2)(x1)(st)} in let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_78(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.List)(x4)(st))(x5)(st))(st))(st)++++c_words'46isSpace'46326 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_words'46isSpace'46326 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char(' '))(x1)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\t'))(x3)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\n'))(x4)(st))(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\r'))(x5)(st))(x6)(st))(x7)(st))(x8)(st))(st)++++c_words'46_'35selFP22'35w :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_words'46_'35selFP22'35w x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_77(x2)(x1)(st))(st)++++c_words'46_'35selFP23'35s2 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_words'46_'35selFP23'35s2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_76(x2)(x1)(st))(st)++++c_unwords :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_unwords x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_75(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.List)(x1)(st))(x3)(st))(st)++++c_unwords'46_'35lambda6 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_unwords'46_'35lambda6 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(x3))(x1)(st))(st)++++c_reverse :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_reverse x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_foldl(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))((Curry.Module.Prelude.:<)))(st))))(st))(Curry.Module.Prelude.List)))))(st)++++c_and :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Bool) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_and x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_38_38))(st))(Curry.Module.Prelude.C_True)))))(st)++++c_or :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Bool) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_or x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_124_124))(st))(Curry.Module.Prelude.C_False)))))(st)++++c_any :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_any x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePrelude.c_or(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(x3)(st))(st)++++c_all :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_all x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePrelude.c_and(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(x3)(st))(st)++++c_elem :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_elem x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_any(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_61_61(x2)))))(x1)(st))(st)++++c_notElem :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_notElem x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_47_61(x2)))))(x1)(st))(st)++++c_lookup :: (Curry t0,Curry t1) => t0 -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t1+c_lookup x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_74(x2)(x3)(x1)(st))(st)++++c_enumFrom :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_enumFrom x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.OraclePrelude.c_enumFrom(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x3)(st)))(st)++++c_enumFromThen :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_enumFromThen x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_iterate(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(x3)(x2)(x1)(st))))))(x2)(x4)(st))(st)++++c_enumFromTo :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_enumFromTo x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_70(x2)(x3)(Curry.Module.OraclePrelude.op_62(x2)(x3)(x1)(st))(x4)(st))(st)++++c_enumFromThenTo :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_enumFromThenTo x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_takeWhile(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_enumFromThenTo'46p'46364(x4)(x2)(x3)))))(Curry.Module.OraclePrelude.c_enumFromThen(x2)(x3)(x1)(st))(x5)(st))(st)++++c_enumFromThenTo'46p'46364 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_enumFromThenTo'46p'46364 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_69(x2)(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_62_61(x4)(x3)(x1)(st))(x6)(st))(st)++++c_ord :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ord x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_prim_ord))))(x2)(x1)(st))(st)++++c_chr :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_chr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_prim_chr))))(x2)(x1)(st))(st)++++c_succ :: Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Nat+c_succ x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_67(x2)(x1)(st))(st)++++op_43_94 :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Nat+op_43_94 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_66(x3)(x2)(x1)(st))(st)++++c_cmpNat :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering+c_cmpNat x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_63(x3)(x2)(x1)(st))(st)++++c_cmpNatLT :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering+c_cmpNatLT x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_59(x3)(x2)(x1)(st))(st)++++c_cmpNatGT :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering+c_cmpNatGT x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_56(x2)(x3)(x1)(st))(st)++++op_60_94 :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_60_94 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_isLT(Curry.Module.OraclePrelude.c_cmpNat(x2)(x3)(x1)(st))(x4)(st))(st)++++op_62_94 :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_62_94 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_isGT(Curry.Module.OraclePrelude.c_cmpNat(x2)(x3)(x1)(st))(x4)(st))(st)++++op_60_61_94 :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_60_61_94 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_not(Curry.Module.OraclePrelude.c_isGT(Curry.Module.OraclePrelude.c_cmpNat(x2)(x3)(x1)(st))(x4)(st))(x5)(st))(st)++++op_62_61_94 :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_62_61_94 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_not(Curry.Module.OraclePrelude.c_isLT(Curry.Module.OraclePrelude.c_cmpNat(x2)(x3)(x1)(st))(x4)(st))(x5)(st))(st)++++op_42_94 :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Nat+op_42_94 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_53(x3)(x2)(x1)(st))(st)++++c_pred :: Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Nat+c_pred x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_52(x2)(x1)(st))(st)++++c_inc :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_inc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_50(x2)(x1)(st))(st)++++c_dec :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_dec x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_48(x2)(x1)(st))(st)++++c_mult2 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_mult2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_46(x2)(x1)(st))(st)++++op_45_94 :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+op_45_94 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_45(x3)(x2)(x1)(st))(st)++++c_div2 :: Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Nat+c_div2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_42(x2)(x1)(st))(st)++++c_mod2 :: Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_mod2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_41(x2)(x1)(st))(st)++++c_divmodNat :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int+c_divmodNat x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_40(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_IHi)(x1)(st))(x4)(st))(st)++++c_divmodNat'46shift'46523 :: Curry.Module.Prelude.C_Nat -> Curry.Module.Prelude.C_Nat -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Nat+c_divmodNat'46shift'46523 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_32(x3)(x2)(x1)(st))(st)++++op_43 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+op_43 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_31(x3)(x2)(x1)(st))(st)++++op_45 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+op_45 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_28(x2)(x3)(x1)(st))(st)++++op_42 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+op_42 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_27(x3)(x2)(x1)(st))(st)++++c_divmod :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int+c_divmod x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_24(x3)(x2)(x1)(st))(st)++++c_divmod'46_'35selFP25'35d :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_divmod'46_'35selFP25'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_21(x2)(x1)(st))(st)++++c_divmod'46_'35selFP26'35m :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_divmod'46_'35selFP26'35m x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_20(x2)(x1)(st))(st)++++c_divmod'46_'35selFP28'35d :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_divmod'46_'35selFP28'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_19(x2)(x1)(st))(st)++++c_divmod'46_'35selFP29'35m :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_divmod'46_'35selFP29'35m x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_18(x2)(x1)(st))(st)++++c_divmod'46_'35selFP31'35d :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_divmod'46_'35selFP31'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_17(x2)(x1)(st))(st)++++c_divmod'46_'35selFP32'35m :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_divmod'46_'35selFP32'35m x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_16(x2)(x1)(st))(st)++++c_div :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_div x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_fst(Curry.Module.OraclePrelude.c_divmod(x2)(x3)(x1)(st))(x4)(st))(st)++++c_mod :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_mod x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_snd(Curry.Module.OraclePrelude.c_divmod(x2)(x3)(x1)(st))(x4)(st))(st)++++c_negate :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_negate x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_15(x2)(x1)(st))(st)++++c_success :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success+c_success x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Success)(st)++++op_61_58_61 :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success+op_61_58_61 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_14(x2)(x3)(Curry.Module.OraclePrelude.op_61_61_61(x2)(x3)(x1)(st))(x4)(st))(st)++++op_38_62 :: (Curry t0) => Curry.Module.Prelude.C_Success -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+op_38_62 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cond(x2)(x3)(x1)(st))(st)++++c_maybe :: (Curry t0,Curry t1) => t0 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t0))) -> (Curry.Module.Prelude.C_Maybe t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_maybe x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_13(x2)(x3)(x4)(x1)(st))(st)++++c_either :: (Curry t0,Curry t1,Curry t2) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t2 -> Curry.RunTimeSystem.State -> t1))) -> (Curry.Module.Prelude.C_Either t0 t2) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1+c_either x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_12(x2)(x3)(x4)(x1)(st))(st)++++op_62_62 :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1))+op_62_62 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_62_62_61(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(x3)))))(x1)(st))(st)++++c_done :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_done x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.T0)(x1)(st))(st)++++c_putChar :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_putChar x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_prim_putChar))))(x2)(x1)(st))(st)++++c_readFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_readFile x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_prim_readFile))))(x2)(x1)(st))(st)++++c_writeFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.c_prim_writeFile))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_appendFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_appendFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.c_prim_appendFile))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_putStr :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_putStr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_11(x2)(x1)(st))(st)++++c_putStrLn :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_putStrLn x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStr(x2)(x1)(st))(Curry.Module.OraclePrelude.c_putChar(Curry.Module.Prelude.C_Char('\n'))(x3)(st))(x4)(st))(st)++++c_getLine :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getLine x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_getChar(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_getLine'46_'35lambda10))))(x2)(st))(st)++++c_getLine'46_'35lambda10 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getLine'46_'35lambda10 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_10(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(x3)(st))(st)++++c_getLine'46_'35lambda10'46_'35lambda11 :: Curry.Module.Prelude.C_Char -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getLine'46_'35lambda10'46_'35lambda11 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return((Curry.Module.Prelude.:<)(x2)(x3))(x1)(st))(st)++++c_show :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_show x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_prim_show))))(x2)(x1)(st))(st)++++c_print :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_print x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_putStrLn(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x3)(st))(st)++++c_doSolve :: Curry.Module.Prelude.C_Success -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_doSolve x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_cond(x2)(Curry.Module.OraclePrelude.c_done(x1)(st))(x3)(st))(st)++++c_sequenceIO :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0)))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List t0)))+c_sequenceIO x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_9(x2)(x1)(st))(st)++++c_sequenceIO'46_'35lambda12 :: (Curry t937) => (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t937)))) -> t937 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List t937)))+c_sequenceIO'46_'35lambda12 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_sequenceIO(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_sequenceIO'46_'35lambda12'46_'35lambda13(x3)))))(x4)(st))(st)++++c_sequenceIO'46_'35lambda12'46_'35lambda13 :: (Curry t937) => t937 -> (Curry.Module.Prelude.List t937) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List t937)))+c_sequenceIO'46_'35lambda12'46_'35lambda13 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return((Curry.Module.Prelude.:<)(x2)(x3))(x1)(st))(st)++++c_sequenceIO_ :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_sequenceIO_ x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_62_62))(st))(Curry.Module.OraclePrelude.c_done(x1)(st))))))(st)++++c_mapIO :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List t1)))))+c_mapIO x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_sequenceIO))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(x1)(st))(st)++++c_mapIO_ :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_mapIO_ x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePrelude.c_sequenceIO_(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(x2)))))(x3)(st))(st)++++op_63 :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+op_63 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.RunTimeSystem.orF(x2)(x3))(st)++++c_allValuesD :: (Curry t0) => (Curry.Module.Prelude.C_SearchTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_allValuesD x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_8(x2)(x1)(st))(st)++++c_allValuesB :: (Curry t0) => (Curry.Module.Prelude.C_SearchTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_allValuesB x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_allValuesB'46unfoldOrs'46692((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(x1)(st))(st)++++c_allValuesB'46partition'46692 :: (Curry t0) => (Curry.Module.Prelude.C_SearchTree t0) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t0))+c_allValuesB'46partition'46692 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_7(x3)(x2)(x1)(st))(st)++++c_allValuesB'46partition'46692'46_'35selFP34'35vs :: (Curry t1001) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1001) (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t1001))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1001+c_allValuesB'46partition'46692'46_'35selFP34'35vs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_6(x2)(x1)(st))(st)++++c_allValuesB'46partition'46692'46_'35selFP35'35ors :: (Curry t1001) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1001) (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t1001))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t1001)+c_allValuesB'46partition'46692'46_'35selFP35'35ors x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_5(x2)(x1)(st))(st)++++c_allValuesB'46partition'46692'46_'35selFP37'35vs :: (Curry t1001) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1001) (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t1001))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1001+c_allValuesB'46partition'46692'46_'35selFP37'35vs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_4(x2)(x1)(st))(st)++++c_allValuesB'46partition'46692'46_'35selFP38'35ors :: (Curry t1001) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1001) (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t1001))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t1001)+c_allValuesB'46partition'46692'46_'35selFP38'35ors x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_3(x2)(x1)(st))(st)++++c_allValuesB'46unfoldOrs'46692 :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t0)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_allValuesB'46unfoldOrs'46692 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_2(x2)(x1)(st))(st)++++c_allValuesB'46unfoldOrs'46692'46_'35selFP40'35vals :: (Curry t1014) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1014) (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t1014))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1014+c_allValuesB'46unfoldOrs'46692'46_'35selFP40'35vals x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_1(x2)(x1)(st))(st)++++c_allValuesB'46unfoldOrs'46692'46_'35selFP41'35ors :: (Curry t1014) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1014) (Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t1014))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.C_SearchTree t1014)+c_allValuesB'46unfoldOrs'46692'46_'35selFP41'35ors x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_0(x2)(x1)(st))(st)++++c_inject :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success))+c_inject x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_inject'46_'35lambda14(x2)(x3)))))(st)++++c_inject'46_'35lambda14 :: (Curry t1025) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1025 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1025 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success))) -> t1025 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success+c_inject'46_'35lambda14 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_38(Curry.Module.Oracle.c_apply(x3)(x4)(x1)(st))(Curry.Module.Oracle.c_apply(x2)(x4)(x5)(st))(x6)(st))(st)++++c_PEVAL :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_PEVAL x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++++c_unknown :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_unknown x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_unknown(x1)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_0_case__155(x1)(x2)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_1_case__154(x1)(x2)(st))(st)++++c__case_2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_2_case__153(x1)(x2)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_3_case__152(x1)(x2)(st))(st)++++c__case_4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_4_case__151(x1)(x2)(st))(st)++++c__case_5 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_5_case__150(x1)(x2)(st))(st)++++c__case_6 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_6_case__149(x1)(x2)(st))(st)++++c__case_7 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_7_case__148(x1)(x3)(x2)(st))(st)++++c__case_8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_8_case__147(x1)(x2)(st))(st)++++c__case_9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_9_case__146(x1)(x2)(st))(st)++++c__case_10 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_10_case__145(x1)(x2)(x3)(st))(st)++++c__case_11 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_11_case__144(x1)(x2)(st))(st)++++c__case_12 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_12_case__143(x1)(x2)(x3)(x4)(st))(st)++++c__case_13 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_13_case__142(x1)(x2)(x3)(x4)(st))(st)++++c__case_14 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_14_case__141(x1)(x4)(st))(st)++++c__case_15 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_15_case__140(x1)(x2)(st))(st)++++c__case_16 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_16_case__139(x1)(x2)(st))(st)++++c__case_17 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_17_case__138(x1)(x2)(st))(st)++++c__case_18 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_18_case__137(x1)(x2)(st))(st)++++c__case_19 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_19_case__136(x1)(x2)(st))(st)++++c__case_20 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_20_case__135(x1)(x2)(st))(st)++++c__case_21 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_21_case__134(x1)(x2)(st))(st)++++c__case_24 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_24_case__133(x1)(x3)(x2)(st))(st)++++c__case_22 x10 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_22_case__132(x1)(x10)(x3)(st))(st)++++c__case_23 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_23_case__131(x1)(x4)(x3)(st))(st)++++c__case_27 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_27_case__130(x1)(x3)(x2)(st))(st)++++c__case_25 x7 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_25_case__129(x1)(x7)(x3)(st))(st)++++c__case_26 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_26_case__128(x1)(x4)(x3)(st))(st)++++c__case_28 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_28_case__127(x1)(x2)(x3)(st))(st)++++c__case_31 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_31_case__126(x1)(x3)(x2)(st))(st)++++c__case_29 x2 x7 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_29_case__125(x1)(x2)(x7)(x3)(st))(st)++++c__case_30 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_30_case__124(x1)(x2)(x4)(x3)(st))(st)++++c__case_32 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_32_case__123(x1)(x3)(x2)(st))(st)++++c__case_40 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_40_case__122(x1)(x2)(x3)(x4)(st))(st)++++c__case_39 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_39_case__121(x1)(x2)(x3)(x4)(st))(st)++++c__case_38 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_38_case__120(x1)(x2)(x3)(x4)(st))(st)++++c__case_37 x2 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_37_case__119(x1)(x2)(x3)(x6)(st))(st)++++c__case_36 x2 x3 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_36_case__118(x1)(x2)(x3)(x5)(x4)(st))(st)++++c__case_35 x2 x3 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_35_case__117(x1)(x2)(x3)(x6)(x5)(st))(st)++++c__case_34 x2 x3 x6 x7 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_34_case__116(x1)(x6)(x10)(st))(st)++++c__case_33 x6 x9 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_33_case__115(x1)(x6)(x9)(x8)(st))(st)++++c__case_41 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_41_case__114(x1)(x2)(st))(st)++++c__case_42 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_42_case__113(x1)(x2)(st))(st)++++c__case_45 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_45_case__112(x1)(x3)(x2)(st))(st)++++c__case_43 x7 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_43_case__111(x1)(x7)(x3)(st))(st)++++c__case_44 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_44_case__110(x1)(x4)(x3)(st))(st)++++c__case_46 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_46_case__109(x1)(x2)(st))(st)++++c__case_48 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_48_case__108(x1)(x2)(st))(st)++++c__case_47 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_47_case__107(x1)(x4)(st))(st)++++c__case_50 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_50_case__106(x1)(x2)(st))(st)++++c__case_49 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_49_case__105(x1)(x4)(st))(st)++++c__case_52 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_52_case__104(x1)(x2)(st))(st)++++c__case_51 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_51_case__103(x1)(x3)(st))(st)++++c__case_53 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_53_case__102(x1)(x3)(x2)(st))(st)++++c__case_56 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_56_case__101(x1)(x2)(x3)(st))(st)++++c__case_54 x7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_54_case__100(x1)(x7)(x2)(st))(st)++++c__case_55 x4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_55_case__99(x1)(x4)(x2)(st))(st)++++c__case_59 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_59_case__98(x1)(x3)(x2)(st))(st)++++c__case_57 x7 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_57_case__97(x1)(x7)(x3)(st))(st)++++c__case_58 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_58_case__96(x1)(x4)(x3)(st))(st)++++c__case_63 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_63_case__95(x1)(x3)(x2)(st))(st)++++c__case_60 x9 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_60_case__94(x1)(x9)(x3)(st))(st)++++c__case_61 x6 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_61_case__93(x1)(x6)(x3)(st))(st)++++c__case_62 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_62_case__92(x1)(x3)(st))(st)++++c__case_66 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_66_case__91(x1)(x3)(x2)(st))(st)++++c__case_64 x7 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_64_case__90(x1)(x7)(x3)(st))(st)++++c__case_65 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_65_case__89(x1)(x4)(x3)(st))(st)++++c__case_67 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_67_case__88(x1)(x2)(st))(st)++++c__case_69 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_69_case__87(x1)(x2)(x5)(x6)(st))(st)++++c__case_68 x2 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_68_case__86(x1)(x2)(x5)(x6)(st))(st)++++c__case_70 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_70_case__85(x1)(x2)(x3)(x4)(st))(st)++++c__case_74 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_74_case__84(x1)(x2)(x3)(st))(st)++++c__case_73 x2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_73_case__83(x1)(x2)(x5)(x4)(st))(st)++++c__case_72 x2 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_72_case__82(x1)(x2)(x5)(x7)(x8)(st))(st)++++c__case_71 x2 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_71_case__81(x1)(x2)(x5)(x6)(st))(st)++++c__case_75 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_75_case__80(x1)(x2)(x3)(st))(st)++++c__case_76 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_76_case__79(x1)(x2)(st))(st)++++c__case_77 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_77_case__78(x1)(x2)(st))(st)++++c__case_78 x3 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_78_case__77(x1)(x3)(x7)(st))(st)++++c__case_79 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_79_case__76(x1)(x2)(st))(st)++++c__case_80 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_80_case__75(x1)(x2)(st))(st)++++c__case_81 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_81_case__74(x1)(x2)(st))(st)++++c__case_82 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_82_case__73(x1)(x2)(st))(st)++++c__case_84 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_84_case__72(x1)(x2)(st))(st)++++c__case_83 x3 x4 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_83_case__71(x1)(x3)(x4)(x8)(st))(st)++++c__case_85 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_85_case__70(x1)(x2)(st))(st)++++c__case_86 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_86_case__69(x1)(x2)(st))(st)++++c__case_87 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_87_case__68(x1)(x2)(st))(st)++++c__case_90 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_90_case__67(x1)(x2)(x3)(st))(st)++++c__case_89 x2 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_89_case__66(x1)(x2)(x4)(x5)(x9)(st))(st)++++c__case_88 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_88_case__65(x1)(x4)(x5)(x6)(st))(st)++++c__case_92 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_92_case__64(x1)(x2)(x3)(st))(st)++++c__case_91 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_91_case__63(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_94 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_94_case__62(x1)(x2)(x3)(st))(st)++++c__case_93 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_93_case__61(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_95 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_95_case__60(x1)(x2)(st))(st)++++c__case_96 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_96_case__59(x1)(x2)(st))(st)++++c__case_97 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_97_case__58(x1)(x2)(x3)(st))(st)++++c__case_98 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_98_case__57(x1)(x2)(x3)(x4)(st))(st)++++c__case_99 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_99_case__56(x1)(x2)(x3)(st))(st)++++c__case_100 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_100_case__55(x1)(x2)(x3)(x4)(st))(st)++++c__case_102 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_102_case__54(x1)(x3)(x2)(st))(st)++++c__case_101 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_101_case__53(x1)(x5)(x3)(st))(st)++++c__case_103 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_103_case__52(x1)(x2)(st))(st)++++c__case_104 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_104_case__51(x1)(x2)(st))(st)++++c__case_105 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_105_case__50(x1)(x2)(st))(st)++++c__case_107 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_107_case__49(x1)(x2)(st))(st)++++c__case_106 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_106_case__48(x1)(x4)(x3)(st))(st)++++c__case_108 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_108_case__47(x1)(x2)(st))(st)++++c__case_109 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_109_case__46(x1)(x2)(st))(st)++++c__case_111 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_111_case__45(x1)(x2)(st))(st)++++c__case_110 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_110_case__44(x1)(x4)(x3)(st))(st)++++c__case_114 x2 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_114_case__43(x1)(x2)(x4)(x5)(x3)(st))(st)++++c__case_113 x2 x5 x6 x7 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_113_case__42(x1)(x2)(x5)(x6)(x7)(x4)(st))(st)++++c__case_112 x2 x6 x7 x8 x9 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_112_case__41(x1)(x2)(x6)(x7)(x8)(x9)(x5)(st))(st)++++c__case_116 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_116_case__40(x1)(x2)(x4)(x3)(st))(st)++++c__case_115 x2 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_115_case__39(x1)(x2)(x5)(x6)(x4)(st))(st)++++c__case_119 x3 x4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_119_case__38(x1)(x3)(x4)(x2)(st))(st)++++c__case_118 x4 x5 x6 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_118_case__37(x1)(x4)(x5)(x6)(x3)(st))(st)++++c__case_117 x5 x6 x7 x8 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_117_case__36(x1)(x5)(x6)(x7)(x8)(x4)(st))(st)++++c__case_121 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_121_case__35(x1)(x3)(x2)(st))(st)++++c__case_120 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_120_case__34(x1)(x4)(x5)(x3)(st))(st)++++c__case_123 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_123_case__33(x1)(x2)(x3)(st))(st)++++c__case_122 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_122_case__32(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_125 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_125_case__31(x1)(x2)(x3)(st))(st)++++c__case_124 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_124_case__30(x1)(x2)(x4)(x5)(st))(st)++++c__case_126 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_126_case__29(x1)(x2)(x3)(x4)(st))(st)++++c__case_127 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_127_case__28(x1)(x2)(x3)(st))(st)++++c__case_128 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_128_case__27(x1)(x2)(x3)(x4)(st))(st)++++c__case_129 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_129_case__26(x1)(x2)(x3)(st))(st)++++c__case_132 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_132_case__25(x1)(x3)(x2)(st))(st)++++c__case_131 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_131_case__24(x1)(x3)(x4)(x5)(x6)(st))(st)++++c__case_130 x3 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_130_case__23(x1)(x3)(x5)(x6)(st))(st)++++c__case_133 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_133_case__22(x1)(x2)(st))(st)++++c__case_134 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_134_case__21(x1)(x3)(x2)(st))(st)++++c__case_135 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_135_case__20(x1)(x2)(st))(st)++++c__case_136 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_136_case__19(x1)(x2)(st))(st)++++c__case_137 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_137_case__18(x1)(x2)(st))(st)++++c__case_138 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_138_case__17(x1)(x2)(st))(st)++++c__case_139 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_139_case__16(x1)(x2)(st))(st)++++c__case_140 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_140_case__15(x1)(x2)(x3)(x4)(st))(st)++++c__case_141 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_141_case__14(x1)(x2)(x3)(x4)(st))(st)++++c__case_145 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_145_case__13(x1)(x3)(x2)(st))(st)++++c__case_142 x9 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_142_case__12(x1)(x9)(x3)(st))(st)++++c__case_143 x6 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_143_case__11(x1)(x6)(x3)(st))(st)++++c__case_144 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_144_case__10(x1)(x3)(st))(st)++++c__case_146 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_146_case__9(x1)(x2)(st))(st)++++c__case_147 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_147_case__8(x1)(x2)(st))(st)++++c__case_148 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_148_case__7(x1)(x2)(st))(st)++++c__case_149 x3 x4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_149_case__6(x1)(x3)(x4)(x2)(st))(st)++++c__case_150 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_150_case__5(x1)(x2)(st))(st)++++c__case_151 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_151_case__4(x1)(x3)(x2)(st))(st)++++c__case_152 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_152_case__3(x1)(x3)(x2)(st))(st)++++c__case_153 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_153_case__2(x1)(x2)(st))(st)++++c__case_154 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_154_case__1(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_155 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_155_case__0(x1)(x2)(x3)(st))(st)++++c_prim_error :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_prim_error x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.c_prim_error(x2)(st))(st)++++c_failed :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_failed x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.c_failed(st))(st)++++op_61_61 :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_61_61 x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.op_61_61(x3)(x2)(st))(st)++++c_prim_ord :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_prim_ord x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.c_prim_ord(x2)(st))(st)++++c_prim_chr :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_prim_chr x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.c_prim_chr(x2)(st))(st)++++op_61_61_61 :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+op_61_61_61 x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.op_61_61_61(x3)(x2)(st))(st)++++op_38 :: Curry.Module.Prelude.C_Success -> Curry.Module.Prelude.C_Success -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success+op_38 x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.op_38(x3)(x2)(st))(st)++++c_return :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_return x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Prelude.c_return(x2)(st))))(st)++++c_prim_putChar :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_putChar x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Prelude.c_prim_putChar(x2)(st))))(st)++++c_getChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Char))+c_getChar x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Prelude.c_getChar(st))(st))))(st)++++c_prim_readFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_prim_readFile x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Prelude.c_prim_readFile(x2)(st))(st))))(st)++++c_prim_writeFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_writeFile x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Prelude.c_prim_writeFile(x3)(x2)(st))))(st)++++c_prim_appendFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_appendFile x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Prelude.c_prim_appendFile(x3)(x2)(st))))(st)++++c_prim_show :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prim_show x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.c_prim_show(x2)(st))(st)++++c_getSearchTree :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_SearchTree t0)))+c_getSearchTree x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Prelude.c_getSearchTree(x2)(st))))(st)++++c_cond :: (Curry t0) => Curry.Module.Prelude.C_Success -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_cond x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.c_cond(x3)(x2)(st))(st)++++op_61_58_60_61 :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Success+op_61_58_60_61 x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.op_61_58_60_61(x3)(x2)(st))(st)++++c__case_155_case__0 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x5)(x6)(st))(st)+c__case_155_case__0 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_155_case__0(x1)(x2)(x)(st))(i)(xs)(st)+c__case_155_case__0 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_155_case__0")(x)++++c__case_154_case__1 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_154_case__1 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_until(x2)(x3)(Curry.Module.Oracle.c_apply(x3)(x4)(x1)(st))(x6)(st))(st)+c__case_154_case__1 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_154_case__1(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_154_case__1 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_154_case__1")(x)++++c__case_153_case__2 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_153_case__2 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x3)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_ensureSpine(x1)(st))(x4)(x5)(st)))(st)+c__case_153_case__2 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_153_case__2(x1)(x)(st))(i)(xs)(st)+c__case_153_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_153_case__2")(x)++++c__case_152_case__3 x1 x3 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_152_case__3 x1 x3 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_152_case__3 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_152_case__3(x1)(x3)(x)(st))(i)(xs)(st)+c__case_152_case__3 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_152_case__3")(x)++++c__case_151_case__4 x1 x3 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_151_case__4 x1 x3 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_151_case__4 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_151_case__4(x1)(x3)(x)(st))(i)(xs)(st)+c__case_151_case__4 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_151_case__4")(x)++++c__case_150_case__5 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_150_case__5 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_150_case__5 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_150_case__5(x1)(x)(st))(i)(xs)(st)+c__case_150_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_150_case__5")(x)++++c__case_149_case__6 x1 x3 x4 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_149_case__6 x1 x3 x4 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_149_case__6 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_149_case__6(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_149_case__6 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_149_case__6")(x)++++c__case_148_case__7 x1 x2@Curry.Module.Prelude.C_LT st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_148_case__7 x1 x2@Curry.Module.Prelude.C_GT st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_148_case__7 x1 x2@Curry.Module.Prelude.C_EQ st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_148_case__7 x1 (Curry.Module.Prelude.C_OrderingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_148_case__7(x1)(x)(st))(i)(xs)(st)+c__case_148_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_148_case__7")(x)++++c__case_147_case__8 x1 x2@Curry.Module.Prelude.C_LT st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_147_case__8 x1 x2@Curry.Module.Prelude.C_GT st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_147_case__8 x1 x2@Curry.Module.Prelude.C_EQ st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_147_case__8 x1 (Curry.Module.Prelude.C_OrderingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_147_case__8(x1)(x)(st))(i)(xs)(st)+c__case_147_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_147_case__8")(x)++++c__case_146_case__9 x1 x2@Curry.Module.Prelude.C_LT st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_146_case__9 x1 x2@Curry.Module.Prelude.C_GT st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_146_case__9 x1 x2@Curry.Module.Prelude.C_EQ st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_146_case__9 x1 (Curry.Module.Prelude.C_OrderingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_146_case__9(x1)(x)(st))(i)(xs)(st)+c__case_146_case__9 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_146_case__9")(x)++++c__case_144_case__10 x1 x3@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_EQ)(st)+c__case_144_case__10 x1 x3@(Curry.Module.Prelude.C_Pos x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_144_case__10 x1 x3@(Curry.Module.Prelude.C_Neg x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_144_case__10 x1 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_144_case__10(x1)(x)(st))(i)(xs)(st)+c__case_144_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_144_case__10")(x)++++c__case_143_case__11 x1 x6 x3@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_143_case__11 x1 x6 x3@(Curry.Module.Prelude.C_Pos x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNat(x6)(x7)(x1)(st))(st)+c__case_143_case__11 x1 x6 x3@(Curry.Module.Prelude.C_Neg x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_143_case__11 x1 x6 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_143_case__11(x1)(x6)(x)(st))(i)(xs)(st)+c__case_143_case__11 x1 x6 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_143_case__11")(x)++++c__case_142_case__12 x1 x9 x3@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_142_case__12 x1 x9 x3@(Curry.Module.Prelude.C_Pos x10) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_142_case__12 x1 x9 x3@(Curry.Module.Prelude.C_Neg x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNat(x11)(x9)(x1)(st))(st)+c__case_142_case__12 x1 x9 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_142_case__12(x1)(x9)(x)(st))(i)(xs)(st)+c__case_142_case__12 x1 x9 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_142_case__12")(x)++++c__case_145_case__13 x1 x3 x2@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_144(x3)(x1)(st))(st)+c__case_145_case__13 x1 x3 x2@(Curry.Module.Prelude.C_Pos x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_143(x6)(x3)(x1)(st))(st)+c__case_145_case__13 x1 x3 x2@(Curry.Module.Prelude.C_Neg x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_142(x9)(x3)(x1)(st))(st)+c__case_145_case__13 x1 x3 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_145_case__13(x1)(x3)(x)(st))(i)(xs)(st)+c__case_145_case__13 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_145_case__13")(x)++++c__case_141_case__14 x1 x2 x3 x4@Curry.Module.Prelude.C_LT st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_141_case__14 x1 x2 x3 x4@Curry.Module.Prelude.C_EQ st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_141_case__14 x1 x2 x3 x4@Curry.Module.Prelude.C_GT st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_141_case__14 x1 x2 x3 (Curry.Module.Prelude.C_OrderingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_141_case__14(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_141_case__14 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_141_case__14")(x)++++c__case_140_case__15 x1 x2 x3 x4@Curry.Module.Prelude.C_GT st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_140_case__15 x1 x2 x3 x4@Curry.Module.Prelude.C_LT st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_140_case__15 x1 x2 x3 x4@Curry.Module.Prelude.C_EQ st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_140_case__15 x1 x2 x3 (Curry.Module.Prelude.C_OrderingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_140_case__15(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_140_case__15 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_140_case__15")(x)++++c__case_139_case__16 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_139_case__16 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_139_case__16(x1)(x)(st))(i)(xs)(st)+c__case_139_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_139_case__16")(x)++++c__case_138_case__17 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_138_case__17 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_138_case__17(x1)(x)(st))(i)(xs)(st)+c__case_138_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_138_case__17")(x)++++c__case_137_case__18 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_137_case__18 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_137_case__18(x1)(x)(st))(i)(xs)(st)+c__case_137_case__18 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_137_case__18")(x)++++c__case_136_case__19 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_136_case__19 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_136_case__19(x1)(x)(st))(i)(xs)(st)+c__case_136_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_136_case__19")(x)++++c__case_135_case__20 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_135_case__20 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_135_case__20 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_135_case__20(x1)(x)(st))(i)(xs)(st)+c__case_135_case__20 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_135_case__20")(x)++++c__case_134_case__21 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_134_case__21 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.OraclePrelude.op_43_43(x5)(x3)(x1)(st)))(st)+c__case_134_case__21 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_134_case__21(x1)(x3)(x)(st))(i)(xs)(st)+c__case_134_case__21 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_134_case__21")(x)++++c__case_133_case__22 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_133_case__22 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.OraclePrelude.c_length(x4)(x1)(st))(x5)(st))(st)+c__case_133_case__22 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_133_case__22(x1)(x)(st))(i)(xs)(st)+c__case_133_case__22 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_133_case__22")(x)++++c__case_130_case__23 x1 x3 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_33_33(x5)(Curry.Module.OraclePrelude.op_45(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x7)(st))(st)+c__case_130_case__23 x1 x3 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_130_case__23 x1 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_130_case__23(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_130_case__23 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_130_case__23")(x)++++c__case_131_case__24 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_131_case__24 x1 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_130(x3)(x5)(Curry.Module.OraclePrelude.op_62(x3)(Curry.Module.Prelude.C_Zero)(x1)(st))(x7)(st))(st)+c__case_131_case__24 x1 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_131_case__24(x1)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_131_case__24 x1 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_131_case__24")(x)++++c__case_132_case__25 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_131(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Zero)(x1)(st))(x6)(st))(st)+c__case_132_case__25 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_132_case__25(x1)(x3)(x)(st))(i)(xs)(st)+c__case_132_case__25 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_132_case__25")(x)++++c__case_129_case__26 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_129_case__26 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(Curry.Module.OraclePrelude.c_map(x2)(x5)(x6)(st)))(st)+c__case_129_case__26 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_129_case__26(x1)(x2)(x)(st))(i)(xs)(st)+c__case_129_case__26 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_129_case__26")(x)++++c__case_128_case__27 x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_128_case__27 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_foldl(x2)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(x5)(x7)(st))(x6)(x8)(st))(st)+c__case_128_case__27 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_128_case__27(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_128_case__27 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_128_case__27")(x)++++c__case_127_case__28 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldl(x2)(x4)(x5)(x1)(st))(st)+c__case_127_case__28 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_127_case__28(x1)(x2)(x)(st))(i)(xs)(st)+c__case_127_case__28 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_127_case__28")(x)++++c__case_126_case__29 x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_126_case__29 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(Curry.Module.OraclePrelude.c_foldr(x2)(x3)(x6)(x7)(st))(x8)(st))(st)+c__case_126_case__29 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_126_case__29(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_126_case__29 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_126_case__29")(x)++++c__case_124_case__30 x1 x2 x4 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_124_case__30 x1 x2 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(Curry.Module.OraclePrelude.c_foldr1(x2)((Curry.Module.Prelude.:<)(x6)(x7))(x8)(st))(x9)(st))(st)+c__case_124_case__30 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_124_case__30(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_124_case__30 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_124_case__30")(x)++++c__case_125_case__31 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_124(x2)(x4)(x5)(x1)(st))(st)+c__case_125_case__31 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_125_case__31(x1)(x2)(x)(st))(i)(xs)(st)+c__case_125_case__31 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_125_case__31")(x)++++c__case_122_case__32 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.OraclePrelude.c_filter(x2)(x5)(x1)(st)))(st)+c__case_122_case__32 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_filter(x2)(x5)(x1)(st))(st)+c__case_122_case__32 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_122_case__32(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_122_case__32 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_122_case__32")(x)++++c__case_123_case__33 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_123_case__33 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_122(x2)(x4)(x5)(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x6)(st))(st)+c__case_123_case__33 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_123_case__33(x1)(x2)(x)(st))(i)(xs)(st)+c__case_123_case__33 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_123_case__33")(x)++++c__case_120_case__34 x1 x4 x5 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_120_case__34 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x4)(x6))(Curry.Module.OraclePrelude.c_zip(x5)(x7)(x1)(st)))(st)+c__case_120_case__34 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_120_case__34(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_120_case__34 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_120_case__34")(x)++++c__case_121_case__35 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_121_case__35 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_120(x4)(x5)(x3)(x1)(st))(st)+c__case_121_case__35 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_121_case__35(x1)(x3)(x)(st))(i)(xs)(st)+c__case_121_case__35 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_121_case__35")(x)++++c__case_117_case__36 x1 x5 x6 x7 x8 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_117_case__36 x1 x5 x6 x7 x8 x4@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T3(x5)(x7)(x9))(Curry.Module.OraclePrelude.c_zip3(x6)(x8)(x10)(x1)(st)))(st)+c__case_117_case__36 x1 x5 x6 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_117_case__36(x1)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_117_case__36 x1 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_117_case__36")(x)++++c__case_118_case__37 x1 x4 x5 x6 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_118_case__37 x1 x4 x5 x6 x3@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_117(x5)(x6)(x7)(x8)(x4)(x1)(st))(st)+c__case_118_case__37 x1 x4 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_118_case__37(x1)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_118_case__37 x1 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_118_case__37")(x)++++c__case_119_case__38 x1 x3 x4 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_119_case__38 x1 x3 x4 x2@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_118(x4)(x5)(x6)(x3)(x1)(st))(st)+c__case_119_case__38 x1 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_119_case__38(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_119_case__38 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_119_case__38")(x)++++c__case_115_case__39 x1 x2 x5 x6 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_115_case__39 x1 x2 x5 x6 x4@((Curry.Module.Prelude.:<) x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x7)(x9)(st))(Curry.Module.OraclePrelude.c_zipWith(x2)(x6)(x8)(x10)(st)))(st)+c__case_115_case__39 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_115_case__39(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_115_case__39 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_115_case__39")(x)++++c__case_116_case__40 x1 x2 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_116_case__40 x1 x2 x4 x3@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_115(x2)(x5)(x6)(x4)(x1)(st))(st)+c__case_116_case__40 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_116_case__40(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_116_case__40 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_116_case__40")(x)++++c__case_112_case__41 x1 x2 x6 x7 x8 x9 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_112_case__41 x1 x2 x6 x7 x8 x9 x5@((Curry.Module.Prelude.:<) x10 x11) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x6)(x1)(st))(x8)(x12)(st))(x10)(x13)(st))(Curry.Module.OraclePrelude.c_zipWith3(x2)(x7)(x9)(x11)(x14)(st)))(st)+c__case_112_case__41 x1 x2 x6 x7 x8 x9 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_112_case__41(x1)(x2)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_112_case__41 x1 x2 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_112_case__41")(x)++++c__case_113_case__42 x1 x2 x5 x6 x7 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_113_case__42 x1 x2 x5 x6 x7 x4@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_112(x2)(x6)(x7)(x8)(x9)(x5)(x1)(st))(st)+c__case_113_case__42 x1 x2 x5 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_113_case__42(x1)(x2)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_113_case__42 x1 x2 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_113_case__42")(x)++++c__case_114_case__43 x1 x2 x4 x5 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_114_case__43 x1 x2 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_113(x2)(x5)(x6)(x7)(x4)(x1)(st))(st)+c__case_114_case__43 x1 x2 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_114_case__43(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_114_case__43 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_114_case__43")(x)++++c__case_110_case__44 x1 x4 x3@(Curry.Module.Prelude.T2 x5 x6) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OraclePrelude.c_unzip(x4)(x1)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x12)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x5)(Curry.Module.OraclePrelude.c_unzip'46_'35selFP3'35xs(x7)(x10)(st)))((Curry.Module.Prelude.:<)(x6)(Curry.Module.OraclePrelude.c_unzip'46_'35selFP4'35ys(x7)(x11)(st))))(st))(st))(st))(st)+c__case_110_case__44 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_110_case__44(x1)(x4)(x)(st))(i)(xs)(st)+c__case_110_case__44 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_110_case__44")(x)++++c__case_111_case__45 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_111_case__45 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_110(x4)(x3)(x1)(st))(st)+c__case_111_case__45 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_111_case__45(x1)(x)(st))(i)(xs)(st)+c__case_111_case__45 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_111_case__45")(x)++++c__case_109_case__46 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_109_case__46 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_109_case__46(x1)(x)(st))(i)(xs)(st)+c__case_109_case__46 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_109_case__46")(x)++++c__case_108_case__47 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_108_case__47 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_108_case__47(x1)(x)(st))(i)(xs)(st)+c__case_108_case__47 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_108_case__47")(x)++++c__case_106_case__48 x1 x4 x3@(Curry.Module.Prelude.T3 x5 x6 x7) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x8 = Curry.Module.OraclePrelude.c_unzip3(x4)(x1)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x15)(Curry.Module.Prelude.T3((Curry.Module.Prelude.:<)(x5)(Curry.Module.OraclePrelude.c_unzip3'46_'35selFP6'35xs(x8)(x12)(st)))((Curry.Module.Prelude.:<)(x6)(Curry.Module.OraclePrelude.c_unzip3'46_'35selFP7'35ys(x8)(x13)(st)))((Curry.Module.Prelude.:<)(x7)(Curry.Module.OraclePrelude.c_unzip3'46_'35selFP8'35zs(x8)(x14)(st))))(st))(st))(st))(st))(st)+c__case_106_case__48 x1 x4 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_106_case__48(x1)(x4)(x)(st))(i)(xs)(st)+c__case_106_case__48 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_106_case__48")(x)++++c__case_107_case__49 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T3(Curry.Module.Prelude.List)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_107_case__49 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_106(x4)(x3)(x1)(st))(st)+c__case_107_case__49 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_107_case__49(x1)(x)(st))(i)(xs)(st)+c__case_107_case__49 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_107_case__49")(x)++++c__case_105_case__50 x1 x2@(Curry.Module.Prelude.T3 x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_105_case__50 x1 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_105_case__50(x1)(x)(st))(i)(xs)(st)+c__case_105_case__50 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_105_case__50")(x)++++c__case_104_case__51 x1 x2@(Curry.Module.Prelude.T3 x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_104_case__51 x1 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_104_case__51(x1)(x)(st))(i)(xs)(st)+c__case_104_case__51 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_104_case__51")(x)++++c__case_103_case__52 x1 x2@(Curry.Module.Prelude.T3 x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_103_case__52 x1 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_103_case__52(x1)(x)(st))(i)(xs)(st)+c__case_103_case__52 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_103_case__52")(x)++++c__case_101_case__53 x1 x5 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_101_case__53 x1 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x6)(Curry.Module.OraclePrelude.c_take(Curry.Module.OraclePrelude.op_45(Curry.Module.Prelude.C_Pos(x5))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x7)(x8)(st)))(st)+c__case_101_case__53 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_101_case__53(x1)(x5)(x)(st))(i)(xs)(st)+c__case_101_case__53 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_101_case__53")(x)++++c__case_102_case__54 x1 x3 x2@(Curry.Module.Prelude.C_Neg x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_102_case__54 x1 x3 x2@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_102_case__54 x1 x3 x2@(Curry.Module.Prelude.C_Pos x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_101(x5)(x3)(x1)(st))(st)+c__case_102_case__54 x1 x3 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_102_case__54(x1)(x3)(x)(st))(i)(xs)(st)+c__case_102_case__54 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_102_case__54")(x)++++c__case_100_case__55 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_100_case__55 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_drop'46dropp'46272(x2)(x3)(x1)(st))(st)+c__case_100_case__55 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_100_case__55(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_100_case__55 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_100_case__55")(x)++++c__case_99_case__56 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_99_case__56 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_drop(Curry.Module.OraclePrelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x5)(x6)(st))(st)+c__case_99_case__56 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_99_case__56(x1)(x2)(x)(st))(i)(xs)(st)+c__case_99_case__56 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_99_case__56")(x)++++c__case_98_case__57 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(x3))(st)+c__case_98_case__57 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_splitAt'46splitAtp'46282(x2)(x3)(x1)(st))(st)+c__case_98_case__57 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_98_case__57(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_98_case__57 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_98_case__57")(x)++++c__case_97_case__58 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_97_case__58 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(let {x6 = Curry.Module.OraclePrelude.c_splitAt(Curry.Module.OraclePrelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x5)(x9)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x12)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x4)(Curry.Module.OraclePrelude.c_splitAt'46splitAtp'46282'46_'35selFP10'35ys(x6)(x10)(st)))(Curry.Module.OraclePrelude.c_splitAt'46splitAtp'46282'46_'35selFP11'35zs(x6)(x11)(st)))(st))(st))(st))(st)+c__case_97_case__58 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_97_case__58(x1)(x2)(x)(st))(i)(xs)(st)+c__case_97_case__58 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_97_case__58")(x)++++c__case_96_case__59 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_96_case__59 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_96_case__59(x1)(x)(st))(i)(xs)(st)+c__case_96_case__59 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_96_case__59")(x)++++c__case_95_case__60 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_95_case__60 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_95_case__60(x1)(x)(st))(i)(xs)(st)+c__case_95_case__60 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_95_case__60")(x)++++c__case_93_case__61 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.OraclePrelude.c_takeWhile(x2)(x5)(x1)(st)))(st)+c__case_93_case__61 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_93_case__61 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_93_case__61(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_93_case__61 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_93_case__61")(x)++++c__case_94_case__62 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_94_case__62 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_93(x2)(x4)(x5)(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x6)(st))(st)+c__case_94_case__62 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_94_case__62(x1)(x2)(x)(st))(i)(xs)(st)+c__case_94_case__62 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_94_case__62")(x)++++c__case_91_case__63 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_dropWhile(x2)(x5)(x1)(st))(st)+c__case_91_case__63 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(x5))(st)+c__case_91_case__63 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_91_case__63(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_91_case__63 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_91_case__63")(x)++++c__case_92_case__64 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_92_case__64 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_91(x2)(x4)(x5)(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x6)(st))(st)+c__case_92_case__64 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_92_case__64(x1)(x2)(x)(st))(i)(xs)(st)+c__case_92_case__64 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_92_case__64")(x)++++c__case_88_case__65 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(x4)(x5)))(st)+c__case_88_case__65 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_88_case__65 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_88_case__65(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_88_case__65 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_88_case__65")(x)++++c__case_89_case__66 x1 x2 x4 x5 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OraclePrelude.c_span(x2)(x5)(x1)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x12)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x4)(Curry.Module.OraclePrelude.c_span'46_'35selFP13'35ys(x6)(x10)(st)))(Curry.Module.OraclePrelude.c_span'46_'35selFP14'35zs(x6)(x11)(st)))(st))(st))(st))(st)+c__case_89_case__66 x1 x2 x4 x5 x9@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_88(x4)(x5)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x13)(st))(st)+c__case_89_case__66 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_89_case__66(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_89_case__66 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_89_case__66")(x)++++c__case_90_case__67 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_90_case__67 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_89(x2)(x4)(x5)(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x6)(st))(st)+c__case_90_case__67 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_90_case__67(x1)(x2)(x)(st))(i)(xs)(st)+c__case_90_case__67 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_90_case__67")(x)++++c__case_87_case__68 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_87_case__68 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_87_case__68(x1)(x)(st))(i)(xs)(st)+c__case_87_case__68 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_87_case__68")(x)++++c__case_86_case__69 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_86_case__69 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_86_case__69(x1)(x)(st))(i)(xs)(st)+c__case_86_case__69 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_86_case__69")(x)++++c__case_85_case__70 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_85_case__70 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OraclePrelude.c_lines'46splitline'46314((Curry.Module.Prelude.:<)(x3)(x4))(x1)(st)} in let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x10)((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_lines'46_'35selFP19'35l(x5)(x8)(st))(Curry.Module.OraclePrelude.c_lines(Curry.Module.OraclePrelude.c_lines'46_'35selFP20'35xs_l(x5)(x9)(st))(x10)(st)))(st))(st))(st))(st)+c__case_85_case__70 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_85_case__70(x1)(x)(st))(i)(xs)(st)+c__case_85_case__70 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_85_case__70")(x)++++c__case_83_case__71 x1 x3 x4 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(x4))(st)+c__case_83_case__71 x1 x3 x4 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OraclePrelude.c_lines'46splitline'46314(x4)(x1)(st)} in let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x11)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x3)(Curry.Module.OraclePrelude.c_lines'46splitline'46314'46_'35selFP16'35ds(x5)(x9)(st)))(Curry.Module.OraclePrelude.c_lines'46splitline'46314'46_'35selFP17'35es(x5)(x10)(st)))(st))(st))(st))(st)+c__case_83_case__71 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_83_case__71(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_83_case__71 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_83_case__71")(x)++++c__case_84_case__72 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_84_case__72 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_83(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\n'))(x1)(st))(x5)(st))(st)+c__case_84_case__72 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_84_case__72(x1)(x)(st))(i)(xs)(st)+c__case_84_case__72 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_84_case__72")(x)++++c__case_82_case__73 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_82_case__73 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_82_case__73(x1)(x)(st))(i)(xs)(st)+c__case_82_case__73 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_82_case__73")(x)++++c__case_81_case__74 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_81_case__74 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_81_case__74(x1)(x)(st))(i)(xs)(st)+c__case_81_case__74 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_81_case__74")(x)++++c__case_80_case__75 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_80_case__75 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_80_case__75(x1)(x)(st))(i)(xs)(st)+c__case_80_case__75 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_80_case__75")(x)++++c__case_79_case__76 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_79_case__76 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_79_case__76(x1)(x)(st))(i)(xs)(st)+c__case_79_case__76 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_79_case__76")(x)++++c__case_78_case__77 x1 x3 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_78_case__77 x1 x3 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(let {x4 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_break(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_words'46isSpace'46326))))(x1)(st))(x3)(x8)(st)} in let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x11)((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_words'46_'35selFP22'35w(x4)(x9)(st))(Curry.Module.OraclePrelude.c_words(Curry.Module.OraclePrelude.c_words'46_'35selFP23'35s2(x4)(x10)(st))(x11)(st)))(st))(st))(st))(st)+c__case_78_case__77 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_78_case__77(x1)(x3)(x)(st))(i)(xs)(st)+c__case_78_case__77 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_78_case__77")(x)++++c__case_77_case__78 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_77_case__78 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_77_case__78(x1)(x)(st))(i)(xs)(st)+c__case_77_case__78 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_77_case__78")(x)++++c__case_76_case__79 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_76_case__79 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_76_case__79(x1)(x)(st))(i)(xs)(st)+c__case_76_case__79 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_76_case__79")(x)++++c__case_75_case__80 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_75_case__80 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldr1(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.c_unwords'46_'35lambda6))(st))(x2)(x1)(st))(st)+c__case_75_case__80 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_75_case__80(x1)(x2)(x)(st))(i)(xs)(st)+c__case_75_case__80 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_75_case__80")(x)++++c__case_71_case__81 x1 x2 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_lookup(x2)(x5)(x1)(st))(st)+c__case_71_case__81 x1 x2 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_71_case__81 x1 x2 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_71_case__81(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_71_case__81 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_71_case__81")(x)++++c__case_72_case__82 x1 x2 x5 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just(x7))(st)+c__case_72_case__82 x1 x2 x5 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_71(x2)(x5)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x9)(st))(st)+c__case_72_case__82 x1 x2 x5 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_72_case__82(x1)(x2)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_72_case__82 x1 x2 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_72_case__82")(x)++++c__case_73_case__83 x1 x2 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_72(x2)(x5)(x6)(x7)(Curry.Module.OraclePrelude.op_61_61(x2)(x6)(x1)(st))(x8)(st))(st)+c__case_73_case__83 x1 x2 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_73_case__83(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_73_case__83 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_73_case__83")(x)++++c__case_74_case__84 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_74_case__84 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_73(x2)(x5)(x4)(x1)(st))(st)+c__case_74_case__84 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_74_case__84(x1)(x2)(x)(st))(i)(xs)(st)+c__case_74_case__84 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_74_case__84")(x)++++c__case_70_case__85 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_70_case__85 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.OraclePrelude.c_enumFromTo(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x3)(x5)(st)))(st)+c__case_70_case__85 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_70_case__85(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_70_case__85 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_70_case__85")(x)++++c__case_68_case__86 x1 x2 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_62_61(x5)(x2)(x1)(st))(st)+c__case_68_case__86 x1 x2 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_68_case__86 x1 x2 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_68_case__86(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_68_case__86 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_68_case__86")(x)++++c__case_69_case__87 x1 x2 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_60_61(x5)(x2)(x1)(st))(st)+c__case_69_case__87 x1 x2 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_68(x2)(x5)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x7)(st))(st)+c__case_69_case__87 x1 x2 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_69_case__87(x1)(x2)(x5)(x)(st))(i)(xs)(st)+c__case_69_case__87 x1 x2 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_69_case__87")(x)++++c__case_67_case__88 x1 x2@(Curry.Module.Prelude.C_O x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_I(x3))(st)+c__case_67_case__88 x1 x2@(Curry.Module.Prelude.C_I x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_O(Curry.Module.OraclePrelude.c_succ(x4)(x1)(st)))(st)+c__case_67_case__88 x1 x2@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))(st)+c__case_67_case__88 x1 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_67_case__88(x1)(x)(st))(i)(xs)(st)+c__case_67_case__88 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_67_case__88")(x)++++c__case_65_case__89 x1 x4 x3@(Curry.Module.Prelude.C_O x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_O(Curry.Module.OraclePrelude.op_43_94(x4)(x5)(x1)(st)))(st)+c__case_65_case__89 x1 x4 x3@(Curry.Module.Prelude.C_I x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_I(Curry.Module.OraclePrelude.op_43_94(x4)(x6)(x1)(st)))(st)+c__case_65_case__89 x1 x4 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_I(x4))(st)+c__case_65_case__89 x1 x4 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_65_case__89(x1)(x4)(x)(st))(i)(xs)(st)+c__case_65_case__89 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_65_case__89")(x)++++c__case_64_case__90 x1 x7 x3@(Curry.Module.Prelude.C_O x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_I(Curry.Module.OraclePrelude.op_43_94(x7)(x8)(x1)(st)))(st)+c__case_64_case__90 x1 x7 x3@(Curry.Module.Prelude.C_I x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.Prelude.C_O(Curry.Module.OraclePrelude.op_43_94(Curry.Module.OraclePrelude.c_succ(x7)(x1)(st))(x9)(x10)(st)))(st)+c__case_64_case__90 x1 x7 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_O(Curry.Module.OraclePrelude.c_succ(x7)(x1)(st)))(st)+c__case_64_case__90 x1 x7 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_64_case__90(x1)(x7)(x)(st))(i)(xs)(st)+c__case_64_case__90 x1 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_64_case__90")(x)++++c__case_66_case__91 x1 x3 x2@(Curry.Module.Prelude.C_O x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_65(x4)(x3)(x1)(st))(st)+c__case_66_case__91 x1 x3 x2@(Curry.Module.Prelude.C_I x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_64(x7)(x3)(x1)(st))(st)+c__case_66_case__91 x1 x3 x2@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_succ(x3)(x1)(st))(st)+c__case_66_case__91 x1 x3 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_66_case__91(x1)(x3)(x)(st))(i)(xs)(st)+c__case_66_case__91 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_66_case__91")(x)++++c__case_62_case__92 x1 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_EQ)(st)+c__case_62_case__92 x1 x3@(Curry.Module.Prelude.C_O x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_62_case__92 x1 x3@(Curry.Module.Prelude.C_I x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_62_case__92 x1 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_62_case__92(x1)(x)(st))(i)(xs)(st)+c__case_62_case__92 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_62_case__92")(x)++++c__case_61_case__93 x1 x6 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_61_case__93 x1 x6 x3@(Curry.Module.Prelude.C_O x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNat(x6)(x7)(x1)(st))(st)+c__case_61_case__93 x1 x6 x3@(Curry.Module.Prelude.C_I x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNatLT(x6)(x8)(x1)(st))(st)+c__case_61_case__93 x1 x6 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_61_case__93(x1)(x6)(x)(st))(i)(xs)(st)+c__case_61_case__93 x1 x6 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_61_case__93")(x)++++c__case_60_case__94 x1 x9 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_60_case__94 x1 x9 x3@(Curry.Module.Prelude.C_I x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNat(x9)(x10)(x1)(st))(st)+c__case_60_case__94 x1 x9 x3@(Curry.Module.Prelude.C_O x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNatGT(x9)(x11)(x1)(st))(st)+c__case_60_case__94 x1 x9 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_60_case__94(x1)(x9)(x)(st))(i)(xs)(st)+c__case_60_case__94 x1 x9 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_60_case__94")(x)++++c__case_63_case__95 x1 x3 x2@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_62(x3)(x1)(st))(st)+c__case_63_case__95 x1 x3 x2@(Curry.Module.Prelude.C_O x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_61(x6)(x3)(x1)(st))(st)+c__case_63_case__95 x1 x3 x2@(Curry.Module.Prelude.C_I x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_60(x9)(x3)(x1)(st))(st)+c__case_63_case__95 x1 x3 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_63_case__95(x1)(x3)(x)(st))(i)(xs)(st)+c__case_63_case__95 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_63_case__95")(x)++++c__case_58_case__96 x1 x4 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_58_case__96 x1 x4 x3@(Curry.Module.Prelude.C_O x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNatLT(x4)(x5)(x1)(st))(st)+c__case_58_case__96 x1 x4 x3@(Curry.Module.Prelude.C_I x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNatLT(x4)(x6)(x1)(st))(st)+c__case_58_case__96 x1 x4 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_58_case__96(x1)(x4)(x)(st))(i)(xs)(st)+c__case_58_case__96 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_58_case__96")(x)++++c__case_57_case__97 x1 x7 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_57_case__97 x1 x7 x3@(Curry.Module.Prelude.C_I x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNatLT(x7)(x8)(x1)(st))(st)+c__case_57_case__97 x1 x7 x3@(Curry.Module.Prelude.C_O x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNatGT(x7)(x9)(x1)(st))(st)+c__case_57_case__97 x1 x7 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_57_case__97(x1)(x7)(x)(st))(i)(xs)(st)+c__case_57_case__97 x1 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_57_case__97")(x)++++c__case_59_case__98 x1 x3 x2@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_59_case__98 x1 x3 x2@(Curry.Module.Prelude.C_O x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_58(x4)(x3)(x1)(st))(st)+c__case_59_case__98 x1 x3 x2@(Curry.Module.Prelude.C_I x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_57(x7)(x3)(x1)(st))(st)+c__case_59_case__98 x1 x3 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_59_case__98(x1)(x3)(x)(st))(i)(xs)(st)+c__case_59_case__98 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_59_case__98")(x)++++c__case_55_case__99 x1 x4 x2@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_55_case__99 x1 x4 x2@(Curry.Module.Prelude.C_O x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNatGT(x5)(x4)(x1)(st))(st)+c__case_55_case__99 x1 x4 x2@(Curry.Module.Prelude.C_I x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNatGT(x6)(x4)(x1)(st))(st)+c__case_55_case__99 x1 x4 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_55_case__99(x1)(x4)(x)(st))(i)(xs)(st)+c__case_55_case__99 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_55_case__99")(x)++++c__case_54_case__100 x1 x7 x2@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_54_case__100 x1 x7 x2@(Curry.Module.Prelude.C_I x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNatGT(x8)(x7)(x1)(st))(st)+c__case_54_case__100 x1 x7 x2@(Curry.Module.Prelude.C_O x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_cmpNatLT(x9)(x7)(x1)(st))(st)+c__case_54_case__100 x1 x7 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_54_case__100(x1)(x7)(x)(st))(i)(xs)(st)+c__case_54_case__100 x1 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_54_case__100")(x)++++c__case_56_case__101 x1 x2 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_56_case__101 x1 x2 x3@(Curry.Module.Prelude.C_O x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_55(x4)(x2)(x1)(st))(st)+c__case_56_case__101 x1 x2 x3@(Curry.Module.Prelude.C_I x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_54(x7)(x2)(x1)(st))(st)+c__case_56_case__101 x1 x2 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_56_case__101(x1)(x2)(x)(st))(i)(xs)(st)+c__case_56_case__101 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_56_case__101")(x)++++c__case_53_case__102 x1 x3 x2@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_53_case__102 x1 x3 x2@(Curry.Module.Prelude.C_I x4) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_94(Curry.Module.Prelude.C_O(Curry.Module.OraclePrelude.op_42_94(x3)(x4)(x1)(st)))(x3)(x6)(st))(st)+c__case_53_case__102 x1 x3 x2@(Curry.Module.Prelude.C_O x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_O(Curry.Module.OraclePrelude.op_42_94(x5)(x3)(x1)(st)))(st)+c__case_53_case__102 x1 x3 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_53_case__102(x1)(x3)(x)(st))(i)(xs)(st)+c__case_53_case__102 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_53_case__102")(x)++++c__case_51_case__103 x1 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_IHi)(st)+c__case_51_case__103 x1 x3@(Curry.Module.Prelude.C_O x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_I(Curry.Module.OraclePrelude.c_pred(x3)(x1)(st)))(st)+c__case_51_case__103 x1 x3@(Curry.Module.Prelude.C_I x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(x5)))(st)+c__case_51_case__103 x1 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_51_case__103(x1)(x)(st))(i)(xs)(st)+c__case_51_case__103 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_51_case__103")(x)++++c__case_52_case__104 x1 x2@(Curry.Module.Prelude.C_O x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_51(x3)(x1)(st))(st)+c__case_52_case__104 x1 x2@(Curry.Module.Prelude.C_I x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_O(x6))(st)+c__case_52_case__104 x1 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_52_case__104(x1)(x)(st))(i)(xs)(st)+c__case_52_case__104 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_52_case__104")(x)++++c__case_49_case__105 x1 x4@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_49_case__105 x1 x4@(Curry.Module.Prelude.C_O x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Neg(Curry.Module.OraclePrelude.c_pred(Curry.Module.Prelude.C_O(x5))(x1)(st)))(st)+c__case_49_case__105 x1 x4@(Curry.Module.Prelude.C_I x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Neg(Curry.Module.Prelude.C_O(x6)))(st)+c__case_49_case__105 x1 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_49_case__105(x1)(x)(st))(i)(xs)(st)+c__case_49_case__105 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_49_case__105")(x)++++c__case_50_case__106 x1 x2@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_50_case__106 x1 x2@(Curry.Module.Prelude.C_Pos x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.OraclePrelude.c_succ(x3)(x1)(st)))(st)+c__case_50_case__106 x1 x2@(Curry.Module.Prelude.C_Neg x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_49(x4)(x1)(st))(st)+c__case_50_case__106 x1 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_50_case__106(x1)(x)(st))(i)(xs)(st)+c__case_50_case__106 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_50_case__106")(x)++++c__case_47_case__107 x1 x4@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_47_case__107 x1 x4@(Curry.Module.Prelude.C_O x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.OraclePrelude.c_pred(Curry.Module.Prelude.C_O(x5))(x1)(st)))(st)+c__case_47_case__107 x1 x4@(Curry.Module.Prelude.C_I x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(x6)))(st)+c__case_47_case__107 x1 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_47_case__107(x1)(x)(st))(i)(xs)(st)+c__case_47_case__107 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_47_case__107")(x)++++c__case_48_case__108 x1 x2@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Neg(Curry.Module.Prelude.C_IHi))(st)+c__case_48_case__108 x1 x2@(Curry.Module.Prelude.C_Neg x3) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Neg(Curry.Module.OraclePrelude.c_succ(x3)(x1)(st)))(st)+c__case_48_case__108 x1 x2@(Curry.Module.Prelude.C_Pos x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_47(x4)(x1)(st))(st)+c__case_48_case__108 x1 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_48_case__108(x1)(x)(st))(i)(xs)(st)+c__case_48_case__108 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_48_case__108")(x)++++c__case_46_case__109 x1 x2@(Curry.Module.Prelude.C_Pos x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(x3)))(st)+c__case_46_case__109 x1 x2@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_46_case__109 x1 x2@(Curry.Module.Prelude.C_Neg x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Neg(Curry.Module.Prelude.C_O(x4)))(st)+c__case_46_case__109 x1 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_46_case__109(x1)(x)(st))(i)(xs)(st)+c__case_46_case__109 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_46_case__109")(x)++++c__case_44_case__110 x1 x4 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.OraclePrelude.c_pred(Curry.Module.Prelude.C_O(x4))(x1)(st)))(st)+c__case_44_case__110 x1 x4 x3@(Curry.Module.Prelude.C_O x5) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_mult2(Curry.Module.OraclePrelude.op_45_94(x4)(x5)(x1)(st))(x7)(st))(st)+c__case_44_case__110 x1 x4 x3@(Curry.Module.Prelude.C_I x6) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_dec(Curry.Module.OraclePrelude.c_mult2(Curry.Module.OraclePrelude.op_45_94(x4)(x6)(x1)(st))(x8)(st))(x9)(st))(st)+c__case_44_case__110 x1 x4 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_44_case__110(x1)(x4)(x)(st))(i)(xs)(st)+c__case_44_case__110 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_44_case__110")(x)++++c__case_43_case__111 x1 x7 x3@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(x7)))(st)+c__case_43_case__111 x1 x7 x3@(Curry.Module.Prelude.C_O x8) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_inc(Curry.Module.OraclePrelude.c_mult2(Curry.Module.OraclePrelude.op_45_94(x7)(x8)(x1)(st))(x10)(st))(x11)(st))(st)+c__case_43_case__111 x1 x7 x3@(Curry.Module.Prelude.C_I x9) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_mult2(Curry.Module.OraclePrelude.op_45_94(x7)(x9)(x1)(st))(x12)(st))(st)+c__case_43_case__111 x1 x7 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_43_case__111(x1)(x7)(x)(st))(i)(xs)(st)+c__case_43_case__111 x1 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_43_case__111")(x)++++c__case_45_case__112 x1 x3 x2@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_inc(Curry.Module.Prelude.C_Neg(x3))(x1)(st))(st)+c__case_45_case__112 x1 x3 x2@(Curry.Module.Prelude.C_O x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_44(x4)(x3)(x1)(st))(st)+c__case_45_case__112 x1 x3 x2@(Curry.Module.Prelude.C_I x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_43(x7)(x3)(x1)(st))(st)+c__case_45_case__112 x1 x3 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_45_case__112(x1)(x3)(x)(st))(i)(xs)(st)+c__case_45_case__112 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_45_case__112")(x)++++c__case_42_case__113 x1 x2@(Curry.Module.Prelude.C_O x3) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_42_case__113 x1 x2@(Curry.Module.Prelude.C_I x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_42_case__113 x1 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_42_case__113(x1)(x)(st))(i)(xs)(st)+c__case_42_case__113 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_42_case__113")(x)++++c__case_41_case__114 x1 x2@Curry.Module.Prelude.C_IHi st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_41_case__114 x1 x2@(Curry.Module.Prelude.C_O x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_41_case__114 x1 x2@(Curry.Module.Prelude.C_I x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_41_case__114 x1 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_41_case__114(x1)(x)(st))(i)(xs)(st)+c__case_41_case__114 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_41_case__114")(x)++++c__case_33_case__115 x1 x6 x9 x8@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(x6)))(x9))(st)+c__case_33_case__115 x1 x6 x9 x8@(Curry.Module.Prelude.C_Pos x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.OraclePrelude.op_43_94(Curry.Module.Prelude.C_O(x6))(x10)(x1)(st)))(x9))(st)+c__case_33_case__115 x1 x6 x9 x8@(Curry.Module.Prelude.C_Neg x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_33_case__115 x1 x6 x9 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_33_case__115(x1)(x6)(x9)(x)(st))(i)(xs)(st)+c__case_33_case__115 x1 x6 x9 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_33_case__115")(x)++++c__case_34_case__116 x1 x6 x10@(Curry.Module.Prelude.T2 x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_33(x6)(x9)(x8)(x1)(st))(st)+c__case_34_case__116 x1 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_34_case__116(x1)(x6)(x)(st))(i)(xs)(st)+c__case_34_case__116 x1 x6 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_34_case__116")(x)++++c__case_35_case__117 x1 x2 x3 x6 x5@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(x6)))(Curry.Module.OraclePrelude.c_mod2(x2)(x1)(st)))(st)+c__case_35_case__117 x1 x2 x3 x6 x5@(Curry.Module.Prelude.C_Pos x7) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c__case_34(x2)(x3)(x6)(x7)(Curry.Module.OraclePrelude.c_divmodNat(Curry.Module.OraclePrelude.c_divmodNat'46shift'46523(x2)(x7)(x1)(st))(x3)(x13)(st))(x14)(st))(st)+c__case_35_case__117 x1 x2 x3 x6 x5@(Curry.Module.Prelude.C_Neg x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_35_case__117 x1 x2 x3 x6 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_35_case__117(x1)(x2)(x3)(x6)(x)(st))(i)(xs)(st)+c__case_35_case__117 x1 x2 x3 x6 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_35_case__117")(x)++++c__case_36_case__118 x1 x2 x3 x5 x4@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.OraclePrelude.op_45_94(x2)(x3)(x1)(st)))(st)+c__case_36_case__118 x1 x2 x3 x5 x4@(Curry.Module.Prelude.C_Pos x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_35(x2)(x3)(x6)(x5)(x1)(st))(st)+c__case_36_case__118 x1 x2 x3 x5 x4@(Curry.Module.Prelude.C_Neg x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_36_case__118 x1 x2 x3 x5 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_36_case__118(x1)(x2)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_36_case__118 x1 x2 x3 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_36_case__118")(x)++++c__case_37_case__119 x1 x2 x3 x6@(Curry.Module.Prelude.T2 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_36(x2)(x3)(x5)(x4)(x1)(st))(st)+c__case_37_case__119 x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_37_case__119(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_37_case__119 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_37_case__119")(x)++++c__case_38_case__120 x1 x2 x3 x4@Curry.Module.Prelude.C_EQ st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.Prelude.C_Zero))(st)+c__case_38_case__120 x1 x2 x3 x4@Curry.Module.Prelude.C_LT st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.C_Pos(x2)))(st)+c__case_38_case__120 x1 x2 x3 x4@Curry.Module.Prelude.C_GT st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c__case_37(x2)(x3)(Curry.Module.OraclePrelude.c_divmodNat(Curry.Module.OraclePrelude.c_div2(x2)(x1)(st))(x3)(x5)(st))(x6)(st))(st)+c__case_38_case__120 x1 x2 x3 (Curry.Module.Prelude.C_OrderingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_38_case__120(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_38_case__120 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_38_case__120")(x)++++c__case_39_case__121 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_38(x2)(x3)(Curry.Module.OraclePrelude.c_cmpNat(x2)(x3)(x1)(st))(x5)(st))(st)+c__case_39_case__121 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_39_case__121 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_39_case__121(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_39_case__121 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_39_case__121")(x)++++c__case_40_case__122 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Pos(x2))(Curry.Module.Prelude.C_Zero))(st)+c__case_40_case__122 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c__case_39(x2)(x3)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x5)(st))(st)+c__case_40_case__122 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_40_case__122(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_40_case__122 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_40_case__122")(x)++++c__case_32_case__123 x1 x3 x2@(Curry.Module.Prelude.C_O x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_O(x3))(st)+c__case_32_case__123 x1 x3 x2@(Curry.Module.Prelude.C_I x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_I(x3))(st)+c__case_32_case__123 x1 x3 (Curry.Module.Prelude.C_NatOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_32_case__123(x1)(x3)(x)(st))(i)(xs)(st)+c__case_32_case__123 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_32_case__123")(x)++++c__case_30_case__124 x1 x2 x4 x3@(Curry.Module.Prelude.C_Pos x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.OraclePrelude.op_43_94(x4)(x5)(x1)(st)))(st)+c__case_30_case__124 x1 x2 x4 x3@(Curry.Module.Prelude.C_Neg x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_45_94(x4)(x6)(x1)(st))(st)+c__case_30_case__124 x1 x2 x4 x3@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_30_case__124 x1 x2 x4 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_30_case__124(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_30_case__124 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_30_case__124")(x)++++c__case_29_case__125 x1 x2 x7 x3@(Curry.Module.Prelude.C_Neg x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Neg(Curry.Module.OraclePrelude.op_43_94(x7)(x8)(x1)(st)))(st)+c__case_29_case__125 x1 x2 x7 x3@(Curry.Module.Prelude.C_Pos x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_45_94(x9)(x7)(x1)(st))(st)+c__case_29_case__125 x1 x2 x7 x3@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_29_case__125 x1 x2 x7 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_29_case__125(x1)(x2)(x7)(x)(st))(i)(xs)(st)+c__case_29_case__125 x1 x2 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_29_case__125")(x)++++c__case_31_case__126 x1 x3 x2@(Curry.Module.Prelude.C_Pos x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_30(x2)(x4)(x3)(x1)(st))(st)+c__case_31_case__126 x1 x3 x2@(Curry.Module.Prelude.C_Neg x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_29(x2)(x7)(x3)(x1)(st))(st)+c__case_31_case__126 x1 x3 x2@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_31_case__126 x1 x3 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_31_case__126(x1)(x3)(x)(st))(i)(xs)(st)+c__case_31_case__126 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_31_case__126")(x)++++c__case_28_case__127 x1 x2 x3@(Curry.Module.Prelude.C_Neg x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Pos(x4))(x1)(st))(st)+c__case_28_case__127 x1 x2 x3@(Curry.Module.Prelude.C_Pos x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Neg(x5))(x1)(st))(st)+c__case_28_case__127 x1 x2 x3@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_28_case__127 x1 x2 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_28_case__127(x1)(x2)(x)(st))(i)(xs)(st)+c__case_28_case__127 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_28_case__127")(x)++++c__case_26_case__128 x1 x4 x3@(Curry.Module.Prelude.C_Pos x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.OraclePrelude.op_42_94(x4)(x5)(x1)(st)))(st)+c__case_26_case__128 x1 x4 x3@(Curry.Module.Prelude.C_Neg x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Neg(Curry.Module.OraclePrelude.op_42_94(x4)(x6)(x1)(st)))(st)+c__case_26_case__128 x1 x4 x3@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_26_case__128 x1 x4 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_26_case__128(x1)(x4)(x)(st))(i)(xs)(st)+c__case_26_case__128 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_26_case__128")(x)++++c__case_25_case__129 x1 x7 x3@(Curry.Module.Prelude.C_Neg x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.OraclePrelude.op_42_94(x7)(x8)(x1)(st)))(st)+c__case_25_case__129 x1 x7 x3@(Curry.Module.Prelude.C_Pos x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.C_Neg(Curry.Module.OraclePrelude.op_42_94(x7)(x9)(x1)(st)))(st)+c__case_25_case__129 x1 x7 x3@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_25_case__129 x1 x7 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_25_case__129(x1)(x7)(x)(st))(i)(xs)(st)+c__case_25_case__129 x1 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_25_case__129")(x)++++c__case_27_case__130 x1 x3 x2@(Curry.Module.Prelude.C_Pos x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_26(x4)(x3)(x1)(st))(st)+c__case_27_case__130 x1 x3 x2@(Curry.Module.Prelude.C_Neg x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_25(x7)(x3)(x1)(st))(st)+c__case_27_case__130 x1 x3 x2@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_27_case__130 x1 x3 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_27_case__130(x1)(x3)(x)(st))(i)(xs)(st)+c__case_27_case__130 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_27_case__130")(x)++++c__case_23_case__131 x1 x4 x3@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('b'))((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('0'))(Curry.Module.Prelude.List))))))))))))))(x1)(st))(st)+c__case_23_case__131 x1 x4 x3@(Curry.Module.Prelude.C_Pos x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_divmodNat(x4)(x5)(x1)(st))(st)+c__case_23_case__131 x1 x4 x3@(Curry.Module.Prelude.C_Neg x6) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OraclePrelude.c_divmodNat(x4)(x6)(x1)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x12)(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.c_negate(Curry.Module.OraclePrelude.c_divmod'46_'35selFP25'35d(x7)(x10)(st))(x12)(st))(Curry.Module.OraclePrelude.c_divmod'46_'35selFP26'35m(x7)(x11)(st)))(st))(st))(st))(st)+c__case_23_case__131 x1 x4 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_23_case__131(x1)(x4)(x)(st))(i)(xs)(st)+c__case_23_case__131 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_23_case__131")(x)++++c__case_22_case__132 x1 x10 x3@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('b'))((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('0'))(Curry.Module.Prelude.List))))))))))))))(x1)(st))(st)+c__case_22_case__132 x1 x10 x3@(Curry.Module.Prelude.C_Pos x11) st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.OraclePrelude.c_divmodNat(x10)(x11)(x1)(st)} in let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.c_negate(Curry.Module.OraclePrelude.c_divmod'46_'35selFP28'35d(x12)(x19)(st))(x21)(st))(Curry.Module.OraclePrelude.c_negate(Curry.Module.OraclePrelude.c_divmod'46_'35selFP29'35m(x12)(x20)(st))(x22)(st)))(st))(st))(st))(st)+c__case_22_case__132 x1 x10 x3@(Curry.Module.Prelude.C_Neg x15) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.OraclePrelude.c_divmodNat(x10)(x15)(x1)(st)} in let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x25)(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.c_divmod'46_'35selFP31'35d(x16)(x23)(st))(Curry.Module.OraclePrelude.c_negate(Curry.Module.OraclePrelude.c_divmod'46_'35selFP32'35m(x16)(x24)(st))(x25)(st)))(st))(st))(st))(st)+c__case_22_case__132 x1 x10 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_22_case__132(x1)(x10)(x)(st))(i)(xs)(st)+c__case_22_case__132 x1 x10 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_22_case__132")(x)++++c__case_24_case__133 x1 x3 x2@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.C_Zero))(st)+c__case_24_case__133 x1 x3 x2@(Curry.Module.Prelude.C_Pos x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_23(x4)(x3)(x1)(st))(st)+c__case_24_case__133 x1 x3 x2@(Curry.Module.Prelude.C_Neg x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c__case_22(x10)(x3)(x1)(st))(st)+c__case_24_case__133 x1 x3 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_24_case__133(x1)(x3)(x)(st))(i)(xs)(st)+c__case_24_case__133 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_24_case__133")(x)++++c__case_21_case__134 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_21_case__134 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_21_case__134(x1)(x)(st))(i)(xs)(st)+c__case_21_case__134 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_21_case__134")(x)++++c__case_20_case__135 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_20_case__135 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_20_case__135(x1)(x)(st))(i)(xs)(st)+c__case_20_case__135 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_20_case__135")(x)++++c__case_19_case__136 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_19_case__136 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_19_case__136(x1)(x)(st))(i)(xs)(st)+c__case_19_case__136 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_19_case__136")(x)++++c__case_18_case__137 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_18_case__137 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_18_case__137(x1)(x)(st))(i)(xs)(st)+c__case_18_case__137 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_18_case__137")(x)++++c__case_17_case__138 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_17_case__138 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_17_case__138(x1)(x)(st))(i)(xs)(st)+c__case_17_case__138 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_17_case__138")(x)++++c__case_16_case__139 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_16_case__139 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_16_case__139(x1)(x)(st))(i)(xs)(st)+c__case_16_case__139 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_16_case__139")(x)++++c__case_15_case__140 x1 x2@Curry.Module.Prelude.C_Zero st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_15_case__140 x1 x2@(Curry.Module.Prelude.C_Pos x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Neg(x3))(st)+c__case_15_case__140 x1 x2@(Curry.Module.Prelude.C_Neg x4) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(x4))(st)+c__case_15_case__140 x1 (Curry.Module.Prelude.C_IntOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_15_case__140(x1)(x)(st))(i)(xs)(st)+c__case_15_case__140 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_15_case__140")(x)++++c__case_14_case__141 x1 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_success(x1)(st))(st)+c__case_14_case__141 x1 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_14_case__141 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_14_case__141(x1)(x)(st))(i)(xs)(st)+c__case_14_case__141 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_14_case__141")(x)++++c__case_13_case__142 x1 x2 x3 x4@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_13_case__142 x1 x2 x3 x4@(Curry.Module.Prelude.C_Just x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x3)(x5)(x1)(st))(st)+c__case_13_case__142 x1 x2 x3 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_13_case__142(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_13_case__142 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_13_case__142")(x)++++c__case_12_case__143 x1 x2 x3 x4@(Curry.Module.Prelude.C_Left x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(st)+c__case_12_case__143 x1 x2 x3 x4@(Curry.Module.Prelude.C_Right x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x3)(x6)(x1)(st))(st)+c__case_12_case__143 x1 x2 x3 (Curry.Module.Prelude.C_EitherOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_12_case__143(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_12_case__143 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_12_case__143")(x)++++c__case_11_case__144 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_done(x1)(st))(st)+c__case_11_case__144 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putChar(x3)(x1)(st))(Curry.Module.OraclePrelude.c_putStr(x4)(x5)(st))(x6)(st))(st)+c__case_11_case__144 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_11_case__144(x1)(x)(st))(i)(xs)(st)+c__case_11_case__144 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_11_case__144")(x)++++c__case_10_case__145 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.List)(x1)(st))(st)+c__case_10_case__145 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_getLine(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_getLine'46_'35lambda10'46_'35lambda11(x2)))))(x4)(st))(st)+c__case_10_case__145 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_10_case__145(x1)(x2)(x)(st))(i)(xs)(st)+c__case_10_case__145 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_10_case__145")(x)++++c__case_9_case__146 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.List)(x1)(st))(st)+c__case_9_case__146 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_62_62_61(x3)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_sequenceIO'46_'35lambda12(x4)))))(x1)(st))(st)+c__case_9_case__146 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_9_case__146(x1)(x)(st))(i)(xs)(st)+c__case_9_case__146 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_9_case__146")(x)++++c__case_8_case__147 x1 x2@(Curry.Module.Prelude.C_Value x3) st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(st)+c__case_8_case__147 x1 x2@Curry.Module.Prelude.C_Fail st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_8_case__147 x1 x2@Curry.Module.Prelude.C_Suspend st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_8_case__147 x1 x2@(Curry.Module.Prelude.C_Choice x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_allValuesD))))(x1)(st))(x4)(x5)(st))(st)+c__case_8_case__147 x1 (Curry.Module.Prelude.C_SearchTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_8_case__147(x1)(x)(st))(i)(xs)(st)+c__case_8_case__147 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_8_case__147")(x)++++c__case_7_case__148 x1 x3 x2@(Curry.Module.Prelude.C_Value x4) st = Curry.Module.CEventOracle.c_replace(x1)(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x13)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x4)(Curry.Module.OraclePrelude.c_allValuesB'46partition'46692'46_'35selFP34'35vs(x3)(x1)(st)))(Curry.Module.OraclePrelude.c_allValuesB'46partition'46692'46_'35selFP35'35ors(x3)(x12)(st)))(st))(st))(st))(st)+c__case_7_case__148 x1 x3 x2@(Curry.Module.Prelude.C_Choice x8) st = Curry.Module.CEventOracle.c_replace(x1)(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x15)(Curry.Module.Prelude.T2(Curry.Module.OraclePrelude.c_allValuesB'46partition'46692'46_'35selFP37'35vs(x3)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(x8)(Curry.Module.OraclePrelude.c_allValuesB'46partition'46692'46_'35selFP38'35ors(x3)(x14)(st))(x15)(st)))(st))(st))(st))(st)+c__case_7_case__148 x1 x3 x2@Curry.Module.Prelude.C_Fail st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_7_case__148 x1 x3 x2@Curry.Module.Prelude.C_Suspend st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_7_case__148 x1 x3 (Curry.Module.Prelude.C_SearchTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_7_case__148(x1)(x3)(x)(st))(i)(xs)(st)+c__case_7_case__148 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_7_case__148")(x)++++c__case_6_case__149 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_6_case__149 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_6_case__149(x1)(x)(st))(i)(xs)(st)+c__case_6_case__149 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_6_case__149")(x)++++c__case_5_case__150 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_5_case__150 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_5_case__150(x1)(x)(st))(i)(xs)(st)+c__case_5_case__150 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_5_case__150")(x)++++c__case_4_case__151 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_4_case__151 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_4_case__151(x1)(x)(st))(i)(xs)(st)+c__case_4_case__151 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_4_case__151")(x)++++c__case_3_case__152 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_3_case__152 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_3_case__152(x1)(x)(st))(i)(xs)(st)+c__case_3_case__152 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_3_case__152")(x)++++c__case_2_case__153 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_2_case__153 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.c_allValuesB'46partition'46692))(st))(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x3)(x4))(x1)(st)} in let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_allValuesB'46unfoldOrs'46692'46_'35selFP40'35vals(x5)(x8)(st))(Curry.Module.OraclePrelude.c_allValuesB'46unfoldOrs'46692(Curry.Module.OraclePrelude.c_allValuesB'46unfoldOrs'46692'46_'35selFP41'35ors(x5)(x9)(st))(x10)(st))(x11)(st))(st))(st))(st))(st)+c__case_2_case__153 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_2_case__153(x1)(x)(st))(i)(xs)(st)+c__case_2_case__153 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_2_case__153")(x)++++c__case_1_case__154 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_1_case__154 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_1_case__154(x1)(x)(st))(i)(xs)(st)+c__case_1_case__154 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_1_case__154")(x)++++c__case_0_case__155 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_0_case__155 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrelude.c__case_0_case__155(x1)(x)(st))(i)(xs)(st)+c__case_0_case__155 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrelude._case_0_case__155")(x)++
+ dist/build/Curry/Module/OraclePretty.hs view
@@ -0,0 +1,1141 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OraclePretty (module Curry.Module.OraclePretty) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Pretty+import Curry.Module.Dequeue+import Curry.Module.Prelude+import Curry.Module.OracleDequeue+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++data C_Doc = C_Doc (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Tokens -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Tokens)))+  | C_DocFail Curry.RunTimeSystem.C_Exceptions+  | C_DocOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.OraclePretty.C_Doc)++data C_Tokens = C_Text (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.OraclePretty.C_Tokens+  | C_Line (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.OraclePretty.C_Tokens+  | C_Open Curry.Module.OraclePretty.C_Tokens+  | C_Close Curry.Module.OraclePretty.C_Tokens+  | C_Empty+  | C_OpenNest (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))))) Curry.Module.OraclePretty.C_Tokens+  | C_CloseNest Curry.Module.OraclePretty.C_Tokens+  | C_TokensFail Curry.RunTimeSystem.C_Exceptions+  | C_TokensOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches Curry.Module.OraclePretty.C_Tokens)++instance BaseCurry Curry.Module.OraclePretty.C_Doc where+  nf f (Curry.Module.OraclePretty.C_Doc x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.OraclePretty.C_Doc(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.OraclePretty.C_Doc x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.OraclePretty.C_Doc(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.OraclePretty.C_DocOr(Curry.RunTimeSystem.mkRef(r)(1)(i))([Curry.Module.OraclePretty.C_Doc(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(1)++  failed  = Curry.Module.OraclePretty.C_DocFail++  branching  = Curry.Module.OraclePretty.C_DocOr++  consKind (Curry.Module.OraclePretty.C_DocOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.OraclePretty.C_DocFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.OraclePretty.C_DocFail x) = x++  orRef (Curry.Module.OraclePretty.C_DocOr x _) = x++  branches (Curry.Module.OraclePretty.C_DocOr _ x) = x++++++instance BaseCurry Curry.Module.OraclePretty.C_Tokens where+  nf f (Curry.Module.OraclePretty.C_Text x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.OraclePretty.C_Text(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.OraclePretty.C_Line x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.OraclePretty.C_Line(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.OraclePretty.C_Open x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.OraclePretty.C_Open(v1))(state1))(x1)(state0)+  nf f (Curry.Module.OraclePretty.C_Close x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.OraclePretty.C_Close(v1))(state1))(x1)(state0)+  nf f (Curry.Module.OraclePretty.C_OpenNest x1 x2) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> Curry.RunTimeSystem.nfCTC(\ v2 state2 -> f(Curry.Module.OraclePretty.C_OpenNest(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  nf f (Curry.Module.OraclePretty.C_CloseNest x1) state0 = Curry.RunTimeSystem.nfCTC(\ v1 state1 -> f(Curry.Module.OraclePretty.C_CloseNest(v1))(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.OraclePretty.C_Text x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.OraclePretty.C_Text(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.OraclePretty.C_Line x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.OraclePretty.C_Line(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.OraclePretty.C_Open x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.OraclePretty.C_Open(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.OraclePretty.C_Close x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.OraclePretty.C_Close(v1))(state1))(x1)(state0)+  gnf f (Curry.Module.OraclePretty.C_OpenNest x1 x2) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> Curry.RunTimeSystem.gnfCTC(\ v2 state2 -> f(Curry.Module.OraclePretty.C_OpenNest(v1)(v2))(state2))(x2)(state1))(x1)(state0)+  gnf f (Curry.Module.OraclePretty.C_CloseNest x1) state0 = Curry.RunTimeSystem.gnfCTC(\ v1 state1 -> f(Curry.Module.OraclePretty.C_CloseNest(v1))(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.OraclePretty.C_TokensOr(Curry.RunTimeSystem.mkRef(r)(2)(i))([Curry.Module.OraclePretty.C_Text(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.OraclePretty.C_Line(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.OraclePretty.C_Open(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.OraclePretty.C_Close(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.OraclePretty.C_Empty,Curry.Module.OraclePretty.C_OpenNest(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int)))),Curry.Module.OraclePretty.C_CloseNest(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(2)++  failed  = Curry.Module.OraclePretty.C_TokensFail++  branching  = Curry.Module.OraclePretty.C_TokensOr++  consKind (Curry.Module.OraclePretty.C_TokensOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.OraclePretty.C_TokensFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.OraclePretty.C_TokensFail x) = x++  orRef (Curry.Module.OraclePretty.C_TokensOr x _) = x++  branches (Curry.Module.OraclePretty.C_TokensOr _ x) = x++++++instance Curry Curry.Module.OraclePretty.C_Doc where+  strEq (Curry.Module.OraclePretty.C_Doc x1) (Curry.Module.OraclePretty.C_Doc y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.OraclePretty.C_Doc x1) (Curry.Module.OraclePretty.C_Doc y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.OraclePretty.C_Doc x1) st = Curry.Module.OraclePretty.C_Doc(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.OraclePretty.C_Doc x1) st = f(x1)(c)(st)++  typeName _ = "Doc"++  showQ d (Curry.Module.OraclePretty.C_Doc x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OraclePretty.Doc "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.OraclePretty.C_DocOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Curry Curry.Module.OraclePretty.C_Tokens where+  strEq (Curry.Module.OraclePretty.C_Text x1 x2) (Curry.Module.OraclePretty.C_Text 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.OraclePretty.C_Line x1 x2) (Curry.Module.OraclePretty.C_Line 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.OraclePretty.C_Open x1) (Curry.Module.OraclePretty.C_Open y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq (Curry.Module.OraclePretty.C_Close x1) (Curry.Module.OraclePretty.C_Close y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq Curry.Module.OraclePretty.C_Empty Curry.Module.OraclePretty.C_Empty st = Curry.Module.Prelude.strEqSuccess+  strEq (Curry.Module.OraclePretty.C_OpenNest x1 x2) (Curry.Module.OraclePretty.C_OpenNest 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.OraclePretty.C_CloseNest x1) (Curry.Module.OraclePretty.C_CloseNest y1) st = Curry.Module.Prelude.genStrEq(x1)(y1)(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.OraclePretty.C_Text x1 x2) (Curry.Module.OraclePretty.C_Text 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.OraclePretty.C_Line x1 x2) (Curry.Module.OraclePretty.C_Line 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.OraclePretty.C_Open x1) (Curry.Module.OraclePretty.C_Open y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq (Curry.Module.OraclePretty.C_Close x1) (Curry.Module.OraclePretty.C_Close y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq Curry.Module.OraclePretty.C_Empty Curry.Module.OraclePretty.C_Empty st = Curry.Module.Prelude.C_True+  eq (Curry.Module.OraclePretty.C_OpenNest x1 x2) (Curry.Module.OraclePretty.C_OpenNest 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.OraclePretty.C_CloseNest x1) (Curry.Module.OraclePretty.C_CloseNest y1) st = Curry.Module.Prelude.genEq(x1)(y1)(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.OraclePretty.C_Text x1 x2) st = Curry.Module.OraclePretty.C_Text(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.OraclePretty.C_Line x1 x2) st = Curry.Module.OraclePretty.C_Line(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.OraclePretty.C_Open x1) st = Curry.Module.OraclePretty.C_Open(f((0::Int))(x1)(st))+  propagate f (Curry.Module.OraclePretty.C_Close x1) st = Curry.Module.OraclePretty.C_Close(f((0::Int))(x1)(st))+  propagate f Curry.Module.OraclePretty.C_Empty st = Curry.Module.OraclePretty.C_Empty+  propagate f (Curry.Module.OraclePretty.C_OpenNest x1 x2) st = Curry.Module.OraclePretty.C_OpenNest(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))+  propagate f (Curry.Module.OraclePretty.C_CloseNest x1) st = Curry.Module.OraclePretty.C_CloseNest(f((0::Int))(x1)(st))++  foldCurry f c (Curry.Module.OraclePretty.C_Text x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.OraclePretty.C_Line x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.OraclePretty.C_Open x1) st = f(x1)(c)(st)+  foldCurry f c (Curry.Module.OraclePretty.C_Close x1) st = f(x1)(c)(st)+  foldCurry f c Curry.Module.OraclePretty.C_Empty st = c+  foldCurry f c (Curry.Module.OraclePretty.C_OpenNest x1 x2) st = f(x1)(f(x2)(c)(st))(st)+  foldCurry f c (Curry.Module.OraclePretty.C_CloseNest x1) st = f(x1)(c)(st)++  typeName _ = "Tokens"++  showQ d (Curry.Module.OraclePretty.C_Text x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OraclePretty.Text "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.OraclePretty.C_Line x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OraclePretty.Line "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.OraclePretty.C_Open x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OraclePretty.Open "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ d (Curry.Module.OraclePretty.C_Close x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OraclePretty.Close "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ Curry.Module.OraclePretty.C_Empty = Prelude.showString("OraclePretty.Empty")+  showQ d (Curry.Module.OraclePretty.C_OpenNest x1 x2) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OraclePretty.OpenNest "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))))+++  showQ d (Curry.Module.OraclePretty.C_CloseNest x1) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OraclePretty.CloseNest "))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))+++  showQ _ (Curry.Module.OraclePretty.C_TokensOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.OraclePretty.C_Doc where+  showsPrec d (Curry.Module.OraclePretty.C_Doc x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Doc "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.OraclePretty.C_DocOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Show Curry.Module.OraclePretty.C_Tokens where+  showsPrec d (Curry.Module.OraclePretty.C_Text x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Text "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.OraclePretty.C_Line x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Line "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.OraclePretty.C_Open x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Open "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec d (Curry.Module.OraclePretty.C_Close x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("Close "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ Curry.Module.OraclePretty.C_Empty = Prelude.showString("Empty")+  showsPrec d (Curry.Module.OraclePretty.C_OpenNest x1 x2) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OpenNest "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))))+++  showsPrec d (Curry.Module.OraclePretty.C_CloseNest x1) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("CloseNest "))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))+++  showsPrec _ (Curry.Module.OraclePretty.C_TokensOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance Read Curry.Module.OraclePretty.C_Doc where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.OraclePretty.C_Doc(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OraclePretty")("Doc")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r)++++++instance Read Curry.Module.OraclePretty.C_Tokens where+  readsPrec d r = (Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.OraclePretty.C_Text(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OraclePretty")("Text")(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.OraclePretty.C_Line(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OraclePretty")("Line")(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.OraclePretty.C_Open(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OraclePretty")("Open")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.OraclePretty.C_Close(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OraclePretty")("Close")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r))((Prelude.++)(Prelude.readParen(Prelude.False)(\ r -> [(,)(Curry.Module.OraclePretty.C_Empty)(r0) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OraclePretty")("Empty")(r)])(r))((Prelude.++)(Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.OraclePretty.C_OpenNest(x1)(x2))(r2) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OraclePretty")("OpenNest")(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.OraclePretty.C_CloseNest(x1))(r1) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OraclePretty")("CloseNest")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0)])(r)))))))++++++c_deDoc :: Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Tokens -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Tokens))+c_deDoc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_30(x2)(x1)(st))(st)++++c_empty :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_empty x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_text(Curry.Module.Prelude.List)(x1)(st))(st)++++c_text :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_text x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OraclePretty.C_Doc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OraclePretty.C_Text(x2))))))(st)++++c_linesep :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_linesep x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OraclePretty.C_Doc))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partCons))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pc))(Curry.Module.OraclePretty.C_Line))(st))(x1)(st))(st)++++c_line :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_line x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_linesep(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(x2)(st))(st)++++c_linebreak :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_linebreak x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_linesep(x1)(st))(Curry.Module.Prelude.List)(x2)(st))(st)++++c_softline :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_softline x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_group(Curry.Module.OraclePretty.c_line(x1)(st))(x2)(st))(st)++++c_softbreak :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_softbreak x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_group(Curry.Module.OraclePretty.c_linebreak(x1)(st))(x2)(st))(st)++++c_group :: Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_group x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePretty.C_Doc(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OraclePretty.C_Open))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePretty.c_deDoc(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OraclePretty.C_Close))))(x3)(st))(x4)(st)))(st)++++c_nest :: Curry.Module.Prelude.C_Int -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_nest x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePretty.C_Doc(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OraclePretty.C_OpenNest(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OraclePretty.c_nest'46_'35lambda2(x2)))(st))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePretty.c_deDoc(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OraclePretty.C_CloseNest))))(x4)(st))(x5)(st)))(st)++++c_nest'46_'35lambda2 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_nest'46_'35lambda2 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_29(x2)(x3)(x1)(st))(st)++++c_hang :: Curry.Module.Prelude.C_Int -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_hang x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePretty.C_Doc(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OraclePretty.C_OpenNest(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OraclePretty.c_hang'46_'35lambda3(x2)))(st))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePretty.c_deDoc(x3)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OraclePretty.C_CloseNest))))(x4)(st))(x5)(st)))(st)++++c_hang'46_'35lambda3 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_hang'46_'35lambda3 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(x5)(x4)(x1)(st))(x2)(x6)(st))(x3))(st)++++c_align :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_align x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_hang(Curry.Module.Prelude.C_Zero)))))(st)++++c_combine :: Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_combine x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_enclose(x3)(x4)(x2)(x1)(st))(st)++++op_60_62 :: Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+op_60_62 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePretty.C_Doc(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePretty.c_deDoc(x2)(x1)(st))(Curry.Module.OraclePretty.c_deDoc(x3)(x4)(st))(x5)(st)))(st)++++op_60_43_62 :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))))+op_60_43_62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_combine(Curry.Module.OraclePretty.c_space(x1)(st))))(st))(st)++++op_60_36_62 :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))))+op_60_36_62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_combine(Curry.Module.OraclePretty.c_line(x1)(st))))(st))(st)++++op_60_47_62 :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))))+op_60_47_62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_combine(Curry.Module.OraclePretty.c_softline(x1)(st))))(st))(st)++++op_60_36_36_62 :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))))+op_60_36_36_62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_combine(Curry.Module.OraclePretty.c_linebreak(x1)(st))))(st))(st)++++op_60_47_47_62 :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))))+op_60_47_47_62 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_combine(Curry.Module.OraclePretty.c_softbreak(x1)(st))))(st))(st)++++c_compose :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))))) -> (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_compose x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_28(x2)(x3)(x1)(st))(st)++++c_hsep :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_hsep x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_compose(Curry.Module.OraclePretty.op_60_43_62(x1)(st))))))(st)++++c_vsep :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_vsep x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_compose(Curry.Module.OraclePretty.op_60_36_62(x1)(st))))))(st)++++c_fillSep :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_fillSep x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_compose(Curry.Module.OraclePretty.op_60_47_62(x1)(st))))))(st)++++c_sep :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_sep x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_group))))(Curry.Module.OraclePretty.c_vsep(x1)(st))(x2)(st))(st)++++c_hcat :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_hcat x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_compose(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.op_60_62))(st))))))(st)++++c_vcat :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_vcat x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_compose(Curry.Module.OraclePretty.op_60_36_36_62(x1)(st))))))(st)++++c_fillCat :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_fillCat x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_compose(Curry.Module.OraclePretty.op_60_47_47_62(x1)(st))))))(st)++++c_cat :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_cat x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_group))))(Curry.Module.OraclePretty.c_vcat(x1)(st))(x2)(st))(st)++++c_punctuate :: Curry.Module.OraclePretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc+c_punctuate x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_27(x2)(x3)(x1)(st))(st)++++c_punctuate'46go'4675 :: Curry.Module.OraclePretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc+c_punctuate'46go'4675 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_26(x2)(x3)(x1)(st))(st)++++c_encloseSep :: Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_encloseSep x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_24(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_hEncloseSep :: Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_hEncloseSep x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_23(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_fillEncloseSep :: Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_fillEncloseSep x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_22(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_fillEncloseSep'46withSoftBreaks'4696 :: (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc+c_fillEncloseSep'46withSoftBreaks'4696 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_21(x2)(x1)(st))(st)++++c_list :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_list x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_fillEncloseSep(Curry.Module.OraclePretty.c_lbracket(x1)(st))(Curry.Module.OraclePretty.c_rbracket(x2)(st))(Curry.Module.OraclePretty.c_comma(x3)(st))))))(st)++++c_tupled :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_tupled x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_fillEncloseSep(Curry.Module.OraclePretty.c_lparen(x1)(st))(Curry.Module.OraclePretty.c_rparen(x2)(st))(Curry.Module.OraclePretty.c_comma(x3)(st))))))(st)++++c_semiBraces :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_semiBraces x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_fillEncloseSep(Curry.Module.OraclePretty.c_lbrace(x1)(st))(Curry.Module.OraclePretty.c_rbrace(x2)(st))(Curry.Module.OraclePretty.c_semi(x3)(st))))))(st)++++c_enclose :: Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_enclose x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.op_60_62(x2)(x4)(x1)(st))(x3)(x5)(st))(st)++++c_squotes :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_squotes x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_enclose(Curry.Module.OraclePretty.c_squote(x1)(st))(Curry.Module.OraclePretty.c_squote(x2)(st))))))(st)++++c_dquotes :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_dquotes x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_enclose(Curry.Module.OraclePretty.c_dquote(x1)(st))(Curry.Module.OraclePretty.c_dquote(x2)(st))))))(st)++++c_bquotes :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_bquotes x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_enclose(Curry.Module.OraclePretty.c_bquote(x1)(st))(Curry.Module.OraclePretty.c_bquote(x2)(st))))))(st)++++c_parens :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_parens x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_enclose(Curry.Module.OraclePretty.c_lparen(x1)(st))(Curry.Module.OraclePretty.c_rparen(x2)(st))))))(st)++++c_angles :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_angles x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_enclose(Curry.Module.OraclePretty.c_langle(x1)(st))(Curry.Module.OraclePretty.c_rangle(x2)(st))))))(st)++++c_braces :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_braces x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_enclose(Curry.Module.OraclePretty.c_lbrace(x1)(st))(Curry.Module.OraclePretty.c_rbrace(x2)(st))))))(st)++++c_brackets :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_brackets x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_enclose(Curry.Module.OraclePretty.c_lbracket(x1)(st))(Curry.Module.OraclePretty.c_rbracket(x2)(st))))))(st)++++c_char :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_char x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_text((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(x1)(st))(st)++++c_string :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_string x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePretty.c_hcat(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_string'46_'35lambda4))))))))(x2)(st))(st)++++c_string'46_'35lambda4 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_string'46_'35lambda4 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePretty.c__case_19(x2)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(x2)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\r'))(Curry.Module.Prelude.List)))(x3)(st))(x4)(st))(st)++++c_int :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_int x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_text(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x3)(st))(st)++++c_float :: Curry.Module.Prelude.C_Float -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_float x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_text(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x3)(st))(st)++++c_lparen :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_lparen x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('('))(x1)(st))(st)++++c_rparen :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_rparen x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char(')'))(x1)(st))(st)++++c_langle :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_langle x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('<'))(x1)(st))(st)++++c_rangle :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_rangle x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('>'))(x1)(st))(st)++++c_lbrace :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_lbrace x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('{'))(x1)(st))(st)++++c_rbrace :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_rbrace x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('}'))(x1)(st))(st)++++c_lbracket :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_lbracket x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('['))(x1)(st))(st)++++c_rbracket :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_rbracket x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char(']'))(x1)(st))(st)++++c_squote :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_squote x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('\''))(x1)(st))(st)++++c_dquote :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_dquote x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('\"'))(x1)(st))(st)++++c_bquote :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_bquote x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('`'))(x1)(st))(st)++++c_semi :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_semi x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char(';'))(x1)(st))(st)++++c_colon :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_colon x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char(':'))(x1)(st))(st)++++c_comma :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_comma x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char(','))(x1)(st))(st)++++c_space :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_space x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char(' '))(x1)(st))(st)++++c_dot :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_dot x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('.'))(x1)(st))(st)++++c_backslash :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_backslash x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('\\'))(x1)(st))(st)++++c_equals :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_equals x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('='))(x1)(st))(st)++++c_normalise :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Tokens -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Tokens))+c_normalise x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_normalise'46go'46173(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(st)++++c_normalise'46open'46173 :: Curry.Module.OraclePretty.C_Tokens -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Tokens+c_normalise'46open'46173 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_18(x2)(x1)(st))(st)++++c_normalise'46go'46173 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Tokens -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Tokens))) -> Curry.Module.OraclePretty.C_Tokens -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Tokens+c_normalise'46go'46173 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_17(x2)(x3)(x1)(st))(st)++++c_doc2Tokens :: Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Tokens+c_doc2Tokens x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_16(x2)(x1)(st))(st)++++c_pretty :: Curry.Module.Prelude.C_Int -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_pretty x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_noGroup(Curry.Module.OraclePretty.c_doc2Tokens(x3)(x1)(st))(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Zero)(Curry.Module.Prelude.List))(x4)(st))(st)++++c_length :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int))+c_length x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_length))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_not))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_elem))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(x2)(st))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_ord))))(x3)(st))(x4)(st))))))(x5)(st))(st)++++c_noGroup :: Curry.Module.OraclePretty.C_Tokens -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_noGroup x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_15(x3)(x4)(x5)(x6)(x2)(x1)(st))(st)++++c_noGroup'46_'35lambda6 :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_noGroup'46_'35lambda6 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_oneGroup :: Curry.Module.OraclePretty.C_Tokens -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_oneGroup x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_13(x3)(x4)(x5)(x6)(x2)(x1)(st))(st)++++c_oneGroup'46outText'46234 :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.Prelude.C_Int -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_oneGroup'46outText'46234 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x4)(Curry.Module.OraclePrelude.op_45(x5)(x2)(x1)(st))(x7)(st))(x6)(x8)(st))(x9)(st))(st)++++c_oneGroup'46_'35lambda7 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> 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.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_oneGroup'46_'35lambda7 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x5)(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_oneGroup'46outText'46234(x2)(x4)(x6)))(st))(x7)(st))(st)++++c_oneGroup'46outLine'46240 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_oneGroup'46outLine'46240 x2 x3 x4 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_12(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x1)(st))(st)++++c_oneGroup'46_'35lambda8 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_oneGroup'46_'35lambda8 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x6)(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_oneGroup'46outLine'46240(x2)(x4)(x5)(x6)(x7)))(st))(x8)(st))(st)++++c_oneGroup'46_'35lambda9 :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_oneGroup'46_'35lambda9 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_oneGroup'46_'35lambda10 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_oneGroup'46_'35lambda10 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x5)(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_oneGroup'46_'35lambda10'46_'35lambda11(x6)(x2)(x4)))(st))(x7)(st))(st)++++c_oneGroup'46_'35lambda10'46_'35lambda11 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))))) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_oneGroup'46_'35lambda10'46_'35lambda11 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x6)(x7)(st))(x5)(x8)(st))(x4)(x9)(st))(x10)(st))(st)++++c_oneGroup'46_'35lambda12 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_oneGroup'46_'35lambda12 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_oneGroup'46_'35lambda12'46_'35lambda13(x4)))(st))(x5)(st))(st)++++c_oneGroup'46_'35lambda12'46_'35lambda13 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_oneGroup'46_'35lambda12'46_'35lambda13 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.c_tail(x4)(x5)(st))(x6)(st))(st)++++c_multiGroup :: Curry.Module.OraclePretty.C_Tokens -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> (Curry.Module.Dequeue.C_Queue (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))))) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_multiGroup x2 x3 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_10(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x2)(x1)(st))(st)++++c_multiGroup'46outText'46261 :: (Curry t0) => Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.Prelude.C_Int -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_multiGroup'46outText'46261 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x4)(Curry.Module.OraclePrelude.op_45(x5)(x2)(x1)(st))(x7)(st))(x6)(x8)(st))(x9)(st))(st)++++c_multiGroup'46_'35lambda14 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> 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.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_multiGroup'46_'35lambda14 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x5)(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46outText'46261(x2)(x4)(x6)))(st))(x7)(st))(st)++++c_multiGroup'46outLine'46267 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_multiGroup'46outLine'46267 x2 x3 x4 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_6(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x1)(st))(st)++++c_multiGroup'46_'35lambda15 :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_multiGroup'46_'35lambda15 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x6)(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46outLine'46267(x2)(x4)(x5)(x6)(x7)))(st))(x8)(st))(st)++++c_multiGroup'46_'35lambda16 :: Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_multiGroup'46_'35lambda16 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)++++c_multiGroup'46_'35lambda18 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_multiGroup'46_'35lambda18 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x6)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_multiGroup'46_'35lambda18'46_'35lambda19(x7)(x2)(x4)(x5)))))(x8)(st))(st)++++c_multiGroup'46_'35lambda18'46_'35lambda19 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_multiGroup'46_'35lambda18'46_'35lambda19 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(Curry.Module.OraclePrelude.op_60_61(x4)(Curry.Module.OraclePrelude.op_43(x5)(x6)(x1)(st))(x7)(st))(x8)(st))(x2)(x9)(st))(x6)(x10)(st))(st)++++c_multiGroup'46_'35lambda20 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_multiGroup'46_'35lambda20 x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x6)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_multiGroup'46_'35lambda20'46_'35lambda21(x7)(x3)(x4)(x5)))))(x8)(st))(st)++++c_multiGroup'46_'35lambda20'46_'35lambda21 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_multiGroup'46_'35lambda20'46_'35lambda21 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(Curry.Module.OraclePrelude.op_60_61(x4)(Curry.Module.OraclePrelude.op_43(x5)(x6)(x1)(st))(x7)(st))(x8)(st))(x2)(x9)(st))(x6)(x10)(st))(st)++++c_multiGroup'46_'35lambda22 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_multiGroup'46_'35lambda22 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x5)(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46_'35lambda22'46_'35lambda23(x6)(x2)(x4)))(st))(x7)(st))(st)++++c_multiGroup'46_'35lambda22'46_'35lambda23 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int))))))) -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_multiGroup'46_'35lambda22'46_'35lambda23 x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x6)(x7)(st))(x5)(x8)(st))(x4)(x9)(st))(x10)(st))(st)++++c_multiGroup'46_'35lambda24 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.Prelude.C_Bool -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_multiGroup'46_'35lambda24 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46_'35lambda24'46_'35lambda25(x4)))(st))(x5)(st))(st)++++c_multiGroup'46_'35lambda24'46_'35lambda25 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_multiGroup'46_'35lambda24'46_'35lambda25 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x3)(x1)(st))(Curry.Module.OraclePrelude.c_tail(x4)(x5)(st))(x6)(st))(st)++++c_pruneOne :: Curry.Module.OraclePretty.C_Tokens -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_pruneOne x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c__case_4(x2)(x3)(x4)(x5)(x6)(Curry.Module.OraclePrelude.op_60_61(x4)(x5)(x1)(st))(x7)(st))(st)++++c_pruneMulti :: Curry.Module.OraclePretty.C_Tokens -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> (Curry.Module.Dequeue.C_Queue (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))))) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_pruneMulti x2 x3 x4 x5 x6 x7 x8 x9 x1 st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c__case_3(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(Curry.Module.OraclePrelude.op_60_61(x4)(x5)(x1)(st))(x10)(st))(st)++++c_pruneMulti'46_'35lambda26 :: (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Dequeue.C_Queue (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Bool -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))))))))) -> Curry.Module.Prelude.C_Int -> Curry.Module.OraclePretty.C_Tokens -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_pruneMulti'46_'35lambda26 x2 x3 x4 x5 x6 x7 x8 x1 st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c__case_2(x2)(x3)(x4)(x5)(x6)(x7)(x8)(Curry.Module.OracleDequeue.c_matchLast(x4)(x1)(st))(x9)(st))(st)++++c__case_2 x2 x3 x4 x5 x6 x7 x8 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_2_case__30(x1)(x2)(x3)(x5)(x6)(x7)(x8)(x10)(st))(st)++++c__case_1 x2 x3 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_1_case__29(x1)(x2)(x3)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_0 x2 x3 x5 x6 x7 x8 x11 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_0_case__28(x1)(x2)(x3)(x5)(x6)(x7)(x8)(x11)(x10)(st))(st)++++c__case_3 x2 x3 x4 x5 x6 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_3_case__27(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x10)(st))(st)++++c__case_4 x2 x3 x4 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_4_case__26(x1)(x2)(x3)(x4)(x5)(x6)(x7)(st))(st)++++c__case_6 x2 x3 x4 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_6_case__25(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(st))(st)++++c__case_5 x2 x3 x4 x6 x7 x8 x9 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_5_case__24(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x5)(st))(st)++++c__case_10 x3 x4 x5 x6 x7 x8 x9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_10_case__23(x1)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x2)(st))(st)++++c__case_9 x3 x4 x5 x6 x7 x8 x9 x17 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_9_case__22(x1)(x3)(x4)(x5)(x6)(x8)(x9)(x17)(x19)(st))(st)++++c__case_8 x3 x4 x5 x6 x8 x9 x17 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_8_case__21(x1)(x3)(x4)(x5)(x6)(x8)(x9)(x17)(x18)(st))(st)++++c__case_7 x3 x4 x5 x6 x8 x9 x17 x20 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_7_case__20(x1)(x3)(x4)(x5)(x6)(x8)(x9)(x17)(x20)(x19)(st))(st)++++c__case_12 x2 x3 x4 x5 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_12_case__19(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(st))(st)++++c__case_11 x2 x3 x4 x6 x7 x8 x9 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_11_case__18(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x5)(st))(st)++++c__case_13 x3 x4 x5 x6 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_13_case__17(x1)(x3)(x4)(x5)(x6)(x2)(st))(st)++++c__case_15 x3 x4 x5 x6 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_15_case__16(x1)(x3)(x4)(x5)(x6)(x2)(st))(st)++++c__case_14 x3 x4 x11 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_14_case__15(x1)(x3)(x4)(x11)(x6)(st))(st)++++c__case_16 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_16_case__14(x1)(x2)(st))(st)++++c__case_17 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_17_case__13(x1)(x2)(x3)(st))(st)++++c__case_18 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_18_case__12(x1)(x2)(st))(st)++++c__case_19 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_19_case__11(x1)(x2)(x3)(st))(st)++++c__case_21 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_21_case__10(x1)(x2)(st))(st)++++c__case_20 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_20_case__9(x1)(x3)(x4)(st))(st)++++c__case_22 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_22_case__8(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_23 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_23_case__7(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_24 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_24_case__6(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_26 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_26_case__5(x1)(x2)(x3)(st))(st)++++c__case_25 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_25_case__4(x1)(x2)(x4)(x5)(st))(st)++++c__case_27 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_27_case__3(x1)(x2)(x3)(st))(st)++++c__case_28 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_28_case__2(x1)(x2)(x3)(st))(st)++++c__case_29 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_29_case__1(x1)(x2)(x3)(st))(st)++++c__case_30 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_30_case__0(x1)(x2)(st))(st)++++c__case_30_case__0 x1 x2@(Curry.Module.OraclePretty.C_Doc x3) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_30_case__0 x1 (Curry.Module.OraclePretty.C_DocOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_30_case__0(x1)(x)(st))(i)(xs)(st)+c__case_30_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_30_case__0")(x)++++c__case_29_case__1 x1 x2 x3@((Curry.Module.Prelude.:<) x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.op_43(x6)(x2)(x1)(st))(x3))(st)+c__case_29_case__1 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_29_case__1(x1)(x2)(x)(st))(i)(xs)(st)+c__case_29_case__1 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_29_case__1")(x)++++c__case_28_case__2 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_empty(x1)(st))(st)+c__case_28_case__2 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_foldr1(x2)(x3)(x1)(st))(st)+c__case_28_case__2 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_28_case__2(x1)(x2)(x)(st))(i)(xs)(st)+c__case_28_case__2 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_28_case__2")(x)++++c__case_27_case__3 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_27_case__3 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_punctuate'46go'4675(x2)(x3)(x1)(st))(st)+c__case_27_case__3 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_27_case__3(x1)(x2)(x)(st))(i)(xs)(st)+c__case_27_case__3 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_27_case__3")(x)++++c__case_25_case__4 x1 x2 x4 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(st)+c__case_25_case__4 x1 x2 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePretty.op_60_62(x4)(x2)(x1)(st))(Curry.Module.OraclePretty.c_punctuate'46go'4675(x2)(x5)(x8)(st)))(st)+c__case_25_case__4 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_25_case__4(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_25_case__4 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_25_case__4")(x)++++c__case_26_case__5 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_25(x2)(x4)(x5)(x1)(st))(st)+c__case_26_case__5 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_26_case__5(x1)(x2)(x)(st))(i)(xs)(st)+c__case_26_case__5 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_26_case__5")(x)++++c__case_24_case__6 x1 x2 x3 x4 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.op_60_62(x2)(x3)(x1)(st))(st)+c__case_24_case__6 x1 x2 x3 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_align(x1)(st))(Curry.Module.OraclePretty.c_enclose(x2)(x3)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_cat(x8)(st))((Curry.Module.Prelude.:<)(x6)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.op_60_62(x4)))))(x7)(x9)(st)))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_24_case__6 x1 x2 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_24_case__6(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_24_case__6 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_24_case__6")(x)++++c__case_23_case__7 x1 x2 x3 x4 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.op_60_62(x2)(x3)(x1)(st))(st)+c__case_23_case__7 x1 x2 x3 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_align(x1)(st))(Curry.Module.OraclePretty.c_enclose(x2)(x3)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_hcat(x8)(st))((Curry.Module.Prelude.:<)(x6)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.op_60_62(x4)))))(x7)(x9)(st)))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_23_case__7 x1 x2 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_23_case__7(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_23_case__7 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_23_case__7")(x)++++c__case_22_case__8 x1 x2 x3 x4 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.op_60_62(x2)(x3)(x1)(st))(st)+c__case_22_case__8 x1 x2 x3 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_align(x1)(st))(Curry.Module.OraclePretty.c_enclose(x2)(x3)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_hcat(x8)(st))((Curry.Module.Prelude.:<)(x6)(Curry.Module.OraclePretty.c_fillEncloseSep'46withSoftBreaks'4696(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.op_60_62(x4)))))(x7)(x9)(st))(x10)(st)))(x11)(st))(x12)(st))(x13)(st))(st)+c__case_22_case__8 x1 x2 x3 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_22_case__8(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_22_case__8 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_22_case__8")(x)++++c__case_20_case__9 x1 x3 x4@Curry.Module.Prelude.List st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.OraclePretty.c_group(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.c_linebreak(x1)(st))(x3)(x7)(st))(x8)(st))(Curry.Module.Prelude.List))(st)+c__case_20_case__9 x1 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)(Curry.Module.OraclePretty.c_group(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.c_linebreak(x1)(st))(Curry.Module.OraclePretty.c_group(Curry.Module.OraclePretty.op_60_62(x3)(Curry.Module.OraclePretty.c_linebreak(x9)(st))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(Curry.Module.OraclePretty.c_fillEncloseSep'46withSoftBreaks'4696(x4)(x14)(st)))(st)+c__case_20_case__9 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_20_case__9(x1)(x3)(x)(st))(i)(xs)(st)+c__case_20_case__9 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_20_case__9")(x)++++c__case_21_case__10 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_21_case__10 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_20(x3)(x4)(x1)(st))(st)+c__case_21_case__10 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_21_case__10(x1)(x)(st))(i)(xs)(st)+c__case_21_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_21_case__10")(x)++++c__case_19_case__11 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_line(x1)(st))(st)+c__case_19_case__11 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_char(x2)(x1)(st))(st)+c__case_19_case__11 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_19_case__11(x1)(x2)(x)(st))(i)(xs)(st)+c__case_19_case__11 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_19_case__11")(x)++++c__case_18_case__12 x1 x2@(Curry.Module.OraclePretty.C_Close x3) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_18_case__12 x1 x2@(Curry.Module.OraclePretty.C_Text x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OraclePretty.C_Open(x2))(st)+c__case_18_case__12 x1 x2@(Curry.Module.OraclePretty.C_Line x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OraclePretty.C_Open(x2))(st)+c__case_18_case__12 x1 x2@(Curry.Module.OraclePretty.C_Open x8) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OraclePretty.C_Open(x2))(st)+c__case_18_case__12 x1 x2@Curry.Module.OraclePretty.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OraclePretty.C_Open(x2))(st)+c__case_18_case__12 x1 x2@(Curry.Module.OraclePretty.C_OpenNest x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OraclePretty.C_Open(x2))(st)+c__case_18_case__12 x1 x2@(Curry.Module.OraclePretty.C_CloseNest x11) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OraclePretty.C_Open(x2))(st)+c__case_18_case__12 x1 (Curry.Module.OraclePretty.C_TokensOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_18_case__12(x1)(x)(st))(i)(xs)(st)+c__case_18_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_18_case__12")(x)++++c__case_17_case__13 x1 x2 x3@Curry.Module.OraclePretty.C_Empty st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x2)(Curry.Module.OraclePretty.C_Empty)(x1)(st))(st)+c__case_17_case__13 x1 x2 x3@(Curry.Module.OraclePretty.C_Open x4) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_normalise'46go'46173(Curry.Module.OraclePrelude.op_46(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_normalise'46open'46173))))(x1)(st))(x4)(x13)(st))(st)+c__case_17_case__13 x1 x2 x3@(Curry.Module.OraclePretty.C_Close x5) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_normalise'46go'46173(Curry.Module.OraclePrelude.op_46(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OraclePretty.C_Close))))(x1)(st))(x5)(x14)(st))(st)+c__case_17_case__13 x1 x2 x3@(Curry.Module.OraclePretty.C_Line x6 x7) st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrelude.op_46(x2)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.OraclePretty.C_Line(x6)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_normalise'46go'46173(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))))))(x1)(st))(x15)(st))(x7)(x16)(st))(st)+c__case_17_case__13 x1 x2 x3@(Curry.Module.OraclePretty.C_Text x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.C_Text(x8)(Curry.Module.OraclePretty.c_normalise'46go'46173(x2)(x9)(x1)(st)))(st)+c__case_17_case__13 x1 x2 x3@(Curry.Module.OraclePretty.C_OpenNest x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.C_OpenNest(x10)(Curry.Module.OraclePretty.c_normalise'46go'46173(x2)(x11)(x1)(st)))(st)+c__case_17_case__13 x1 x2 x3@(Curry.Module.OraclePretty.C_CloseNest x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.C_CloseNest(Curry.Module.OraclePretty.c_normalise'46go'46173(x2)(x12)(x1)(st)))(st)+c__case_17_case__13 x1 x2 (Curry.Module.OraclePretty.C_TokensOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_17_case__13(x1)(x2)(x)(st))(i)(xs)(st)+c__case_17_case__13 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_17_case__13")(x)++++c__case_16_case__14 x1 x2@(Curry.Module.OraclePretty.C_Doc x3) st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_normalise(x1)(st))(Curry.Module.Oracle.c_apply(x3)(Curry.Module.OraclePretty.C_Empty)(x4)(st))(x5)(st))(st)+c__case_16_case__14 x1 (Curry.Module.OraclePretty.C_DocOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_16_case__14(x1)(x)(st))(i)(xs)(st)+c__case_16_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_16_case__14")(x)++++c__case_14_case__15 x1 x3 x4 x11 x6@((Curry.Module.Prelude.:<) x12 x13) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_replicate(x12)(Curry.Module.Prelude.C_Char(' '))(x1)(st))(Curry.Module.OraclePretty.c_noGroup(x11)(x3)(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x14)(st))(Curry.Module.OraclePrelude.op_45(x3)(x12)(x15)(st))(x6)(x16)(st))(x17)(st)))(st)+c__case_14_case__15 x1 x3 x4 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_14_case__15(x1)(x3)(x4)(x11)(x)(st))(i)(xs)(st)+c__case_14_case__15 x1 x3 x4 x11 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_14_case__15")(x)++++c__case_15_case__16 x1 x3 x4 x5 x6 x2@Curry.Module.OraclePretty.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_15_case__16 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_Text x7 x8) st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))(let {x9 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_length(x1)(st))(x7)(x19)(st)} in let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(x7)(Curry.Module.OraclePretty.c_noGroup(x8)(x3)(Curry.Module.OraclePrelude.op_43(x4)(x9)(x20)(st))(Curry.Module.OraclePrelude.op_45(x5)(x9)(x21)(st))(x6)(x22)(st))(x23)(st))(st))(st)+c__case_15_case__16 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_Line x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_14(x3)(x4)(x11)(x6)(x1)(st))(st)+c__case_15_case__16 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_Open x14) st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_oneGroup(x14)(x3)(x4)(Curry.Module.OraclePrelude.op_43(x4)(x5)(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_noGroup'46_'35lambda6))(st))(x24)(st))(x5)(x25)(st))(x6)(x26)(st))(st)+c__case_15_case__16 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_Close x15) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_noGroup(x15)(x3)(x4)(x5)(x6)(x1)(st))(st)+c__case_15_case__16 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_OpenNest x16 x17) st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))))(Curry.Module.OraclePretty.c_noGroup(x17)(x3)(x4)(x5)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x16)(x6)(x1)(st))(x5)(x27)(st))(x3)(x28)(st))(x29)(st))(st)+c__case_15_case__16 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_CloseNest x18) st = let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_noGroup(x18)(x3)(x4)(x5)(Curry.Module.OraclePrelude.c_tail(x6)(x1)(st))(x30)(st))(st)+c__case_15_case__16 x1 x3 x4 x5 x6 (Curry.Module.OraclePretty.C_TokensOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_15_case__16(x1)(x3)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_15_case__16 x1 x3 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_15_case__16")(x)++++c__case_13_case__17 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_Text x7 x8) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))(let {x9 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_length(x1)(st))(x7)(x18)(st)} in let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_pruneOne(x8)(x3)(Curry.Module.OraclePrelude.op_43(x4)(x9)(x19)(st))(x5)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_oneGroup'46_'35lambda7(x9)(x6)(x7)))(st))(x20)(st))(st))(st)+c__case_13_case__17 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_Line x10 x11) st = let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List)))(let {x12 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_length(x1)(st))(x10)(x21)(st)} in let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_pruneOne(x11)(x3)(Curry.Module.OraclePrelude.op_43(x4)(x12)(x22)(st))(x5)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_oneGroup'46_'35lambda8(x12)(x6)(x10)(x3)))(st))(x23)(st))(st))(st)+c__case_13_case__17 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_Open x13) st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_multiGroup(x13)(x3)(x4)(x5)(x6)(Curry.Module.OracleDequeue.c_empty(x1)(st))(x4)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_oneGroup'46_'35lambda9))(st))(x24)(st))(st)+c__case_13_case__17 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_Close x14) st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x6)(Curry.Module.OraclePrelude.op_60_61(x4)(x5)(x1)(st))(x25)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_noGroup(x14)(x3)(x4)))(st))(x26)(st))(st)+c__case_13_case__17 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_OpenNest x15 x16) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_oneGroup(x16)(x3)(x4)(x5)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_oneGroup'46_'35lambda10(x15)(x6)(x3)))(st))(x1)(st))(st)+c__case_13_case__17 x1 x3 x4 x5 x6 x2@(Curry.Module.OraclePretty.C_CloseNest x17) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_oneGroup(x17)(x3)(x4)(x5)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_oneGroup'46_'35lambda12(x6)))(st))(x1)(st))(st)+c__case_13_case__17 x1 x3 x4 x5 x6 (Curry.Module.OraclePretty.C_TokensOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_13_case__17(x1)(x3)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_13_case__17 x1 x3 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_13_case__17")(x)++++c__case_11_case__18 x1 x2 x3 x4 x6 x7 x8 x9 x5@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x6)(Curry.Module.OraclePrelude.op_45(x7)(x2)(x1)(st))(x10)(st))(x8)(x11)(st))(x12)(st))(st)+c__case_11_case__18 x1 x2 x3 x4 x6 x7 x8 x9 x5@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_replicate(x9)(Curry.Module.Prelude.C_Char(' '))(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x6)(Curry.Module.OraclePrelude.op_45(x4)(x9)(x13)(st))(x14)(st))(x8)(x15)(st))(x16)(st)))(st)+c__case_11_case__18 x1 x2 x3 x4 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_11_case__18(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_11_case__18 x1 x2 x3 x4 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_11_case__18")(x)++++c__case_12_case__19 x1 x2 x3 x4 x5 x6 x7 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_11(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x5)(x1)(st))(st)+c__case_12_case__19 x1 x2 x3 x4 x5 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_12_case__19(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_12_case__19 x1 x2 x3 x4 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_12_case__19")(x)++++c__case_7_case__20 x1 x3 x4 x5 x6 x8 x9 x17 x20 x19@(Curry.Module.Prelude.T2 x21 x22) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_multiGroup(x17)(x3)(x4)(x5)(x6)(x20)(x21)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46_'35lambda20(x22)(x9)(x4)(x8)))(st))(x1)(st))(st)+c__case_7_case__20 x1 x3 x4 x5 x6 x8 x9 x17 x20 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_7_case__20(x1)(x3)(x4)(x5)(x6)(x8)(x9)(x17)(x20)(x)(st))(i)(xs)(st)+c__case_7_case__20 x1 x3 x4 x5 x6 x8 x9 x17 x20 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_7_case__20")(x)++++c__case_8_case__21 x1 x3 x4 x5 x6 x8 x9 x17 x18@(Curry.Module.Prelude.T2 x19 x20) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_7(x3)(x4)(x5)(x6)(x8)(x9)(x17)(x20)(x19)(x1)(st))(st)+c__case_8_case__21 x1 x3 x4 x5 x6 x8 x9 x17 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_8_case__21(x1)(x3)(x4)(x5)(x6)(x8)(x9)(x17)(x)(st))(i)(xs)(st)+c__case_8_case__21 x1 x3 x4 x5 x6 x8 x9 x17 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_8_case__21")(x)++++c__case_9_case__22 x1 x3 x4 x5 x6 x8 x9 x17 x19@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_oneGroup(x17)(x3)(x4)(x5)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46_'35lambda18(x9)(x6)(x4)(x8)))(st))(x1)(st))(st)+c__case_9_case__22 x1 x3 x4 x5 x6 x8 x9 x17 x19@(Curry.Module.Prelude.C_Just x18) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_8(x3)(x4)(x5)(x6)(x8)(x9)(x17)(x18)(x1)(st))(st)+c__case_9_case__22 x1 x3 x4 x5 x6 x8 x9 x17 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_9_case__22(x1)(x3)(x4)(x5)(x6)(x8)(x9)(x17)(x)(st))(i)(xs)(st)+c__case_9_case__22 x1 x3 x4 x5 x6 x8 x9 x17 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_9_case__22")(x)++++c__case_10_case__23 x1 x3 x4 x5 x6 x7 x8 x9 x2@(Curry.Module.OraclePretty.C_Text x10 x11) st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))(let {x12 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_length(x1)(st))(x10)(x26)(st)} in let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x27)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_pruneMulti(x11)(x3)(Curry.Module.OraclePrelude.op_43(x4)(x12)(x27)(st))(x5)(x6)(x7)(x8)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46_'35lambda14(x12)(x9)(x10)))(st))(x28)(st))(st))(st)+c__case_10_case__23 x1 x3 x4 x5 x6 x7 x8 x9 x2@(Curry.Module.OraclePretty.C_Line x13 x14) st = let {x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List)))(let {x15 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_length(x1)(st))(x13)(x29)(st)} in let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_pruneMulti(x14)(x3)(Curry.Module.OraclePrelude.op_43(x4)(x15)(x30)(st))(x5)(x6)(x7)(x8)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46_'35lambda15(x15)(x9)(x13)(x3)))(st))(x31)(st))(st))(st)+c__case_10_case__23 x1 x3 x4 x5 x6 x7 x8 x9 x2@(Curry.Module.OraclePretty.C_Open x16) st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c_multiGroup(x16)(x3)(x4)(x5)(x6)(Curry.Module.OracleDequeue.c_cons(Curry.Module.Prelude.T2(x8)(x9))(x7)(x1)(st))(x4)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46_'35lambda16))(st))(x32)(st))(st)+c__case_10_case__23 x1 x3 x4 x5 x6 x7 x8 x9 x2@(Curry.Module.OraclePretty.C_Close x17) st = let {x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List))(Curry.Module.OraclePretty.c__case_9(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x17)(Curry.Module.OracleDequeue.c_matchHead(x7)(x1)(st))(x33)(st))(st)+c__case_10_case__23 x1 x3 x4 x5 x6 x7 x8 x9 x2@(Curry.Module.OraclePretty.C_OpenNest x23 x24) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_multiGroup(x24)(x3)(x4)(x5)(x6)(x7)(x8)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46_'35lambda22(x23)(x9)(x3)))(st))(x1)(st))(st)+c__case_10_case__23 x1 x3 x4 x5 x6 x7 x8 x9 x2@(Curry.Module.OraclePretty.C_CloseNest x25) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_multiGroup(x25)(x3)(x4)(x5)(x6)(x7)(x8)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_multiGroup'46_'35lambda24(x9)))(st))(x1)(st))(st)+c__case_10_case__23 x1 x3 x4 x5 x6 x7 x8 x9 (Curry.Module.OraclePretty.C_TokensOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_10_case__23(x1)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_10_case__23 x1 x3 x4 x5 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_10_case__23")(x)++++c__case_5_case__24 x1 x2 x3 x4 x6 x7 x8 x9 x5@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x6)(Curry.Module.OraclePrelude.op_45(x7)(x2)(x1)(st))(x10)(st))(x8)(x11)(st))(x12)(st))(st)+c__case_5_case__24 x1 x2 x3 x4 x6 x7 x8 x9 x5@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_replicate(x9)(Curry.Module.Prelude.C_Char(' '))(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x6)(Curry.Module.OraclePrelude.op_45(x4)(x9)(x13)(st))(x14)(st))(x8)(x15)(st))(x16)(st)))(st)+c__case_5_case__24 x1 x2 x3 x4 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_5_case__24(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_5_case__24 x1 x2 x3 x4 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_5_case__24")(x)++++c__case_6_case__25 x1 x2 x3 x4 x5 x6 x7 x8@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_5(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x5)(x1)(st))(st)+c__case_6_case__25 x1 x2 x3 x4 x5 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_6_case__25(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_6_case__25 x1 x2 x3 x4 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_6_case__25")(x)++++c__case_4_case__26 x1 x2 x3 x4 x5 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_oneGroup(x2)(x3)(x4)(x5)(x6)(x1)(st))(st)+c__case_4_case__26 x1 x2 x3 x4 x5 x6 x7@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x6)(Curry.Module.Prelude.C_False)(x1)(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_noGroup(x2)(x3)(x4)))(st))(x8)(st))(st)+c__case_4_case__26 x1 x2 x3 x4 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_4_case__26(x1)(x2)(x3)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_4_case__26 x1 x2 x3 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_4_case__26")(x)++++c__case_3_case__27 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_multiGroup(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x1)(st))(st)+c__case_3_case__27 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x6)(Curry.Module.Prelude.C_False)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_pruneMulti'46_'35lambda26(x9)(x4)(x7)(x8)(x2)(x3)))))(x11)(st))(st)+c__case_3_case__27 x1 x2 x3 x4 x5 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_3_case__27(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_3_case__27 x1 x2 x3 x4 x5 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_3_case__27")(x)++++c__case_0_case__28 x1 x2 x3 x5 x6 x7 x8 x11 x10@(Curry.Module.Prelude.T2 x12 x13) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_pruneMulti(x6)(x7)(x3)(Curry.Module.OraclePrelude.op_43(x12)(x8)(x1)(st))(x13)(x11)(x5)(x2)(x14)(st))(x8)(x15)(st))(st)+c__case_0_case__28 x1 x2 x3 x5 x6 x7 x8 x11 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_0_case__28(x1)(x2)(x3)(x5)(x6)(x7)(x8)(x11)(x)(st))(i)(xs)(st)+c__case_0_case__28 x1 x2 x3 x5 x6 x7 x8 x11 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_0_case__28")(x)++++c__case_1_case__29 x1 x2 x3 x5 x6 x7 x8 x9@(Curry.Module.Prelude.T2 x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_0(x2)(x3)(x5)(x6)(x7)(x8)(x11)(x10)(x1)(st))(st)+c__case_1_case__29 x1 x2 x3 x5 x6 x7 x8 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_1_case__29(x1)(x2)(x3)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_1_case__29 x1 x2 x3 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_1_case__29")(x)++++c__case_2_case__30 x1 x2 x3 x5 x6 x7 x8 x10@Curry.Module.Prelude.C_Nothing st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_pruneOne(x6)(x7)(x3)(Curry.Module.OraclePrelude.op_43(x5)(x8)(x1)(st))(x2)(x11)(st))(x8)(x12)(st))(st)+c__case_2_case__30 x1 x2 x3 x5 x6 x7 x8 x10@(Curry.Module.Prelude.C_Just x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c__case_1(x2)(x3)(x5)(x6)(x7)(x8)(x9)(x1)(st))(st)+c__case_2_case__30 x1 x2 x3 x5 x6 x7 x8 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePretty.c__case_2_case__30(x1)(x2)(x3)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_2_case__30 x1 x2 x3 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OraclePretty._case_2_case__30")(x)++
+ dist/build/Curry/Module/OraclePrettyFlat.hs view
@@ -0,0 +1,1723 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OraclePrettyFlat (module Curry.Module.OraclePrettyFlat) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.PrettyFlat+import Curry.Module.Char+import Curry.Module.FlatCurry+import Curry.Module.FlatCurryGoodies+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.Pretty+import Curry.Module.StyledText+import Curry.Module.System+import Curry.Module.OracleChar+import Curry.Module.OracleFlatCurry+import Curry.Module.OracleFlatCurryGoodies+import Curry.Module.OracleMaybe+import Curry.Module.OraclePrelude+import Curry.Module.OraclePretty+import Curry.Module.OracleStyledText+import Curry.Module.OracleSystem++++-- begin included++++-- end included++c_prelude :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prelude x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))(st)++++c_arrow :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_arrow x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x1)(st))(Curry.Module.OraclePretty.c_text((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.Prelude.List)))(x2)(st))(x3)(st))(st)++++c_bar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_bar x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x1)(st))(Curry.Module.OraclePretty.c_char(Curry.Module.Prelude.C_Char('|'))(x2)(st))(x3)(st))(st)++++c_dcolon :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_dcolon x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x1)(st))(Curry.Module.OraclePretty.c_text((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))(x2)(st))(x3)(st))(st)++++c_precFillEncloseSep :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_precFillEncloseSep x2 x3 x4 x5 x6 x7 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePretty.c_fillEncloseSep(Curry.Module.OraclePrettyFlat.c_precFillEncloseSep'46pre'4611(x2)(x3)(x4)(x1)(st))(Curry.Module.OraclePrettyFlat.c_precFillEncloseSep'46pre'4611(x2)(x3)(x5)(x8)(st))(x6)(x7)(x9)(st))(st)++++c_precFillEncloseSep'46pre'4611 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_precFillEncloseSep'46pre'4611 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_117(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_60(x2)(x3)(x1)(st))(x5)(st))(st)++++c_isInfixName :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isInfixName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_115(x2)(x1)(st))(st)++++c_infixIDs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_infixIDs x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('~'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('@'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('$'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('%'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('^'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('*'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('+'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('|'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List)))))))))))))))))))))(st)++++c_isTupleName :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isTupleName x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_114(x2)(x1)(st))(st)++++c_showStyledProg :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_showStyledProg x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c_prettyProg(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))(x1)(st))(st)++++c_prettyProg :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_prettyProg x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_pretty(x2)))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_progDoc))))(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_updProgExps(x1)(st))(Curry.Module.OraclePrettyFlat.c_elimApp(x3)(st))(x4)(st))(x5)(st))(x6)(st))(st)++++c_prettyTypeExpr :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_TypeExpr -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_prettyTypeExpr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_pretty(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_typeExprDoc(x2)(Curry.Module.Prelude.C_False)))))(x1)(st))(st)++++c_prettyTypes :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_prettyTypes x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_pretty(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))))))(Curry.Module.OraclePrettyFlat.c_typesDoc(x2)(x1)(st))(x3)(st))(st)++++c_prettyOps :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_prettyOps x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_pretty(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_opsDoc))))(x1)(st))(st)++++c_showProg :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Prog -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_showProg x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleStyledText.c_plainText(x1)(st))(Curry.Module.OraclePrettyFlat.c_showStyledProg(x2)(st))(x3)(st))(st)++++c_printStyledProg :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_printStyledProg x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFlatCurry.c_readFlatCurry(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleStyledText.c_printStyledText(x3)(st))(Curry.Module.OraclePrettyFlat.c_showStyledProg(x4)(st))(x5)(st))(x6)(st))(st)++++c_mainPrint :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_mainPrint x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleSystem.c_getArgs(x1)(st))(Curry.Module.OraclePrelude.c_mapIO_(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_printProg))))(x2)(st))(x3)(st))(st)++++c_printProg :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_printProg x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleFlatCurry.c_readFlatCurryFile(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_putStrLn))))(Curry.Module.OraclePrettyFlat.c_showProg(x3)(st))(x4)(st))(x5)(st))(st)++++c_keyword :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_keyword x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleStyledText.c_magentaDoc(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_text))))(x2)(st))(st)++++c_consname :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_consname x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleStyledText.c_greenDoc(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_text))))(x2)(st))(st)++++c_operator :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_operator x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c_blueDoc(x1)(st))(st)++++c_literal :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_literal x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c_cyanDoc(x1)(st))(st)++++c_marked :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_marked x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.OracleStyledText.c_bgYellowDoc(x1)(st))(Curry.Module.OracleStyledText.c_boldDoc(x2)(st))(x3)(st))(st)++++c_block :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_block x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_group))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_hang(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_def :: Curry.Module.OraclePretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_def x2 x3 x4 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_block(x7)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_36_62(x8)(st))(Curry.Module.OraclePretty.op_60_62(x2)(Curry.Module.OraclePrettyFlat.c__case_113(x3)(Curry.Module.OraclePrelude.c_null(x3)(x1)(st))(x6)(st))(x9)(st))(x10)(st))(x4)(x11)(st))(x12)(st))(st))(st)++++c_app :: Curry.Module.OraclePretty.C_Doc -> (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_app x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_112(x2)(x3)(Curry.Module.OraclePrelude.c_null(x3)(x1)(st))(x4)(st))(st)++++c_layout :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_layout x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePretty.c_align(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_compose(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.c_combine(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_linesep(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(x3)(st))))(st))))))(x4)(st))(st)++++c_qname :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_qname x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_111(x2)(x3)(x1)(st))(st)++++c_qname'46txt'4665 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_qname'46txt'4665 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_105(x2)(x1)(st))(st)++++c_correctName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_correctName x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.CEventOracle.c_replace(x5)(Curry.Module.OraclePrettyFlat.c__case_103(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_not))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_elem))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('#'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))(Curry.Module.Prelude.List)))))))(x1)(st))(x2)(x4)(st))(x5)(st))(st))(st)++++op_60_36_62_62 :: Curry.Module.OraclePretty.C_Doc -> Curry.Module.OraclePretty.C_Doc -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+op_60_36_62_62 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePretty.op_60_62(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_36_62(x1)(st))(x2)(x4)(st))(Curry.Module.OraclePretty.c_line(x5)(st))(x6)(st))(x3)(x7)(st))(st)++++c_progDoc :: Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_progDoc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_101(x2)(x1)(st))(st)++++c_precs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)))+c_precs x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_precs'46_'35lambda3))))))))(st)++++c_precs'46_'35lambda3 :: Curry.Module.FlatCurry.C_OpDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int+c_precs'46_'35lambda3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_100(x2)(x1)(st))(st)++++c_exportedNames :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Prog -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc+c_exportedNames x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_99(x2)(x3)(x1)(st))(st)++++c_exportedNames'46typeExpDoc'4689 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_TypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_exportedNames'46typeExpDoc'4689 x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(let {x4 = Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.FlatCurry.C_Public)))))(Curry.Module.OracleFlatCurryGoodies.c_consVisibility(x1)(st))(x5)(st))(Curry.Module.OracleFlatCurryGoodies.c_trType(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OraclePrettyFlat.c_exportedNames'46typeExpDoc'4689'46_'35lambda4))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))))))(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.OraclePrettyFlat.c_exportedNames'46typeExpDoc'4689'46_'35lambda5))(st))(x3)(x6)(st))(x7)(st)} in let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePrettyFlat.c_qname(x2)(Curry.Module.Oracle.c_apply(Curry.Module.OracleFlatCurryGoodies.c_typeName(x8)(st))(x3)(x9)(st))(x10)(st))(Curry.Module.OraclePrettyFlat.c__case_98(x4)(Curry.Module.OraclePrelude.c_null(x4)(x11)(st))(x12)(st))(x13)(st))(st))(st)++++c_exportedNames'46typeExpDoc'4689'46_'35lambda4 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl+c_exportedNames'46typeExpDoc'4689'46_'35lambda4 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)++++c_exportedNames'46typeExpDoc'4689'46_'35lambda5 :: (Curry t1) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Visibility -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Int) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1+c_exportedNames'46typeExpDoc'4689'46_'35lambda5 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)++++c_moduleHeaderDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_moduleHeaderDoc x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))))))))))))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x4)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x5)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))(x7)(st))(x8)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_consname(x9)(st))(x2)(x10)(st))(x11)(st))(x12)(st))(Curry.Module.OraclePrettyFlat.c_exportsDoc(x3)(x13)(st))(x14)(st))(x15)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x16)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('w'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))(x17)(st))(x18)(st))(st)++++c_exportsDoc :: (Curry.Module.Prelude.List Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_exportsDoc x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))))))))))))))(Curry.Module.OraclePretty.c_group(Curry.Module.OraclePretty.c_nest(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_36_62(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_36_62(x3)(st))(Curry.Module.OraclePretty.c_lparen(x4)(st))(x5)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_align(x6)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_fillSep(x7)(st))(Curry.Module.OraclePretty.c_punctuate(Curry.Module.OraclePretty.c_comma(x8)(st))(x2)(x9)(st))(x10)(st))(x11)(st))(x12)(st))(x13)(st))(Curry.Module.OraclePretty.c_rparen(x14)(st))(x15)(st))(x16)(st))(x17)(st))(st)++++c_impsDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_impsDoc x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_vcat(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x3)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))))(x5)(st))(x6)(st))(Curry.Module.OraclePrettyFlat.c_consname(x7)(st))(x8)(st))(x2)(x9)(st))(x10)(st))(st)++++c_opsDoc :: (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_OpDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_opsDoc x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_vcat(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_opDoc))))(x2)(x3)(st))(x4)(st))(st)++++c_opDoc :: Curry.Module.FlatCurry.C_OpDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_opDoc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_97(x2)(x1)(st))(st)++++c_opDoc'46fixDoc'46114 :: Curry.Module.FlatCurry.C_Fixity -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_opDoc'46fixDoc'46114 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_94(x2)(x1)(st))(st)++++c_typesDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeDecl) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_typesDoc x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePretty.c_vcat(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_typeDoc(x2)))))))))(x3)(st))(st)++++c_typeDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_TypeDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_typeDoc x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_93(x2)(x3)(x1)(st))(st)++++c_varDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.C_Int -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_varDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_text))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_show))))(x1)(st))(x2)(st))(st)++++c_tvarDoc :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_tvarDoc x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_92(x2)(Curry.Module.OraclePrelude.op_62(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(x3)(st))(st)++++c_consDeclsDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.FlatCurry.C_ConsDecl) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_consDeclsDoc x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))))))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_fillEncloseSep(Curry.Module.OraclePretty.op_60_62(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x1)(st))(Curry.Module.OraclePretty.c_equals(x3)(st))(x4)(st))(Curry.Module.OraclePretty.c_space(x5)(st))(x6)(st))(Curry.Module.OraclePretty.c_empty(x7)(st))(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePrettyFlat.c_bar(x8)(st))(Curry.Module.OraclePretty.c_space(x9)(st))(x10)(st))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.op_60_62))(st))(Curry.Module.OraclePretty.c_space(x11)(st))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_consDeclDoc(x2)))))(x12)(st))))))(x13)(st))(st)++++c_consDeclDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_ConsDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_consDeclDoc x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_90(x2)(x3)(x1)(st))(st)++++c_typeExprDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_typeExprDoc x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_89(x2)(x3)(x4)(x1)(st))(st)++++c_par :: Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_par x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_84(x2)(x1)(st))(st)++++c_funcsDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_FuncDecl) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_funcsDoc x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_vcat(x1)(st))(Curry.Module.OraclePretty.c_punctuate(Curry.Module.OraclePretty.c_line(x5)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_funcDoc(x2)(x3)))))(x4)(x6)(st))(x7)(st))(x8)(st))(st)++++c_funcDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_FuncDecl -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_funcDoc x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_83(x2)(x3)(x4)(x1)(st))(st)++++c_funcTypeDeclDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_funcTypeDeclDoc x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrettyFlat.c_def(Curry.Module.OraclePrettyFlat.c_qname(x2)(x3)(x1)(st))(Curry.Module.Prelude.List)(Curry.Module.OraclePrettyFlat.c_funcTypeDoc(x2)(Curry.Module.OracleFlatCurryGoodies.c_argTypes(x4)(x5)(st))(Curry.Module.OracleFlatCurryGoodies.c_resultType(x4)(x6)(st))(x7)(st))(x8)(st))(st)++++c_funcTypeDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_TypeExpr) -> Curry.Module.FlatCurry.C_TypeExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_funcTypeDoc x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))))))))))(Curry.Module.OraclePretty.c_fillEncloseSep(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePrettyFlat.c_dcolon(x1)(st))(Curry.Module.OraclePretty.c_space(x5)(st))(x6)(st))(Curry.Module.OraclePretty.c_empty(x7)(st))(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePrettyFlat.c_arrow(x8)(st))(Curry.Module.OraclePretty.c_space(x9)(st))(x10)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePretty.op_60_62))(st))(Curry.Module.OraclePretty.c_space(x11)(st))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_typeExprDoc(x2)(Curry.Module.Prelude.C_True)))))(x12)(st))(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(x13)(st))(x14)(st))(x15)(st))(st)++++c_ruleDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.FlatCurry.C_Rule -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_ruleDoc x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_82(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_expDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_expDoc x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrettyFlat.c_expDoc2(x2)(Curry.Module.Prelude.C_Zero)(x4)(x5)(x6)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_expDoc'46_'35lambda6(x4)(x2)))))(Curry.Module.OraclePrettyFlat.c_toList(x6)(x7)(st))(x8)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_expDoc'46_'35lambda7))))(Curry.Module.OraclePrettyFlat.c_toString(x6)(x9)(st))(x10)(st))(st)++++c_expDoc'46_'35lambda6 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_expDoc'46_'35lambda6 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_list(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_expDoc(x3)(Curry.Module.Prelude.C_Zero)(x2)(Curry.Module.Prelude.C_False)))))(x4)(x5)(st))(x6)(st))(st)++++c_expDoc'46_'35lambda7 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_expDoc'46_'35lambda7 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_81(x2)(Curry.Module.OraclePrelude.c_null(x2)(x1)(st))(x3)(st))(st)++++c_expDoc2 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_expDoc2 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_80(x2)(x3)(x4)(x5)(x6)(x1)(st))(st)++++c_expDoc2'46_'35selFP3'35lbr :: (Curry.Module.Prelude.T2 Curry.Module.OraclePretty.C_Doc Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_expDoc2'46_'35selFP3'35lbr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_73(x2)(x1)(st))(st)++++c_expDoc2'46_'35selFP4'35rbr :: (Curry.Module.Prelude.T2 Curry.Module.OraclePretty.C_Doc Curry.Module.OraclePretty.C_Doc) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_expDoc2'46_'35selFP4'35rbr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_72(x2)(x1)(st))(st)++++c_branchDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_BranchExpr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_branchDoc x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_71(x2)(x3)(x4)(x1)(st))(st)++++c_caseTypeDoc :: Curry.Module.FlatCurry.C_CaseType -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_caseTypeDoc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_70(x2)(x1)(st))(st)++++c_patternDoc :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.FlatCurry.C_Pattern -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_patternDoc x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_69(x2)(x3)(x1)(st))(st)++++c_letBindsDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr)) -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_letBindsDoc x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.OraclePrettyFlat.c_layout(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_letBindDoc(x2)(x3)))))))))(x4)(st))(st)++++c_letBindDoc :: (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) Curry.Module.Prelude.C_Int)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_letBindDoc x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_64(x2)(x3)(x4)(x1)(st))(st)++++c_litDoc :: Curry.Module.FlatCurry.C_Literal -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc+c_litDoc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_63(x2)(x1)(st))(st)++++c_quoteChar :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_quoteChar x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_maybe((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.OraclePrelude.c_lookup(x2)(Curry.Module.OraclePrettyFlat.c_specialChars(x1)(st))(x3)(st))(x4)(st))(st)++++c_specialChars :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Char (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_specialChars x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('\r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.Prelude.C_Char('\t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\\'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))(Curry.Module.Prelude.List)))))(st)++++c_toString :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_toString x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_62(x2)(x1)(st))(st)++++c_toList :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr)+c_toList x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_31(x2)(x1)(st))(st)++++c_elimApp :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.FlatCurry.C_Expr -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr))+c_elimApp x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleFlatCurryGoodies.c_updCombs(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.pf(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))))))(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.OraclePrettyFlat.c_elimApp'46elim'46276))(st))(x1)(st))(st)++++c_elimApp'46extend'46276 :: Curry.Module.FlatCurry.C_Expr -> Curry.Module.FlatCurry.C_Expr -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_elimApp'46extend'46276 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_2(x3)(x2)(x1)(st))(st)++++c_elimApp'46elim'46276 :: Curry.Module.FlatCurry.C_CombType -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.FlatCurry.C_Expr) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.FlatCurry.C_Expr+c_elimApp'46elim'46276 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrettyFlat.c__case_1(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.FlatCurry.C_FuncCall)(x1)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.T2(Curry.Module.OraclePrettyFlat.c_prelude(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x6)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleFlatCurryGoodies.c_isComb(Curry.Module.OraclePrelude.c_head(x4)(x7)(st))(x8)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.OracleFlatCurryGoodies.c_combName(Curry.Module.OraclePrelude.c_head(x4)(x9)(st))(x10)(st))(Curry.Module.Prelude.T2(Curry.Module.OraclePrettyFlat.c_prelude(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(st)++++c__case_1 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_1_case__117(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_0 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_0_case__116(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_2 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_2_case__115(x1)(x3)(x2)(st))(st)++++c__case_31 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_31_case__114(x1)(x2)(st))(st)++++c__case_30 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_30_case__113(x1)(x4)(x5)(x3)(st))(st)++++c__case_29 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_29_case__112(x1)(x5)(x4)(st))(st)++++c__case_28 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_28_case__111(x1)(x5)(x7)(x6)(st))(st)++++c__case_27 x5 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_27_case__110(x1)(x5)(x7)(x9)(x10)(st))(st)++++c__case_26 x5 x7 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_26_case__109(x1)(x5)(x7)(x9)(st))(st)++++c__case_25 x5 x7 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_25_case__108(x1)(x5)(x7)(x11)(x12)(st))(st)++++c__case_24 x5 x7 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_24_case__107(x1)(x5)(x7)(x11)(st))(st)++++c__case_23 x5 x7 x12 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_23_case__106(x1)(x5)(x7)(x13)(x14)(st))(st)++++c__case_22 x5 x7 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_22_case__105(x1)(x5)(x7)(x13)(st))(st)++++c__case_21 x5 x7 x14 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_21_case__104(x1)(x5)(x7)(x15)(x16)(st))(st)++++c__case_20 x5 x7 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_20_case__103(x1)(x5)(x7)(x15)(st))(st)++++c__case_19 x5 x7 x16 x17 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_19_case__102(x1)(x5)(x7)(x17)(x18)(st))(st)++++c__case_18 x5 x7 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_18_case__101(x1)(x5)(x7)(x17)(st))(st)++++c__case_17 x5 x7 x18 x19 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_17_case__100(x1)(x5)(x7)(x19)(x20)(st))(st)++++c__case_16 x5 x7 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_16_case__99(x1)(x5)(x7)(x19)(st))(st)++++c__case_15 x5 x7 x20 x21 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_15_case__98(x1)(x5)(x7)(x21)(x22)(st))(st)++++c__case_14 x5 x7 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_14_case__97(x1)(x5)(x7)(x21)(st))(st)++++c__case_13 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_13_case__96(x1)(x5)(x7)(st))(st)++++c__case_12 x5 x22 x23 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_12_case__95(x1)(x5)(x22)(x23)(x24)(st))(st)++++c__case_7 x5 x22 x23 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_7_case__94(x1)(x5)(x23)(x24)(st))(st)++++c__case_6 x5 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_6_case__93(x1)(x5)(x23)(st))(st)++++c__case_5 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_5_case__92(x1)(x5)(st))(st)++++c__case_4 x30 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_4_case__91(x1)(x30)(x31)(st))(st)++++c__case_3 x30 x32 x33 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_3_case__90(x1)(x30)(x32)(x33)(st))(st)++++c__case_11 x5 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_11_case__89(x1)(x5)(x23)(st))(st)++++c__case_10 x5 x24 x25 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_10_case__88(x1)(x5)(x25)(x26)(st))(st)++++c__case_9 x5 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_9_case__87(x1)(x5)(x25)(st))(st)++++c__case_8 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_8_case__86(x1)(x5)(st))(st)++++c__case_62 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_62_case__85(x1)(x2)(st))(st)++++c__case_61 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_61_case__84(x1)(x4)(x5)(x3)(st))(st)++++c__case_60 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_60_case__83(x1)(x5)(x4)(st))(st)++++c__case_59 x5 x7 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_59_case__82(x1)(x5)(x7)(x6)(st))(st)++++c__case_58 x5 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_58_case__81(x1)(x5)(x7)(x9)(x10)(st))(st)++++c__case_57 x5 x7 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_57_case__80(x1)(x5)(x7)(x9)(st))(st)++++c__case_56 x5 x7 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_56_case__79(x1)(x5)(x7)(x11)(x12)(st))(st)++++c__case_55 x5 x7 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_55_case__78(x1)(x5)(x7)(x11)(st))(st)++++c__case_54 x5 x7 x12 x13 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_54_case__77(x1)(x5)(x7)(x13)(x14)(st))(st)++++c__case_53 x5 x7 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_53_case__76(x1)(x5)(x7)(x13)(st))(st)++++c__case_52 x5 x7 x14 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_52_case__75(x1)(x5)(x7)(x15)(x16)(st))(st)++++c__case_51 x5 x7 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_51_case__74(x1)(x5)(x7)(x15)(st))(st)++++c__case_50 x5 x7 x16 x17 x18 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_50_case__73(x1)(x5)(x7)(x17)(x18)(st))(st)++++c__case_49 x5 x7 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_49_case__72(x1)(x5)(x7)(x17)(st))(st)++++c__case_48 x5 x7 x18 x19 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_48_case__71(x1)(x5)(x7)(x19)(x20)(st))(st)++++c__case_47 x5 x7 x19 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_47_case__70(x1)(x5)(x7)(x19)(st))(st)++++c__case_46 x5 x7 x20 x21 x22 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_46_case__69(x1)(x5)(x7)(x21)(x22)(st))(st)++++c__case_45 x5 x7 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_45_case__68(x1)(x5)(x7)(x21)(st))(st)++++c__case_44 x5 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_44_case__67(x1)(x5)(x7)(st))(st)++++c__case_43 x5 x22 x23 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_43_case__66(x1)(x5)(x22)(x23)(x24)(st))(st)++++c__case_38 x5 x22 x23 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_38_case__65(x1)(x5)(x23)(x24)(st))(st)++++c__case_37 x5 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_37_case__64(x1)(x5)(x23)(st))(st)++++c__case_36 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_36_case__63(x1)(x5)(st))(st)++++c__case_35 x31 x30 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_35_case__62(x1)(x31)(x30)(st))(st)++++c__case_34 x31 x32 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_34_case__61(x1)(x31)(x32)(st))(st)++++c__case_33 x33 x31 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_33_case__60(x1)(x33)(x31)(st))(st)++++c__case_32 x33 x34 x35 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_32_case__59(x1)(x33)(x34)(x35)(st))(st)++++c__case_42 x5 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_42_case__58(x1)(x5)(x23)(st))(st)++++c__case_41 x5 x24 x25 x26 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_41_case__57(x1)(x5)(x25)(x26)(st))(st)++++c__case_40 x5 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_40_case__56(x1)(x5)(x25)(st))(st)++++c__case_39 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_39_case__55(x1)(x5)(st))(st)++++c__case_63 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_63_case__54(x1)(x2)(st))(st)++++c__case_64 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_64_case__53(x1)(x2)(x3)(x4)(st))(st)++++c__case_69 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_69_case__52(x1)(x2)(x3)(st))(st)++++c__case_68 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_68_case__51(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_67 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_67_case__50(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_66 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_66_case__49(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_65 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_65_case__48(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_70 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_70_case__47(x1)(x2)(st))(st)++++c__case_71 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_71_case__46(x1)(x2)(x3)(x4)(st))(st)++++c__case_72 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_72_case__45(x1)(x2)(st))(st)++++c__case_73 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_73_case__44(x1)(x2)(st))(st)++++c__case_80 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_80_case__43(x1)(x2)(x3)(x4)(x5)(x6)(st))(st)++++c__case_74 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_74_case__42(x1)(x5)(st))(st)++++c__case_75 x2 x10 x17 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_75_case__41(x1)(x17)(st))(st)++++c__case_79 x2 x3 x4 x5 x9 x10 x11 x13 x14 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_79_case__40(x1)(x2)(x3)(x4)(x5)(x9)(x10)(x11)(x13)(x14)(x15)(x16)(st))(st)++++c__case_78 x2 x3 x4 x5 x9 x10 x11 x13 x14 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_78_case__39(x1)(x2)(x3)(x4)(x5)(x10)(x11)(x13)(x14)(x15)(x16)(st))(st)++++c__case_77 x2 x3 x4 x5 x10 x11 x13 x14 x15 x16 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_77_case__38(x1)(x2)(x3)(x4)(x5)(x10)(x11)(x13)(x14)(x15)(x16)(st))(st)++++c__case_76 x2 x4 x5 x10 x11 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_76_case__37(x1)(x2)(x4)(x5)(x10)(x11)(x12)(st))(st)++++c__case_81 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_81_case__36(x1)(x2)(x3)(st))(st)++++c__case_82 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_82_case__35(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_83 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_83_case__34(x1)(x2)(x3)(x4)(st))(st)++++c__case_84 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_84_case__33(x1)(x2)(st))(st)++++c__case_89 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_89_case__32(x1)(x2)(x3)(x4)(st))(st)++++c__case_88 x2 x3 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_88_case__31(x1)(x2)(x3)(x6)(x7)(x8)(st))(st)++++c__case_87 x2 x3 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_87_case__30(x1)(x2)(x3)(x6)(x7)(x8)(st))(st)++++c__case_86 x2 x3 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_86_case__29(x1)(x2)(x3)(x6)(x7)(x8)(st))(st)++++c__case_85 x2 x3 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_85_case__28(x1)(x2)(x3)(x6)(x7)(x8)(st))(st)++++c__case_90 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_90_case__27(x1)(x2)(x3)(st))(st)++++c__case_92 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_92_case__26(x1)(x2)(x3)(st))(st)++++c__case_91 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_91_case__25(x1)(x2)(x3)(st))(st)++++c__case_93 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_93_case__24(x1)(x2)(x3)(st))(st)++++c__case_94 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_94_case__23(x1)(x2)(st))(st)++++c__case_97 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_97_case__22(x1)(x2)(st))(st)++++c__case_96 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_96_case__21(x1)(x4)(x5)(x3)(st))(st)++++c__case_95 x3 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_95_case__20(x1)(x7)(x8)(st))(st)++++c__case_98 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_98_case__19(x1)(x5)(st))(st)++++c__case_99 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_99_case__18(x1)(x2)(x3)(st))(st)++++c__case_100 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_100_case__17(x1)(x2)(st))(st)++++c__case_101 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_101_case__16(x1)(x2)(st))(st)++++c__case_103 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_103_case__15(x1)(x3)(st))(st)++++c__case_102 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_102_case__14(x1)(x3)(x5)(x6)(st))(st)++++c__case_105 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_105_case__13(x1)(x2)(st))(st)++++c__case_104 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_104_case__12(x1)(x3)(x4)(x5)(st))(st)++++c__case_111 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_111_case__11(x1)(x2)(x3)(st))(st)++++c__case_110 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_110_case__10(x1)(x2)(x3)(x4)(x5)(x6)(st))(st)++++c__case_109 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_109_case__9(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_107 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_107_case__8(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_106 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_106_case__7(x1)(x4)(x5)(x6)(st))(st)++++c__case_108 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_108_case__6(x1)(x4)(x5)(x6)(st))(st)++++c__case_112 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_112_case__5(x1)(x2)(x3)(x4)(st))(st)++++c__case_113 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_113_case__4(x1)(x3)(x4)(st))(st)++++c__case_114 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_114_case__3(x1)(x2)(st))(st)++++c__case_115 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_115_case__2(x1)(x2)(st))(st)++++c__case_117 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_117_case__1(x1)(x4)(x5)(st))(st)++++c__case_116 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_116_case__0(x1)(x4)(x5)(st))(st)++++c__case_116_case__0 x1 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_116_case__0 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_116_case__0 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_116_case__0(x1)(x4)(x)(st))(i)(xs)(st)+c__case_116_case__0 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_116_case__0")(x)++++c__case_117_case__1 x1 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_empty(x1)(st))(st)+c__case_117_case__1 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_116(x4)(Curry.Module.Prelude.C_True)(x1)(st))(st)+c__case_117_case__1 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_117_case__1(x1)(x4)(x)(st))(i)(xs)(st)+c__case_117_case__1 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_117_case__1")(x)++++c__case_115_case__2 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_elem))))(Curry.Module.OraclePrettyFlat.c_infixIDs(x1)(st))))))(x5)(st))(x4)(x6)(st))(st)+c__case_115_case__2 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_115_case__2(x1)(x)(st))(i)(xs)(st)+c__case_115_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_115_case__2")(x)++++c__case_114_case__3 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.OraclePrettyFlat.c_prelude(x1)(st))(x5)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(Curry.Module.OraclePrelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x4)(x6)(st))(x7)(st))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))(Curry.Module.Prelude.List)))(Curry.Module.Prelude.List)))(x8)(st))(x9)(st))(st)+c__case_114_case__3 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_114_case__3(x1)(x)(st))(i)(xs)(st)+c__case_114_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_114_case__3")(x)++++c__case_113_case__4 x1 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_empty(x1)(st))(st)+c__case_113_case__4 x1 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.c_space(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_align(x5)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_fillSep(x6)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrettyFlat.c_varDoc(x7)(st))(x3)(x8)(st))(x9)(st))(x10)(st))(x11)(st))(st)+c__case_113_case__4 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_113_case__4(x1)(x3)(x)(st))(i)(xs)(st)+c__case_113_case__4 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_113_case__4")(x)++++c__case_112_case__5 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_112_case__5 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_block(x1)(st))(Curry.Module.OraclePretty.c_fillEncloseSep(Curry.Module.OraclePretty.c_empty(x5)(st))(Curry.Module.OraclePretty.c_empty(x6)(st))(Curry.Module.OraclePretty.c_space(x7)(st))((Curry.Module.Prelude.:<)(x2)(x3))(x8)(st))(x9)(st))(st)+c__case_112_case__5 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_112_case__5(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_112_case__5 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_112_case__5")(x)++++c__case_108_case__6 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_parens(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x7)(st))(Curry.Module.OraclePretty.c_text(x5)(x8)(st))(x9)(st))(x10)(st))(st)+c__case_108_case__6 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))))))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_parens(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x11)(st))(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.op_60_62(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_consname(x12)(st))(x4)(x13)(st))(Curry.Module.OraclePretty.c_dot(x14)(st))(x15)(st))(Curry.Module.OraclePrettyFlat.c_qname'46txt'4665(x5)(x16)(st))(x17)(st))(x18)(st))(x19)(st))(st)+c__case_108_case__6 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_108_case__6(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_108_case__6 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_108_case__6")(x)++++c__case_106_case__7 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c_qname'46txt'4665(Curry.Module.OraclePrettyFlat.c_correctName(x5)(x1)(st))(x7)(st))(st)+c__case_106_case__7 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.op_60_62(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_consname(x1)(st))(x4)(x8)(st))(Curry.Module.OraclePretty.c_dot(x9)(st))(x10)(st))(Curry.Module.OraclePrettyFlat.c_qname'46txt'4665(x5)(x11)(st))(x12)(st))(st)+c__case_106_case__7 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_106_case__7(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_106_case__7 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_106_case__7")(x)++++c__case_107_case__8 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_106(x2)(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(x2)(x1)(st))(x7)(st))(st)+c__case_107_case__8 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_107_case__8 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_107_case__8(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_107_case__8 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_107_case__8")(x)++++c__case_109_case__9 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_108(x2)(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(x2)(x1)(st))(x7)(st))(st)+c__case_109_case__9 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_107(x2)(x4)(x5)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x8)(st))(st)+c__case_109_case__9 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_109_case__9(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_109_case__9 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_109_case__9")(x)++++c__case_110_case__10 x1 x2 x3 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x1)(st))(Curry.Module.OraclePretty.c_text(x5)(x7)(st))(x8)(st))(st)+c__case_110_case__10 x1 x2 x3 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_109(x2)(x3)(x4)(x5)(Curry.Module.OraclePrettyFlat.c_isInfixName(x3)(x1)(st))(x9)(st))(st)+c__case_110_case__10 x1 x2 x3 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_110_case__10(x1)(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_110_case__10 x1 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_110_case__10")(x)++++c__case_111_case__11 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrettyFlat.c__case_110(x2)(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.T2(Curry.Module.OraclePrettyFlat.c_prelude(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x6)(st))(Curry.Module.OraclePrettyFlat.c_isTupleName(x3)(x7)(st))(x8)(st))(x9)(st))(st)+c__case_111_case__11 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_111_case__11(x1)(x2)(x)(st))(i)(xs)(st)+c__case_111_case__11 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_111_case__11")(x)++++c__case_104_case__12 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_consname(x1)(st))((Curry.Module.Prelude.:<)(x3)(x4))(x6)(st))(st)+c__case_104_case__12 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_text((Curry.Module.Prelude.:<)(x3)(x4))(x1)(st))(st)+c__case_104_case__12 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_104_case__12(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_104_case__12 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_104_case__12")(x)++++c__case_105_case__13 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_104(x3)(x4)(Curry.Module.OracleChar.c_isUpper(x3)(x1)(st))(x5)(st))(st)+c__case_105_case__13 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_105_case__13(x1)(x)(st))(i)(xs)(st)+c__case_105_case__13 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_105_case__13")(x)++++c__case_102_case__14 x1 x3 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_102_case__14 x1 x3 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_102_case__14 x1 x3 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_102_case__14(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_102_case__14 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_102_case__14")(x)++++c__case_103_case__15 x1 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_102(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('_'))(x1)(st))(x6)(st))(st)+c__case_103_case__15 x1 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_103_case__15 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_103_case__15(x1)(x)(st))(i)(xs)(st)+c__case_103_case__15 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_103_case__15")(x)++++c__case_101_case__16 x1 x2@(Curry.Module.FlatCurry.C_Prog x3 x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrettyFlat.op_60_36_62_62(Curry.Module.OraclePrettyFlat.op_60_36_62_62(Curry.Module.OraclePrettyFlat.op_60_36_62_62(Curry.Module.OraclePrettyFlat.op_60_36_62_62(Curry.Module.OraclePrettyFlat.c_moduleHeaderDoc(x3)(Curry.Module.OraclePrettyFlat.c_exportedNames(x3)(x2)(x1)(st))(x8)(st))(Curry.Module.OraclePrettyFlat.c_impsDoc(x4)(x9)(st))(x10)(st))(Curry.Module.OraclePrettyFlat.c_opsDoc(x7)(x11)(st))(x12)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_typesDoc(x3)(x13)(st))(x5)(x14)(st))(x15)(st))(Curry.Module.OraclePrettyFlat.c_funcsDoc(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_precs(x16)(st))(x7)(x17)(st))(x3)(x6)(x18)(st))(x19)(st))(st)+c__case_101_case__16 x1 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_101_case__16(x1)(x)(st))(i)(xs)(st)+c__case_101_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_101_case__16")(x)++++c__case_100_case__17 x1 x2@(Curry.Module.FlatCurry.C_Op x3 x4 x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x3)(x5))(st)+c__case_100_case__17 x1 (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_100_case__17(x1)(x)(st))(i)(xs)(st)+c__case_100_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_100_case__17")(x)++++c__case_99_case__18 x1 x2 x3@(Curry.Module.FlatCurry.C_Prog x4 x5 x6 x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_exportedNames'46typeExpDoc'4689(x2)))))(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.FlatCurry.C_Public)))))(Curry.Module.OracleFlatCurryGoodies.c_typeVisibility(x1)(st))(x9)(st))(x6)(x10)(st))(x11)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_qname(x2)))))(Curry.Module.OracleFlatCurryGoodies.c_funcName(x12)(st))(x13)(st))(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.FlatCurry.C_Public)))))(Curry.Module.OracleFlatCurryGoodies.c_funcVisibility(x14)(st))(x15)(st))(x7)(x16)(st))(x17)(st))(x18)(st))(st)+c__case_99_case__18 x1 x2 (Curry.Module.FlatCurry.C_ProgOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_99_case__18(x1)(x2)(x)(st))(i)(xs)(st)+c__case_99_case__18 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_99_case__18")(x)++++c__case_98_case__19 x1 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_empty(x1)(st))(st)+c__case_98_case__19 x1 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_text((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('('))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(')'))(Curry.Module.Prelude.List)))))(x1)(st))(st)+c__case_98_case__19 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_98_case__19(x1)(x)(st))(i)(xs)(st)+c__case_98_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_98_case__19")(x)++++c__case_95_case__20 x1 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_95_case__20 x1 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('`'))(Curry.Module.OraclePrelude.op_43_43(x7)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('`'))(Curry.Module.Prelude.List))(x1)(st)))(st)+c__case_95_case__20 x1 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_95_case__20(x1)(x7)(x)(st))(i)(xs)(st)+c__case_95_case__20 x1 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_95_case__20")(x)++++c__case_96_case__21 x1 x4 x5 x3@(Curry.Module.Prelude.T2 x6 x7) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))))))))))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x10)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x11)(st))(Curry.Module.OraclePretty.op_60_62(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))))))(x13)(st))(Curry.Module.OraclePrettyFlat.c_opDoc'46fixDoc'46114(x4)(x14)(st))(x15)(st))(x16)(st))(Curry.Module.OraclePretty.c_int(x5)(x17)(st))(x18)(st))(x19)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x20)(st))(Curry.Module.OraclePretty.c_text(Curry.Module.OraclePrettyFlat.c__case_95(x3)(x7)(Curry.Module.OraclePrettyFlat.c_isInfixName(x3)(x1)(st))(x9)(st))(x21)(st))(x22)(st))(x23)(st))(st))(st)+c__case_96_case__21 x1 x4 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_96_case__21(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_96_case__21 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_96_case__21")(x)++++c__case_97_case__22 x1 x2@(Curry.Module.FlatCurry.C_Op x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_96(x4)(x5)(x3)(x1)(st))(st)+c__case_97_case__22 x1 (Curry.Module.FlatCurry.C_OpDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_97_case__22(x1)(x)(st))(i)(xs)(st)+c__case_97_case__22 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_97_case__22")(x)++++c__case_94_case__23 x1 x2@Curry.Module.FlatCurry.C_InfixOp st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_empty(x1)(st))(st)+c__case_94_case__23 x1 x2@Curry.Module.FlatCurry.C_InfixlOp st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))(x3)(st))(st)+c__case_94_case__23 x1 x2@Curry.Module.FlatCurry.C_InfixrOp st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))(x4)(st))(st)+c__case_94_case__23 x1 (Curry.Module.FlatCurry.C_FixityOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_94_case__23(x1)(x)(st))(i)(xs)(st)+c__case_94_case__23 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_94_case__23")(x)++++c__case_93_case__24 x1 x2 x3@(Curry.Module.FlatCurry.C_Type x4 x5 x6 x7) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrettyFlat.c_def(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x12)(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)))))(x13)(st))(x14)(st))(Curry.Module.OraclePrettyFlat.c_qname(x2)(x4)(x15)(st))(x16)(st))(x6)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_consDeclsDoc(x2)(x17)(st))(x7)(x18)(st))(x19)(st))(st)+c__case_93_case__24 x1 x2 x3@(Curry.Module.FlatCurry.C_TypeSyn x8 x9 x10 x11) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List))))))))))))))(Curry.Module.OraclePrettyFlat.c_def(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x20)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(x21)(st))(x22)(st))(Curry.Module.OraclePrettyFlat.c_qname(x2)(x8)(x23)(st))(x24)(st))(x10)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x25)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x26)(st))(Curry.Module.OraclePretty.c_equals(x27)(st))(x28)(st))(x29)(st))(Curry.Module.OraclePrettyFlat.c_typeExprDoc(x2)(Curry.Module.Prelude.C_False)(x11)(x30)(st))(x31)(st))(x32)(st))(st)+c__case_93_case__24 x1 x2 (Curry.Module.FlatCurry.C_TypeDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_93_case__24(x1)(x2)(x)(st))(i)(xs)(st)+c__case_93_case__24 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_93_case__24")(x)++++c__case_91_case__25 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePretty.c_text((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x2)(x1)(st))(x4)(st))(Curry.Module.Prelude.List))(x5)(st))(st)+c__case_91_case__25 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_91_case__25 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_91_case__25(x1)(x2)(x)(st))(i)(xs)(st)+c__case_91_case__25 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_91_case__25")(x)++++c__case_92_case__26 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePretty.c_text(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(x4)(st))(x5)(st))(st)+c__case_92_case__26 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_91(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x6)(st))(st)+c__case_92_case__26 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_92_case__26(x1)(x2)(x)(st))(i)(xs)(st)+c__case_92_case__26 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_92_case__26")(x)++++c__case_90_case__27 x1 x2 x3@(Curry.Module.FlatCurry.C_Cons x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrettyFlat.c_app(Curry.Module.OraclePrettyFlat.c_qname(x2)(x4)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_typeExprDoc(x2)(Curry.Module.Prelude.C_True)))))(x7)(x8)(st))(x9)(st))(st)+c__case_90_case__27 x1 x2 (Curry.Module.FlatCurry.C_ConsDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_90_case__27(x1)(x2)(x)(st))(i)(xs)(st)+c__case_90_case__27 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_90_case__27")(x)++++c__case_85_case__28 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrettyFlat.c_par(x3)(x1)(st))(Curry.Module.OraclePrettyFlat.c_app(Curry.Module.OraclePrettyFlat.c_qname(x2)(x6)(x9)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_typeExprDoc(x2)(Curry.Module.Prelude.C_True)))))(x7)(x10)(st))(x11)(st))(x12)(st))(st)+c__case_85_case__28 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_85_case__28 x1 x2 x3 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_85_case__28(x1)(x2)(x3)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_85_case__28 x1 x2 x3 x6 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_85_case__28")(x)++++c__case_86_case__29 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_tupled(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_typeExprDoc(x2)(Curry.Module.Prelude.C_False)))))(x7)(x9)(st))(x10)(st))(st)+c__case_86_case__29 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_85(x2)(x3)(x6)(x7)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x11)(st))(st)+c__case_86_case__29 x1 x2 x3 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_86_case__29(x1)(x2)(x3)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_86_case__29 x1 x2 x3 x6 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_86_case__29")(x)++++c__case_87_case__30 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_brackets(x1)(st))(Curry.Module.OraclePrettyFlat.c_typeExprDoc(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OraclePrelude.c_head(x7)(x9)(st))(x10)(st))(x11)(st))(st)+c__case_87_case__30 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_86(x2)(x3)(x6)(x7)(Curry.Module.OraclePrettyFlat.c_isTupleName(x6)(x1)(st))(x12)(st))(st)+c__case_87_case__30 x1 x2 x3 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_87_case__30(x1)(x2)(x3)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_87_case__30 x1 x2 x3 x6 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_87_case__30")(x)++++c__case_88_case__31 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c_qname(x2)(x6)(x1)(st))(st)+c__case_88_case__31 x1 x2 x3 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrettyFlat.c__case_87(x2)(x3)(x6)(x7)(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.Prelude.T2(Curry.Module.OraclePrettyFlat.c_prelude(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List))))(x9)(st))(x10)(st))(st)+c__case_88_case__31 x1 x2 x3 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_88_case__31(x1)(x2)(x3)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_88_case__31 x1 x2 x3 x6 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_88_case__31")(x)++++c__case_89_case__32 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_TVar x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c_tvarDoc(x5)(x1)(st))(st)+c__case_89_case__32 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_TCons x6 x7) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_88(x2)(x3)(x6)(x7)(Curry.Module.OraclePrelude.c_null(x7)(x1)(st))(x10)(st))(st)+c__case_89_case__32 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_FuncType x8 x9) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrettyFlat.c_par(x3)(x1)(st))(Curry.Module.OraclePretty.c_fillEncloseSep(Curry.Module.OraclePretty.c_empty(x11)(st))(Curry.Module.OraclePretty.c_empty(x12)(st))(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.c_space(x13)(st))(Curry.Module.OraclePrettyFlat.c_arrow(x14)(st))(x15)(st))(Curry.Module.OraclePretty.c_space(x16)(st))(x17)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_typeExprDoc(x2)(Curry.Module.Prelude.C_True)))))(Curry.Module.OracleFlatCurryGoodies.c_argTypes(x4)(x18)(st))(x19)(st))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrettyFlat.c_typeExprDoc(x2)(Curry.Module.Prelude.C_False)(Curry.Module.OracleFlatCurryGoodies.c_resultType(x4)(x20)(st))(x21)(st))(Curry.Module.Prelude.List))(x22)(st))(x23)(st))(x24)(st))(st)+c__case_89_case__32 x1 x2 x3 (Curry.Module.FlatCurry.C_TypeExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_89_case__32(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_89_case__32 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_89_case__32")(x)++++c__case_84_case__33 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_parens(x1)(st))(st)+c__case_84_case__33 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(st)+c__case_84_case__33 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_84_case__33(x1)(x)(st))(i)(xs)(st)+c__case_84_case__33 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_84_case__33")(x)++++c__case_83_case__34 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Func x5 x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_36_62(x1)(st))(Curry.Module.OraclePrettyFlat.c_funcTypeDeclDoc(x3)(x5)(x8)(x10)(st))(x11)(st))(Curry.Module.OraclePrettyFlat.c_ruleDoc(x2)(x3)(x5)(x9)(x12)(st))(x13)(st))(st)+c__case_83_case__34 x1 x2 x3 (Curry.Module.FlatCurry.C_FuncDeclOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_83_case__34(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_83_case__34 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_83_case__34")(x)++++c__case_82_case__35 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_Rule x6 x7) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrettyFlat.c_def(Curry.Module.OraclePrettyFlat.c_qname(x3)(x4)(x1)(st))(x6)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x9)(st))(Curry.Module.OraclePretty.c_equals(x10)(st))(x11)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_align(x12)(st))(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x3)(Curry.Module.Prelude.C_False)(x7)(x13)(st))(x14)(st))(x15)(st))(x16)(st))(st)+c__case_82_case__35 x1 x2 x3 x4 x5@(Curry.Module.FlatCurry.C_External x8) st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x1)(st))(Curry.Module.OraclePrettyFlat.c_qname(x3)(x4)(x17)(st))(x18)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x19)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))))))(x20)(st))(x21)(st))(st)+c__case_82_case__35 x1 x2 x3 x4 (Curry.Module.FlatCurry.C_RuleOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_82_case__35(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_82_case__35 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_82_case__35")(x)++++c__case_81_case__36 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_consname(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('['))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(']'))(Curry.Module.Prelude.List)))(x4)(st))(st)+c__case_81_case__36 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_literal(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_dquotes(x5)(st))(Curry.Module.OraclePretty.c_text(x2)(x6)(st))(x7)(st))(x8)(st))(st)+c__case_81_case__36 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_81_case__36(x1)(x2)(x)(st))(i)(xs)(st)+c__case_81_case__36 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_81_case__36")(x)++++c__case_76_case__37 x1 x2 x4 x5 x10 x11 x12@Curry.Module.Prelude.C_True st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrettyFlat.c_par(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.c_not(Curry.Module.OraclePrelude.c_null(x11)(x1)(st))(x13)(st))(x5)(x14)(st))(x15)(st))(Curry.Module.OraclePrettyFlat.c_app(Curry.Module.OraclePrettyFlat.c_qname(x4)(x10)(x16)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x4)(Curry.Module.Prelude.C_True)))))(x11)(x17)(st))(x18)(st))(x19)(st))(st)+c__case_76_case__37 x1 x2 x4 x5 x10 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_76_case__37 x1 x2 x4 x5 x10 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_76_case__37(x1)(x2)(x4)(x5)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_76_case__37 x1 x2 x4 x5 x10 x11 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_76_case__37")(x)++++c__case_77_case__38 x1 x2 x3 x4 x5 x10 x11 x13 x14 x15 x16@Curry.Module.Prelude.C_True st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List))))))))))))))))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePretty.c_align(x1)(st))(Curry.Module.OraclePrettyFlat.c_precFillEncloseSep(x15)(x3)(x13)(x14)(Curry.Module.OraclePretty.c_empty(x17)(st))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(x15)(x4)(Curry.Module.Prelude.C_True)(Curry.Module.OraclePrelude.op_33_33(x11)(Curry.Module.Prelude.C_Zero)(x18)(st))(x19)(st))((Curry.Module.Prelude.:<)(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.c_space(x20)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x21)(st))(Curry.Module.OraclePretty.c_text(Curry.Module.OraclePrelude.c_snd(x10)(x22)(st))(x23)(st))(x24)(st))(x25)(st))(Curry.Module.OraclePretty.c_space(x26)(st))(x27)(st))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(x15)(x4)(Curry.Module.Prelude.C_True)(Curry.Module.OraclePrelude.op_33_33(x11)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x28)(st))(x29)(st))(Curry.Module.Prelude.List))))(x30)(st))(x31)(st))(st)+c__case_77_case__38 x1 x2 x3 x4 x5 x10 x11 x13 x14 x15 x16@Curry.Module.Prelude.C_False st = let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_76(x2)(x4)(x5)(x10)(x11)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x32)(st))(st)+c__case_77_case__38 x1 x2 x3 x4 x5 x10 x11 x13 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_77_case__38(x1)(x2)(x3)(x4)(x5)(x10)(x11)(x13)(x14)(x15)(x)(st))(i)(xs)(st)+c__case_77_case__38 x1 x2 x3 x4 x5 x10 x11 x13 x14 x15 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_77_case__38")(x)++++c__case_78_case__39 x1 x2 x3 x4 x5 x10 x11 x13 x14 x15 x16@Curry.Module.Prelude.C_True st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_tupled(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x4)(Curry.Module.Prelude.C_False)))))(x11)(x17)(st))(x18)(st))(st)+c__case_78_case__39 x1 x2 x3 x4 x5 x10 x11 x13 x14 x15 x16@Curry.Module.Prelude.C_False st = let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrettyFlat.c__case_77(x2)(x3)(x4)(x5)(x10)(x11)(x13)(x14)(x15)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrettyFlat.c_isInfixName(x10)(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_length(x11)(x19)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x20)(st))(x21)(st))(x22)(st))(st)+c__case_78_case__39 x1 x2 x3 x4 x5 x10 x11 x13 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_78_case__39(x1)(x2)(x3)(x4)(x5)(x10)(x11)(x13)(x14)(x15)(x)(st))(i)(xs)(st)+c__case_78_case__39 x1 x2 x3 x4 x5 x10 x11 x13 x14 x15 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_78_case__39")(x)++++c__case_79_case__40 x1 x2 x3 x4 x5 x9 x10 x11 x13 x14 x15 x16@Curry.Module.Prelude.C_True st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrettyFlat.c_par(x5)(x1)(st))(Curry.Module.OraclePrettyFlat.c_app(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x4)(Curry.Module.Prelude.C_True)(Curry.Module.OraclePrelude.op_33_33(x11)(Curry.Module.Prelude.C_Zero)(x17)(st))(x18)(st))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x4)(Curry.Module.Prelude.C_True)(Curry.Module.OraclePrelude.op_33_33(x11)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x19)(st))(x20)(st))(Curry.Module.Prelude.List))(x21)(st))(x22)(st))(st)+c__case_79_case__40 x1 x2 x3 x4 x5 x9 x10 x11 x13 x14 x15 x16@Curry.Module.Prelude.C_False st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrettyFlat.c__case_78(x2)(x3)(x4)(x5)(x9)(x10)(x11)(x13)(x14)(x15)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.FlatCurry.C_ConsCall)(x1)(st))(Curry.Module.OraclePrettyFlat.c_isTupleName(x10)(x23)(st))(x24)(st))(x25)(st))(st)+c__case_79_case__40 x1 x2 x3 x4 x5 x9 x10 x11 x13 x14 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_79_case__40(x1)(x2)(x3)(x4)(x5)(x9)(x10)(x11)(x13)(x14)(x15)(x)(st))(i)(xs)(st)+c__case_79_case__40 x1 x2 x3 x4 x5 x9 x10 x11 x13 x14 x15 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_79_case__40")(x)++++c__case_75_case__41 x1 x17@(Curry.Module.Prelude.C_Just x16) st = Curry.Module.CEventOracle.c_collapse(x1)(x16)(st)+c__case_75_case__41 x1 x17@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_75_case__41 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_75_case__41(x1)(x)(st))(i)(xs)(st)+c__case_75_case__41 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_75_case__41")(x)++++c__case_74_case__42 x1 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Prelude.T2(Curry.Module.OraclePretty.c_lparen(x1)(st))(Curry.Module.OraclePretty.c_rparen(x6)(st)))(st)+c__case_74_case__42 x1 x5@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.Prelude.T2(Curry.Module.OraclePretty.c_empty(x1)(st))(Curry.Module.OraclePretty.c_empty(x7)(st)))(st)+c__case_74_case__42 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_74_case__42(x1)(x)(st))(i)(xs)(st)+c__case_74_case__42 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_74_case__42")(x)++++c__case_80_case__43 x1 x2 x3 x4 x5 x6@(Curry.Module.FlatCurry.C_Var x7) st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_varDoc(x1)(st))(x7)(x26)(st))(st)+c__case_80_case__43 x1 x2 x3 x4 x5 x6@(Curry.Module.FlatCurry.C_Lit x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c_litDoc(x8)(x1)(st))(st)+c__case_80_case__43 x1 x2 x3 x4 x5 x6@(Curry.Module.FlatCurry.C_Comb x9 x10 x11) st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.OraclePrettyFlat.c__case_74(x5)(x1)(st)} in let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x27)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(let {x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))(let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List)))(let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrettyFlat.c__case_79(x2)(x3)(x4)(x5)(x9)(x10)(x11)(Curry.Module.OraclePrettyFlat.c_expDoc2'46_'35selFP3'35lbr(x12)(x27)(st))(Curry.Module.OraclePrettyFlat.c_expDoc2'46_'35selFP4'35rbr(x12)(x28)(st))(Curry.Module.OraclePrettyFlat.c__case_75(x2)(x10)(Curry.Module.OraclePrelude.c_lookup(x10)(x2)(x29)(st))(x30)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.FlatCurry.C_FuncCall)(x31)(st))(Curry.Module.OraclePrelude.op_61_61(x10)(Curry.Module.Prelude.T2(Curry.Module.OraclePrettyFlat.c_prelude(x32)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))(x33)(st))(x34)(st))(x35)(st))(st))(st))(st))(st))(st)+c__case_80_case__43 x1 x2 x3 x4 x5 x6@(Curry.Module.FlatCurry.C_Let x17 x18) st = let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x42 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x43 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x44 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x45 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x46 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x47 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x48 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x49 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x50 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x51 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x52 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x53 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)((Curry.Module.Prelude.:<)(x41)((Curry.Module.Prelude.:<)(x42)((Curry.Module.Prelude.:<)(x43)((Curry.Module.Prelude.:<)(x44)((Curry.Module.Prelude.:<)(x45)((Curry.Module.Prelude.:<)(x46)((Curry.Module.Prelude.:<)(x47)((Curry.Module.Prelude.:<)(x48)((Curry.Module.Prelude.:<)(x49)((Curry.Module.Prelude.:<)(x50)((Curry.Module.Prelude.:<)(x51)((Curry.Module.Prelude.:<)(x52)((Curry.Module.Prelude.:<)(x53)(Curry.Module.Prelude.List)))))))))))))))))))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrettyFlat.c_par(x5)(x1)(st))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_hang(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x36)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_36_62(x37)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x38)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x39)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))(x40)(st))(x41)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_letBindsDoc(x2)(x4)(x42)(st))(x17)(x43)(st))(x44)(st))(x45)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x46)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List)))(x47)(st))(x48)(st))(x49)(st))(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x4)(Curry.Module.Prelude.C_False)(x18)(x50)(st))(x51)(st))(x52)(st))(x53)(st))(st)+c__case_80_case__43 x1 x2 x3 x4 x5 x6@(Curry.Module.FlatCurry.C_Free x19 x20) st = let {x54 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x55 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x56 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x57 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x58 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x59 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x60 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x61 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x62 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x63 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x64 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x65 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x66 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x67 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x68 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x69 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x70 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x71 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x72 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x73 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x74 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x75 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x76 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x77 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x78 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x79 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x80 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x81 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x82 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x54)((Curry.Module.Prelude.:<)(x55)((Curry.Module.Prelude.:<)(x56)((Curry.Module.Prelude.:<)(x57)((Curry.Module.Prelude.:<)(x58)((Curry.Module.Prelude.:<)(x59)((Curry.Module.Prelude.:<)(x60)((Curry.Module.Prelude.:<)(x61)((Curry.Module.Prelude.:<)(x62)((Curry.Module.Prelude.:<)(x63)((Curry.Module.Prelude.:<)(x64)((Curry.Module.Prelude.:<)(x65)((Curry.Module.Prelude.:<)(x66)((Curry.Module.Prelude.:<)(x67)((Curry.Module.Prelude.:<)(x68)((Curry.Module.Prelude.:<)(x69)((Curry.Module.Prelude.:<)(x70)((Curry.Module.Prelude.:<)(x71)((Curry.Module.Prelude.:<)(x72)((Curry.Module.Prelude.:<)(x73)((Curry.Module.Prelude.:<)(x74)((Curry.Module.Prelude.:<)(x75)((Curry.Module.Prelude.:<)(x76)((Curry.Module.Prelude.:<)(x77)((Curry.Module.Prelude.:<)(x78)((Curry.Module.Prelude.:<)(x79)((Curry.Module.Prelude.:<)(x80)((Curry.Module.Prelude.:<)(x81)((Curry.Module.Prelude.:<)(x82)(Curry.Module.Prelude.List))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrettyFlat.c_par(x5)(x1)(st))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_hang(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x54)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_36_62(x55)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x56)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x57)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x58)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))(x59)(st))(x60)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_align(x61)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_fillSep(x62)(st))(Curry.Module.OraclePretty.c_punctuate(Curry.Module.OraclePretty.c_comma(x63)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrettyFlat.c_varDoc(x64)(st))(x19)(x65)(st))(x66)(st))(x67)(st))(x68)(st))(x69)(st))(x70)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x71)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(x72)(st))(x73)(st))(x74)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x75)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List)))(x76)(st))(x77)(st))(x78)(st))(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x4)(Curry.Module.Prelude.C_False)(x20)(x79)(st))(x80)(st))(x81)(st))(x82)(st))(st)+c__case_80_case__43 x1 x2 x3 x4 x5 x6@(Curry.Module.FlatCurry.C_Or x21 x22) st = let {x83 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x83)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x4)(x5)(Curry.Module.FlatCurry.C_Comb(Curry.Module.FlatCurry.C_FuncCall)(Curry.Module.Prelude.T2(Curry.Module.OraclePrettyFlat.c_prelude(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))))(x83)(st))(st)+c__case_80_case__43 x1 x2 x3 x4 x5 x6@(Curry.Module.FlatCurry.C_Case x23 x24 x25) st = let {x84 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x85 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x86 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x87 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x88 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x89 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x90 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x91 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x92 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x93 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x94 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x95 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x96 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x97 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x98 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x99 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x100 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x101 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x102 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x103 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x104 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x105 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x106 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x84)((Curry.Module.Prelude.:<)(x85)((Curry.Module.Prelude.:<)(x86)((Curry.Module.Prelude.:<)(x87)((Curry.Module.Prelude.:<)(x88)((Curry.Module.Prelude.:<)(x89)((Curry.Module.Prelude.:<)(x90)((Curry.Module.Prelude.:<)(x91)((Curry.Module.Prelude.:<)(x92)((Curry.Module.Prelude.:<)(x93)((Curry.Module.Prelude.:<)(x94)((Curry.Module.Prelude.:<)(x95)((Curry.Module.Prelude.:<)(x96)((Curry.Module.Prelude.:<)(x97)((Curry.Module.Prelude.:<)(x98)((Curry.Module.Prelude.:<)(x99)((Curry.Module.Prelude.:<)(x100)((Curry.Module.Prelude.:<)(x101)((Curry.Module.Prelude.:<)(x102)((Curry.Module.Prelude.:<)(x103)((Curry.Module.Prelude.:<)(x104)((Curry.Module.Prelude.:<)(x105)((Curry.Module.Prelude.:<)(x106)(Curry.Module.Prelude.List))))))))))))))))))))))))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrettyFlat.c_par(x5)(x1)(st))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_hang(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_36_62(x84)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x85)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x86)(st))(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePrettyFlat.c_caseTypeDoc(x23)(x87)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x88)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))(x89)(st))(x90)(st))(x91)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_align(x92)(st))(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x4)(Curry.Module.Prelude.C_False)(x24)(x93)(st))(x94)(st))(x95)(st))(x96)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_keyword(x97)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))(Curry.Module.Prelude.List)))(x98)(st))(x99)(st))(x100)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_layout(x101)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrettyFlat.c_branchDoc(x2)(x4)))))(x25)(x102)(st))(x103)(st))(x104)(st))(x105)(st))(x106)(st))(st)+c__case_80_case__43 x1 x2 x3 x4 x5 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_80_case__43(x1)(x2)(x3)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_80_case__43 x1 x2 x3 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_80_case__43")(x)++++c__case_73_case__44 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_73_case__44 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_73_case__44(x1)(x)(st))(i)(xs)(st)+c__case_73_case__44 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_73_case__44")(x)++++c__case_72_case__45 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_72_case__45 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_72_case__45(x1)(x)(st))(i)(xs)(st)+c__case_72_case__45 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_72_case__45")(x)++++c__case_71_case__46 x1 x2 x3 x4@(Curry.Module.FlatCurry.C_Branch x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrettyFlat.c_def(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x1)(st))(Curry.Module.OraclePrettyFlat.c_patternDoc(x3)(x5)(x7)(st))(x8)(st))(Curry.Module.OraclePrettyFlat.c_arrow(x9)(st))(x10)(st))(Curry.Module.Prelude.List)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_align(x11)(st))(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x3)(Curry.Module.Prelude.C_False)(x6)(x12)(st))(x13)(st))(x14)(st))(st)+c__case_71_case__46 x1 x2 x3 (Curry.Module.FlatCurry.C_BranchExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_71_case__46(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_71_case__46 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_71_case__46")(x)++++c__case_70_case__47 x1 x2@Curry.Module.FlatCurry.C_Rigid st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_empty(x1)(st))(st)+c__case_70_case__47 x1 x2@Curry.Module.FlatCurry.C_Flex st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePretty.c_empty(x1)(st))(st)+c__case_70_case__47 x1 (Curry.Module.FlatCurry.C_CaseTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_70_case__47(x1)(x)(st))(i)(xs)(st)+c__case_70_case__47 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_70_case__47")(x)++++c__case_65_case__48 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x1)(st))(Curry.Module.OraclePrettyFlat.c_qname(x2)(x4)(x7)(st))(x8)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_hsep(x9)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrettyFlat.c_varDoc(x10)(st))(x5)(x11)(st))(x12)(st))(x13)(st))(st)+c__case_65_case__48 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_65_case__48 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_65_case__48(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_65_case__48 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_65_case__48")(x)++++c__case_66_case__49 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))))))))))(Curry.Module.OraclePretty.op_60_62(Curry.Module.OraclePretty.op_60_62(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_varDoc(x1)(st))(Curry.Module.OraclePrelude.op_33_33(x5)(Curry.Module.Prelude.C_Zero)(x7)(st))(x8)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x9)(st))(Curry.Module.OraclePretty.c_text(Curry.Module.OraclePrelude.c_snd(x4)(x10)(st))(x11)(st))(x12)(st))(x13)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_varDoc(x14)(st))(Curry.Module.OraclePrelude.op_33_33(x5)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x15)(st))(x16)(st))(x17)(st))(st)+c__case_66_case__49 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_65(x2)(x4)(x5)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x18)(st))(st)+c__case_66_case__49 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_66_case__49(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_66_case__49 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_66_case__49")(x)++++c__case_67_case__50 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_tupled(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrettyFlat.c_varDoc(x7)(st))(x5)(x8)(st))(x9)(st))(st)+c__case_67_case__50 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrettyFlat.c__case_66(x2)(x4)(x5)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrettyFlat.c_isInfixName(x4)(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_length(x5)(x10)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x11)(st))(x12)(st))(x13)(st))(st)+c__case_67_case__50 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_67_case__50(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_67_case__50 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_67_case__50")(x)++++c__case_68_case__51 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c_qname(x2)(x4)(x1)(st))(st)+c__case_68_case__51 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_67(x2)(x4)(x5)(Curry.Module.OraclePrettyFlat.c_isTupleName(x4)(x1)(st))(x7)(st))(st)+c__case_68_case__51 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_68_case__51(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_68_case__51 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_68_case__51")(x)++++c__case_69_case__52 x1 x2 x3@(Curry.Module.FlatCurry.C_Pattern x4 x5) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_68(x2)(x4)(x5)(Curry.Module.OraclePrelude.c_null(x5)(x1)(st))(x7)(st))(st)+c__case_69_case__52 x1 x2 x3@(Curry.Module.FlatCurry.C_LPattern x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c_litDoc(x6)(x1)(st))(st)+c__case_69_case__52 x1 x2 (Curry.Module.FlatCurry.C_PatternOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_69_case__52(x1)(x2)(x)(st))(i)(xs)(st)+c__case_69_case__52 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_69_case__52")(x)++++c__case_64_case__53 x1 x2 x3 x4@(Curry.Module.Prelude.T2 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))))))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.op_60_43_62(x7)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_varDoc(x8)(st))(x5)(x9)(st))(x10)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_operator(x11)(st))(Curry.Module.OraclePretty.c_equals(x12)(st))(x13)(st))(x14)(st))(x15)(st))(Curry.Module.OraclePrettyFlat.c_expDoc(x2)(Curry.Module.Prelude.C_Zero)(x3)(Curry.Module.Prelude.C_False)(x6)(x16)(st))(x17)(st))(st)+c__case_64_case__53 x1 x2 x3 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_64_case__53(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_64_case__53 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_64_case__53")(x)++++c__case_63_case__54 x1 x2@(Curry.Module.FlatCurry.C_Intc x3) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_literal(x1)(st))(Curry.Module.OraclePretty.c_int(x3)(x6)(st))(x7)(st))(st)+c__case_63_case__54 x1 x2@(Curry.Module.FlatCurry.C_Floatc x4) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_literal(x1)(st))(Curry.Module.OraclePretty.c_float(x4)(x8)(st))(x9)(st))(st)+c__case_63_case__54 x1 x2@(Curry.Module.FlatCurry.C_Charc x5) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrettyFlat.c_literal(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePretty.c_squotes(x10)(st))(Curry.Module.OraclePretty.c_text(Curry.Module.OraclePrettyFlat.c_quoteChar(x5)(x11)(st))(x12)(st))(x13)(st))(x14)(st))(st)+c__case_63_case__54 x1 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_63_case__54(x1)(x)(st))(i)(xs)(st)+c__case_63_case__54 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_63_case__54")(x)++++c__case_39_case__55 x1 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.List))(st)+c__case_39_case__55 x1 x5@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_39_case__55 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_39_case__55(x1)(x)(st))(i)(xs)(st)+c__case_39_case__55 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_39_case__55")(x)++++c__case_40_case__56 x1 x5 x25@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_39(x5)(x1)(st))(st)+c__case_40_case__56 x1 x5 x25@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_40_case__56 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_40_case__56(x1)(x5)(x)(st))(i)(xs)(st)+c__case_40_case__56 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_40_case__56")(x)++++c__case_41_case__57 x1 x5 x25 x26@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_40(x5)(x25)(x1)(st))(st)+c__case_41_case__57 x1 x5 x25 x26@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_41_case__57 x1 x5 x25 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_41_case__57(x1)(x5)(x25)(x)(st))(i)(xs)(st)+c__case_41_case__57 x1 x5 x25 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_41_case__57")(x)++++c__case_42_case__58 x1 x5 x23@((Curry.Module.Prelude.:<) x24 x25) st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_41(x5)(x24)(x25)(Curry.Module.OraclePrelude.op_61_61(x24)(Curry.Module.Prelude.C_Char(']'))(x1)(st))(x26)(st))(st)+c__case_42_case__58 x1 x5 x23@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_42_case__58 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_42_case__58(x1)(x5)(x)(st))(i)(xs)(st)+c__case_42_case__58 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_42_case__58")(x)++++c__case_32_case__59 x1 x33 x34 x35@Curry.Module.Prelude.List st = let {x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x38)((Curry.Module.Prelude.:<)(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List))))(Curry.Module.OracleMaybe.op_62_62_45(Curry.Module.OraclePrettyFlat.c_toString(x34)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrettyFlat.c_quoteChar(x33)(x38)(st))))))(x39)(st))(x40)(st))(st)+c__case_32_case__59 x1 x33 x34 x35@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_32_case__59 x1 x33 x34 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_32_case__59(x1)(x33)(x34)(x)(st))(i)(xs)(st)+c__case_32_case__59 x1 x33 x34 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_32_case__59")(x)++++c__case_33_case__60 x1 x33 x31@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_32(x33)(x34)(x35)(x1)(st))(st)+c__case_33_case__60 x1 x33 x31@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_33_case__60 x1 x33 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_33_case__60(x1)(x33)(x)(st))(i)(xs)(st)+c__case_33_case__60 x1 x33 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_33_case__60")(x)++++c__case_34_case__61 x1 x31 x32@(Curry.Module.FlatCurry.C_Charc x33) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_33(x33)(x31)(x1)(st))(st)+c__case_34_case__61 x1 x31 x32@(Curry.Module.FlatCurry.C_Intc x38) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_34_case__61 x1 x31 x32@(Curry.Module.FlatCurry.C_Floatc x39) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_34_case__61 x1 x31 (Curry.Module.FlatCurry.C_LiteralOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_34_case__61(x1)(x31)(x)(st))(i)(xs)(st)+c__case_34_case__61 x1 x31 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_34_case__61")(x)++++c__case_35_case__62 x1 x31 x30@(Curry.Module.FlatCurry.C_Lit x32) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_34(x31)(x32)(x1)(st))(st)+c__case_35_case__62 x1 x31 x30@(Curry.Module.FlatCurry.C_Var x40) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_35_case__62 x1 x31 x30@(Curry.Module.FlatCurry.C_Comb x41 x42 x43) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_35_case__62 x1 x31 x30@(Curry.Module.FlatCurry.C_Let x44 x45) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_35_case__62 x1 x31 x30@(Curry.Module.FlatCurry.C_Free x46 x47) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_35_case__62 x1 x31 x30@(Curry.Module.FlatCurry.C_Or x48 x49) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_35_case__62 x1 x31 x30@(Curry.Module.FlatCurry.C_Case x50 x51 x52) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_35_case__62 x1 x31 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_35_case__62(x1)(x31)(x)(st))(i)(xs)(st)+c__case_35_case__62 x1 x31 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_35_case__62")(x)++++c__case_36_case__63 x1 x5@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_35(x31)(x30)(x1)(st))(st)+c__case_36_case__63 x1 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_36_case__63 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_36_case__63(x1)(x)(st))(i)(xs)(st)+c__case_36_case__63 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_36_case__63")(x)++++c__case_37_case__64 x1 x5 x23@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_36(x5)(x1)(st))(st)+c__case_37_case__64 x1 x5 x23@((Curry.Module.Prelude.:<) x53 x54) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_37_case__64 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_37_case__64(x1)(x5)(x)(st))(i)(xs)(st)+c__case_37_case__64 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_37_case__64")(x)++++c__case_38_case__65 x1 x5 x23 x24@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_37(x5)(x23)(x1)(st))(st)+c__case_38_case__65 x1 x5 x23 x24@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_38_case__65 x1 x5 x23 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_38_case__65(x1)(x5)(x23)(x)(st))(i)(xs)(st)+c__case_38_case__65 x1 x5 x23 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_38_case__65")(x)++++c__case_43_case__66 x1 x5 x22 x23 x24@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_42(x5)(x23)(x1)(st))(st)+c__case_43_case__66 x1 x5 x22 x23 x24@Curry.Module.Prelude.C_False st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_38(x5)(x22)(x23)(Curry.Module.OraclePrelude.op_61_61(x22)(Curry.Module.Prelude.C_Char(':'))(x1)(st))(x25)(st))(st)+c__case_43_case__66 x1 x5 x22 x23 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_43_case__66(x1)(x5)(x22)(x23)(x)(st))(i)(xs)(st)+c__case_43_case__66 x1 x5 x22 x23 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_43_case__66")(x)++++c__case_44_case__67 x1 x5 x7@((Curry.Module.Prelude.:<) x22 x23) st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_43(x5)(x22)(x23)(Curry.Module.OraclePrelude.op_61_61(x22)(Curry.Module.Prelude.C_Char('['))(x1)(st))(x24)(st))(st)+c__case_44_case__67 x1 x5 x7@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_44_case__67 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_44_case__67(x1)(x5)(x)(st))(i)(xs)(st)+c__case_44_case__67 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_44_case__67")(x)++++c__case_45_case__68 x1 x5 x7 x21@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_44(x5)(x7)(x1)(st))(st)+c__case_45_case__68 x1 x5 x7 x21@((Curry.Module.Prelude.:<) x55 x56) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_45_case__68 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_45_case__68(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_45_case__68 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_45_case__68")(x)++++c__case_46_case__69 x1 x5 x7 x21 x22@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_45(x5)(x7)(x21)(x1)(st))(st)+c__case_46_case__69 x1 x5 x7 x21 x22@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_46_case__69 x1 x5 x7 x21 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_46_case__69(x1)(x5)(x7)(x21)(x)(st))(i)(xs)(st)+c__case_46_case__69 x1 x5 x7 x21 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_46_case__69")(x)++++c__case_47_case__70 x1 x5 x7 x19@((Curry.Module.Prelude.:<) x20 x21) st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_46(x5)(x7)(x20)(x21)(Curry.Module.OraclePrelude.op_61_61(x20)(Curry.Module.Prelude.C_Char('e'))(x1)(st))(x22)(st))(st)+c__case_47_case__70 x1 x5 x7 x19@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_47_case__70 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_47_case__70(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_47_case__70 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_47_case__70")(x)++++c__case_48_case__71 x1 x5 x7 x19 x20@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_47(x5)(x7)(x19)(x1)(st))(st)+c__case_48_case__71 x1 x5 x7 x19 x20@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_48_case__71 x1 x5 x7 x19 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_48_case__71(x1)(x5)(x7)(x19)(x)(st))(i)(xs)(st)+c__case_48_case__71 x1 x5 x7 x19 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_48_case__71")(x)++++c__case_49_case__72 x1 x5 x7 x17@((Curry.Module.Prelude.:<) x18 x19) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_48(x5)(x7)(x18)(x19)(Curry.Module.OraclePrelude.op_61_61(x18)(Curry.Module.Prelude.C_Char('d'))(x1)(st))(x20)(st))(st)+c__case_49_case__72 x1 x5 x7 x17@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_49_case__72 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_49_case__72(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_49_case__72 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_49_case__72")(x)++++c__case_50_case__73 x1 x5 x7 x17 x18@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_49(x5)(x7)(x17)(x1)(st))(st)+c__case_50_case__73 x1 x5 x7 x17 x18@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_50_case__73 x1 x5 x7 x17 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_50_case__73(x1)(x5)(x7)(x17)(x)(st))(i)(xs)(st)+c__case_50_case__73 x1 x5 x7 x17 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_50_case__73")(x)++++c__case_51_case__74 x1 x5 x7 x15@((Curry.Module.Prelude.:<) x16 x17) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_50(x5)(x7)(x16)(x17)(Curry.Module.OraclePrelude.op_61_61(x16)(Curry.Module.Prelude.C_Char('u'))(x1)(st))(x18)(st))(st)+c__case_51_case__74 x1 x5 x7 x15@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_51_case__74 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_51_case__74(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_51_case__74 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_51_case__74")(x)++++c__case_52_case__75 x1 x5 x7 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_51(x5)(x7)(x15)(x1)(st))(st)+c__case_52_case__75 x1 x5 x7 x15 x16@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_52_case__75 x1 x5 x7 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_52_case__75(x1)(x5)(x7)(x15)(x)(st))(i)(xs)(st)+c__case_52_case__75 x1 x5 x7 x15 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_52_case__75")(x)++++c__case_53_case__76 x1 x5 x7 x13@((Curry.Module.Prelude.:<) x14 x15) st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_52(x5)(x7)(x14)(x15)(Curry.Module.OraclePrelude.op_61_61(x14)(Curry.Module.Prelude.C_Char('l'))(x1)(st))(x16)(st))(st)+c__case_53_case__76 x1 x5 x7 x13@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_53_case__76 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_53_case__76(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_53_case__76 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_53_case__76")(x)++++c__case_54_case__77 x1 x5 x7 x13 x14@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_53(x5)(x7)(x13)(x1)(st))(st)+c__case_54_case__77 x1 x5 x7 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_54_case__77 x1 x5 x7 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_54_case__77(x1)(x5)(x7)(x13)(x)(st))(i)(xs)(st)+c__case_54_case__77 x1 x5 x7 x13 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_54_case__77")(x)++++c__case_55_case__78 x1 x5 x7 x11@((Curry.Module.Prelude.:<) x12 x13) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_54(x5)(x7)(x12)(x13)(Curry.Module.OraclePrelude.op_61_61(x12)(Curry.Module.Prelude.C_Char('e'))(x1)(st))(x14)(st))(st)+c__case_55_case__78 x1 x5 x7 x11@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_55_case__78 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_55_case__78(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_55_case__78 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_55_case__78")(x)++++c__case_56_case__79 x1 x5 x7 x11 x12@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_55(x5)(x7)(x11)(x1)(st))(st)+c__case_56_case__79 x1 x5 x7 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_56_case__79 x1 x5 x7 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_56_case__79(x1)(x5)(x7)(x11)(x)(st))(i)(xs)(st)+c__case_56_case__79 x1 x5 x7 x11 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_56_case__79")(x)++++c__case_57_case__80 x1 x5 x7 x9@((Curry.Module.Prelude.:<) x10 x11) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_56(x5)(x7)(x10)(x11)(Curry.Module.OraclePrelude.op_61_61(x10)(Curry.Module.Prelude.C_Char('r'))(x1)(st))(x12)(st))(st)+c__case_57_case__80 x1 x5 x7 x9@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_57_case__80 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_57_case__80(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_57_case__80 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_57_case__80")(x)++++c__case_58_case__81 x1 x5 x7 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_57(x5)(x7)(x9)(x1)(st))(st)+c__case_58_case__81 x1 x5 x7 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_58_case__81 x1 x5 x7 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_58_case__81(x1)(x5)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_58_case__81 x1 x5 x7 x9 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_58_case__81")(x)++++c__case_59_case__82 x1 x5 x7 x6@((Curry.Module.Prelude.:<) x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_58(x5)(x7)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.Prelude.C_Char('P'))(x1)(st))(x10)(st))(st)+c__case_59_case__82 x1 x5 x7 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_59_case__82 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_59_case__82(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_59_case__82 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_59_case__82")(x)++++c__case_60_case__83 x1 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_59(x5)(x7)(x6)(x1)(st))(st)+c__case_60_case__83 x1 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_60_case__83(x1)(x5)(x)(st))(i)(xs)(st)+c__case_60_case__83 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_60_case__83")(x)++++c__case_61_case__84 x1 x4 x5 x3@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_60(x5)(x4)(x1)(st))(st)+c__case_61_case__84 x1 x4 x5 x3@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_61_case__84 x1 x4 x5 x3@(Curry.Module.FlatCurry.C_FuncPartCall x57) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_61_case__84 x1 x4 x5 x3@(Curry.Module.FlatCurry.C_ConsPartCall x58) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_61_case__84 x1 x4 x5 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_61_case__84(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_61_case__84 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_61_case__84")(x)++++c__case_62_case__85 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_61(x4)(x5)(x3)(x1)(st))(st)+c__case_62_case__85 x1 x2@(Curry.Module.FlatCurry.C_Var x59) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_62_case__85 x1 x2@(Curry.Module.FlatCurry.C_Lit x60) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_62_case__85 x1 x2@(Curry.Module.FlatCurry.C_Let x61 x62) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_62_case__85 x1 x2@(Curry.Module.FlatCurry.C_Free x63 x64) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_62_case__85 x1 x2@(Curry.Module.FlatCurry.C_Or x65 x66) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_62_case__85 x1 x2@(Curry.Module.FlatCurry.C_Case x67 x68 x69) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_62_case__85 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_62_case__85(x1)(x)(st))(i)(xs)(st)+c__case_62_case__85 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_62_case__85")(x)++++c__case_8_case__86 x1 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just(Curry.Module.Prelude.List))(st)+c__case_8_case__86 x1 x5@((Curry.Module.Prelude.:<) x26 x27) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_8_case__86 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_8_case__86(x1)(x)(st))(i)(xs)(st)+c__case_8_case__86 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_8_case__86")(x)++++c__case_9_case__87 x1 x5 x25@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_8(x5)(x1)(st))(st)+c__case_9_case__87 x1 x5 x25@((Curry.Module.Prelude.:<) x28 x29) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_9_case__87 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_9_case__87(x1)(x5)(x)(st))(i)(xs)(st)+c__case_9_case__87 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_9_case__87")(x)++++c__case_10_case__88 x1 x5 x25 x26@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_9(x5)(x25)(x1)(st))(st)+c__case_10_case__88 x1 x5 x25 x26@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_10_case__88 x1 x5 x25 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_10_case__88(x1)(x5)(x25)(x)(st))(i)(xs)(st)+c__case_10_case__88 x1 x5 x25 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_10_case__88")(x)++++c__case_11_case__89 x1 x5 x23@((Curry.Module.Prelude.:<) x24 x25) st = let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_10(x5)(x24)(x25)(Curry.Module.OraclePrelude.op_61_61(x24)(Curry.Module.Prelude.C_Char(']'))(x1)(st))(x26)(st))(st)+c__case_11_case__89 x1 x5 x23@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_11_case__89 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_11_case__89(x1)(x5)(x)(st))(i)(xs)(st)+c__case_11_case__89 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_11_case__89")(x)++++c__case_3_case__90 x1 x30 x32 x33@Curry.Module.Prelude.List st = let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List)))(Curry.Module.OracleMaybe.op_62_62_45(Curry.Module.OraclePrettyFlat.c_toList(x32)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x30)))))(x36)(st))(x37)(st))(st)+c__case_3_case__90 x1 x30 x32 x33@((Curry.Module.Prelude.:<) x34 x35) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_3_case__90 x1 x30 x32 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_3_case__90(x1)(x30)(x32)(x)(st))(i)(xs)(st)+c__case_3_case__90 x1 x30 x32 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_3_case__90")(x)++++c__case_4_case__91 x1 x30 x31@((Curry.Module.Prelude.:<) x32 x33) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_3(x30)(x32)(x33)(x1)(st))(st)+c__case_4_case__91 x1 x30 x31@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_4_case__91 x1 x30 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_4_case__91(x1)(x30)(x)(st))(i)(xs)(st)+c__case_4_case__91 x1 x30 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_4_case__91")(x)++++c__case_5_case__92 x1 x5@((Curry.Module.Prelude.:<) x30 x31) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_4(x30)(x31)(x1)(st))(st)+c__case_5_case__92 x1 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_5_case__92 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_5_case__92(x1)(x)(st))(i)(xs)(st)+c__case_5_case__92 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_5_case__92")(x)++++c__case_6_case__93 x1 x5 x23@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_5(x5)(x1)(st))(st)+c__case_6_case__93 x1 x5 x23@((Curry.Module.Prelude.:<) x36 x37) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_6_case__93 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_6_case__93(x1)(x5)(x)(st))(i)(xs)(st)+c__case_6_case__93 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_6_case__93")(x)++++c__case_7_case__94 x1 x5 x23 x24@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_6(x5)(x23)(x1)(st))(st)+c__case_7_case__94 x1 x5 x23 x24@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_7_case__94 x1 x5 x23 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_7_case__94(x1)(x5)(x23)(x)(st))(i)(xs)(st)+c__case_7_case__94 x1 x5 x23 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_7_case__94")(x)++++c__case_12_case__95 x1 x5 x22 x23 x24@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_11(x5)(x23)(x1)(st))(st)+c__case_12_case__95 x1 x5 x22 x23 x24@Curry.Module.Prelude.C_False st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_7(x5)(x22)(x23)(Curry.Module.OraclePrelude.op_61_61(x22)(Curry.Module.Prelude.C_Char(':'))(x1)(st))(x25)(st))(st)+c__case_12_case__95 x1 x5 x22 x23 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_12_case__95(x1)(x5)(x22)(x23)(x)(st))(i)(xs)(st)+c__case_12_case__95 x1 x5 x22 x23 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_12_case__95")(x)++++c__case_13_case__96 x1 x5 x7@((Curry.Module.Prelude.:<) x22 x23) st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_12(x5)(x22)(x23)(Curry.Module.OraclePrelude.op_61_61(x22)(Curry.Module.Prelude.C_Char('['))(x1)(st))(x24)(st))(st)+c__case_13_case__96 x1 x5 x7@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_13_case__96 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_13_case__96(x1)(x5)(x)(st))(i)(xs)(st)+c__case_13_case__96 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_13_case__96")(x)++++c__case_14_case__97 x1 x5 x7 x21@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_13(x5)(x7)(x1)(st))(st)+c__case_14_case__97 x1 x5 x7 x21@((Curry.Module.Prelude.:<) x38 x39) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_14_case__97 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_14_case__97(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_14_case__97 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_14_case__97")(x)++++c__case_15_case__98 x1 x5 x7 x21 x22@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_14(x5)(x7)(x21)(x1)(st))(st)+c__case_15_case__98 x1 x5 x7 x21 x22@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_15_case__98 x1 x5 x7 x21 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_15_case__98(x1)(x5)(x7)(x21)(x)(st))(i)(xs)(st)+c__case_15_case__98 x1 x5 x7 x21 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_15_case__98")(x)++++c__case_16_case__99 x1 x5 x7 x19@((Curry.Module.Prelude.:<) x20 x21) st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_15(x5)(x7)(x20)(x21)(Curry.Module.OraclePrelude.op_61_61(x20)(Curry.Module.Prelude.C_Char('e'))(x1)(st))(x22)(st))(st)+c__case_16_case__99 x1 x5 x7 x19@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_16_case__99 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_16_case__99(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_16_case__99 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_16_case__99")(x)++++c__case_17_case__100 x1 x5 x7 x19 x20@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_16(x5)(x7)(x19)(x1)(st))(st)+c__case_17_case__100 x1 x5 x7 x19 x20@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_17_case__100 x1 x5 x7 x19 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_17_case__100(x1)(x5)(x7)(x19)(x)(st))(i)(xs)(st)+c__case_17_case__100 x1 x5 x7 x19 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_17_case__100")(x)++++c__case_18_case__101 x1 x5 x7 x17@((Curry.Module.Prelude.:<) x18 x19) st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_17(x5)(x7)(x18)(x19)(Curry.Module.OraclePrelude.op_61_61(x18)(Curry.Module.Prelude.C_Char('d'))(x1)(st))(x20)(st))(st)+c__case_18_case__101 x1 x5 x7 x17@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_18_case__101 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_18_case__101(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_18_case__101 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_18_case__101")(x)++++c__case_19_case__102 x1 x5 x7 x17 x18@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_18(x5)(x7)(x17)(x1)(st))(st)+c__case_19_case__102 x1 x5 x7 x17 x18@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_19_case__102 x1 x5 x7 x17 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_19_case__102(x1)(x5)(x7)(x17)(x)(st))(i)(xs)(st)+c__case_19_case__102 x1 x5 x7 x17 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_19_case__102")(x)++++c__case_20_case__103 x1 x5 x7 x15@((Curry.Module.Prelude.:<) x16 x17) st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_19(x5)(x7)(x16)(x17)(Curry.Module.OraclePrelude.op_61_61(x16)(Curry.Module.Prelude.C_Char('u'))(x1)(st))(x18)(st))(st)+c__case_20_case__103 x1 x5 x7 x15@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_20_case__103 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_20_case__103(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_20_case__103 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_20_case__103")(x)++++c__case_21_case__104 x1 x5 x7 x15 x16@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_20(x5)(x7)(x15)(x1)(st))(st)+c__case_21_case__104 x1 x5 x7 x15 x16@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_21_case__104 x1 x5 x7 x15 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_21_case__104(x1)(x5)(x7)(x15)(x)(st))(i)(xs)(st)+c__case_21_case__104 x1 x5 x7 x15 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_21_case__104")(x)++++c__case_22_case__105 x1 x5 x7 x13@((Curry.Module.Prelude.:<) x14 x15) st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_21(x5)(x7)(x14)(x15)(Curry.Module.OraclePrelude.op_61_61(x14)(Curry.Module.Prelude.C_Char('l'))(x1)(st))(x16)(st))(st)+c__case_22_case__105 x1 x5 x7 x13@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_22_case__105 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_22_case__105(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_22_case__105 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_22_case__105")(x)++++c__case_23_case__106 x1 x5 x7 x13 x14@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_22(x5)(x7)(x13)(x1)(st))(st)+c__case_23_case__106 x1 x5 x7 x13 x14@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_23_case__106 x1 x5 x7 x13 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_23_case__106(x1)(x5)(x7)(x13)(x)(st))(i)(xs)(st)+c__case_23_case__106 x1 x5 x7 x13 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_23_case__106")(x)++++c__case_24_case__107 x1 x5 x7 x11@((Curry.Module.Prelude.:<) x12 x13) st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_23(x5)(x7)(x12)(x13)(Curry.Module.OraclePrelude.op_61_61(x12)(Curry.Module.Prelude.C_Char('e'))(x1)(st))(x14)(st))(st)+c__case_24_case__107 x1 x5 x7 x11@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_24_case__107 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_24_case__107(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_24_case__107 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_24_case__107")(x)++++c__case_25_case__108 x1 x5 x7 x11 x12@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_24(x5)(x7)(x11)(x1)(st))(st)+c__case_25_case__108 x1 x5 x7 x11 x12@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_25_case__108 x1 x5 x7 x11 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_25_case__108(x1)(x5)(x7)(x11)(x)(st))(i)(xs)(st)+c__case_25_case__108 x1 x5 x7 x11 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_25_case__108")(x)++++c__case_26_case__109 x1 x5 x7 x9@((Curry.Module.Prelude.:<) x10 x11) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_25(x5)(x7)(x10)(x11)(Curry.Module.OraclePrelude.op_61_61(x10)(Curry.Module.Prelude.C_Char('r'))(x1)(st))(x12)(st))(st)+c__case_26_case__109 x1 x5 x7 x9@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_26_case__109 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_26_case__109(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_26_case__109 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_26_case__109")(x)++++c__case_27_case__110 x1 x5 x7 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_26(x5)(x7)(x9)(x1)(st))(st)+c__case_27_case__110 x1 x5 x7 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_27_case__110 x1 x5 x7 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_27_case__110(x1)(x5)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_27_case__110 x1 x5 x7 x9 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_27_case__110")(x)++++c__case_28_case__111 x1 x5 x7 x6@((Curry.Module.Prelude.:<) x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_27(x5)(x7)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.Prelude.C_Char('P'))(x1)(st))(x10)(st))(st)+c__case_28_case__111 x1 x5 x7 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_28_case__111 x1 x5 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_28_case__111(x1)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_28_case__111 x1 x5 x7 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_28_case__111")(x)++++c__case_29_case__112 x1 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_28(x5)(x7)(x6)(x1)(st))(st)+c__case_29_case__112 x1 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_29_case__112(x1)(x5)(x)(st))(i)(xs)(st)+c__case_29_case__112 x1 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_29_case__112")(x)++++c__case_30_case__113 x1 x4 x5 x3@Curry.Module.FlatCurry.C_ConsCall st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_29(x5)(x4)(x1)(st))(st)+c__case_30_case__113 x1 x4 x5 x3@Curry.Module.FlatCurry.C_FuncCall st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_30_case__113 x1 x4 x5 x3@(Curry.Module.FlatCurry.C_FuncPartCall x40) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_30_case__113 x1 x4 x5 x3@(Curry.Module.FlatCurry.C_ConsPartCall x41) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_30_case__113 x1 x4 x5 (Curry.Module.FlatCurry.C_CombTypeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_30_case__113(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_30_case__113 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_30_case__113")(x)++++c__case_31_case__114 x1 x2@(Curry.Module.FlatCurry.C_Comb x3 x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrettyFlat.c__case_30(x4)(x5)(x3)(x1)(st))(st)+c__case_31_case__114 x1 x2@(Curry.Module.FlatCurry.C_Var x42) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_31_case__114 x1 x2@(Curry.Module.FlatCurry.C_Lit x43) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_31_case__114 x1 x2@(Curry.Module.FlatCurry.C_Let x44 x45) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_31_case__114 x1 x2@(Curry.Module.FlatCurry.C_Free x46 x47) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_31_case__114 x1 x2@(Curry.Module.FlatCurry.C_Or x48 x49) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_31_case__114 x1 x2@(Curry.Module.FlatCurry.C_Case x50 x51 x52) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_31_case__114 x1 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_31_case__114(x1)(x)(st))(i)(xs)(st)+c__case_31_case__114 x1 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_31_case__114")(x)++++c__case_2_case__115 x1 x3 x2@(Curry.Module.FlatCurry.C_Comb x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.FlatCurry.C_Comb(x4)(x5)(Curry.Module.OraclePrelude.op_43_43(x6)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(x1)(st)))(st)+c__case_2_case__115 x1 x3 (Curry.Module.FlatCurry.C_ExprOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_2_case__115(x1)(x3)(x)(st))(i)(xs)(st)+c__case_2_case__115 x1 x3 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_2_case__115")(x)++++c__case_0_case__116 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.FlatCurry.C_Comb(x2)(x3)(x4))(st)+c__case_0_case__116 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_0_case__116 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_0_case__116(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_0_case__116 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_0_case__116")(x)++++c__case_1_case__117 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrettyFlat.c_elimApp'46extend'46276(Curry.Module.OraclePrelude.c_head(x4)(x1)(st))(Curry.Module.OraclePrelude.op_33_33(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x6)(st))(x7)(st))(st)+c__case_1_case__117 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OraclePrettyFlat.c__case_0(x2)(x3)(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x8)(st))(st)+c__case_1_case__117 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePrettyFlat.c__case_1_case__117(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_1_case__117 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePrettyFlat._case_1_case__117")(x)++
+ dist/build/Curry/Module/OraclePropertyFile.hs view
@@ -0,0 +1,183 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OraclePropertyFile (module Curry.Module.OraclePropertyFile) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.PropertyFile+import Curry.Module.Char+import Curry.Module.Directory+import Curry.Module.IOExts+import Curry.Module.Prelude+import Curry.Module.OracleChar+import Curry.Module.OracleDirectory+import Curry.Module.OracleIOExts+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_readPropertyFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))))+c_readPropertyFile x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleDirectory.c_doesFileExist(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePropertyFile.c_readPropertyFile'46_'35lambda3(x2)))))(x3)(st))(st)++++c_readPropertyFile'46splitEqs'463 :: (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> 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_readPropertyFile'46splitEqs'463 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_8(x2)(x1)(st))(st)++++c_readPropertyFile'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Bool -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))))+c_readPropertyFile'46_'35lambda3 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_5(x2)(x3)(x1)(st))(st)++++c_readPropertyFile'46_'35lambda3'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))))+c_readPropertyFile'46_'35lambda3'46_'35lambda4 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePropertyFile.c_readPropertyFile'46splitEqs'463))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePropertyFile.c_readPropertyFile'46_'35lambda3'46_'35lambda4'46_'35lambda5))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_lines))))(x1)(st))(x3)(st))(x2)(x4)(st))(x5)(st))(st)++++c_readPropertyFile'46_'35lambda3'46_'35lambda4'46_'35lambda5 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_readPropertyFile'46_'35lambda3'46_'35lambda4'46_'35lambda5 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.c_not(Curry.Module.OraclePrelude.c_null(x2)(x1)(st))(x3)(st))(Curry.Module.OracleChar.c_isAlpha(Curry.Module.OraclePrelude.c_head(x2)(x4)(st))(x5)(st))(x6)(st))(st)++++c_updatePropertyFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_updatePropertyFile x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePropertyFile.c_readPropertyFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePropertyFile.c_updatePropertyFile'46_'35lambda6(x2)(x3)(x4)))))(x5)(st))(st)++++c_updatePropertyFile'46_'35lambda6 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_updatePropertyFile'46_'35lambda6 x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePropertyFile.c__case_4(x2)(x3)(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_lookup(x3)(x5)(x1)(st))(Curry.Module.Prelude.C_Nothing)(x6)(st))(x7)(st))(st)++++c_changePropertyInFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_changePropertyInFile x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleIOExts.c_updateFile(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePropertyFile.c_changePropertyInFile'46_'35lambda7(x3)(x4)))))(x2)(x1)(st))(st)++++c_changePropertyInFile'46changeProp'4621 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_changePropertyInFile'46changeProp'4621 x2 x3 x4 x1 st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(let {x5 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_break(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))(Curry.Module.Prelude.C_Char('='))))))(x1)(st))(x4)(x8)(st)} in let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OraclePropertyFile.c_changePropertyInFile'46changeProp'4621'46_'35selFP4'35s2(x5)(x10)(st)} in let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePropertyFile.c__case_3(x2)(x3)(x4)(Curry.Module.OraclePropertyFile.c_changePropertyInFile'46changeProp'4621'46_'35selFP3'35s1(x5)(x9)(st))(x7)(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.c_null(x4)(x11)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.c_not(Curry.Module.OracleChar.c_isAlpha(Curry.Module.OraclePrelude.c_head(x4)(x12)(st))(x13)(st))(x14)(st))(Curry.Module.OraclePrelude.c_null(x7)(x15)(st))(x16)(st))(x17)(st))(x18)(st))(st))(st))(st))(st)++++c_changePropertyInFile'46changeProp'4621'46_'35selFP3'35s1 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_changePropertyInFile'46changeProp'4621'46_'35selFP3'35s1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_1(x2)(x1)(st))(st)++++c_changePropertyInFile'46changeProp'4621'46_'35selFP4'35s2 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_changePropertyInFile'46changeProp'4621'46_'35selFP4'35s2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_0(x2)(x1)(st))(st)++++c_changePropertyInFile'46_'35lambda7 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_changePropertyInFile'46_'35lambda7 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_unlines))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePropertyFile.c_changePropertyInFile'46changeProp'4621(x2)(x3)))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_lines))))(x1)(st))(x5)(st))(x4)(x6)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_0_case__8(x1)(x2)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_1_case__7(x1)(x2)(st))(st)++++c__case_3 x2 x3 x4 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_3_case__6(x1)(x2)(x3)(x4)(x6)(x8)(st))(st)++++c__case_2 x2 x3 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_2_case__5(x1)(x3)(x4)(x6)(x7)(st))(st)++++c__case_4 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_4_case__4(x1)(x2)(x3)(x4)(x6)(st))(st)++++c__case_5 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_5_case__3(x1)(x2)(x3)(st))(st)++++c__case_8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_8_case__2(x1)(x2)(st))(st)++++c__case_7 x3 x4 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_7_case__1(x1)(x4)(x7)(st))(st)++++c__case_6 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_6_case__0(x1)(x4)(x5)(x6)(st))(st)++++c__case_6_case__0 x1 x4 x5 x6@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x5)(x8))(Curry.Module.OraclePropertyFile.c_readPropertyFile'46splitEqs'463(x4)(x1)(st)))(st)+c__case_6_case__0 x1 x4 x5 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c_readPropertyFile'46splitEqs'463(x4)(x1)(st))(st)+c__case_6_case__0 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePropertyFile.c__case_6_case__0(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_6_case__0 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OraclePropertyFile._case_6_case__0")(x)++++c__case_7_case__1 x1 x4 x7@(Curry.Module.Prelude.T2 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c__case_6(x4)(x5)(x6)(x1)(st))(st)+c__case_7_case__1 x1 x4 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePropertyFile.c__case_7_case__1(x1)(x4)(x)(st))(i)(xs)(st)+c__case_7_case__1 x1 x4 x st = Curry.RunTimeSystem.patternFail("OraclePropertyFile._case_7_case__1")(x)++++c__case_8_case__2 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_8_case__2 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePropertyFile.c__case_7(x3)(x4)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_break(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))(Curry.Module.Prelude.C_Char('='))))))(x1)(st))(x3)(x5)(st))(x6)(st))(st)+c__case_8_case__2 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePropertyFile.c__case_8_case__2(x1)(x)(st))(i)(xs)(st)+c__case_8_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OraclePropertyFile._case_8_case__2")(x)++++c__case_5_case__3 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePropertyFile.c_readPropertyFile'46_'35lambda3'46_'35lambda4))))(x4)(st))(st)+c__case_5_case__3 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.List)(x1)(st))(st)+c__case_5_case__3 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePropertyFile.c__case_5_case__3(x1)(x2)(x)(st))(i)(xs)(st)+c__case_5_case__3 x1 x2 x st = Curry.RunTimeSystem.patternFail("OraclePropertyFile._case_5_case__3")(x)++++c__case_4_case__4 x1 x2 x3 x4 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_appendFile(x2)(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x1)(st))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_4_case__4 x1 x2 x3 x4 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePropertyFile.c_changePropertyInFile(x2)(x3)(x4)(x1)(st))(st)+c__case_4_case__4 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePropertyFile.c__case_4_case__4(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_4_case__4 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OraclePropertyFile._case_4_case__4")(x)++++c__case_2_case__5 x1 x3 x4 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x6)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))(x3)(x1)(st))(x8)(st))(st)+c__case_2_case__5 x1 x3 x4 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_2_case__5 x1 x3 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePropertyFile.c__case_2_case__5(x1)(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_2_case__5 x1 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("OraclePropertyFile._case_2_case__5")(x)++++c__case_3_case__6 x1 x2 x3 x4 x6 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_3_case__6 x1 x2 x3 x4 x6 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OraclePropertyFile.c__case_2(x2)(x3)(x4)(x6)(Curry.Module.OraclePrelude.op_61_61(x6)(x2)(x1)(st))(x9)(st))(st)+c__case_3_case__6 x1 x2 x3 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePropertyFile.c__case_3_case__6(x1)(x2)(x3)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_3_case__6 x1 x2 x3 x4 x6 x st = Curry.RunTimeSystem.patternFail("OraclePropertyFile._case_3_case__6")(x)++++c__case_1_case__7 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_1_case__7 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePropertyFile.c__case_1_case__7(x1)(x)(st))(i)(xs)(st)+c__case_1_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OraclePropertyFile._case_1_case__7")(x)++++c__case_0_case__8 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_0_case__8 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OraclePropertyFile.c__case_0_case__8(x1)(x)(st))(i)(xs)(st)+c__case_0_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OraclePropertyFile._case_0_case__8")(x)++
+ dist/build/Curry/Module/OracleRandom.hs view
@@ -0,0 +1,312 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleRandom (module Curry.Module.OracleRandom) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Random+import Curry.Module.Prelude+import Curry.Module.System+import Curry.Module.Time+import Curry.Module.OraclePrelude+import Curry.Module.OracleSystem+import Curry.Module.OracleTime++++-- begin included++++-- end included++c_multiplier :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_multiplier x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))))))))))))))))))))))))))))))(st)++++c_addend :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addend x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))(st)++++c_powermask :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_powermask x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(st)++++c_mask :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_mask x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))))))))))))))))))))))))))))))))))))))))))))(st)++++c_intsize :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_intsize x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))(st)++++c_intspan :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_intspan x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))))))))))))))))))))))))))))(st)++++c_intlimit :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_intlimit x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))))))))))))))))))))))))))))(st)++++c_sequence :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_sequence x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(let {x3 = Curry.Module.OracleRandom.c_nextseed(x2)(x1)(st)} in Curry.Module.CEventOracle.c_replace(x4)((Curry.Module.Prelude.:<)(x3)(Curry.Module.OracleRandom.c_sequence(x3)(x4)(st)))(st))(st)++++c_nextseed :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_nextseed x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_mod(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_42(x2)(Curry.Module.OracleRandom.c_multiplier(x1)(st))(x3)(st))(Curry.Module.OracleRandom.c_addend(x4)(st))(x5)(st))(Curry.Module.OracleRandom.c_mask(x6)(st))(x7)(st))(st)++++c_xor :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_xor x2 x3 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))(let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))))(Curry.Module.OracleRandom.c__case_12(x2)(x3)(Curry.Module.OracleRandom.c__case_11(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_mod(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.OraclePrelude.c_mod(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x6)(st))(x7)(st))(x8)(st))(Curry.Module.OracleRandom.c_xor(Curry.Module.OraclePrelude.c_div(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x9)(st))(Curry.Module.OraclePrelude.c_div(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x10)(st))(x11)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Zero)(x12)(st))(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Zero)(x13)(st))(x14)(st))(x15)(st))(st))(st))(st)++++c_power :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_power x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c_power'46binary'4643(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x2)(x3)(x1)(st))(st)++++c_power'46binary'4643 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_power'46binary'4643 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleRandom.c__case_10(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Zero)(x1)(st))(x5)(st))(st)++++c_nextIntBits :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_nextIntBits x2 x3 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))))(Curry.Module.CEventOracle.c_replace(x14)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRandom.c_nextIntBits'46adjust'4653(Curry.Module.OracleRandom.c_power(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(Curry.Module.OraclePrelude.op_45(Curry.Module.OracleRandom.c_powermask(x11)(st))(x3)(x12)(st))(x13)(st))))))(Curry.Module.OracleRandom.c_sequence(Curry.Module.OraclePrelude.c_mod(Curry.Module.OracleRandom.c_xor(x2)(Curry.Module.OracleRandom.c_multiplier(x1)(st))(x7)(st))(Curry.Module.OracleRandom.c_mask(x8)(st))(x9)(st))(x10)(st))(x14)(st))(st))(st))(st))(st)++++c_nextIntBits'46adjust'4653 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_nextIntBits'46adjust'4653 x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(let {x4 = Curry.Module.OraclePrelude.c_mod(Curry.Module.OraclePrelude.c_div(x3)(x2)(x1)(st))(Curry.Module.OracleRandom.c_intspan(x5)(st))(x6)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OracleRandom.c__case_8(x4)(Curry.Module.OraclePrelude.op_62(x4)(Curry.Module.OracleRandom.c_intlimit(x7)(st))(x8)(st))(x9)(st))(st))(st)++++c_nextInt :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_nextInt x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleRandom.c_nextIntBits(x2)(Curry.Module.OracleRandom.c_intsize(x1)(st))(x3)(st))(st)++++c_nextIntRange :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_nextIntRange x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleRandom.c__case_7(x3)(Curry.Module.OracleRandom.c_nextIntBits(x2)(Curry.Module.OraclePrelude.op_45(Curry.Module.OracleRandom.c_intsize(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x5)(st))(x6)(st))(Curry.Module.OraclePrelude.op_62(x3)(Curry.Module.Prelude.C_Zero)(x7)(st))(x8)(st))(st))(st)++++c_nextIntRange'46adjust_a'4664 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_nextIntRange'46adjust_a'4664 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_div(Curry.Module.OraclePrelude.op_42(x2)(x3)(x1)(st))(Curry.Module.OracleRandom.c_intlimit(x4)(st))(x5)(st))(st)++++c_nextIntRange'46adjust_b'4664 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_nextIntRange'46adjust_b'4664 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_mod(x3)(x2)(x1)(st))(st)++++c_nextIntRange'46adjust_c'4664 :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_nextIntRange'46adjust_c'4664 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_62_61(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(x3)(Curry.Module.OraclePrelude.c_mod(x3)(x2)(x1)(st))(x4)(st))(Curry.Module.OraclePrelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x5)(st))(x6)(st))(Curry.Module.Prelude.C_Zero)(x7)(st))(st)++++c_nextIntRange'46power_of_2'4664 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_nextIntRange'46power_of_2'4664 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x3)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_mod(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x4)(st))(Curry.Module.Prelude.C_Zero)(x5)(st))(Curry.Module.OracleRandom.c_nextIntRange'46power_of_2'4664(Curry.Module.OraclePrelude.c_div(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x6)(st))(x7)(st))(x8)(st))(x9)(st))(x10)(st))(st)++++c_nextBoolean :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Bool+c_nextBoolean x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(Curry.Module.Prelude.C_Zero)))))(Curry.Module.OracleRandom.c_nextIntBits(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x3)(st))(st)++++c_getRandomSeed :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_getRandomSeed x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleTime.c_getClockTime(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRandom.c_getRandomSeed'46_'35lambda2))))(x2)(st))(st)++++c_getRandomSeed'46_'35lambda2 :: Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_getRandomSeed'46_'35lambda2 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleSystem.c_getCPUTime(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRandom.c_getRandomSeed'46_'35lambda2'46_'35lambda3(x2)))))(x3)(st))(st)++++c_getRandomSeed'46_'35lambda2'46_'35lambda3 :: Curry.Module.Time.C_ClockTime -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_getRandomSeed'46_'35lambda2'46_'35lambda3 x2 x3 x1 st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleTime.c_toUTCTime(x2)(x1)(st)} in let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List)))))))))(Curry.Module.OraclePrelude.c_return(Curry.Module.OraclePrelude.c_mod(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_43(Curry.Module.OracleRandom.c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP3'35y(x4)(x11)(st))(Curry.Module.OracleRandom.c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP4'35mo(x4)(x12)(st))(x17)(st))(Curry.Module.OracleRandom.c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP5'35d(x4)(x13)(st))(x18)(st))(Curry.Module.OracleRandom.c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP6'35h(x4)(x14)(st))(x19)(st))(Curry.Module.OraclePrelude.op_42(Curry.Module.OraclePrelude.op_42(Curry.Module.OracleRandom.c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP7'35m(x4)(x15)(st))(Curry.Module.OracleRandom.c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP8'35s(x4)(x16)(st))(x20)(st))(x3)(x21)(st))(x22)(st))(Curry.Module.OracleRandom.c_mask(x23)(st))(x24)(st))(x25)(st))(st))(st))(st))(st))(st))(st))(st))(st)++++c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP3'35y :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP3'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_5(x2)(x1)(st))(st)++++c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP4'35mo :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP4'35mo x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_4(x2)(x1)(st))(st)++++c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP5'35d :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP5'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_3(x2)(x1)(st))(st)++++c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP6'35h :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP6'35h x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_2(x2)(x1)(st))(st)++++c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP7'35m :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP7'35m x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_1(x2)(x1)(st))(st)++++c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP8'35s :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_getRandomSeed'46_'35lambda2'46_'35lambda3'46_'35selFP8'35s x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_0(x2)(x1)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_0_case__12(x1)(x2)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_1_case__11(x1)(x2)(st))(st)++++c__case_2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_2_case__10(x1)(x2)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_3_case__9(x1)(x2)(st))(st)++++c__case_4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_4_case__8(x1)(x2)(st))(st)++++c__case_5 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_5_case__7(x1)(x2)(st))(st)++++c__case_7 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_7_case__6(x1)(x3)(x4)(x5)(st))(st)++++c__case_6 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_6_case__5(x1)(x3)(x4)(x5)(st))(st)++++c__case_8 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_8_case__4(x1)(x4)(x5)(st))(st)++++c__case_10 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_10_case__3(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_9 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_9_case__2(x1)(x3)(x5)(st))(st)++++c__case_11 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_11_case__1(x1)(x4)(st))(st)++++c__case_12 x2 x3 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandom.c__case_12_case__0(x1)(x4)(x5)(x6)(st))(st)++++c__case_12_case__0 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_12_case__0 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.OraclePrelude.op_42(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x5)(x1)(st))(x7)(st))(st)+c__case_12_case__0 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_12_case__0(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_12_case__0 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_12_case__0")(x)++++c__case_11_case__1 x1 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_11_case__1 x1 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_11_case__1 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_11_case__1(x1)(x)(st))(i)(xs)(st)+c__case_11_case__1 x1 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_11_case__1")(x)++++c__case_9_case__2 x1 x3 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_9_case__2 x1 x3 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(st)+c__case_9_case__2 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_9_case__2(x1)(x3)(x)(st))(i)(xs)(st)+c__case_9_case__2 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_9_case__2")(x)++++c__case_10_case__3 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_10_case__3 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))))))(Curry.Module.OracleRandom.c_power'46binary'4643(Curry.Module.OraclePrelude.op_42(x2)(Curry.Module.OracleRandom.c__case_9(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_mod(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x6)(st))(x7)(st))(x8)(st))(Curry.Module.OraclePrelude.op_42(x3)(x3)(x9)(st))(Curry.Module.OraclePrelude.c_div(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x10)(st))(x11)(st))(st)+c__case_10_case__3 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_10_case__3(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_10_case__3 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_10_case__3")(x)++++c__case_8_case__4 x1 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_45(x4)(Curry.Module.OracleRandom.c_intspan(x1)(st))(x6)(st))(st)+c__case_8_case__4 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_8_case__4 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_8_case__4(x1)(x4)(x)(st))(i)(xs)(st)+c__case_8_case__4 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_8_case__4")(x)++++c__case_6_case__5 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRandom.c_nextIntRange'46adjust_a'4664(x3)))))(x4)(x1)(st))(st)+c__case_6_case__5 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRandom.c_nextIntRange'46adjust_b'4664(x3)))))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRandom.c_nextIntRange'46adjust_c'4664(x3)))))(x4)(x1)(st))(x6)(st))(st)+c__case_6_case__5 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_6_case__5(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_6_case__5 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_6_case__5")(x)++++c__case_7_case__6 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleRandom.c__case_6(x3)(x4)(Curry.Module.OracleRandom.c_nextIntRange'46power_of_2'4664(x3)(x1)(st))(x6)(st))(st)+c__case_7_case__6 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_7_case__6 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_7_case__6(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_7_case__6 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_7_case__6")(x)++++c__case_5_case__7 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_5_case__7 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_5_case__7(x1)(x)(st))(i)(xs)(st)+c__case_5_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_5_case__7")(x)++++c__case_4_case__8 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_4_case__8 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_4_case__8(x1)(x)(st))(i)(xs)(st)+c__case_4_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_4_case__8")(x)++++c__case_3_case__9 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_3_case__9 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_3_case__9(x1)(x)(st))(i)(xs)(st)+c__case_3_case__9 x1 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_3_case__9")(x)++++c__case_2_case__10 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_2_case__10 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_2_case__10(x1)(x)(st))(i)(xs)(st)+c__case_2_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_2_case__10")(x)++++c__case_1_case__11 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_1_case__11 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_1_case__11(x1)(x)(st))(i)(xs)(st)+c__case_1_case__11 x1 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_1_case__11")(x)++++c__case_0_case__12 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_0_case__12 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandom.c__case_0_case__12(x1)(x)(st))(i)(xs)(st)+c__case_0_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OracleRandom._case_0_case__12")(x)++
+ dist/build/Curry/Module/OracleRandomExternal.hs view
@@ -0,0 +1,91 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleRandomExternal (module Curry.Module.OracleRandomExternal) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.RandomExternal+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_split :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_split x2 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x3 = Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRandomExternal.c_prim_split))))(x2)(x1)(st)} in let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x8)((Curry.Module.Prelude.:<)(Curry.Module.OracleRandomExternal.c_split'46_'35selFP3'35s1(x3)(x6)(st))(Curry.Module.OracleRandomExternal.c_split(Curry.Module.OracleRandomExternal.c_split'46_'35selFP4'35s2(x3)(x7)(st))(x8)(st)))(st))(st))(st))(st)++++c_split'46_'35selFP3'35s1 :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_split'46_'35selFP3'35s1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandomExternal.c__case_1(x2)(x1)(st))(st)++++c_split'46_'35selFP4'35s2 :: (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_split'46_'35selFP4'35s2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandomExternal.c__case_0(x2)(x1)(st))(st)++++c_nextInt :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_nextInt x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRandomExternal.c_prim_nextInt))))(x2)(x1)(st))(st)++++c_nextIntRange :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_nextIntRange x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleRandomExternal.c_prim_nextIntRange))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_nextBoolean :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Bool+c_nextBoolean x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.Prelude.C_Zero)))))(Curry.Module.OracleRandomExternal.c_nextIntRange(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x3)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandomExternal.c__case_0_case__1(x1)(x2)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRandomExternal.c__case_1_case__0(x1)(x2)(st))(st)++++c_prim_split :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Prelude.C_Int+c_prim_split x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RandomExternal.c_prim_split(x2)(st))(st)++++c_prim_nextInt :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_prim_nextInt x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RandomExternal.c_prim_nextInt(x2)(st))(st)++++c_prim_nextIntRange :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_prim_nextIntRange x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RandomExternal.c_prim_nextIntRange(x3)(x2)(st))(st)++++c_getRandomSeed :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_getRandomSeed x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.RandomExternal.c_getRandomSeed(st))(st))))(st)++++c__case_1_case__0 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_1_case__0 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandomExternal.c__case_1_case__0(x1)(x)(st))(i)(xs)(st)+c__case_1_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleRandomExternal._case_1_case__0")(x)++++c__case_0_case__1 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_0_case__1 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRandomExternal.c__case_0_case__1(x1)(x)(st))(i)(xs)(st)+c__case_0_case__1 x1 x st = Curry.RunTimeSystem.patternFail("OracleRandomExternal._case_0_case__1")(x)++
+ dist/build/Curry/Module/OracleRead.hs view
@@ -0,0 +1,161 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleRead (module Curry.Module.OracleRead) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Read+import Curry.Module.Char+import Curry.Module.Prelude+import Curry.Module.OracleChar+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_readNat :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_readNat x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleRead.c_readNat'46readNatPrefix'463(Curry.Module.OraclePrelude.c_dropWhile(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRead.c_readNat'46_'35lambda2))))(x2)(x1)(st))(Curry.Module.Prelude.C_Zero)(x3)(st))(st)++++c_readNat'46readNatPrefix'463 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_readNat'46readNatPrefix'463 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_7(x3)(x2)(x1)(st))(st)++++c_readNat'46_'35lambda2 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_readNat'46_'35lambda2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char(' '))(x1)(st))(st)++++c_readInt :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_readInt x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleRead.c_readInt'46readIntPrefix'4614(Curry.Module.OraclePrelude.c_dropWhile(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRead.c_readInt'46_'35lambda3))))(x2)(x1)(st))(x3)(st))(st)++++c_readInt'46readIntPrefix'4614 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_readInt'46readIntPrefix'4614 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_5(x2)(x1)(st))(st)++++c_readInt'46_'35lambda3 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_readInt'46_'35lambda3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char(' '))(x1)(st))(st)++++c_readHex :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_readHex x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleRead.c_readHex'46readHexPrefix'4622(Curry.Module.OraclePrelude.c_dropWhile(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRead.c_readHex'46_'35lambda4))))(x2)(x1)(st))(Curry.Module.Prelude.C_Zero)(x3)(st))(st)++++c_readHex'46hex2int'4622 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_readHex'46hex2int'4622 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleRead.c__case_3(x2)(Curry.Module.OracleChar.c_isDigit(x2)(x1)(st))(x3)(st))(st)++++c_readHex'46readHexPrefix'4622 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_readHex'46readHexPrefix'4622 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_1(x3)(x2)(x1)(st))(st)++++c_readHex'46_'35lambda4 :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_readHex'46_'35lambda4 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Char(' '))(x1)(st))(st)++++c__case_1 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_1_case__7(x1)(x3)(x2)(st))(st)++++c__case_0 x3 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_0_case__6(x1)(x3)(x5)(x6)(x7)(st))(st)++++c__case_3 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_3_case__5(x1)(x2)(x3)(st))(st)++++c__case_2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_2_case__4(x1)(x2)(x3)(st))(st)++++c__case_5 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_5_case__3(x1)(x2)(st))(st)++++c__case_4 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_4_case__2(x1)(x3)(x4)(x5)(st))(st)++++c__case_7 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_7_case__1(x1)(x3)(x2)(st))(st)++++c__case_6 x3 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c__case_6_case__0(x1)(x3)(x5)(x6)(x7)(st))(st)++++c__case_6_case__0 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))))(Curry.Module.OracleRead.c_readNat'46readNatPrefix'463(x5)(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_42(x3)(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)))))(x1)(st))(x6)(x8)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('0'))(x9)(st))(x10)(st))(x11)(st))(st)+c__case_6_case__0 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_6_case__0 x1 x3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRead.c__case_6_case__0(x1)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_6_case__0 x1 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleRead._case_6_case__0")(x)++++c__case_7_case__1 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_7_case__1 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OraclePrelude.c_ord(x4)(x1)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))(Curry.Module.OracleRead.c__case_6(x3)(x5)(x6)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(x6)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('0'))(x7)(st))(x8)(st))(Curry.Module.OraclePrelude.op_60_61(x6)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('9'))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st))(st)+c__case_7_case__1 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRead.c__case_7_case__1(x1)(x3)(x)(st))(i)(xs)(st)+c__case_7_case__1 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRead._case_7_case__1")(x)++++c__case_4_case__2 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_negate(Curry.Module.OracleRead.c_readNat(x4)(x1)(st))(x6)(st))(st)+c__case_4_case__2 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRead.c_readNat((Curry.Module.Prelude.:<)(x3)(x4))(x1)(st))(st)+c__case_4_case__2 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRead.c__case_4_case__2(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_4_case__2 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRead._case_4_case__2")(x)++++c__case_5_case__3 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Zero)(st)+c__case_5_case__3 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleRead.c__case_4(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('-'))(x1)(st))(x5)(st))(st)+c__case_5_case__3 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRead.c__case_5_case__3(x1)(x)(st))(i)(xs)(st)+c__case_5_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleRead._case_5_case__3")(x)++++c__case_2_case__4 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x4)(st))(x5)(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)))))(x6)(st))(st)+c__case_2_case__4 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_negate(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(st)+c__case_2_case__4 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRead.c__case_2_case__4(x1)(x2)(x)(st))(i)(xs)(st)+c__case_2_case__4 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRead._case_2_case__4")(x)++++c__case_3_case__5 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('0'))(x4)(st))(x5)(st))(st)+c__case_3_case__5 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))))))(Curry.Module.OracleRead.c__case_2(x2)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x6)(st))(x7)(st))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(x2)(x8)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('F'))(x9)(st))(x10)(st))(x11)(st))(x12)(st))(st)+c__case_3_case__5 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRead.c__case_3_case__5(x1)(x2)(x)(st))(i)(xs)(st)+c__case_3_case__5 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRead._case_3_case__5")(x)++++c__case_0_case__6 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OracleRead.c_readHex'46readHexPrefix'4622(x5)(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_42(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x1)(st))(x6)(x8)(st))(x9)(st))(st)+c__case_0_case__6 x1 x3 x5 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_0_case__6 x1 x3 x5 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRead.c__case_0_case__6(x1)(x3)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_0_case__6 x1 x3 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleRead._case_0_case__6")(x)++++c__case_1_case__7 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_1_case__7 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OracleRead.c_readHex'46hex2int'4622(x4)(x1)(st)} in let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleRead.c__case_0(x3)(x5)(x6)(Curry.Module.OraclePrelude.op_62_61(x6)(Curry.Module.Prelude.C_Zero)(x7)(st))(x8)(st))(st))(st)+c__case_1_case__7 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRead.c__case_1_case__7(x1)(x3)(x)(st))(i)(xs)(st)+c__case_1_case__7 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRead._case_1_case__7")(x)++
+ dist/build/Curry/Module/OracleReadShowTerm.hs view
@@ -0,0 +1,248 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleReadShowTerm (module Curry.Module.OracleReadShowTerm) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.ReadShowTerm+import Curry.Module.Char+import Curry.Module.Prelude+import Curry.Module.OracleChar+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_showTerm :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showTerm x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleReadShowTerm.c_prim_showTerm))))(x2)(x1)(st))(st)++++c_showQTerm :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showQTerm x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleReadShowTerm.c_prim_showQTerm))))(x2)(x1)(st))(st)++++c_readsUnqualifiedTerm :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_readsUnqualifiedTerm x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_12(x3)(x2)(x1)(st))(st)++++c_readsUnqualifiedTermWithPrefixes :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_readsUnqualifiedTermWithPrefixes x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleReadShowTerm.c_prim_readsUnqualifiedTerm))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_readUnqualifiedTerm :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_readUnqualifiedTerm x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleReadShowTerm.c__case_11(x2)(x3)(Curry.Module.OracleReadShowTerm.c_readsUnqualifiedTerm(x2)(x3)(x1)(st))(x4)(st))(st)++++c_readsTerm :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_readsTerm x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleReadShowTerm.c_prim_readsUnqualifiedTerm(Curry.Module.Prelude.List)))))(x2)(x1)(st))(st)++++c_readTerm :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_readTerm x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x4)(Curry.Module.OracleReadShowTerm.c__case_7(x2)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleReadShowTerm.c_prim_readsUnqualifiedTerm(Curry.Module.Prelude.List)))))(x2)(x1)(st))(x4)(st))(st))(st)++++c_readsQTerm :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_readsQTerm x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleReadShowTerm.c_prim_readsQTerm))))(x2)(x1)(st))(st)++++c_readQTerm :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_readQTerm x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x4)(Curry.Module.OracleReadShowTerm.c__case_3(Curry.Module.OracleReadShowTerm.c_readsQTerm(x2)(x1)(st))(x4)(st))(st))(st)++++c_readQTermFile :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_readQTermFile x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleReadShowTerm.c_readQTerm))))(x3)(st))(x4)(st))(st)++++c_readQTermListFile :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List t0)))+c_readQTermListFile x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleReadShowTerm.c_readQTerm))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_lines))))(x3)(st))(x4)(st))(x5)(st))(st)++++c_writeQTermFile :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeQTermFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_writeFile(x2)(Curry.Module.OracleReadShowTerm.c_showQTerm(x3)(x1)(st))(x4)(st))(st)++++c_writeQTermListFile :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeQTermListFile x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_writeFile(x2)(Curry.Module.OraclePrelude.c_unlines(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleReadShowTerm.c_showQTerm))))(x3)(x1)(st))(x4)(st))(x5)(st))(st)++++c__case_3 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_3_case__12(x1)(x3)(st))(st)++++c__case_2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_2_case__11(x1)(x5)(x4)(st))(st)++++c__case_1 x6 x7 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_1_case__10(x1)(x6)(x7)(x5)(st))(st)++++c__case_0 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_0_case__9(x1)(x6)(x8)(st))(st)++++c__case_7 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_7_case__8(x1)(x2)(x3)(st))(st)++++c__case_6 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_6_case__7(x1)(x5)(x4)(st))(st)++++c__case_5 x6 x7 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_5_case__6(x1)(x6)(x7)(x5)(st))(st)++++c__case_4 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_4_case__5(x1)(x6)(x7)(x8)(st))(st)++++c__case_11 x2 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_11_case__4(x1)(x6)(st))(st)++++c__case_10 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_10_case__3(x1)(x5)(x4)(st))(st)++++c__case_9 x6 x7 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_9_case__2(x1)(x6)(x7)(x5)(st))(st)++++c__case_8 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_8_case__1(x1)(x6)(x7)(x8)(st))(st)++++c__case_12 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_12_case__0(x1)(x3)(x2)(st))(st)++++c_prim_showTerm :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prim_showTerm x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.ReadShowTerm.c_prim_showTerm(x2)(st))(st)++++c_prim_showQTerm :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prim_showQTerm x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.ReadShowTerm.c_prim_showQTerm(x2)(st))(st)++++c_prim_readsUnqualifiedTerm :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_prim_readsUnqualifiedTerm x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.ReadShowTerm.c_prim_readsUnqualifiedTerm(x3)(x2)(st))(st)++++c_prim_readsQTerm :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_prim_readsQTerm x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.ReadShowTerm.c_prim_readsQTerm(x2)(st))(st)++++c__case_12_case__0 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('a'))((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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.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.:<)(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('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('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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.:<)(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('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('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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_12_case__0 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c_readsUnqualifiedTermWithPrefixes((Curry.Module.Prelude.:<)(x4)(x5))(x3)(x1)(st))(st)+c__case_12_case__0 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_12_case__0(x1)(x3)(x)(st))(i)(xs)(st)+c__case_12_case__0 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_12_case__0")(x)++++c__case_8_case__1 x1 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_8_case__1 x1 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('a'))((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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.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.:<)(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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('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('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('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(x7)(x1)(st))(x9)(st))(st)+c__case_8_case__1 x1 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_8_case__1(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_8_case__1 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_8_case__1")(x)++++c__case_9_case__2 x1 x6 x7 x5@Curry.Module.Prelude.List st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleReadShowTerm.c__case_8(x6)(x7)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleChar.c_isSpace))))(x1)(st))(x7)(x10)(st))(x11)(st))(st)+c__case_9_case__2 x1 x6 x7 x5@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('a'))((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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_9_case__2 x1 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_9_case__2(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_9_case__2 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_9_case__2")(x)++++c__case_10_case__3 x1 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_9(x6)(x7)(x5)(x1)(st))(st)+c__case_10_case__3 x1 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_10_case__3(x1)(x5)(x)(st))(i)(xs)(st)+c__case_10_case__3 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_10_case__3")(x)++++c__case_11_case__4 x1 x6@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_10(x5)(x4)(x1)(st))(st)+c__case_11_case__4 x1 x6@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('a'))((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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.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.:<)(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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_11_case__4 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_11_case__4(x1)(x)(st))(i)(xs)(st)+c__case_11_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_11_case__4")(x)++++c__case_4_case__5 x1 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_4_case__5 x1 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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.:<)(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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('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('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('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(x7)(x1)(st))(x9)(st))(st)+c__case_4_case__5 x1 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_4_case__5(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_4_case__5 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_4_case__5")(x)++++c__case_5_case__6 x1 x6 x7 x5@Curry.Module.Prelude.List st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleReadShowTerm.c__case_4(x6)(x7)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleChar.c_isSpace))))(x1)(st))(x7)(x10)(st))(x11)(st))(st)+c__case_5_case__6 x1 x6 x7 x5@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_5_case__6 x1 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_5_case__6(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_5_case__6 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_5_case__6")(x)++++c__case_6_case__7 x1 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_5(x6)(x7)(x5)(x1)(st))(st)+c__case_6_case__7 x1 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_6_case__7(x1)(x5)(x)(st))(i)(xs)(st)+c__case_6_case__7 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_6_case__7")(x)++++c__case_7_case__8 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_6(x5)(x4)(x1)(st))(st)+c__case_7_case__8 x1 x2 x3@Curry.Module.Prelude.List st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_36(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_error))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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.:<)(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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((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('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('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.List))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(Curry.Module.OraclePrelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x2)(x1)(st))(x6)(st))(x7)(st))(st)+c__case_7_case__8 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_7_case__8(x1)(x2)(x)(st))(i)(xs)(st)+c__case_7_case__8 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_7_case__8")(x)++++c__case_0_case__9 x1 x6 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_0_case__9 x1 x6 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Q'))((Curry.Module.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.:<)(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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_0_case__9 x1 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_0_case__9(x1)(x6)(x)(st))(i)(xs)(st)+c__case_0_case__9 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_0_case__9")(x)++++c__case_1_case__10 x1 x6 x7 x5@Curry.Module.Prelude.List st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleReadShowTerm.c__case_0(x6)(x7)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleChar.c_isSpace))))(x1)(st))(x7)(x10)(st))(x11)(st))(st)+c__case_1_case__10 x1 x6 x7 x5@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Q'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_1_case__10 x1 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_1_case__10(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_1_case__10 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_1_case__10")(x)++++c__case_2_case__11 x1 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_1(x6)(x7)(x5)(x1)(st))(st)+c__case_2_case__11 x1 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_2_case__11(x1)(x5)(x)(st))(i)(xs)(st)+c__case_2_case__11 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_2_case__11")(x)++++c__case_3_case__12 x1 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleReadShowTerm.c__case_2(x5)(x4)(x1)(st))(st)+c__case_3_case__12 x1 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Q'))((Curry.Module.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.:<)(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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_3_case__12 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleReadShowTerm.c__case_3_case__12(x1)(x)(st))(i)(xs)(st)+c__case_3_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OracleReadShowTerm._case_3_case__12")(x)++
+ dist/build/Curry/Module/OracleRedBlackTree.hs view
@@ -0,0 +1,3580 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleRedBlackTree (module Curry.Module.OracleRedBlackTree) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.RedBlackTree+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++data C_RedBlackTree t0 = C_RedBlackTree (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) (Curry.Module.RedBlackTree.C_Tree t0)+  | C_RedBlackTreeFail Curry.RunTimeSystem.C_Exceptions+  | C_RedBlackTreeOr Curry.RunTimeSystem.OrRef (Curry.RunTimeSystem.Branches (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0))++instance (BaseCurry t0) => BaseCurry (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) where+  nf f (Curry.Module.OracleRedBlackTree.C_RedBlackTree 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.OracleRedBlackTree.C_RedBlackTree(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  nf f x st = f(x)(st)++  gnf f (Curry.Module.OracleRedBlackTree.C_RedBlackTree 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.OracleRedBlackTree.C_RedBlackTree(v1)(v2)(v3)(v4))(state4))(x4)(state3))(x3)(state2))(x2)(state1))(x1)(state0)+  gnf f x st = f(x)(st)++  generator i = Curry.RunTimeSystem.withRef(\ r -> Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr(Curry.RunTimeSystem.mkRef(r)(4)(i))([Curry.Module.OracleRedBlackTree.C_RedBlackTree(Curry.RunTimeSystem.generator((Prelude.+)(r)((3::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((2::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((1::Int))))(Curry.RunTimeSystem.generator((Prelude.+)(r)((0::Int))))]))(4)++  failed  = Curry.Module.OracleRedBlackTree.C_RedBlackTreeFail++  branching  = Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr++  consKind (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr _ _) = Curry.RunTimeSystem.Branching+  consKind (Curry.Module.OracleRedBlackTree.C_RedBlackTreeFail _) = Curry.RunTimeSystem.Failed+  consKind _ = Curry.RunTimeSystem.Val++  exceptions (Curry.Module.OracleRedBlackTree.C_RedBlackTreeFail x) = x++  orRef (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr x _) = x++  branches (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr _ x) = x++++++instance (Curry t0) => Curry (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) where+  strEq (Curry.Module.OracleRedBlackTree.C_RedBlackTree x1 x2 x3 x4) (Curry.Module.OracleRedBlackTree.C_RedBlackTree y1 y2 y3 y4) st = Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x1)(y1)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x2)(y2)(st))(Curry.Module.Prelude.concAnd(Curry.Module.Prelude.genStrEq(x3)(y3)(st))(Curry.Module.Prelude.genStrEq(x4)(y4)(st))(st))(st))(st)+  strEq _ x0 _ = Curry.Module.Prelude.strEqFail(Curry.Module.Prelude.typeName(x0))++  eq (Curry.Module.OracleRedBlackTree.C_RedBlackTree x1 x2 x3 x4) (Curry.Module.OracleRedBlackTree.C_RedBlackTree y1 y2 y3 y4) st = Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x1)(y1)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x2)(y2)(st))(Curry.Module.Prelude.op_38_38(Curry.Module.Prelude.genEq(x3)(y3)(st))(Curry.Module.Prelude.genEq(x4)(y4)(st))(st))(st))(st)+  eq _ _ _ = Curry.Module.Prelude.C_False++  propagate f (Curry.Module.OracleRedBlackTree.C_RedBlackTree x1 x2 x3 x4) st = Curry.Module.OracleRedBlackTree.C_RedBlackTree(f((0::Int))(x1)(st))(f((1::Int))(x2)(st))(f((2::Int))(x3)(st))(f((3::Int))(x4)(st))++  foldCurry f c (Curry.Module.OracleRedBlackTree.C_RedBlackTree x1 x2 x3 x4) st = f(x1)(f(x2)(f(x3)(f(x4)(c)(st))(st))(st))(st)++  typeName _ = "RedBlackTree"++  showQ d (Curry.Module.OracleRedBlackTree.C_RedBlackTree x1 x2 x3 x4) = Prelude.showParen(Prelude.True)(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("OracleRedBlackTree.RedBlackTree "))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Curry.Module.Prelude.showQ(Curry.RunTimeSystem.eleven)(x4))))))))+++  showQ _ (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Show t0) => Show (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) where+  showsPrec d (Curry.Module.OracleRedBlackTree.C_RedBlackTree x1 x2 x3 x4) = Prelude.showParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(showStr)+   where+    showStr  = (Prelude..)(Prelude.showString("RedBlackTree "))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x1))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x2))((Prelude..)(Prelude.showChar(' '))((Prelude..)(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x3))((Prelude..)(Prelude.showChar(' '))(Prelude.showsPrec(Curry.RunTimeSystem.eleven)(x4))))))))+++  showsPrec _ (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr r _) = Prelude.showString((:)('_')(Prelude.show(Curry.RunTimeSystem.deref(r))))++++++instance (Read t0) => Read (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) where+  readsPrec d r = Prelude.readParen((Prelude.>)(d)(Curry.RunTimeSystem.ten))(\ r -> [(,)(Curry.Module.OracleRedBlackTree.C_RedBlackTree(x1)(x2)(x3)(x4))(r4) | ((,) _ r0) <- Curry.RunTimeSystem.readQualified("OracleRedBlackTree")("RedBlackTree")(r), ((,) x1 r1) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r0), ((,) x2 r2) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r1), ((,) x3 r3) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r2), ((,) x4 r4) <- Prelude.readsPrec(Curry.RunTimeSystem.eleven)(r3)])(r)++++++c_empty :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0+c_empty x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OracleRedBlackTree.C_RedBlackTree(x2)(x3)(x4)(Curry.Module.RedBlackTree.C_Empty))(st)++++c_isEmpty :: (Curry t0) => (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isEmpty x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_284(x2)(x1)(st))(st)++++c_newTreeLike :: (Curry t0) => (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0+c_newTreeLike x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_282(x2)(x1)(st))(st)++++c_lookup :: (Curry t0) => t0 -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t0+c_lookup x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_281(x2)(x3)(x1)(st))(st)++++c_lookupTree :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> t0 -> (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t0+c_lookupTree x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_280(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_update :: (Curry t0) => t0 -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0+c_update x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_276(x2)(x3)(x1)(st))(st)++++c_updateTree :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> t0 -> (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_updateTree x2 x3 x4 x5 x1 st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OracleRedBlackTree.c_updateTree'46upd'4635(x4)(x2)(x3)(x5)(x1)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x13)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_updateTree'46_'35selFP3'35e2(x6)(x10)(st))(Curry.Module.OracleRedBlackTree.c_updateTree'46_'35selFP4'35l(x6)(x11)(st))(Curry.Module.OracleRedBlackTree.c_updateTree'46_'35selFP5'35r(x6)(x12)(st)))(st))(st))(st))(st))(st)++++c_updateTree'46upd'4635 :: (Curry t183) => t183 -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t183 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t183 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t183 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t183 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.RedBlackTree.C_Tree t183) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t183+c_updateTree'46upd'4635 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_275(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_updateTree'46_'35selFP3'35e2 :: (Curry t183) => (Curry.Module.RedBlackTree.C_Tree t183) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t183+c_updateTree'46_'35selFP3'35e2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_271(x2)(x1)(st))(st)++++c_updateTree'46_'35selFP4'35l :: (Curry t183) => (Curry.Module.RedBlackTree.C_Tree t183) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t183+c_updateTree'46_'35selFP4'35l x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_270(x2)(x1)(st))(st)++++c_updateTree'46_'35selFP5'35r :: (Curry t183) => (Curry.Module.RedBlackTree.C_Tree t183) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t183+c_updateTree'46_'35selFP5'35r x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_269(x2)(x1)(st))(st)++++c_delete :: (Curry t0) => t0 -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0+c_delete x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_268(x2)(x3)(x1)(st))(st)++++c_delete'46blackenRoot'4644 :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_delete'46blackenRoot'4644 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_267(x2)(x1)(st))(st)++++c_deleteTree :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> t0 -> (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_deleteTree x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_266(x2)(x3)(x4)(x5)(x1)(st))(st)++++c_deleteTree'46addColor'4656 :: (Curry t0) => Curry.Module.RedBlackTree.C_Color -> (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_deleteTree'46addColor'4656 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_260(x3)(x2)(x1)(st))(st)++++c_deleteTree'46rightMost'4656 :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_deleteTree'46rightMost'4656 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_257(x2)(x1)(st))(st)++++c_tree2list :: (Curry t0) => (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_tree2list x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_255(x2)(x1)(st))(st)++++c_tree2listTree :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_tree2listTree x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_tree2listTree'46t2l'4677(x2)(Curry.Module.Prelude.List)(x1)(st))(st)++++c_tree2listTree'46t2l'4677 :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_tree2listTree'46t2l'4677 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_254(x3)(x2)(x1)(st))(st)++++c_sort :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_sort x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleRedBlackTree.c_tree2list(Curry.Module.OraclePrelude.c_foldr(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleRedBlackTree.c_update))(st))(Curry.Module.OracleRedBlackTree.c_empty(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleRedBlackTree.c_sort'46_'35lambda2))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))(x2)(x1)(st))(x3)(x4)(st))(x5)(st))(st)++++c_sort'46_'35lambda2 :: (Curry t520) => t520 -> t520 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_sort'46_'35lambda2 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_setInsertEquivalence :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0+c_setInsertEquivalence x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_253(x2)(x3)(x1)(st))(st)++++c_rbt :: (Curry t0) => (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_rbt x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_252(x2)(x1)(st))(st)++++c_isBlack :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isBlack x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_251(x2)(x1)(st))(st)++++c_isRed :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isRed x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_250(x2)(x1)(st))(st)++++c_isDoublyBlack :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isDoublyBlack x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_249(x2)(x1)(st))(st)++++c_element :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_element x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_248(x2)(x1)(st))(st)++++c_left :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_left x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_247(x2)(x1)(st))(st)++++c_right :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_right x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_246(x2)(x1)(st))(st)++++c_singleBlack :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_singleBlack x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_245(x2)(x1)(st))(st)++++c_balanceL :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_balanceL x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(let {x3 = Curry.Module.OracleRedBlackTree.c_left(x2)(x1)(st)} in let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OracleRedBlackTree.c__case_243(x2)(x3)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleRedBlackTree.c_isRed(x3)(x4)(st))(Curry.Module.OracleRedBlackTree.c_isRed(Curry.Module.OracleRedBlackTree.c_left(x3)(x5)(st))(x6)(st))(x7)(st))(x8)(st))(st))(st)++++c_balanceL'46_'35selFP7'35z :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t88+c_balanceL'46_'35selFP7'35z x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_240(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP8'35y :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t88+c_balanceL'46_'35selFP8'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_237(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP9'35x :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t88+c_balanceL'46_'35selFP9'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_234(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP10'35a :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t88+c_balanceL'46_'35selFP10'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_231(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP11'35b :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t88+c_balanceL'46_'35selFP11'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_228(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP12'35c :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t88+c_balanceL'46_'35selFP12'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_225(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP13'35d :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t88+c_balanceL'46_'35selFP13'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_222(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP15'35z :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t88+c_balanceL'46_'35selFP15'35z x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_219(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP16'35x :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t88+c_balanceL'46_'35selFP16'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_216(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP17'35a :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t88+c_balanceL'46_'35selFP17'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_213(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP18'35y :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t88+c_balanceL'46_'35selFP18'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_210(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP19'35b :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t88+c_balanceL'46_'35selFP19'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_207(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP20'35c :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t88+c_balanceL'46_'35selFP20'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_204(x2)(x1)(st))(st)++++c_balanceL'46_'35selFP21'35d :: (Curry t88) => (Curry.Module.RedBlackTree.C_Tree t88) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t88+c_balanceL'46_'35selFP21'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_201(x2)(x1)(st))(st)++++c_balanceR :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_balanceR x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(let {x3 = Curry.Module.OracleRedBlackTree.c_right(x2)(x1)(st)} in let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OracleRedBlackTree.c__case_198(x2)(x3)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleRedBlackTree.c_isRed(x3)(x4)(st))(Curry.Module.OracleRedBlackTree.c_isRed(Curry.Module.OracleRedBlackTree.c_right(x3)(x5)(st))(x6)(st))(x7)(st))(x8)(st))(st))(st)++++c_balanceR'46_'35selFP23'35x :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t131+c_balanceR'46_'35selFP23'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_195(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP24'35a :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t131+c_balanceR'46_'35selFP24'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_192(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP25'35y :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t131+c_balanceR'46_'35selFP25'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_189(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP26'35b :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t131+c_balanceR'46_'35selFP26'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_186(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP27'35z :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t131+c_balanceR'46_'35selFP27'35z x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_183(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP28'35c :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t131+c_balanceR'46_'35selFP28'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_180(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP29'35d :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t131+c_balanceR'46_'35selFP29'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_177(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP31'35x :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t131+c_balanceR'46_'35selFP31'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_174(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP32'35a :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t131+c_balanceR'46_'35selFP32'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_171(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP33'35z :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t131+c_balanceR'46_'35selFP33'35z x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_168(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP34'35y :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t131+c_balanceR'46_'35selFP34'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_165(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP35'35b :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t131+c_balanceR'46_'35selFP35'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_162(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP36'35c :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t131+c_balanceR'46_'35selFP36'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_159(x2)(x1)(st))(st)++++c_balanceR'46_'35selFP37'35d :: (Curry t131) => (Curry.Module.RedBlackTree.C_Tree t131) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t131+c_balanceR'46_'35selFP37'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_156(x2)(x1)(st))(st)++++c_delBalanceL :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_delBalanceL x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleRedBlackTree.c__case_153(x2)(Curry.Module.OracleRedBlackTree.c_isDoublyBlack(Curry.Module.OracleRedBlackTree.c_left(x2)(x1)(st))(x3)(st))(x4)(st))(st)++++c_reviseLeft :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_reviseLeft x2 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(let {x3 = Curry.Module.OracleRedBlackTree.c_right(x2)(x1)(st)} in let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_152(x2)(x3)(Curry.Module.OracleRedBlackTree.c_isBlack(x3)(x5)(st))(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.RedBlackTree.C_Empty)(x6)(st))(x7)(st))(st))(st))(st)++++c_reviseLeft'46_'35selFP39'35col :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Color+c_reviseLeft'46_'35selFP39'35col x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_146(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP40'35x :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t249+c_reviseLeft'46_'35selFP40'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_143(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP41'35a :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP41'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_140(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP42'35z :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t249+c_reviseLeft'46_'35selFP42'35z x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_137(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP43'35y :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t249+c_reviseLeft'46_'35selFP43'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_134(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP44'35b :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP44'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_131(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP45'35c :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP45'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_128(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP46'35d :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP46'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_125(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP48'35col :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Color+c_reviseLeft'46_'35selFP48'35col x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_122(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP49'35x :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t249+c_reviseLeft'46_'35selFP49'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_119(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP50'35a :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP50'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_116(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP51'35y :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t249+c_reviseLeft'46_'35selFP51'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_113(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP52'35b :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP52'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_110(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP53'35z :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t249+c_reviseLeft'46_'35selFP53'35z x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_107(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP54'35c :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP54'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_104(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP55'35d :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP55'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_101(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP57'35col :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Color+c_reviseLeft'46_'35selFP57'35col x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_98(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP58'35x :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t249+c_reviseLeft'46_'35selFP58'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_96(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP59'35a :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP59'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_94(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP60'35y :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t249+c_reviseLeft'46_'35selFP60'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_92(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP61'35b :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP61'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_90(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP62'35c :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP62'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_88(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP64'35x :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t249+c_reviseLeft'46_'35selFP64'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_86(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP65'35a :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP65'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_84(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP66'35y :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t249+c_reviseLeft'46_'35selFP66'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_82(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP67'35b :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP67'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_80(x2)(x1)(st))(st)++++c_reviseLeft'46_'35selFP68'35c :: (Curry t249) => (Curry.Module.RedBlackTree.C_Tree t249) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t249+c_reviseLeft'46_'35selFP68'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_78(x2)(x1)(st))(st)++++c_delBalanceR :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_delBalanceR x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleRedBlackTree.c__case_76(x2)(Curry.Module.OracleRedBlackTree.c_isDoublyBlack(Curry.Module.OracleRedBlackTree.c_right(x2)(x1)(st))(x3)(st))(x4)(st))(st)++++c_reviseRight :: (Curry t0) => (Curry.Module.RedBlackTree.C_Tree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t0+c_reviseRight x2 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(let {x3 = Curry.Module.OracleRedBlackTree.c_left(x2)(x1)(st)} in let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_75(x2)(x3)(Curry.Module.OracleRedBlackTree.c_isBlack(x3)(x5)(st))(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.RedBlackTree.C_Empty)(x6)(st))(x7)(st))(st))(st))(st)++++c_reviseRight'46_'35selFP70'35col :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Color+c_reviseRight'46_'35selFP70'35col x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_69(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP71'35x :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t327+c_reviseRight'46_'35selFP71'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_66(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP72'35y :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t327+c_reviseRight'46_'35selFP72'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_63(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP73'35z :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t327+c_reviseRight'46_'35selFP73'35z x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_60(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP74'35d :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP74'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_57(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP75'35c :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP75'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_54(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP76'35b :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP76'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_51(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP77'35a :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP77'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_48(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP79'35col :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Color+c_reviseRight'46_'35selFP79'35col x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_45(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP80'35x :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t327+c_reviseRight'46_'35selFP80'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_42(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP81'35z :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t327+c_reviseRight'46_'35selFP81'35z x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_39(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP82'35d :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP82'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_36(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP83'35y :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t327+c_reviseRight'46_'35selFP83'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_33(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP84'35c :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP84'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_30(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP85'35b :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP85'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_27(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP86'35a :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP86'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_24(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP88'35col :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Color+c_reviseRight'46_'35selFP88'35col x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_21(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP89'35x :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t327+c_reviseRight'46_'35selFP89'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_19(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP90'35y :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t327+c_reviseRight'46_'35selFP90'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_17(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP91'35c :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP91'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_15(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP92'35b :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP92'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_13(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP93'35a :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP93'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_11(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP95'35x :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t327+c_reviseRight'46_'35selFP95'35x x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_9(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP96'35y :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t327+c_reviseRight'46_'35selFP96'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_7(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP97'35c :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP97'35c x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_5(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP98'35b :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP98'35b x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_3(x2)(x1)(st))(st)++++c_reviseRight'46_'35selFP99'35a :: (Curry t327) => (Curry.Module.RedBlackTree.C_Tree t327) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.RedBlackTree.C_Tree t327+c_reviseRight'46_'35selFP99'35a x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_1(x2)(x1)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_1_case__284(x1)(x2)(st))(st)++++c__case_0 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_0_case__283(x1)(x6)(x5)(st))(st)++++c__case_3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_3_case__282(x1)(x2)(st))(st)++++c__case_2 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_2_case__281(x1)(x5)(st))(st)++++c__case_5 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_5_case__280(x1)(x2)(st))(st)++++c__case_4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_4_case__279(x1)(x5)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_7_case__278(x1)(x2)(st))(st)++++c__case_6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_6_case__277(x1)(x5)(st))(st)++++c__case_9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_9_case__276(x1)(x2)(st))(st)++++c__case_8 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_8_case__275(x1)(x4)(x5)(st))(st)++++c__case_11 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_11_case__274(x1)(x2)(st))(st)++++c__case_10 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_10_case__273(x1)(x6)(x5)(st))(st)++++c__case_13 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_13_case__272(x1)(x2)(st))(st)++++c__case_12 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_12_case__271(x1)(x5)(st))(st)++++c__case_15 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_15_case__270(x1)(x2)(st))(st)++++c__case_14 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_14_case__269(x1)(x5)(st))(st)++++c__case_17 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_17_case__268(x1)(x2)(st))(st)++++c__case_16 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_16_case__267(x1)(x5)(st))(st)++++c__case_19 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_19_case__266(x1)(x2)(st))(st)++++c__case_18 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_18_case__265(x1)(x4)(x5)(st))(st)++++c__case_21 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_21_case__264(x1)(x2)(st))(st)++++c__case_20 x3 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_20_case__263(x1)(x3)(x5)(st))(st)++++c__case_24 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_24_case__262(x1)(x2)(st))(st)++++c__case_23 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_23_case__261(x1)(x6)(x5)(st))(st)++++c__case_22 x6 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_22_case__260(x1)(x6)(x10)(st))(st)++++c__case_27 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_27_case__259(x1)(x2)(st))(st)++++c__case_26 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_26_case__258(x1)(x5)(st))(st)++++c__case_25 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_25_case__257(x1)(x10)(st))(st)++++c__case_30 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_30_case__256(x1)(x2)(st))(st)++++c__case_29 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_29_case__255(x1)(x5)(st))(st)++++c__case_28 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_28_case__254(x1)(x10)(st))(st)++++c__case_33 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_33_case__253(x1)(x2)(st))(st)++++c__case_32 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_32_case__252(x1)(x5)(st))(st)++++c__case_31 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_31_case__251(x1)(x10)(st))(st)++++c__case_36 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_36_case__250(x1)(x2)(st))(st)++++c__case_35 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_35_case__249(x1)(x5)(st))(st)++++c__case_34 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_34_case__248(x1)(x9)(x10)(st))(st)++++c__case_39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_39_case__247(x1)(x2)(st))(st)++++c__case_38 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_38_case__246(x1)(x5)(st))(st)++++c__case_37 x8 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_37_case__245(x1)(x8)(x10)(st))(st)++++c__case_42 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_42_case__244(x1)(x2)(st))(st)++++c__case_41 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_41_case__243(x1)(x4)(x5)(st))(st)++++c__case_40 x4 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_40_case__242(x1)(x4)(x10)(st))(st)++++c__case_45 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_45_case__241(x1)(x2)(st))(st)++++c__case_44 x3 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_44_case__240(x1)(x3)(x5)(st))(st)++++c__case_43 x3 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_43_case__239(x1)(x3)(x10)(st))(st)++++c__case_48 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_48_case__238(x1)(x2)(st))(st)++++c__case_47 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_47_case__237(x1)(x6)(x5)(st))(st)++++c__case_46 x6 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_46_case__236(x1)(x6)(x9)(st))(st)++++c__case_51 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_51_case__235(x1)(x2)(st))(st)++++c__case_50 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_50_case__234(x1)(x5)(st))(st)++++c__case_49 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_49_case__233(x1)(x10)(x9)(st))(st)++++c__case_54 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_54_case__232(x1)(x2)(st))(st)++++c__case_53 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_53_case__231(x1)(x5)(st))(st)++++c__case_52 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_52_case__230(x1)(x9)(st))(st)++++c__case_57 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_57_case__229(x1)(x2)(st))(st)++++c__case_56 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_56_case__228(x1)(x5)(st))(st)++++c__case_55 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_55_case__227(x1)(x9)(st))(st)++++c__case_60 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_60_case__226(x1)(x2)(st))(st)++++c__case_59 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_59_case__225(x1)(x5)(st))(st)++++c__case_58 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_58_case__224(x1)(x9)(st))(st)++++c__case_63 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_63_case__223(x1)(x2)(st))(st)++++c__case_62 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_62_case__222(x1)(x5)(st))(st)++++c__case_61 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_61_case__221(x1)(x8)(x9)(st))(st)++++c__case_66 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_66_case__220(x1)(x2)(st))(st)++++c__case_65 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_65_case__219(x1)(x4)(x5)(st))(st)++++c__case_64 x4 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_64_case__218(x1)(x4)(x9)(st))(st)++++c__case_69 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_69_case__217(x1)(x2)(st))(st)++++c__case_68 x3 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_68_case__216(x1)(x3)(x5)(st))(st)++++c__case_67 x3 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_67_case__215(x1)(x3)(x9)(st))(st)++++c__case_75 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_75_case__214(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_74 x2 x3 x4 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_74_case__213(x1)(x2)(x3)(x4)(x14)(st))(st)++++c__case_73 x2 x3 x4 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_73_case__212(x1)(x2)(x4)(x23)(st))(st)++++c__case_72 x2 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_72_case__211(x1)(x2)(x4)(st))(st)++++c__case_70 x2 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_70_case__210(x1)(x2)(x36)(st))(st)++++c__case_71 x24 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_71_case__209(x1)(x25)(st))(st)++++c__case_76 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_76_case__208(x1)(x2)(x3)(st))(st)++++c__case_78 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_78_case__207(x1)(x2)(st))(st)++++c__case_77 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_77_case__206(x1)(x6)(st))(st)++++c__case_80 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_80_case__205(x1)(x2)(st))(st)++++c__case_79 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_79_case__204(x1)(x6)(st))(st)++++c__case_82 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_82_case__203(x1)(x2)(st))(st)++++c__case_81 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_81_case__202(x1)(x6)(st))(st)++++c__case_84 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_84_case__201(x1)(x2)(st))(st)++++c__case_83 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_83_case__200(x1)(x5)(x6)(st))(st)++++c__case_86 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_86_case__199(x1)(x2)(st))(st)++++c__case_85 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_85_case__198(x1)(x4)(x6)(st))(st)++++c__case_88 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_88_case__197(x1)(x2)(st))(st)++++c__case_87 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_87_case__196(x1)(x6)(st))(st)++++c__case_90 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_90_case__195(x1)(x2)(st))(st)++++c__case_89 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_89_case__194(x1)(x6)(st))(st)++++c__case_92 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_92_case__193(x1)(x2)(st))(st)++++c__case_91 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_91_case__192(x1)(x6)(st))(st)++++c__case_94 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_94_case__191(x1)(x2)(st))(st)++++c__case_93 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_93_case__190(x1)(x5)(x6)(st))(st)++++c__case_96 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_96_case__189(x1)(x2)(st))(st)++++c__case_95 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_95_case__188(x1)(x4)(x6)(st))(st)++++c__case_98 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_98_case__187(x1)(x2)(st))(st)++++c__case_97 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_97_case__186(x1)(x3)(x6)(st))(st)++++c__case_101 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_101_case__185(x1)(x2)(st))(st)++++c__case_100 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_100_case__184(x1)(x6)(st))(st)++++c__case_99 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_99_case__183(x1)(x10)(st))(st)++++c__case_104 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_104_case__182(x1)(x2)(st))(st)++++c__case_103 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_103_case__181(x1)(x6)(st))(st)++++c__case_102 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_102_case__180(x1)(x10)(st))(st)++++c__case_107 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_107_case__179(x1)(x2)(st))(st)++++c__case_106 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_106_case__178(x1)(x6)(st))(st)++++c__case_105 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_105_case__177(x1)(x10)(st))(st)++++c__case_110 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_110_case__176(x1)(x2)(st))(st)++++c__case_109 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_109_case__175(x1)(x6)(st))(st)++++c__case_108 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_108_case__174(x1)(x9)(x10)(st))(st)++++c__case_113 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_113_case__173(x1)(x2)(st))(st)++++c__case_112 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_112_case__172(x1)(x6)(st))(st)++++c__case_111 x8 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_111_case__171(x1)(x8)(x10)(st))(st)++++c__case_116 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_116_case__170(x1)(x2)(st))(st)++++c__case_115 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_115_case__169(x1)(x5)(x6)(st))(st)++++c__case_114 x5 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_114_case__168(x1)(x5)(x10)(st))(st)++++c__case_119 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_119_case__167(x1)(x2)(st))(st)++++c__case_118 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_118_case__166(x1)(x4)(x6)(st))(st)++++c__case_117 x4 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_117_case__165(x1)(x4)(x10)(st))(st)++++c__case_122 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_122_case__164(x1)(x2)(st))(st)++++c__case_121 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_121_case__163(x1)(x3)(x6)(st))(st)++++c__case_120 x3 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_120_case__162(x1)(x3)(x10)(st))(st)++++c__case_125 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_125_case__161(x1)(x2)(st))(st)++++c__case_124 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_124_case__160(x1)(x6)(st))(st)++++c__case_123 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_123_case__159(x1)(x10)(x9)(st))(st)++++c__case_128 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_128_case__158(x1)(x2)(st))(st)++++c__case_127 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_127_case__157(x1)(x6)(st))(st)++++c__case_126 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_126_case__156(x1)(x9)(st))(st)++++c__case_131 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_131_case__155(x1)(x2)(st))(st)++++c__case_130 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_130_case__154(x1)(x6)(st))(st)++++c__case_129 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_129_case__153(x1)(x9)(st))(st)++++c__case_134 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_134_case__152(x1)(x2)(st))(st)++++c__case_133 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_133_case__151(x1)(x6)(st))(st)++++c__case_132 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_132_case__150(x1)(x9)(st))(st)++++c__case_137 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_137_case__149(x1)(x2)(st))(st)++++c__case_136 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_136_case__148(x1)(x6)(st))(st)++++c__case_135 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_135_case__147(x1)(x8)(x9)(st))(st)++++c__case_140 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_140_case__146(x1)(x2)(st))(st)++++c__case_139 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_139_case__145(x1)(x5)(x6)(st))(st)++++c__case_138 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_138_case__144(x1)(x5)(x9)(st))(st)++++c__case_143 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_143_case__143(x1)(x2)(st))(st)++++c__case_142 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_142_case__142(x1)(x4)(x6)(st))(st)++++c__case_141 x4 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_141_case__141(x1)(x4)(x9)(st))(st)++++c__case_146 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_146_case__140(x1)(x2)(st))(st)++++c__case_145 x3 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_145_case__139(x1)(x3)(x6)(st))(st)++++c__case_144 x3 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_144_case__138(x1)(x3)(x9)(st))(st)++++c__case_152 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_152_case__137(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_151 x2 x3 x4 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_151_case__136(x1)(x2)(x3)(x4)(x14)(st))(st)++++c__case_150 x2 x3 x4 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_150_case__135(x1)(x2)(x4)(x23)(st))(st)++++c__case_149 x2 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_149_case__134(x1)(x2)(x4)(st))(st)++++c__case_147 x2 x36 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_147_case__133(x1)(x2)(x36)(st))(st)++++c__case_148 x24 x25 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_148_case__132(x1)(x25)(st))(st)++++c__case_153 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_153_case__131(x1)(x2)(x3)(st))(st)++++c__case_156 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_156_case__130(x1)(x2)(st))(st)++++c__case_155 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_155_case__129(x1)(x6)(st))(st)++++c__case_154 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_154_case__128(x1)(x10)(x9)(st))(st)++++c__case_159 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_159_case__127(x1)(x2)(st))(st)++++c__case_158 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_158_case__126(x1)(x6)(st))(st)++++c__case_157 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_157_case__125(x1)(x9)(st))(st)++++c__case_162 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_162_case__124(x1)(x2)(st))(st)++++c__case_161 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_161_case__123(x1)(x6)(st))(st)++++c__case_160 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_160_case__122(x1)(x9)(st))(st)++++c__case_165 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_165_case__121(x1)(x2)(st))(st)++++c__case_164 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_164_case__120(x1)(x6)(st))(st)++++c__case_163 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_163_case__119(x1)(x9)(st))(st)++++c__case_168 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_168_case__118(x1)(x2)(st))(st)++++c__case_167 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_167_case__117(x1)(x6)(st))(st)++++c__case_166 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_166_case__116(x1)(x8)(x9)(st))(st)++++c__case_171 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_171_case__115(x1)(x2)(st))(st)++++c__case_170 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_170_case__114(x1)(x5)(x6)(st))(st)++++c__case_169 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_169_case__113(x1)(x5)(x9)(st))(st)++++c__case_174 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_174_case__112(x1)(x2)(st))(st)++++c__case_173 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_173_case__111(x1)(x4)(x6)(st))(st)++++c__case_172 x4 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_172_case__110(x1)(x4)(x9)(st))(st)++++c__case_177 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_177_case__109(x1)(x2)(st))(st)++++c__case_176 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_176_case__108(x1)(x6)(st))(st)++++c__case_175 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_175_case__107(x1)(x10)(st))(st)++++c__case_180 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_180_case__106(x1)(x2)(st))(st)++++c__case_179 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_179_case__105(x1)(x6)(st))(st)++++c__case_178 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_178_case__104(x1)(x10)(st))(st)++++c__case_183 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_183_case__103(x1)(x2)(st))(st)++++c__case_182 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_182_case__102(x1)(x6)(st))(st)++++c__case_181 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_181_case__101(x1)(x10)(st))(st)++++c__case_186 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_186_case__100(x1)(x2)(st))(st)++++c__case_185 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_185_case__99(x1)(x6)(st))(st)++++c__case_184 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_184_case__98(x1)(x9)(x10)(st))(st)++++c__case_189 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_189_case__97(x1)(x2)(st))(st)++++c__case_188 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_188_case__96(x1)(x6)(st))(st)++++c__case_187 x8 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_187_case__95(x1)(x8)(x10)(st))(st)++++c__case_192 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_192_case__94(x1)(x2)(st))(st)++++c__case_191 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_191_case__93(x1)(x5)(x6)(st))(st)++++c__case_190 x5 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_190_case__92(x1)(x5)(x10)(st))(st)++++c__case_195 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_195_case__91(x1)(x2)(st))(st)++++c__case_194 x4 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_194_case__90(x1)(x4)(x6)(st))(st)++++c__case_193 x4 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_193_case__89(x1)(x4)(x10)(st))(st)++++c__case_198 x2 x3 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_198_case__88(x1)(x2)(x3)(x12)(st))(st)++++c__case_197 x2 x3 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_197_case__87(x1)(x2)(x20)(st))(st)++++c__case_196 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_196_case__86(x1)(x2)(x3)(st))(st)++++c__case_201 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_201_case__85(x1)(x2)(st))(st)++++c__case_200 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_200_case__84(x1)(x6)(x5)(st))(st)++++c__case_199 x6 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_199_case__83(x1)(x6)(x10)(st))(st)++++c__case_204 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_204_case__82(x1)(x2)(st))(st)++++c__case_203 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_203_case__81(x1)(x5)(st))(st)++++c__case_202 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_202_case__80(x1)(x10)(st))(st)++++c__case_207 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_207_case__79(x1)(x2)(st))(st)++++c__case_206 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_206_case__78(x1)(x5)(st))(st)++++c__case_205 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_205_case__77(x1)(x10)(st))(st)++++c__case_210 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_210_case__76(x1)(x2)(st))(st)++++c__case_209 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_209_case__75(x1)(x5)(st))(st)++++c__case_208 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_208_case__74(x1)(x10)(st))(st)++++c__case_213 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_213_case__73(x1)(x2)(st))(st)++++c__case_212 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_212_case__72(x1)(x5)(st))(st)++++c__case_211 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_211_case__71(x1)(x9)(x10)(st))(st)++++c__case_216 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_216_case__70(x1)(x2)(st))(st)++++c__case_215 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_215_case__69(x1)(x5)(st))(st)++++c__case_214 x8 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_214_case__68(x1)(x8)(x10)(st))(st)++++c__case_219 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_219_case__67(x1)(x2)(st))(st)++++c__case_218 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_218_case__66(x1)(x4)(x5)(st))(st)++++c__case_217 x4 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_217_case__65(x1)(x4)(x10)(st))(st)++++c__case_222 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_222_case__64(x1)(x2)(st))(st)++++c__case_221 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_221_case__63(x1)(x6)(x5)(st))(st)++++c__case_220 x6 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_220_case__62(x1)(x6)(x9)(st))(st)++++c__case_225 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_225_case__61(x1)(x2)(st))(st)++++c__case_224 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_224_case__60(x1)(x5)(st))(st)++++c__case_223 x10 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_223_case__59(x1)(x10)(x9)(st))(st)++++c__case_228 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_228_case__58(x1)(x2)(st))(st)++++c__case_227 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_227_case__57(x1)(x5)(st))(st)++++c__case_226 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_226_case__56(x1)(x9)(st))(st)++++c__case_231 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_231_case__55(x1)(x2)(st))(st)++++c__case_230 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_230_case__54(x1)(x5)(st))(st)++++c__case_229 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_229_case__53(x1)(x9)(st))(st)++++c__case_234 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_234_case__52(x1)(x2)(st))(st)++++c__case_233 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_233_case__51(x1)(x5)(st))(st)++++c__case_232 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_232_case__50(x1)(x9)(st))(st)++++c__case_237 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_237_case__49(x1)(x2)(st))(st)++++c__case_236 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_236_case__48(x1)(x5)(st))(st)++++c__case_235 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_235_case__47(x1)(x8)(x9)(st))(st)++++c__case_240 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_240_case__46(x1)(x2)(st))(st)++++c__case_239 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_239_case__45(x1)(x4)(x5)(st))(st)++++c__case_238 x4 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_238_case__44(x1)(x4)(x9)(st))(st)++++c__case_243 x2 x3 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_243_case__43(x1)(x2)(x3)(x12)(st))(st)++++c__case_242 x2 x3 x20 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_242_case__42(x1)(x2)(x20)(st))(st)++++c__case_241 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_241_case__41(x1)(x2)(x3)(st))(st)++++c__case_245 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_245_case__40(x1)(x2)(st))(st)++++c__case_244 x4 x5 x6 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_244_case__39(x1)(x4)(x5)(x6)(x3)(st))(st)++++c__case_246 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_246_case__38(x1)(x2)(st))(st)++++c__case_247 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_247_case__37(x1)(x2)(st))(st)++++c__case_248 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_248_case__36(x1)(x2)(st))(st)++++c__case_249 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_249_case__35(x1)(x2)(st))(st)++++c__case_250 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_250_case__34(x1)(x2)(st))(st)++++c__case_251 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_251_case__33(x1)(x2)(st))(st)++++c__case_252 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_252_case__32(x1)(x2)(st))(st)++++c__case_253 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_253_case__31(x1)(x2)(x3)(st))(st)++++c__case_254 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_254_case__30(x1)(x3)(x2)(st))(st)++++c__case_255 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_255_case__29(x1)(x2)(st))(st)++++c__case_257 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_257_case__28(x1)(x2)(st))(st)++++c__case_256 x4 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_256_case__27(x1)(x4)(x6)(x7)(st))(st)++++c__case_260 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_260_case__26(x1)(x3)(x2)(st))(st)++++c__case_259 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_259_case__25(x1)(x3)(st))(st)++++c__case_258 x5 x6 x7 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_258_case__24(x1)(x5)(x6)(x7)(x4)(st))(st)++++c__case_266 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_266_case__23(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_265 x2 x3 x4 x6 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_265_case__22(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(st))(st)++++c__case_262 x2 x3 x4 x6 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_262_case__21(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(st))(st)++++c__case_261 x2 x3 x4 x6 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_261_case__20(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(st))(st)++++c__case_264 x2 x3 x6 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_264_case__19(x1)(x2)(x3)(x6)(x8)(x9)(x10)(st))(st)++++c__case_263 x2 x3 x6 x8 x9 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_263_case__18(x1)(x2)(x3)(x6)(x8)(x9)(x11)(st))(st)++++c__case_267 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_267_case__17(x1)(x2)(st))(st)++++c__case_268 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_268_case__16(x1)(x2)(x3)(st))(st)++++c__case_269 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_269_case__15(x1)(x2)(st))(st)++++c__case_270 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_270_case__14(x1)(x2)(st))(st)++++c__case_271 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_271_case__13(x1)(x2)(st))(st)++++c__case_275 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_275_case__12(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_274 x2 x3 x4 x6 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_274_case__11(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(st))(st)++++c__case_273 x2 x3 x4 x6 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_273_case__10(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(st))(st)++++c__case_272 x2 x3 x4 x6 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_272_case__9(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x10)(st))(st)++++c__case_276 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_276_case__8(x1)(x2)(x3)(st))(st)++++c__case_280 x2 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_280_case__7(x1)(x2)(x3)(x4)(x5)(st))(st)++++c__case_279 x2 x3 x4 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_279_case__6(x1)(x2)(x3)(x4)(x7)(x8)(x9)(x10)(st))(st)++++c__case_278 x2 x3 x4 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_278_case__5(x1)(x2)(x3)(x4)(x8)(x9)(x10)(st))(st)++++c__case_277 x2 x3 x4 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_277_case__4(x1)(x2)(x3)(x4)(x9)(x10)(st))(st)++++c__case_281 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_281_case__3(x1)(x2)(x3)(st))(st)++++c__case_282 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_282_case__2(x1)(x2)(st))(st)++++c__case_284 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_284_case__1(x1)(x2)(st))(st)++++c__case_283 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_283_case__0(x1)(x6)(st))(st)++++c__case_283_case__0 x1 x6@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_283_case__0 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_283_case__0 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_283_case__0(x1)(x)(st))(i)(xs)(st)+c__case_283_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_283_case__0")(x)++++c__case_284_case__1 x1 x2@(Curry.Module.OracleRedBlackTree.C_RedBlackTree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_283(x6)(x1)(st))(st)+c__case_284_case__1 x1 (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_284_case__1(x1)(x)(st))(i)(xs)(st)+c__case_284_case__1 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_284_case__1")(x)++++c__case_282_case__2 x1 x2@(Curry.Module.OracleRedBlackTree.C_RedBlackTree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OracleRedBlackTree.C_RedBlackTree(x3)(x4)(x5)(Curry.Module.RedBlackTree.C_Empty))(st)+c__case_282_case__2 x1 (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_282_case__2(x1)(x)(st))(i)(xs)(st)+c__case_282_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_282_case__2")(x)++++c__case_281_case__3 x1 x2 x3@(Curry.Module.OracleRedBlackTree.C_RedBlackTree x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_lookupTree(x5)(x6)(x2)(x7)(x1)(st))(st)+c__case_281_case__3 x1 x2 (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_281_case__3(x1)(x2)(x)(st))(i)(xs)(st)+c__case_281_case__3 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_281_case__3")(x)++++c__case_277_case__4 x1 x2 x3 x4 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_lookupTree(x2)(x3)(x4)(x9)(x1)(st))(st)+c__case_277_case__4 x1 x2 x3 x4 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_277_case__4 x1 x2 x3 x4 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_277_case__4(x1)(x2)(x3)(x4)(x9)(x)(st))(i)(xs)(st)+c__case_277_case__4 x1 x2 x3 x4 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_277_case__4")(x)++++c__case_278_case__5 x1 x2 x3 x4 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_lookupTree(x2)(x3)(x4)(x8)(x1)(st))(st)+c__case_278_case__5 x1 x2 x3 x4 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_277(x2)(x3)(x4)(x9)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x11)(st))(st)+c__case_278_case__5 x1 x2 x3 x4 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_278_case__5(x1)(x2)(x3)(x4)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_278_case__5 x1 x2 x3 x4 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_278_case__5")(x)++++c__case_279_case__6 x1 x2 x3 x4 x7 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Just(x7))(st)+c__case_279_case__6 x1 x2 x3 x4 x7 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.OracleRedBlackTree.c__case_278(x2)(x3)(x4)(x7)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x4)(x1)(st))(x7)(x11)(st))(x12)(st))(st)+c__case_279_case__6 x1 x2 x3 x4 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_279_case__6(x1)(x2)(x3)(x4)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_279_case__6 x1 x2 x3 x4 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_279_case__6")(x)++++c__case_280_case__7 x1 x2 x3 x4 x5@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Nothing)(st)+c__case_280_case__7 x1 x2 x3 x4 x5@(Curry.Module.RedBlackTree.C_Tree x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleRedBlackTree.c__case_279(x2)(x3)(x4)(x7)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x7)(x10)(st))(x11)(st))(st)+c__case_280_case__7 x1 x2 x3 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_280_case__7(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_280_case__7 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_280_case__7")(x)++++c__case_276_case__8 x1 x2 x3@(Curry.Module.OracleRedBlackTree.C_RedBlackTree x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.C_RedBlackTree(x4)(x5)(x6)(Curry.Module.OracleRedBlackTree.c_updateTree(x4)(x6)(x2)(x7)(x1)(st)))(st)+c__case_276_case__8 x1 x2 (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_276_case__8(x1)(x2)(x)(st))(i)(xs)(st)+c__case_276_case__8 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_276_case__8")(x)++++c__case_272_case__9 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c_balanceR(Curry.Module.RedBlackTree.C_Tree(x6)(x7)(x8)(Curry.Module.OracleRedBlackTree.c_updateTree'46upd'4635(x2)(x3)(x4)(x9)(x1)(st)))(x11)(st))(st)+c__case_272_case__9 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_272_case__9 x1 x2 x3 x4 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_272_case__9(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_272_case__9 x1 x2 x3 x4 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_272_case__9")(x)++++c__case_273_case__10 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c_balanceL(Curry.Module.RedBlackTree.C_Tree(x6)(x7)(Curry.Module.OracleRedBlackTree.c_updateTree'46upd'4635(x2)(x3)(x4)(x8)(x1)(st))(x9))(x11)(st))(st)+c__case_273_case__10 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_272(x2)(x3)(x4)(x6)(x7)(x8)(x9)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x12)(st))(st)+c__case_273_case__10 x1 x2 x3 x4 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_273_case__10(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_273_case__10 x1 x2 x3 x4 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_273_case__10")(x)++++c__case_274_case__11 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Tree(x6)(x2)(x8)(x9))(st)+c__case_274_case__11 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.OracleRedBlackTree.c__case_273(x2)(x3)(x4)(x6)(x7)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x4)(x2)(x1)(st))(x7)(x11)(st))(x12)(st))(st)+c__case_274_case__11 x1 x2 x3 x4 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_274_case__11(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_274_case__11 x1 x2 x3 x4 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_274_case__11")(x)++++c__case_275_case__12 x1 x2 x3 x4 x5@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Red)(x2)(Curry.Module.RedBlackTree.C_Empty)(Curry.Module.RedBlackTree.C_Empty))(st)+c__case_275_case__12 x1 x2 x3 x4 x5@(Curry.Module.RedBlackTree.C_Tree x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleRedBlackTree.c__case_274(x2)(x3)(x4)(x6)(x7)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x2)(x1)(st))(x7)(x10)(st))(x11)(st))(st)+c__case_275_case__12 x1 x2 x3 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_275_case__12(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_275_case__12 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_275_case__12")(x)++++c__case_271_case__13 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_271_case__13 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_271_case__13(x1)(x)(st))(i)(xs)(st)+c__case_271_case__13 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_271_case__13")(x)++++c__case_270_case__14 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_270_case__14 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_270_case__14(x1)(x)(st))(i)(xs)(st)+c__case_270_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_270_case__14")(x)++++c__case_269_case__15 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_269_case__15 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_269_case__15(x1)(x)(st))(i)(xs)(st)+c__case_269_case__15 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_269_case__15")(x)++++c__case_268_case__16 x1 x2 x3@(Curry.Module.OracleRedBlackTree.C_RedBlackTree x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.C_RedBlackTree(x4)(x5)(x6)(Curry.Module.OracleRedBlackTree.c_delete'46blackenRoot'4644(Curry.Module.OracleRedBlackTree.c_deleteTree(x5)(x6)(x2)(x7)(x1)(st))(x8)(st)))(st)+c__case_268_case__16 x1 x2 (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_268_case__16(x1)(x2)(x)(st))(i)(xs)(st)+c__case_268_case__16 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_268_case__16")(x)++++c__case_267_case__17 x1 x2@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Empty)(st)+c__case_267_case__17 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(x4)(x5)(x6))(st)+c__case_267_case__17 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_267_case__17(x1)(x)(st))(i)(xs)(st)+c__case_267_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_267_case__17")(x)++++c__case_263_case__18 x1 x2 x3 x6 x8 x9 x11@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_deleteTree'46addColor'4656(x6)(x8)(x1)(st))(st)+c__case_263_case__18 x1 x2 x3 x6 x8 x9 x11@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x10 = Curry.Module.OracleRedBlackTree.c_deleteTree'46rightMost'4656(x8)(x1)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c_delBalanceL(Curry.Module.RedBlackTree.C_Tree(x6)(x10)(Curry.Module.OracleRedBlackTree.c_deleteTree(x2)(x3)(x10)(x8)(x12)(st))(x9))(x13)(st))(st))(st)+c__case_263_case__18 x1 x2 x3 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_263_case__18(x1)(x2)(x3)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_263_case__18 x1 x2 x3 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_263_case__18")(x)++++c__case_264_case__19 x1 x2 x3 x6 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_deleteTree'46addColor'4656(x6)(x9)(x1)(st))(st)+c__case_264_case__19 x1 x2 x3 x6 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_263(x2)(x3)(x6)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x9)(Curry.Module.RedBlackTree.C_Empty)(x1)(st))(x11)(st))(st)+c__case_264_case__19 x1 x2 x3 x6 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_264_case__19(x1)(x2)(x3)(x6)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_264_case__19 x1 x2 x3 x6 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_264_case__19")(x)++++c__case_261_case__20 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c_delBalanceR(Curry.Module.RedBlackTree.C_Tree(x6)(x7)(x8)(Curry.Module.OracleRedBlackTree.c_deleteTree(x2)(x3)(x4)(x9)(x1)(st)))(x11)(st))(st)+c__case_261_case__20 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_261_case__20 x1 x2 x3 x4 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_261_case__20(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_261_case__20 x1 x2 x3 x4 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_261_case__20")(x)++++c__case_262_case__21 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c_delBalanceL(Curry.Module.RedBlackTree.C_Tree(x6)(x7)(Curry.Module.OracleRedBlackTree.c_deleteTree(x2)(x3)(x4)(x8)(x1)(st))(x9))(x11)(st))(st)+c__case_262_case__21 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_261(x2)(x3)(x4)(x6)(x7)(x8)(x9)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x12)(st))(st)+c__case_262_case__21 x1 x2 x3 x4 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_262_case__21(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_262_case__21 x1 x2 x3 x4 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_262_case__21")(x)++++c__case_265_case__22 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_264(x2)(x3)(x6)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.RedBlackTree.C_Empty)(x1)(st))(x11)(st))(st)+c__case_265_case__22 x1 x2 x3 x4 x6 x7 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OracleRedBlackTree.c__case_262(x2)(x3)(x4)(x6)(x7)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x3)(x4)(x1)(st))(x7)(x12)(st))(x13)(st))(st)+c__case_265_case__22 x1 x2 x3 x4 x6 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_265_case__22(x1)(x2)(x3)(x4)(x6)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_265_case__22 x1 x2 x3 x4 x6 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_265_case__22")(x)++++c__case_266_case__23 x1 x2 x3 x4 x5@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Empty)(st)+c__case_266_case__23 x1 x2 x3 x4 x5@(Curry.Module.RedBlackTree.C_Tree x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleRedBlackTree.c__case_265(x2)(x3)(x4)(x6)(x7)(x8)(x9)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x7)(x10)(st))(x11)(st))(st)+c__case_266_case__23 x1 x2 x3 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_266_case__23(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_266_case__23 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_266_case__23")(x)++++c__case_258_case__24 x1 x5 x6 x7 x4@Curry.Module.RedBlackTree.C_Red st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(x5)(x6)(x7))(st)+c__case_258_case__24 x1 x5 x6 x7 x4@Curry.Module.RedBlackTree.C_Black st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_DoublyBlack)(x5)(x6)(x7))(st)+c__case_258_case__24 x1 x5 x6 x7 (Curry.Module.RedBlackTree.C_ColorOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_258_case__24(x1)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_258_case__24 x1 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_258_case__24")(x)++++c__case_259_case__25 x1 x3@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Empty)(st)+c__case_259_case__25 x1 x3@(Curry.Module.RedBlackTree.C_Tree x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_258(x5)(x6)(x7)(x4)(x1)(st))(st)+c__case_259_case__25 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_259_case__25(x1)(x)(st))(i)(xs)(st)+c__case_259_case__25 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_259_case__25")(x)++++c__case_260_case__26 x1 x3 x2@Curry.Module.RedBlackTree.C_Red st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_260_case__26 x1 x3 x2@Curry.Module.RedBlackTree.C_Black st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_259(x3)(x1)(st))(st)+c__case_260_case__26 x1 x3 (Curry.Module.RedBlackTree.C_ColorOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_260_case__26(x1)(x3)(x)(st))(i)(xs)(st)+c__case_260_case__26 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_260_case__26")(x)++++c__case_256_case__27 x1 x4 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_256_case__27 x1 x4 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_deleteTree'46rightMost'4656(x6)(x1)(st))(st)+c__case_256_case__27 x1 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_256_case__27(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_256_case__27 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_256_case__27")(x)++++c__case_257_case__28 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_256(x4)(x6)(Curry.Module.OraclePrelude.op_61_61(x6)(Curry.Module.RedBlackTree.C_Empty)(x1)(st))(x7)(st))(st)+c__case_257_case__28 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_257_case__28(x1)(x)(st))(i)(xs)(st)+c__case_257_case__28 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_257_case__28")(x)++++c__case_255_case__29 x1 x2@(Curry.Module.OracleRedBlackTree.C_RedBlackTree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_tree2listTree(x6)(x1)(st))(st)+c__case_255_case__29 x1 (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_255_case__29(x1)(x)(st))(i)(xs)(st)+c__case_255_case__29 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_255_case__29")(x)++++c__case_254_case__30 x1 x3 x2@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_254_case__30 x1 x3 x2@(Curry.Module.RedBlackTree.C_Tree x4 x5 x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c_tree2listTree'46t2l'4677(x6)((Curry.Module.Prelude.:<)(x5)(Curry.Module.OracleRedBlackTree.c_tree2listTree'46t2l'4677(x7)(x3)(x1)(st)))(x8)(st))(st)+c__case_254_case__30 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_254_case__30(x1)(x3)(x)(st))(i)(xs)(st)+c__case_254_case__30 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_254_case__30")(x)++++c__case_253_case__31 x1 x2 x3@(Curry.Module.OracleRedBlackTree.C_RedBlackTree x4 x5 x6 x7) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.OracleRedBlackTree.C_RedBlackTree(x2)(x5)(x6)(x7))(st)+c__case_253_case__31 x1 x2 (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_253_case__31(x1)(x2)(x)(st))(i)(xs)(st)+c__case_253_case__31 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_253_case__31")(x)++++c__case_252_case__32 x1 x2@(Curry.Module.OracleRedBlackTree.C_RedBlackTree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_252_case__32 x1 (Curry.Module.OracleRedBlackTree.C_RedBlackTreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_252_case__32(x1)(x)(st))(i)(xs)(st)+c__case_252_case__32 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_252_case__32")(x)++++c__case_251_case__33 x1 x2@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_251_case__33 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.RedBlackTree.C_Black)(x1)(st))(st)+c__case_251_case__33 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_251_case__33(x1)(x)(st))(i)(xs)(st)+c__case_251_case__33 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_251_case__33")(x)++++c__case_250_case__34 x1 x2@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_250_case__34 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.RedBlackTree.C_Red)(x1)(st))(st)+c__case_250_case__34 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_250_case__34(x1)(x)(st))(i)(xs)(st)+c__case_250_case__34 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_250_case__34")(x)++++c__case_249_case__35 x1 x2@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_249_case__35 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.RedBlackTree.C_DoublyBlack)(x1)(st))(st)+c__case_249_case__35 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_249_case__35(x1)(x)(st))(i)(xs)(st)+c__case_249_case__35 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_249_case__35")(x)++++c__case_248_case__36 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_248_case__36 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_248_case__36(x1)(x)(st))(i)(xs)(st)+c__case_248_case__36 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_248_case__36")(x)++++c__case_247_case__37 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_247_case__37 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_247_case__37(x1)(x)(st))(i)(xs)(st)+c__case_247_case__37 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_247_case__37")(x)++++c__case_246_case__38 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_246_case__38 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_246_case__38(x1)(x)(st))(i)(xs)(st)+c__case_246_case__38 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_246_case__38")(x)++++c__case_244_case__39 x1 x4 x5 x6 x3@Curry.Module.RedBlackTree.C_DoublyBlack st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(x4)(x5)(x6))(st)+c__case_244_case__39 x1 x4 x5 x6 (Curry.Module.RedBlackTree.C_ColorOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_244_case__39(x1)(x4)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_244_case__39 x1 x4 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_244_case__39")(x)++++c__case_245_case__40 x1 x2@Curry.Module.RedBlackTree.C_Empty st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Empty)(st)+c__case_245_case__40 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_244(x4)(x5)(x6)(x3)(x1)(st))(st)+c__case_245_case__40 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_245_case__40(x1)(x)(st))(i)(xs)(st)+c__case_245_case__40 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_245_case__40")(x)++++c__case_241_case__41 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_241_case__41 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_241_case__41 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_241_case__41(x1)(x2)(x)(st))(i)(xs)(st)+c__case_241_case__41 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_241_case__41")(x)++++c__case_242_case__42 x1 x2 x20@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x27)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Red)(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP18'35y(x2)(x23)(st))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP16'35x(x2)(x21)(st))(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP17'35a(x2)(x22)(st))(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP19'35b(x2)(x24)(st)))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP15'35z(x2)(x1)(st))(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP20'35c(x2)(x25)(st))(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP21'35d(x2)(x26)(st))))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_242_case__42 x1 x2 x20@Curry.Module.Prelude.C_False st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_241(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x28)(st))(st)+c__case_242_case__42 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_242_case__42(x1)(x2)(x)(st))(i)(xs)(st)+c__case_242_case__42 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_242_case__42")(x)++++c__case_243_case__43 x1 x2 x3 x12@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x19)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Red)(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP8'35y(x2)(x13)(st))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP9'35x(x2)(x14)(st))(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP10'35a(x2)(x15)(st))(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP11'35b(x2)(x16)(st)))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP7'35z(x2)(x1)(st))(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP12'35c(x2)(x17)(st))(Curry.Module.OracleRedBlackTree.c_balanceL'46_'35selFP13'35d(x2)(x18)(st))))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_243_case__43 x1 x2 x3 x12@Curry.Module.Prelude.C_False st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List)))))(Curry.Module.OracleRedBlackTree.c__case_242(x2)(x3)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleRedBlackTree.c_isRed(x3)(x1)(st))(Curry.Module.OracleRedBlackTree.c_isRed(Curry.Module.OracleRedBlackTree.c_right(x3)(x20)(st))(x21)(st))(x22)(st))(x23)(st))(st)+c__case_243_case__43 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_243_case__43(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_243_case__43 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_243_case__43")(x)++++c__case_238_case__44 x1 x4 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_238_case__44 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_238_case__44(x1)(x4)(x)(st))(i)(xs)(st)+c__case_238_case__44 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_238_case__44")(x)++++c__case_239_case__45 x1 x4 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_238(x4)(x9)(x1)(st))(st)+c__case_239_case__45 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_239_case__45(x1)(x4)(x)(st))(i)(xs)(st)+c__case_239_case__45 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_239_case__45")(x)++++c__case_240_case__46 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_239(x4)(x5)(x1)(st))(st)+c__case_240_case__46 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_240_case__46(x1)(x)(st))(i)(xs)(st)+c__case_240_case__46 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_240_case__46")(x)++++c__case_235_case__47 x1 x8 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_235_case__47 x1 x8 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_235_case__47(x1)(x8)(x)(st))(i)(xs)(st)+c__case_235_case__47 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_235_case__47")(x)++++c__case_236_case__48 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_235(x8)(x9)(x1)(st))(st)+c__case_236_case__48 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_236_case__48(x1)(x)(st))(i)(xs)(st)+c__case_236_case__48 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_236_case__48")(x)++++c__case_237_case__49 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_236(x5)(x1)(st))(st)+c__case_237_case__49 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_237_case__49(x1)(x)(st))(i)(xs)(st)+c__case_237_case__49 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_237_case__49")(x)++++c__case_232_case__50 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x12)(st)+c__case_232_case__50 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_232_case__50(x1)(x)(st))(i)(xs)(st)+c__case_232_case__50 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_232_case__50")(x)++++c__case_233_case__51 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_232(x9)(x1)(st))(st)+c__case_233_case__51 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_233_case__51(x1)(x)(st))(i)(xs)(st)+c__case_233_case__51 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_233_case__51")(x)++++c__case_234_case__52 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_233(x5)(x1)(st))(st)+c__case_234_case__52 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_234_case__52(x1)(x)(st))(i)(xs)(st)+c__case_234_case__52 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_234_case__52")(x)++++c__case_229_case__53 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x13)(st)+c__case_229_case__53 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_229_case__53(x1)(x)(st))(i)(xs)(st)+c__case_229_case__53 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_229_case__53")(x)++++c__case_230_case__54 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_229(x9)(x1)(st))(st)+c__case_230_case__54 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_230_case__54(x1)(x)(st))(i)(xs)(st)+c__case_230_case__54 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_230_case__54")(x)++++c__case_231_case__55 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_230(x5)(x1)(st))(st)+c__case_231_case__55 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_231_case__55(x1)(x)(st))(i)(xs)(st)+c__case_231_case__55 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_231_case__55")(x)++++c__case_226_case__56 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x14)(st)+c__case_226_case__56 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_226_case__56(x1)(x)(st))(i)(xs)(st)+c__case_226_case__56 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_226_case__56")(x)++++c__case_227_case__57 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_226(x9)(x1)(st))(st)+c__case_227_case__57 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_227_case__57(x1)(x)(st))(i)(xs)(st)+c__case_227_case__57 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_227_case__57")(x)++++c__case_228_case__58 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_227(x5)(x1)(st))(st)+c__case_228_case__58 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_228_case__58(x1)(x)(st))(i)(xs)(st)+c__case_228_case__58 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_228_case__58")(x)++++c__case_223_case__59 x1 x10 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x10)(st)+c__case_223_case__59 x1 x10 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_223_case__59(x1)(x10)(x)(st))(i)(xs)(st)+c__case_223_case__59 x1 x10 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_223_case__59")(x)++++c__case_224_case__60 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_223(x10)(x9)(x1)(st))(st)+c__case_224_case__60 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_224_case__60(x1)(x)(st))(i)(xs)(st)+c__case_224_case__60 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_224_case__60")(x)++++c__case_225_case__61 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_224(x5)(x1)(st))(st)+c__case_225_case__61 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_225_case__61(x1)(x)(st))(i)(xs)(st)+c__case_225_case__61 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_225_case__61")(x)++++c__case_220_case__62 x1 x6 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_220_case__62 x1 x6 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_220_case__62(x1)(x6)(x)(st))(i)(xs)(st)+c__case_220_case__62 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_220_case__62")(x)++++c__case_221_case__63 x1 x6 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_220(x6)(x9)(x1)(st))(st)+c__case_221_case__63 x1 x6 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_221_case__63(x1)(x6)(x)(st))(i)(xs)(st)+c__case_221_case__63 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_221_case__63")(x)++++c__case_222_case__64 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_221(x6)(x5)(x1)(st))(st)+c__case_222_case__64 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_222_case__64(x1)(x)(st))(i)(xs)(st)+c__case_222_case__64 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_222_case__64")(x)++++c__case_217_case__65 x1 x4 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_217_case__65 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_217_case__65(x1)(x4)(x)(st))(i)(xs)(st)+c__case_217_case__65 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_217_case__65")(x)++++c__case_218_case__66 x1 x4 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_217(x4)(x10)(x1)(st))(st)+c__case_218_case__66 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_218_case__66(x1)(x4)(x)(st))(i)(xs)(st)+c__case_218_case__66 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_218_case__66")(x)++++c__case_219_case__67 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_218(x4)(x5)(x1)(st))(st)+c__case_219_case__67 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_219_case__67(x1)(x)(st))(i)(xs)(st)+c__case_219_case__67 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_219_case__67")(x)++++c__case_214_case__68 x1 x8 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_214_case__68 x1 x8 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_214_case__68(x1)(x8)(x)(st))(i)(xs)(st)+c__case_214_case__68 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_214_case__68")(x)++++c__case_215_case__69 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_214(x8)(x10)(x1)(st))(st)+c__case_215_case__69 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_215_case__69(x1)(x)(st))(i)(xs)(st)+c__case_215_case__69 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_215_case__69")(x)++++c__case_216_case__70 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_215(x5)(x1)(st))(st)+c__case_216_case__70 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_216_case__70(x1)(x)(st))(i)(xs)(st)+c__case_216_case__70 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_216_case__70")(x)++++c__case_211_case__71 x1 x9 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_211_case__71 x1 x9 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_211_case__71(x1)(x9)(x)(st))(i)(xs)(st)+c__case_211_case__71 x1 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_211_case__71")(x)++++c__case_212_case__72 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_211(x9)(x10)(x1)(st))(st)+c__case_212_case__72 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_212_case__72(x1)(x)(st))(i)(xs)(st)+c__case_212_case__72 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_212_case__72")(x)++++c__case_213_case__73 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_212(x5)(x1)(st))(st)+c__case_213_case__73 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_213_case__73(x1)(x)(st))(i)(xs)(st)+c__case_213_case__73 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_213_case__73")(x)++++c__case_208_case__74 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x12)(st)+c__case_208_case__74 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_208_case__74(x1)(x)(st))(i)(xs)(st)+c__case_208_case__74 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_208_case__74")(x)++++c__case_209_case__75 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_208(x10)(x1)(st))(st)+c__case_209_case__75 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_209_case__75(x1)(x)(st))(i)(xs)(st)+c__case_209_case__75 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_209_case__75")(x)++++c__case_210_case__76 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_209(x5)(x1)(st))(st)+c__case_210_case__76 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_210_case__76(x1)(x)(st))(i)(xs)(st)+c__case_210_case__76 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_210_case__76")(x)++++c__case_205_case__77 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x13)(st)+c__case_205_case__77 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_205_case__77(x1)(x)(st))(i)(xs)(st)+c__case_205_case__77 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_205_case__77")(x)++++c__case_206_case__78 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_205(x10)(x1)(st))(st)+c__case_206_case__78 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_206_case__78(x1)(x)(st))(i)(xs)(st)+c__case_206_case__78 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_206_case__78")(x)++++c__case_207_case__79 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_206(x5)(x1)(st))(st)+c__case_207_case__79 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_207_case__79(x1)(x)(st))(i)(xs)(st)+c__case_207_case__79 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_207_case__79")(x)++++c__case_202_case__80 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x14)(st)+c__case_202_case__80 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_202_case__80(x1)(x)(st))(i)(xs)(st)+c__case_202_case__80 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_202_case__80")(x)++++c__case_203_case__81 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_202(x10)(x1)(st))(st)+c__case_203_case__81 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_203_case__81(x1)(x)(st))(i)(xs)(st)+c__case_203_case__81 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_203_case__81")(x)++++c__case_204_case__82 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_203(x5)(x1)(st))(st)+c__case_204_case__82 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_204_case__82(x1)(x)(st))(i)(xs)(st)+c__case_204_case__82 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_204_case__82")(x)++++c__case_199_case__83 x1 x6 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_199_case__83 x1 x6 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_199_case__83(x1)(x6)(x)(st))(i)(xs)(st)+c__case_199_case__83 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_199_case__83")(x)++++c__case_200_case__84 x1 x6 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_199(x6)(x10)(x1)(st))(st)+c__case_200_case__84 x1 x6 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_200_case__84(x1)(x6)(x)(st))(i)(xs)(st)+c__case_200_case__84 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_200_case__84")(x)++++c__case_201_case__85 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_200(x6)(x5)(x1)(st))(st)+c__case_201_case__85 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_201_case__85(x1)(x)(st))(i)(xs)(st)+c__case_201_case__85 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_201_case__85")(x)++++c__case_196_case__86 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_196_case__86 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_196_case__86 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_196_case__86(x1)(x2)(x)(st))(i)(xs)(st)+c__case_196_case__86 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_196_case__86")(x)++++c__case_197_case__87 x1 x2 x20@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x27)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Red)(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP34'35y(x2)(x23)(st))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP31'35x(x2)(x1)(st))(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP32'35a(x2)(x21)(st))(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP35'35b(x2)(x24)(st)))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP33'35z(x2)(x22)(st))(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP36'35c(x2)(x25)(st))(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP37'35d(x2)(x26)(st))))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_197_case__87 x1 x2 x20@Curry.Module.Prelude.C_False st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_196(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x28)(st))(st)+c__case_197_case__87 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_197_case__87(x1)(x2)(x)(st))(i)(xs)(st)+c__case_197_case__87 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_197_case__87")(x)++++c__case_198_case__88 x1 x2 x3 x12@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x19)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Red)(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP25'35y(x2)(x14)(st))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP23'35x(x2)(x1)(st))(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP24'35a(x2)(x13)(st))(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP26'35b(x2)(x15)(st)))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP27'35z(x2)(x16)(st))(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP28'35c(x2)(x17)(st))(Curry.Module.OracleRedBlackTree.c_balanceR'46_'35selFP29'35d(x2)(x18)(st))))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_198_case__88 x1 x2 x3 x12@Curry.Module.Prelude.C_False st = let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List)))))(Curry.Module.OracleRedBlackTree.c__case_197(x2)(x3)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OracleRedBlackTree.c_isRed(x3)(x1)(st))(Curry.Module.OracleRedBlackTree.c_isRed(Curry.Module.OracleRedBlackTree.c_left(x3)(x20)(st))(x21)(st))(x22)(st))(x23)(st))(st)+c__case_198_case__88 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_198_case__88(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_198_case__88 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_198_case__88")(x)++++c__case_193_case__89 x1 x4 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_193_case__89 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_193_case__89(x1)(x4)(x)(st))(i)(xs)(st)+c__case_193_case__89 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_193_case__89")(x)++++c__case_194_case__90 x1 x4 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_193(x4)(x10)(x1)(st))(st)+c__case_194_case__90 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_194_case__90(x1)(x4)(x)(st))(i)(xs)(st)+c__case_194_case__90 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_194_case__90")(x)++++c__case_195_case__91 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_194(x4)(x6)(x1)(st))(st)+c__case_195_case__91 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_195_case__91(x1)(x)(st))(i)(xs)(st)+c__case_195_case__91 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_195_case__91")(x)++++c__case_190_case__92 x1 x5 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_190_case__92 x1 x5 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_190_case__92(x1)(x5)(x)(st))(i)(xs)(st)+c__case_190_case__92 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_190_case__92")(x)++++c__case_191_case__93 x1 x5 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_190(x5)(x10)(x1)(st))(st)+c__case_191_case__93 x1 x5 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_191_case__93(x1)(x5)(x)(st))(i)(xs)(st)+c__case_191_case__93 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_191_case__93")(x)++++c__case_192_case__94 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_191(x5)(x6)(x1)(st))(st)+c__case_192_case__94 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_192_case__94(x1)(x)(st))(i)(xs)(st)+c__case_192_case__94 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_192_case__94")(x)++++c__case_187_case__95 x1 x8 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_187_case__95 x1 x8 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_187_case__95(x1)(x8)(x)(st))(i)(xs)(st)+c__case_187_case__95 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_187_case__95")(x)++++c__case_188_case__96 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_187(x8)(x10)(x1)(st))(st)+c__case_188_case__96 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_188_case__96(x1)(x)(st))(i)(xs)(st)+c__case_188_case__96 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_188_case__96")(x)++++c__case_189_case__97 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_188(x6)(x1)(st))(st)+c__case_189_case__97 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_189_case__97(x1)(x)(st))(i)(xs)(st)+c__case_189_case__97 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_189_case__97")(x)++++c__case_184_case__98 x1 x9 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_184_case__98 x1 x9 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_184_case__98(x1)(x9)(x)(st))(i)(xs)(st)+c__case_184_case__98 x1 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_184_case__98")(x)++++c__case_185_case__99 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_184(x9)(x10)(x1)(st))(st)+c__case_185_case__99 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_185_case__99(x1)(x)(st))(i)(xs)(st)+c__case_185_case__99 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_185_case__99")(x)++++c__case_186_case__100 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_185(x6)(x1)(st))(st)+c__case_186_case__100 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_186_case__100(x1)(x)(st))(i)(xs)(st)+c__case_186_case__100 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_186_case__100")(x)++++c__case_181_case__101 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x12)(st)+c__case_181_case__101 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_181_case__101(x1)(x)(st))(i)(xs)(st)+c__case_181_case__101 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_181_case__101")(x)++++c__case_182_case__102 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_181(x10)(x1)(st))(st)+c__case_182_case__102 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_182_case__102(x1)(x)(st))(i)(xs)(st)+c__case_182_case__102 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_182_case__102")(x)++++c__case_183_case__103 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_182(x6)(x1)(st))(st)+c__case_183_case__103 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_183_case__103(x1)(x)(st))(i)(xs)(st)+c__case_183_case__103 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_183_case__103")(x)++++c__case_178_case__104 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x13)(st)+c__case_178_case__104 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_178_case__104(x1)(x)(st))(i)(xs)(st)+c__case_178_case__104 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_178_case__104")(x)++++c__case_179_case__105 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_178(x10)(x1)(st))(st)+c__case_179_case__105 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_179_case__105(x1)(x)(st))(i)(xs)(st)+c__case_179_case__105 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_179_case__105")(x)++++c__case_180_case__106 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_179(x6)(x1)(st))(st)+c__case_180_case__106 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_180_case__106(x1)(x)(st))(i)(xs)(st)+c__case_180_case__106 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_180_case__106")(x)++++c__case_175_case__107 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x14)(st)+c__case_175_case__107 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_175_case__107(x1)(x)(st))(i)(xs)(st)+c__case_175_case__107 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_175_case__107")(x)++++c__case_176_case__108 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_175(x10)(x1)(st))(st)+c__case_176_case__108 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_176_case__108(x1)(x)(st))(i)(xs)(st)+c__case_176_case__108 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_176_case__108")(x)++++c__case_177_case__109 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_176(x6)(x1)(st))(st)+c__case_177_case__109 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_177_case__109(x1)(x)(st))(i)(xs)(st)+c__case_177_case__109 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_177_case__109")(x)++++c__case_172_case__110 x1 x4 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_172_case__110 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_172_case__110(x1)(x4)(x)(st))(i)(xs)(st)+c__case_172_case__110 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_172_case__110")(x)++++c__case_173_case__111 x1 x4 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_172(x4)(x9)(x1)(st))(st)+c__case_173_case__111 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_173_case__111(x1)(x4)(x)(st))(i)(xs)(st)+c__case_173_case__111 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_173_case__111")(x)++++c__case_174_case__112 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_173(x4)(x6)(x1)(st))(st)+c__case_174_case__112 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_174_case__112(x1)(x)(st))(i)(xs)(st)+c__case_174_case__112 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_174_case__112")(x)++++c__case_169_case__113 x1 x5 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_169_case__113 x1 x5 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_169_case__113(x1)(x5)(x)(st))(i)(xs)(st)+c__case_169_case__113 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_169_case__113")(x)++++c__case_170_case__114 x1 x5 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_169(x5)(x9)(x1)(st))(st)+c__case_170_case__114 x1 x5 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_170_case__114(x1)(x5)(x)(st))(i)(xs)(st)+c__case_170_case__114 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_170_case__114")(x)++++c__case_171_case__115 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_170(x5)(x6)(x1)(st))(st)+c__case_171_case__115 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_171_case__115(x1)(x)(st))(i)(xs)(st)+c__case_171_case__115 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_171_case__115")(x)++++c__case_166_case__116 x1 x8 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_166_case__116 x1 x8 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_166_case__116(x1)(x8)(x)(st))(i)(xs)(st)+c__case_166_case__116 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_166_case__116")(x)++++c__case_167_case__117 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_166(x8)(x9)(x1)(st))(st)+c__case_167_case__117 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_167_case__117(x1)(x)(st))(i)(xs)(st)+c__case_167_case__117 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_167_case__117")(x)++++c__case_168_case__118 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_167(x6)(x1)(st))(st)+c__case_168_case__118 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_168_case__118(x1)(x)(st))(i)(xs)(st)+c__case_168_case__118 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_168_case__118")(x)++++c__case_163_case__119 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x12)(st)+c__case_163_case__119 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_163_case__119(x1)(x)(st))(i)(xs)(st)+c__case_163_case__119 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_163_case__119")(x)++++c__case_164_case__120 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_163(x9)(x1)(st))(st)+c__case_164_case__120 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_164_case__120(x1)(x)(st))(i)(xs)(st)+c__case_164_case__120 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_164_case__120")(x)++++c__case_165_case__121 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_164(x6)(x1)(st))(st)+c__case_165_case__121 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_165_case__121(x1)(x)(st))(i)(xs)(st)+c__case_165_case__121 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_165_case__121")(x)++++c__case_160_case__122 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x13)(st)+c__case_160_case__122 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_160_case__122(x1)(x)(st))(i)(xs)(st)+c__case_160_case__122 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_160_case__122")(x)++++c__case_161_case__123 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_160(x9)(x1)(st))(st)+c__case_161_case__123 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_161_case__123(x1)(x)(st))(i)(xs)(st)+c__case_161_case__123 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_161_case__123")(x)++++c__case_162_case__124 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_161(x6)(x1)(st))(st)+c__case_162_case__124 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_162_case__124(x1)(x)(st))(i)(xs)(st)+c__case_162_case__124 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_162_case__124")(x)++++c__case_157_case__125 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x14)(st)+c__case_157_case__125 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_157_case__125(x1)(x)(st))(i)(xs)(st)+c__case_157_case__125 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_157_case__125")(x)++++c__case_158_case__126 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_157(x9)(x1)(st))(st)+c__case_158_case__126 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_158_case__126(x1)(x)(st))(i)(xs)(st)+c__case_158_case__126 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_158_case__126")(x)++++c__case_159_case__127 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_158(x6)(x1)(st))(st)+c__case_159_case__127 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_159_case__127(x1)(x)(st))(i)(xs)(st)+c__case_159_case__127 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_159_case__127")(x)++++c__case_154_case__128 x1 x10 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x10)(st)+c__case_154_case__128 x1 x10 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_154_case__128(x1)(x10)(x)(st))(i)(xs)(st)+c__case_154_case__128 x1 x10 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_154_case__128")(x)++++c__case_155_case__129 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_154(x10)(x9)(x1)(st))(st)+c__case_155_case__129 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_155_case__129(x1)(x)(st))(i)(xs)(st)+c__case_155_case__129 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_155_case__129")(x)++++c__case_156_case__130 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_155(x6)(x1)(st))(st)+c__case_156_case__130 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_156_case__130(x1)(x)(st))(i)(xs)(st)+c__case_156_case__130 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_156_case__130")(x)++++c__case_153_case__131 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_reviseLeft(x2)(x1)(st))(st)+c__case_153_case__131 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_153_case__131 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_153_case__131(x1)(x2)(x)(st))(i)(xs)(st)+c__case_153_case__131 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_153_case__131")(x)++++c__case_148_case__132 x1 x25@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Black)(st)+c__case_148_case__132 x1 x25@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_DoublyBlack)(st)+c__case_148_case__132 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_148_case__132(x1)(x)(st))(i)(xs)(st)+c__case_148_case__132 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_148_case__132")(x)++++c__case_147_case__133 x1 x2 x36@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List))(let {x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x37)((Curry.Module.Prelude.:<)(x38)(Curry.Module.Prelude.List))(let {x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x38)((Curry.Module.Prelude.:<)(x39)(Curry.Module.Prelude.List))(let {x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List))(let {x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x40)((Curry.Module.Prelude.:<)(x41)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x41)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP66'35y(x2)(x38)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Red)(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP64'35x(x2)(x1)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP65'35a(x2)(x37)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP67'35b(x2)(x39)(st)))(x41)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP68'35c(x2)(x40)(st)))(st))(st))(st))(st))(st))(st))(st)+c__case_147_case__133 x1 x2 x36@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_147_case__133 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_147_case__133(x1)(x2)(x)(st))(i)(xs)(st)+c__case_147_case__133 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_147_case__133")(x)++++c__case_149_case__134 x1 x2 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))(let {x24 = Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP57'35col(x2)(x1)(st)} in let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List))(let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x31)((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List))(let {x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x32)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List))(let {x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x33)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List))(let {x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x34)((Curry.Module.Prelude.:<)(x35)(Curry.Module.Prelude.List))(let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List)))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.OracleRedBlackTree.c__case_148(x24)(Curry.Module.OraclePrelude.op_61_61(x24)(Curry.Module.RedBlackTree.C_Red)(x35)(st))(x36)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP58'35x(x2)(x30)(st))(Curry.Module.OracleRedBlackTree.c_singleBlack(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP59'35a(x2)(x31)(st))(x37)(st))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Red)(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP60'35y(x2)(x32)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP61'35b(x2)(x33)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP62'35c(x2)(x34)(st))))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_149_case__134 x1 x2 x4@Curry.Module.Prelude.C_False st = let {x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x38)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_147(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x38)(st))(st)+c__case_149_case__134 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_149_case__134(x1)(x2)(x)(st))(i)(xs)(st)+c__case_149_case__134 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_149_case__134")(x)++++c__case_150_case__135 x1 x2 x4 x23@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x27)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(let {x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))(let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))(let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x31)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP48'35col(x2)(x1)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP51'35y(x2)(x26)(st))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP49'35x(x2)(x24)(st))(Curry.Module.OracleRedBlackTree.c_singleBlack(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP50'35a(x2)(x25)(st))(x31)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP52'35b(x2)(x27)(st)))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP53'35z(x2)(x28)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP54'35c(x2)(x29)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP55'35d(x2)(x30)(st))))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_150_case__135 x1 x2 x4 x23@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_149(x2)(x4)(x1)(st))(st)+c__case_150_case__135 x1 x2 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_150_case__135(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_150_case__135 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_150_case__135")(x)++++c__case_151_case__136 x1 x2 x3 x4 x14@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x22)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP39'35col(x2)(x1)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP43'35y(x2)(x18)(st))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP40'35x(x2)(x15)(st))(Curry.Module.OracleRedBlackTree.c_singleBlack(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP41'35a(x2)(x16)(st))(x22)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP44'35b(x2)(x19)(st)))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP42'35z(x2)(x17)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP45'35c(x2)(x20)(st))(Curry.Module.OracleRedBlackTree.c_reviseLeft'46_'35selFP46'35d(x2)(x21)(st))))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_151_case__136 x1 x2 x3 x4 x14@Curry.Module.Prelude.C_False st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))))(Curry.Module.OracleRedBlackTree.c__case_150(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_38_38(x4)(Curry.Module.OracleRedBlackTree.c_isRed(Curry.Module.OracleRedBlackTree.c_right(x3)(x1)(st))(x23)(st))(x24)(st))(x25)(st))(st)+c__case_151_case__136 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_151_case__136(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_151_case__136 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_151_case__136")(x)++++c__case_152_case__137 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_152_case__137 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.OracleRedBlackTree.c__case_151(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_38_38(x4)(Curry.Module.OracleRedBlackTree.c_isRed(Curry.Module.OracleRedBlackTree.c_left(x3)(x1)(st))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_152_case__137 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_152_case__137(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_152_case__137 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_152_case__137")(x)++++c__case_144_case__138 x1 x3 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_144_case__138 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_144_case__138(x1)(x3)(x)(st))(i)(xs)(st)+c__case_144_case__138 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_144_case__138")(x)++++c__case_145_case__139 x1 x3 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_144(x3)(x9)(x1)(st))(st)+c__case_145_case__139 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_145_case__139(x1)(x3)(x)(st))(i)(xs)(st)+c__case_145_case__139 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_145_case__139")(x)++++c__case_146_case__140 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_145(x3)(x6)(x1)(st))(st)+c__case_146_case__140 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_146_case__140(x1)(x)(st))(i)(xs)(st)+c__case_146_case__140 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_146_case__140")(x)++++c__case_141_case__141 x1 x4 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_141_case__141 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_141_case__141(x1)(x4)(x)(st))(i)(xs)(st)+c__case_141_case__141 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_141_case__141")(x)++++c__case_142_case__142 x1 x4 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_141(x4)(x9)(x1)(st))(st)+c__case_142_case__142 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_142_case__142(x1)(x4)(x)(st))(i)(xs)(st)+c__case_142_case__142 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_142_case__142")(x)++++c__case_143_case__143 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_142(x4)(x6)(x1)(st))(st)+c__case_143_case__143 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_143_case__143(x1)(x)(st))(i)(xs)(st)+c__case_143_case__143 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_143_case__143")(x)++++c__case_138_case__144 x1 x5 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_138_case__144 x1 x5 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_138_case__144(x1)(x5)(x)(st))(i)(xs)(st)+c__case_138_case__144 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_138_case__144")(x)++++c__case_139_case__145 x1 x5 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_138(x5)(x9)(x1)(st))(st)+c__case_139_case__145 x1 x5 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_139_case__145(x1)(x5)(x)(st))(i)(xs)(st)+c__case_139_case__145 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_139_case__145")(x)++++c__case_140_case__146 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_139(x5)(x6)(x1)(st))(st)+c__case_140_case__146 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_140_case__146(x1)(x)(st))(i)(xs)(st)+c__case_140_case__146 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_140_case__146")(x)++++c__case_135_case__147 x1 x8 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_135_case__147 x1 x8 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_135_case__147(x1)(x8)(x)(st))(i)(xs)(st)+c__case_135_case__147 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_135_case__147")(x)++++c__case_136_case__148 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_135(x8)(x9)(x1)(st))(st)+c__case_136_case__148 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_136_case__148(x1)(x)(st))(i)(xs)(st)+c__case_136_case__148 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_136_case__148")(x)++++c__case_137_case__149 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_136(x6)(x1)(st))(st)+c__case_137_case__149 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_137_case__149(x1)(x)(st))(i)(xs)(st)+c__case_137_case__149 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_137_case__149")(x)++++c__case_132_case__150 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x12)(st)+c__case_132_case__150 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_132_case__150(x1)(x)(st))(i)(xs)(st)+c__case_132_case__150 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_132_case__150")(x)++++c__case_133_case__151 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_132(x9)(x1)(st))(st)+c__case_133_case__151 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_133_case__151(x1)(x)(st))(i)(xs)(st)+c__case_133_case__151 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_133_case__151")(x)++++c__case_134_case__152 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_133(x6)(x1)(st))(st)+c__case_134_case__152 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_134_case__152(x1)(x)(st))(i)(xs)(st)+c__case_134_case__152 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_134_case__152")(x)++++c__case_129_case__153 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x13)(st)+c__case_129_case__153 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_129_case__153(x1)(x)(st))(i)(xs)(st)+c__case_129_case__153 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_129_case__153")(x)++++c__case_130_case__154 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_129(x9)(x1)(st))(st)+c__case_130_case__154 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_130_case__154(x1)(x)(st))(i)(xs)(st)+c__case_130_case__154 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_130_case__154")(x)++++c__case_131_case__155 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_130(x6)(x1)(st))(st)+c__case_131_case__155 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_131_case__155(x1)(x)(st))(i)(xs)(st)+c__case_131_case__155 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_131_case__155")(x)++++c__case_126_case__156 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x14)(st)+c__case_126_case__156 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_126_case__156(x1)(x)(st))(i)(xs)(st)+c__case_126_case__156 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_126_case__156")(x)++++c__case_127_case__157 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_126(x9)(x1)(st))(st)+c__case_127_case__157 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_127_case__157(x1)(x)(st))(i)(xs)(st)+c__case_127_case__157 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_127_case__157")(x)++++c__case_128_case__158 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_127(x6)(x1)(st))(st)+c__case_128_case__158 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_128_case__158(x1)(x)(st))(i)(xs)(st)+c__case_128_case__158 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_128_case__158")(x)++++c__case_123_case__159 x1 x10 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x10)(st)+c__case_123_case__159 x1 x10 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_123_case__159(x1)(x10)(x)(st))(i)(xs)(st)+c__case_123_case__159 x1 x10 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_123_case__159")(x)++++c__case_124_case__160 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_123(x10)(x9)(x1)(st))(st)+c__case_124_case__160 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_124_case__160(x1)(x)(st))(i)(xs)(st)+c__case_124_case__160 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_124_case__160")(x)++++c__case_125_case__161 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_124(x6)(x1)(st))(st)+c__case_125_case__161 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_125_case__161(x1)(x)(st))(i)(xs)(st)+c__case_125_case__161 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_125_case__161")(x)++++c__case_120_case__162 x1 x3 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_120_case__162 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_120_case__162(x1)(x3)(x)(st))(i)(xs)(st)+c__case_120_case__162 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_120_case__162")(x)++++c__case_121_case__163 x1 x3 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_120(x3)(x10)(x1)(st))(st)+c__case_121_case__163 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_121_case__163(x1)(x3)(x)(st))(i)(xs)(st)+c__case_121_case__163 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_121_case__163")(x)++++c__case_122_case__164 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_121(x3)(x6)(x1)(st))(st)+c__case_122_case__164 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_122_case__164(x1)(x)(st))(i)(xs)(st)+c__case_122_case__164 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_122_case__164")(x)++++c__case_117_case__165 x1 x4 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_117_case__165 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_117_case__165(x1)(x4)(x)(st))(i)(xs)(st)+c__case_117_case__165 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_117_case__165")(x)++++c__case_118_case__166 x1 x4 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_117(x4)(x10)(x1)(st))(st)+c__case_118_case__166 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_118_case__166(x1)(x4)(x)(st))(i)(xs)(st)+c__case_118_case__166 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_118_case__166")(x)++++c__case_119_case__167 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_118(x4)(x6)(x1)(st))(st)+c__case_119_case__167 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_119_case__167(x1)(x)(st))(i)(xs)(st)+c__case_119_case__167 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_119_case__167")(x)++++c__case_114_case__168 x1 x5 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_114_case__168 x1 x5 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_114_case__168(x1)(x5)(x)(st))(i)(xs)(st)+c__case_114_case__168 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_114_case__168")(x)++++c__case_115_case__169 x1 x5 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_114(x5)(x10)(x1)(st))(st)+c__case_115_case__169 x1 x5 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_115_case__169(x1)(x5)(x)(st))(i)(xs)(st)+c__case_115_case__169 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_115_case__169")(x)++++c__case_116_case__170 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_115(x5)(x6)(x1)(st))(st)+c__case_116_case__170 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_116_case__170(x1)(x)(st))(i)(xs)(st)+c__case_116_case__170 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_116_case__170")(x)++++c__case_111_case__171 x1 x8 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_111_case__171 x1 x8 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_111_case__171(x1)(x8)(x)(st))(i)(xs)(st)+c__case_111_case__171 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_111_case__171")(x)++++c__case_112_case__172 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_111(x8)(x10)(x1)(st))(st)+c__case_112_case__172 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_112_case__172(x1)(x)(st))(i)(xs)(st)+c__case_112_case__172 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_112_case__172")(x)++++c__case_113_case__173 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_112(x6)(x1)(st))(st)+c__case_113_case__173 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_113_case__173(x1)(x)(st))(i)(xs)(st)+c__case_113_case__173 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_113_case__173")(x)++++c__case_108_case__174 x1 x9 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_108_case__174 x1 x9 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_108_case__174(x1)(x9)(x)(st))(i)(xs)(st)+c__case_108_case__174 x1 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_108_case__174")(x)++++c__case_109_case__175 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_108(x9)(x10)(x1)(st))(st)+c__case_109_case__175 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_109_case__175(x1)(x)(st))(i)(xs)(st)+c__case_109_case__175 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_109_case__175")(x)++++c__case_110_case__176 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_109(x6)(x1)(st))(st)+c__case_110_case__176 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_110_case__176(x1)(x)(st))(i)(xs)(st)+c__case_110_case__176 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_110_case__176")(x)++++c__case_105_case__177 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x12)(st)+c__case_105_case__177 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_105_case__177(x1)(x)(st))(i)(xs)(st)+c__case_105_case__177 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_105_case__177")(x)++++c__case_106_case__178 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_105(x10)(x1)(st))(st)+c__case_106_case__178 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_106_case__178(x1)(x)(st))(i)(xs)(st)+c__case_106_case__178 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_106_case__178")(x)++++c__case_107_case__179 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_106(x6)(x1)(st))(st)+c__case_107_case__179 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_107_case__179(x1)(x)(st))(i)(xs)(st)+c__case_107_case__179 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_107_case__179")(x)++++c__case_102_case__180 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x13)(st)+c__case_102_case__180 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_102_case__180(x1)(x)(st))(i)(xs)(st)+c__case_102_case__180 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_102_case__180")(x)++++c__case_103_case__181 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_102(x10)(x1)(st))(st)+c__case_103_case__181 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_103_case__181(x1)(x)(st))(i)(xs)(st)+c__case_103_case__181 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_103_case__181")(x)++++c__case_104_case__182 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_103(x6)(x1)(st))(st)+c__case_104_case__182 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_104_case__182(x1)(x)(st))(i)(xs)(st)+c__case_104_case__182 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_104_case__182")(x)++++c__case_99_case__183 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x14)(st)+c__case_99_case__183 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_99_case__183(x1)(x)(st))(i)(xs)(st)+c__case_99_case__183 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_99_case__183")(x)++++c__case_100_case__184 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_99(x10)(x1)(st))(st)+c__case_100_case__184 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_100_case__184(x1)(x)(st))(i)(xs)(st)+c__case_100_case__184 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_100_case__184")(x)++++c__case_101_case__185 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_100(x6)(x1)(st))(st)+c__case_101_case__185 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_101_case__185(x1)(x)(st))(i)(xs)(st)+c__case_101_case__185 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_101_case__185")(x)++++c__case_97_case__186 x1 x3 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_97_case__186 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_97_case__186(x1)(x3)(x)(st))(i)(xs)(st)+c__case_97_case__186 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_97_case__186")(x)++++c__case_98_case__187 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_97(x3)(x6)(x1)(st))(st)+c__case_98_case__187 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_98_case__187(x1)(x)(st))(i)(xs)(st)+c__case_98_case__187 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_98_case__187")(x)++++c__case_95_case__188 x1 x4 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_95_case__188 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_95_case__188(x1)(x4)(x)(st))(i)(xs)(st)+c__case_95_case__188 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_95_case__188")(x)++++c__case_96_case__189 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_95(x4)(x6)(x1)(st))(st)+c__case_96_case__189 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_96_case__189(x1)(x)(st))(i)(xs)(st)+c__case_96_case__189 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_96_case__189")(x)++++c__case_93_case__190 x1 x5 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_93_case__190 x1 x5 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_93_case__190(x1)(x5)(x)(st))(i)(xs)(st)+c__case_93_case__190 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_93_case__190")(x)++++c__case_94_case__191 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_93(x5)(x6)(x1)(st))(st)+c__case_94_case__191 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_94_case__191(x1)(x)(st))(i)(xs)(st)+c__case_94_case__191 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_94_case__191")(x)++++c__case_91_case__192 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_91_case__192 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_91_case__192(x1)(x)(st))(i)(xs)(st)+c__case_91_case__192 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_91_case__192")(x)++++c__case_92_case__193 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_91(x6)(x1)(st))(st)+c__case_92_case__193 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_92_case__193(x1)(x)(st))(i)(xs)(st)+c__case_92_case__193 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_92_case__193")(x)++++c__case_89_case__194 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_89_case__194 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_89_case__194(x1)(x)(st))(i)(xs)(st)+c__case_89_case__194 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_89_case__194")(x)++++c__case_90_case__195 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_89(x6)(x1)(st))(st)+c__case_90_case__195 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_90_case__195(x1)(x)(st))(i)(xs)(st)+c__case_90_case__195 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_90_case__195")(x)++++c__case_87_case__196 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x10)(st)+c__case_87_case__196 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_87_case__196(x1)(x)(st))(i)(xs)(st)+c__case_87_case__196 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_87_case__196")(x)++++c__case_88_case__197 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_87(x6)(x1)(st))(st)+c__case_88_case__197 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_88_case__197(x1)(x)(st))(i)(xs)(st)+c__case_88_case__197 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_88_case__197")(x)++++c__case_85_case__198 x1 x4 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_85_case__198 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_85_case__198(x1)(x4)(x)(st))(i)(xs)(st)+c__case_85_case__198 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_85_case__198")(x)++++c__case_86_case__199 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_85(x4)(x6)(x1)(st))(st)+c__case_86_case__199 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_86_case__199(x1)(x)(st))(i)(xs)(st)+c__case_86_case__199 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_86_case__199")(x)++++c__case_83_case__200 x1 x5 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_83_case__200 x1 x5 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_83_case__200(x1)(x5)(x)(st))(i)(xs)(st)+c__case_83_case__200 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_83_case__200")(x)++++c__case_84_case__201 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_83(x5)(x6)(x1)(st))(st)+c__case_84_case__201 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_84_case__201(x1)(x)(st))(i)(xs)(st)+c__case_84_case__201 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_84_case__201")(x)++++c__case_81_case__202 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_81_case__202 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_81_case__202(x1)(x)(st))(i)(xs)(st)+c__case_81_case__202 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_81_case__202")(x)++++c__case_82_case__203 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_81(x6)(x1)(st))(st)+c__case_82_case__203 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_82_case__203(x1)(x)(st))(i)(xs)(st)+c__case_82_case__203 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_82_case__203")(x)++++c__case_79_case__204 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_79_case__204 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_79_case__204(x1)(x)(st))(i)(xs)(st)+c__case_79_case__204 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_79_case__204")(x)++++c__case_80_case__205 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_79(x6)(x1)(st))(st)+c__case_80_case__205 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_80_case__205(x1)(x)(st))(i)(xs)(st)+c__case_80_case__205 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_80_case__205")(x)++++c__case_77_case__206 x1 x6@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x10)(st)+c__case_77_case__206 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_77_case__206(x1)(x)(st))(i)(xs)(st)+c__case_77_case__206 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_77_case__206")(x)++++c__case_78_case__207 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_77(x6)(x1)(st))(st)+c__case_78_case__207 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_78_case__207(x1)(x)(st))(i)(xs)(st)+c__case_78_case__207 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_78_case__207")(x)++++c__case_76_case__208 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_reviseRight(x2)(x1)(st))(st)+c__case_76_case__208 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_76_case__208 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_76_case__208(x1)(x2)(x)(st))(i)(xs)(st)+c__case_76_case__208 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_76_case__208")(x)++++c__case_71_case__209 x1 x25@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_Black)(st)+c__case_71_case__209 x1 x25@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.RedBlackTree.C_DoublyBlack)(st)+c__case_71_case__209 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_71_case__209(x1)(x)(st))(i)(xs)(st)+c__case_71_case__209 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_71_case__209")(x)++++c__case_70_case__210 x1 x2 x36@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List))(let {x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x37)((Curry.Module.Prelude.:<)(x38)(Curry.Module.Prelude.List))(let {x39 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x38)((Curry.Module.Prelude.:<)(x39)(Curry.Module.Prelude.List))(let {x40 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x39)((Curry.Module.Prelude.:<)(x40)(Curry.Module.Prelude.List))(let {x41 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x40)((Curry.Module.Prelude.:<)(x41)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x41)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP96'35y(x2)(x37)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP97'35c(x2)(x38)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Red)(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP95'35x(x2)(x1)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP98'35b(x2)(x39)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP99'35a(x2)(x40)(st)))(x41)(st)))(st))(st))(st))(st))(st))(st))(st)+c__case_70_case__210 x1 x2 x36@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_70_case__210 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_70_case__210(x1)(x2)(x)(st))(i)(xs)(st)+c__case_70_case__210 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_70_case__210")(x)++++c__case_72_case__211 x1 x2 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))(let {x24 = Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP88'35col(x2)(x1)(st)} in let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List))(let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x31)((Curry.Module.Prelude.:<)(x32)(Curry.Module.Prelude.List))(let {x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x32)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List))(let {x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x33)((Curry.Module.Prelude.:<)(x34)(Curry.Module.Prelude.List))(let {x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x34)((Curry.Module.Prelude.:<)(x35)(Curry.Module.Prelude.List))(let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x37 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x35)((Curry.Module.Prelude.:<)(x36)((Curry.Module.Prelude.:<)(x37)(Curry.Module.Prelude.List)))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.OracleRedBlackTree.c__case_71(x24)(Curry.Module.OraclePrelude.op_61_61(x24)(Curry.Module.RedBlackTree.C_Red)(x35)(st))(x36)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP89'35x(x2)(x30)(st))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Red)(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP90'35y(x2)(x31)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP91'35c(x2)(x32)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP92'35b(x2)(x33)(st)))(Curry.Module.OracleRedBlackTree.c_singleBlack(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP93'35a(x2)(x34)(st))(x37)(st)))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_72_case__211 x1 x2 x4@Curry.Module.Prelude.C_False st = let {x38 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x38)(Curry.Module.Prelude.List))(Curry.Module.OracleRedBlackTree.c__case_70(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x38)(st))(st)+c__case_72_case__211 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_72_case__211(x1)(x2)(x)(st))(i)(xs)(st)+c__case_72_case__211 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_72_case__211")(x)++++c__case_73_case__212 x1 x2 x4 x23@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x27)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(let {x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))(let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))(let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x31)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP79'35col(x2)(x1)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP83'35y(x2)(x27)(st))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP81'35z(x2)(x25)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP82'35d(x2)(x26)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP84'35c(x2)(x28)(st)))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP80'35x(x2)(x24)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP85'35b(x2)(x29)(st))(Curry.Module.OracleRedBlackTree.c_singleBlack(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP86'35a(x2)(x30)(st))(x31)(st))))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_73_case__212 x1 x2 x4 x23@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_72(x2)(x4)(x1)(st))(st)+c__case_73_case__212 x1 x2 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_73_case__212(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_73_case__212 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_73_case__212")(x)++++c__case_74_case__213 x1 x2 x3 x4 x14@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x22)(Curry.Module.RedBlackTree.C_Tree(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP70'35col(x2)(x1)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP72'35y(x2)(x16)(st))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP73'35z(x2)(x17)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP74'35d(x2)(x18)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP75'35c(x2)(x19)(st)))(Curry.Module.RedBlackTree.C_Tree(Curry.Module.RedBlackTree.C_Black)(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP71'35x(x2)(x15)(st))(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP76'35b(x2)(x20)(st))(Curry.Module.OracleRedBlackTree.c_singleBlack(Curry.Module.OracleRedBlackTree.c_reviseRight'46_'35selFP77'35a(x2)(x21)(st))(x22)(st))))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_74_case__213 x1 x2 x3 x4 x14@Curry.Module.Prelude.C_False st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))))(Curry.Module.OracleRedBlackTree.c__case_73(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_38_38(x4)(Curry.Module.OracleRedBlackTree.c_isRed(Curry.Module.OracleRedBlackTree.c_right(x3)(x1)(st))(x23)(st))(x24)(st))(x25)(st))(st)+c__case_74_case__213 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_74_case__213(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_74_case__213 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_74_case__213")(x)++++c__case_75_case__214 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_75_case__214 x1 x2 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.OracleRedBlackTree.c__case_74(x2)(x3)(x4)(Curry.Module.OraclePrelude.op_38_38(x4)(Curry.Module.OracleRedBlackTree.c_isRed(Curry.Module.OracleRedBlackTree.c_left(x3)(x1)(st))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_75_case__214 x1 x2 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_75_case__214(x1)(x2)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_75_case__214 x1 x2 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_75_case__214")(x)++++c__case_67_case__215 x1 x3 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_67_case__215 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_67_case__215(x1)(x3)(x)(st))(i)(xs)(st)+c__case_67_case__215 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_67_case__215")(x)++++c__case_68_case__216 x1 x3 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_67(x3)(x9)(x1)(st))(st)+c__case_68_case__216 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_68_case__216(x1)(x3)(x)(st))(i)(xs)(st)+c__case_68_case__216 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_68_case__216")(x)++++c__case_69_case__217 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_68(x3)(x5)(x1)(st))(st)+c__case_69_case__217 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_69_case__217(x1)(x)(st))(i)(xs)(st)+c__case_69_case__217 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_69_case__217")(x)++++c__case_64_case__218 x1 x4 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_64_case__218 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_64_case__218(x1)(x4)(x)(st))(i)(xs)(st)+c__case_64_case__218 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_64_case__218")(x)++++c__case_65_case__219 x1 x4 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_64(x4)(x9)(x1)(st))(st)+c__case_65_case__219 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_65_case__219(x1)(x4)(x)(st))(i)(xs)(st)+c__case_65_case__219 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_65_case__219")(x)++++c__case_66_case__220 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_65(x4)(x5)(x1)(st))(st)+c__case_66_case__220 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_66_case__220(x1)(x)(st))(i)(xs)(st)+c__case_66_case__220 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_66_case__220")(x)++++c__case_61_case__221 x1 x8 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_61_case__221 x1 x8 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_61_case__221(x1)(x8)(x)(st))(i)(xs)(st)+c__case_61_case__221 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_61_case__221")(x)++++c__case_62_case__222 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_61(x8)(x9)(x1)(st))(st)+c__case_62_case__222 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_62_case__222(x1)(x)(st))(i)(xs)(st)+c__case_62_case__222 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_62_case__222")(x)++++c__case_63_case__223 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_62(x5)(x1)(st))(st)+c__case_63_case__223 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_63_case__223(x1)(x)(st))(i)(xs)(st)+c__case_63_case__223 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_63_case__223")(x)++++c__case_58_case__224 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x12)(st)+c__case_58_case__224 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_58_case__224(x1)(x)(st))(i)(xs)(st)+c__case_58_case__224 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_58_case__224")(x)++++c__case_59_case__225 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_58(x9)(x1)(st))(st)+c__case_59_case__225 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_59_case__225(x1)(x)(st))(i)(xs)(st)+c__case_59_case__225 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_59_case__225")(x)++++c__case_60_case__226 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_59(x5)(x1)(st))(st)+c__case_60_case__226 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_60_case__226(x1)(x)(st))(i)(xs)(st)+c__case_60_case__226 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_60_case__226")(x)++++c__case_55_case__227 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x13)(st)+c__case_55_case__227 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_55_case__227(x1)(x)(st))(i)(xs)(st)+c__case_55_case__227 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_55_case__227")(x)++++c__case_56_case__228 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_55(x9)(x1)(st))(st)+c__case_56_case__228 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_56_case__228(x1)(x)(st))(i)(xs)(st)+c__case_56_case__228 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_56_case__228")(x)++++c__case_57_case__229 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_56(x5)(x1)(st))(st)+c__case_57_case__229 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_57_case__229(x1)(x)(st))(i)(xs)(st)+c__case_57_case__229 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_57_case__229")(x)++++c__case_52_case__230 x1 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x14)(st)+c__case_52_case__230 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_52_case__230(x1)(x)(st))(i)(xs)(st)+c__case_52_case__230 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_52_case__230")(x)++++c__case_53_case__231 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_52(x9)(x1)(st))(st)+c__case_53_case__231 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_53_case__231(x1)(x)(st))(i)(xs)(st)+c__case_53_case__231 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_53_case__231")(x)++++c__case_54_case__232 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_53(x5)(x1)(st))(st)+c__case_54_case__232 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_54_case__232(x1)(x)(st))(i)(xs)(st)+c__case_54_case__232 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_54_case__232")(x)++++c__case_49_case__233 x1 x10 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x10)(st)+c__case_49_case__233 x1 x10 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_49_case__233(x1)(x10)(x)(st))(i)(xs)(st)+c__case_49_case__233 x1 x10 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_49_case__233")(x)++++c__case_50_case__234 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_49(x10)(x9)(x1)(st))(st)+c__case_50_case__234 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_50_case__234(x1)(x)(st))(i)(xs)(st)+c__case_50_case__234 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_50_case__234")(x)++++c__case_51_case__235 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_50(x5)(x1)(st))(st)+c__case_51_case__235 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_51_case__235(x1)(x)(st))(i)(xs)(st)+c__case_51_case__235 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_51_case__235")(x)++++c__case_46_case__236 x1 x6 x9@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_46_case__236 x1 x6 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_46_case__236(x1)(x6)(x)(st))(i)(xs)(st)+c__case_46_case__236 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_46_case__236")(x)++++c__case_47_case__237 x1 x6 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_46(x6)(x9)(x1)(st))(st)+c__case_47_case__237 x1 x6 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_47_case__237(x1)(x6)(x)(st))(i)(xs)(st)+c__case_47_case__237 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_47_case__237")(x)++++c__case_48_case__238 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_47(x6)(x5)(x1)(st))(st)+c__case_48_case__238 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_48_case__238(x1)(x)(st))(i)(xs)(st)+c__case_48_case__238 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_48_case__238")(x)++++c__case_43_case__239 x1 x3 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_43_case__239 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_43_case__239(x1)(x3)(x)(st))(i)(xs)(st)+c__case_43_case__239 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_43_case__239")(x)++++c__case_44_case__240 x1 x3 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_43(x3)(x10)(x1)(st))(st)+c__case_44_case__240 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_44_case__240(x1)(x3)(x)(st))(i)(xs)(st)+c__case_44_case__240 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_44_case__240")(x)++++c__case_45_case__241 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_44(x3)(x5)(x1)(st))(st)+c__case_45_case__241 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_45_case__241(x1)(x)(st))(i)(xs)(st)+c__case_45_case__241 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_45_case__241")(x)++++c__case_40_case__242 x1 x4 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_40_case__242 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_40_case__242(x1)(x4)(x)(st))(i)(xs)(st)+c__case_40_case__242 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_40_case__242")(x)++++c__case_41_case__243 x1 x4 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_40(x4)(x10)(x1)(st))(st)+c__case_41_case__243 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_41_case__243(x1)(x4)(x)(st))(i)(xs)(st)+c__case_41_case__243 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_41_case__243")(x)++++c__case_42_case__244 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_41(x4)(x5)(x1)(st))(st)+c__case_42_case__244 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_42_case__244(x1)(x)(st))(i)(xs)(st)+c__case_42_case__244 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_42_case__244")(x)++++c__case_37_case__245 x1 x8 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_37_case__245 x1 x8 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_37_case__245(x1)(x8)(x)(st))(i)(xs)(st)+c__case_37_case__245 x1 x8 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_37_case__245")(x)++++c__case_38_case__246 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_37(x8)(x10)(x1)(st))(st)+c__case_38_case__246 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_38_case__246(x1)(x)(st))(i)(xs)(st)+c__case_38_case__246 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_38_case__246")(x)++++c__case_39_case__247 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_38(x5)(x1)(st))(st)+c__case_39_case__247 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_39_case__247(x1)(x)(st))(i)(xs)(st)+c__case_39_case__247 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_39_case__247")(x)++++c__case_34_case__248 x1 x9 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_34_case__248 x1 x9 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_34_case__248(x1)(x9)(x)(st))(i)(xs)(st)+c__case_34_case__248 x1 x9 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_34_case__248")(x)++++c__case_35_case__249 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_34(x9)(x10)(x1)(st))(st)+c__case_35_case__249 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_35_case__249(x1)(x)(st))(i)(xs)(st)+c__case_35_case__249 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_35_case__249")(x)++++c__case_36_case__250 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_35(x5)(x1)(st))(st)+c__case_36_case__250 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_36_case__250(x1)(x)(st))(i)(xs)(st)+c__case_36_case__250 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_36_case__250")(x)++++c__case_31_case__251 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x12)(st)+c__case_31_case__251 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_31_case__251(x1)(x)(st))(i)(xs)(st)+c__case_31_case__251 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_31_case__251")(x)++++c__case_32_case__252 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_31(x10)(x1)(st))(st)+c__case_32_case__252 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_32_case__252(x1)(x)(st))(i)(xs)(st)+c__case_32_case__252 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_32_case__252")(x)++++c__case_33_case__253 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_32(x5)(x1)(st))(st)+c__case_33_case__253 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_33_case__253(x1)(x)(st))(i)(xs)(st)+c__case_33_case__253 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_33_case__253")(x)++++c__case_28_case__254 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x13)(st)+c__case_28_case__254 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_28_case__254(x1)(x)(st))(i)(xs)(st)+c__case_28_case__254 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_28_case__254")(x)++++c__case_29_case__255 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_28(x10)(x1)(st))(st)+c__case_29_case__255 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_29_case__255(x1)(x)(st))(i)(xs)(st)+c__case_29_case__255 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_29_case__255")(x)++++c__case_30_case__256 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_29(x5)(x1)(st))(st)+c__case_30_case__256 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_30_case__256(x1)(x)(st))(i)(xs)(st)+c__case_30_case__256 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_30_case__256")(x)++++c__case_25_case__257 x1 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x14)(st)+c__case_25_case__257 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_25_case__257(x1)(x)(st))(i)(xs)(st)+c__case_25_case__257 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_25_case__257")(x)++++c__case_26_case__258 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_25(x10)(x1)(st))(st)+c__case_26_case__258 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_26_case__258(x1)(x)(st))(i)(xs)(st)+c__case_26_case__258 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_26_case__258")(x)++++c__case_27_case__259 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_26(x5)(x1)(st))(st)+c__case_27_case__259 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_27_case__259(x1)(x)(st))(i)(xs)(st)+c__case_27_case__259 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_27_case__259")(x)++++c__case_22_case__260 x1 x6 x10@(Curry.Module.RedBlackTree.C_Tree x11 x12 x13 x14) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_22_case__260 x1 x6 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_22_case__260(x1)(x6)(x)(st))(i)(xs)(st)+c__case_22_case__260 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_22_case__260")(x)++++c__case_23_case__261 x1 x6 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_22(x6)(x10)(x1)(st))(st)+c__case_23_case__261 x1 x6 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_23_case__261(x1)(x6)(x)(st))(i)(xs)(st)+c__case_23_case__261 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_23_case__261")(x)++++c__case_24_case__262 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_23(x6)(x5)(x1)(st))(st)+c__case_24_case__262 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_24_case__262(x1)(x)(st))(i)(xs)(st)+c__case_24_case__262 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_24_case__262")(x)++++c__case_20_case__263 x1 x3 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_20_case__263 x1 x3 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_20_case__263(x1)(x3)(x)(st))(i)(xs)(st)+c__case_20_case__263 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_20_case__263")(x)++++c__case_21_case__264 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_20(x3)(x5)(x1)(st))(st)+c__case_21_case__264 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_21_case__264(x1)(x)(st))(i)(xs)(st)+c__case_21_case__264 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_21_case__264")(x)++++c__case_18_case__265 x1 x4 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_18_case__265 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_18_case__265(x1)(x4)(x)(st))(i)(xs)(st)+c__case_18_case__265 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_18_case__265")(x)++++c__case_19_case__266 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_18(x4)(x5)(x1)(st))(st)+c__case_19_case__266 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_19_case__266(x1)(x)(st))(i)(xs)(st)+c__case_19_case__266 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_19_case__266")(x)++++c__case_16_case__267 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_16_case__267 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_16_case__267(x1)(x)(st))(i)(xs)(st)+c__case_16_case__267 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_16_case__267")(x)++++c__case_17_case__268 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_16(x5)(x1)(st))(st)+c__case_17_case__268 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_17_case__268(x1)(x)(st))(i)(xs)(st)+c__case_17_case__268 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_17_case__268")(x)++++c__case_14_case__269 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_14_case__269 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_14_case__269(x1)(x)(st))(i)(xs)(st)+c__case_14_case__269 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_14_case__269")(x)++++c__case_15_case__270 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_14(x5)(x1)(st))(st)+c__case_15_case__270 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_15_case__270(x1)(x)(st))(i)(xs)(st)+c__case_15_case__270 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_15_case__270")(x)++++c__case_12_case__271 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x10)(st)+c__case_12_case__271 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_12_case__271(x1)(x)(st))(i)(xs)(st)+c__case_12_case__271 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_12_case__271")(x)++++c__case_13_case__272 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_12(x5)(x1)(st))(st)+c__case_13_case__272 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_13_case__272(x1)(x)(st))(i)(xs)(st)+c__case_13_case__272 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_13_case__272")(x)++++c__case_10_case__273 x1 x6 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_10_case__273 x1 x6 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_10_case__273(x1)(x6)(x)(st))(i)(xs)(st)+c__case_10_case__273 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_10_case__273")(x)++++c__case_11_case__274 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_10(x6)(x5)(x1)(st))(st)+c__case_11_case__274 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_11_case__274(x1)(x)(st))(i)(xs)(st)+c__case_11_case__274 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_11_case__274")(x)++++c__case_8_case__275 x1 x4 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_8_case__275 x1 x4 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_8_case__275(x1)(x4)(x)(st))(i)(xs)(st)+c__case_8_case__275 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_8_case__275")(x)++++c__case_9_case__276 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_8(x4)(x5)(x1)(st))(st)+c__case_9_case__276 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_9_case__276(x1)(x)(st))(i)(xs)(st)+c__case_9_case__276 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_9_case__276")(x)++++c__case_6_case__277 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_6_case__277 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_6_case__277(x1)(x)(st))(i)(xs)(st)+c__case_6_case__277 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_6_case__277")(x)++++c__case_7_case__278 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_6(x5)(x1)(st))(st)+c__case_7_case__278 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_7_case__278(x1)(x)(st))(i)(xs)(st)+c__case_7_case__278 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_7_case__278")(x)++++c__case_4_case__279 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_4_case__279 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_4_case__279(x1)(x)(st))(i)(xs)(st)+c__case_4_case__279 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_4_case__279")(x)++++c__case_5_case__280 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_4(x5)(x1)(st))(st)+c__case_5_case__280 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_5_case__280(x1)(x)(st))(i)(xs)(st)+c__case_5_case__280 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_5_case__280")(x)++++c__case_2_case__281 x1 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x10)(st)+c__case_2_case__281 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_2_case__281(x1)(x)(st))(i)(xs)(st)+c__case_2_case__281 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_2_case__281")(x)++++c__case_3_case__282 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_2(x5)(x1)(st))(st)+c__case_3_case__282 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_3_case__282(x1)(x)(st))(i)(xs)(st)+c__case_3_case__282 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_3_case__282")(x)++++c__case_0_case__283 x1 x6 x5@(Curry.Module.RedBlackTree.C_Tree x7 x8 x9 x10) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_0_case__283 x1 x6 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_0_case__283(x1)(x6)(x)(st))(i)(xs)(st)+c__case_0_case__283 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_0_case__283")(x)++++c__case_1_case__284 x1 x2@(Curry.Module.RedBlackTree.C_Tree x3 x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c__case_0(x6)(x5)(x1)(st))(st)+c__case_1_case__284 x1 (Curry.Module.RedBlackTree.C_TreeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleRedBlackTree.c__case_1_case__284(x1)(x)(st))(i)(xs)(st)+c__case_1_case__284 x1 x st = Curry.RunTimeSystem.patternFail("OracleRedBlackTree._case_1_case__284")(x)++
+ dist/build/Curry/Module/OracleSetRBT.hs view
@@ -0,0 +1,82 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleSetRBT (module Curry.Module.OracleSetRBT) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.SetRBT+import Curry.Module.Maybe+import Curry.Module.Prelude+import Curry.Module.RedBlackTree+import Curry.Module.OracleMaybe+import Curry.Module.OraclePrelude+import Curry.Module.OracleRedBlackTree++++-- begin included++++-- end included++type C_SetRBT t0 = Curry.Module.RedBlackTree.C_RedBlackTree t0++c_emptySetRBT :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0))+c_emptySetRBT x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_empty(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))))))(st)++++c_elemRBT :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_elemRBT x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleMaybe.c_isJust))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_lookup(x2)))))(x1)(st))(st)++++c_insertRBT :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0))))+c_insertRBT x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleRedBlackTree.c_update))(st))(st)++++c_insertMultiRBT :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0))+c_insertMultiRBT x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_setInsertEquivalence(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))))))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_update(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_setInsertEquivalence(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSetRBT.c_insertMultiRBT'46_'35lambda2))(st))))))(x1)(st))(x3)(st))(st)++++c_insertMultiRBT'46_'35lambda2 :: (Curry t27) => t27 -> t27 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_insertMultiRBT'46_'35lambda2 x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)++++c_deleteRBT :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0))))+c_deleteRBT x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleRedBlackTree.c_delete))(st))(st)++++c_setRBT2list :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))+c_setRBT2list x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_tree2list))))(st)++++c_unionRBT :: (Curry t0) => (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0+c_unionRBT x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.OracleSetRBT.c_insertRBT(x1)(st))(x3)(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_setRBT2list(x4)(st))(x2)(x5)(st))(x6)(st))(st)++++c_intersectRBT :: (Curry t0) => (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> (Curry.Module.OracleRedBlackTree.C_RedBlackTree t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree t0+c_intersectRBT x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.c_foldr(Curry.Module.OracleSetRBT.c_insertRBT(x1)(st))(Curry.Module.OracleRedBlackTree.c_newTreeLike(x2)(x4)(st))(Curry.Module.OraclePrelude.c_filter(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSetRBT.c_intersectRBT'46_'35lambda3(x3)))))(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_setRBT2list(x5)(st))(x2)(x6)(st))(x7)(st))(x8)(st))(st)++++c_intersectRBT'46_'35lambda3 :: (Curry t46) => (Curry.Module.OracleRedBlackTree.C_RedBlackTree t46) -> t46 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_intersectRBT'46_'35lambda3 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OracleSetRBT.c_elemRBT(x3)(x1)(st))(x2)(x4)(st))(st)++++c_sortRBT :: (Curry t0) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0))))+c_sortRBT x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleRedBlackTree.c_sort))(st))(st)++
+ dist/build/Curry/Module/OracleSocket.hs view
@@ -0,0 +1,80 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleSocket (module Curry.Module.OracleSocket) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Socket+import Curry.Module.IO+import Curry.Module.Prelude+import Curry.Module.System+import Curry.Module.OracleIO+import Curry.Module.OraclePrelude+import Curry.Module.OracleSystem++++-- begin included++++-- end included++c_listenOn :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Socket.C_Socket))+c_listenOn x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSocket.c_prim_listenOn))))(x2)(x1)(st))(st)++++c_socketListen :: Curry.Module.Socket.C_Socket -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_socketListen x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSocket.c_prim_socketListen))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_socketAccept :: Curry.Module.Socket.C_Socket -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.IO.C_Handle)))+c_socketAccept x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSocket.c_prim_socketAccept))))(x2)(x1)(st))(st)++++c_waitForSocketAccept :: Curry.Module.Socket.C_Socket -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.IO.C_Handle))))+c_waitForSocketAccept x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSocket.c_prim_waitForSocketAccept))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_connectToSocket :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.IO.C_Handle))+c_connectToSocket x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSocket.c_prim_connectToSocket))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_prim_listenOn :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Socket.C_Socket))+c_prim_listenOn x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Socket.c_prim_listenOn(x2)(st))(st))))(st)++++c_listenOnFresh :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 Curry.Module.Prelude.C_Int Curry.Module.Socket.C_Socket)))+c_listenOnFresh x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Socket.c_listenOnFresh(st))(st))))(st)++++c_prim_socketListen :: Curry.Module.Socket.C_Socket -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_socketListen x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Socket.c_prim_socketListen(x3)(x2)(st))))(st)++++c_prim_socketAccept :: Curry.Module.Socket.C_Socket -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.IO.C_Handle)))+c_prim_socketAccept x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Socket.c_prim_socketAccept(x2)(st))(st))))(st)++++c_prim_waitForSocketAccept :: Curry.Module.Socket.C_Socket -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) Curry.Module.IO.C_Handle))))+c_prim_waitForSocketAccept x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Socket.c_prim_waitForSocketAccept(x3)(x2)(st))(st))))(st)++++c_prim_connectToSocket :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.IO.C_Handle))+c_prim_connectToSocket x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Socket.c_prim_connectToSocket(x3)(x2)(st))(st))))(st)++
+ dist/build/Curry/Module/OracleSort.hs view
@@ -0,0 +1,608 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleSort (module Curry.Module.OracleSort) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Sort+import Curry.Module.Char+import Curry.Module.Prelude+import Curry.Module.OracleChar+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_quickSort :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_quickSort x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_43(x2)(x3)(x1)(st))(st)++++c_quickSort'46split'466 :: (Curry t8) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t8 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t8 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> t8 -> (Curry.Module.Prelude.List t8) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t8) (Curry.Module.Prelude.List t8)+c_quickSort'46split'466 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_42(x2)(x3)(x4)(x1)(st))(st)++++c_quickSort'46split'466'46_'35selFP3'35l :: (Curry t8) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t8) (Curry.Module.Prelude.List t8)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t8+c_quickSort'46split'466'46_'35selFP3'35l x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_39(x2)(x1)(st))(st)++++c_quickSort'46split'466'46_'35selFP4'35r :: (Curry t8) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t8) (Curry.Module.Prelude.List t8)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t8+c_quickSort'46split'466'46_'35selFP4'35r x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_38(x2)(x1)(st))(st)++++c_quickSort'46_'35selFP6'35l :: (Curry t8) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t8) (Curry.Module.Prelude.List t8)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t8+c_quickSort'46_'35selFP6'35l x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_37(x2)(x1)(st))(st)++++c_quickSort'46_'35selFP7'35r :: (Curry t8) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t8) (Curry.Module.Prelude.List t8)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t8+c_quickSort'46_'35selFP7'35r x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_36(x2)(x1)(st))(st)++++c_mergeSort :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_mergeSort x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c_mergeSort'46mergeLists'4616(x2)(Curry.Module.OracleSort.c_mergeSort'46genRuns'4616(x2)(x3)(x1)(st))(x4)(st))(st)++++c_mergeSort'46genRuns'4616 :: (Curry t79) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t79 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t79 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t79) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List t79)+c_mergeSort'46genRuns'4616 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_35(x2)(x3)(x1)(st))(st)++++c_mergeSort'46mergePairs'4616 :: (Curry t79) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t79 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t79 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List t79)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.List t79)+c_mergeSort'46mergePairs'4616 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_31(x2)(x3)(x1)(st))(st)++++c_mergeSort'46mergeLists'4616 :: (Curry t79) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t79 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t79 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.List t79)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t79+c_mergeSort'46mergeLists'4616 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_29(x2)(x3)(x1)(st))(st)++++c_merge :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_merge x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_27(x2)(x4)(x3)(x1)(st))(st)++++c_leqList :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_leqList x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_23(x2)(x4)(x3)(x1)(st))(st)++++c_cmpList :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering))))) -> (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering+c_cmpList x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_19(x2)(x4)(x3)(x1)(st))(st)++++c_leqChar :: Curry.Module.Prelude.C_Char -> Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_leqChar x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(x3)(x4)(st))(x5)(st))(st)++++c_cmpChar :: Curry.Module.Prelude.C_Char -> Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering+c_cmpChar x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_14(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)(x3)(x1)(st))(x4)(st))(st)++++c_leqCharIgnoreCase :: Curry.Module.Prelude.C_Char -> Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_leqCharIgnoreCase x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_60_61(Curry.Module.OraclePrelude.c_ord(Curry.Module.OracleChar.c_toUpper(x2)(x1)(st))(x4)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.OracleChar.c_toUpper(x3)(x5)(st))(x6)(st))(x7)(st))(st)++++c_leqString :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> 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_leqString x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSort.c_leqList(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSort.c_leqChar))(st))))(st))(st)++++c_cmpString :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering))))+c_cmpString x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSort.c_cmpList(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSort.c_cmpChar))(st))))(st))(st)++++c_leqStringIgnoreCase :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> 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_leqStringIgnoreCase x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSort.c_leqList(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleSort.c_leqCharIgnoreCase))(st))))(st))(st)++++c_leqLexGerman :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_leqLexGerman x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_12(x3)(x2)(x1)(st))(st)++++c_leqLexGerman'46glex'4689 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_leqLexGerman'46glex'4689 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))))(Curry.Module.OracleSort.c__case_8(x2)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62_61(x2)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x1)(st))(x3)(st))(Curry.Module.OraclePrelude.op_60_61(x2)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('Z'))(x4)(st))(x5)(st))(x6)(st))(x7)(st))(st)++++c__case_8 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_8_case__43(x1)(x2)(x3)(st))(st)++++c__case_7 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_7_case__42(x1)(x2)(x3)(st))(st)++++c__case_6 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_6_case__41(x1)(x2)(x3)(st))(st)++++c__case_5 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_5_case__40(x1)(x2)(x3)(st))(st)++++c__case_4 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_4_case__39(x1)(x2)(x3)(st))(st)++++c__case_3 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_3_case__38(x1)(x2)(x3)(st))(st)++++c__case_2 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_2_case__37(x1)(x2)(x3)(st))(st)++++c__case_1 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_1_case__36(x1)(x2)(x3)(st))(st)++++c__case_0 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_0_case__35(x1)(x2)(x3)(st))(st)++++c__case_12 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_12_case__34(x1)(x3)(x2)(st))(st)++++c__case_11 x4 x5 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_11_case__33(x1)(x4)(x5)(x3)(st))(st)++++c__case_10 x5 x7 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_10_case__32(x1)(x5)(x7)(x8)(x9)(x10)(st))(st)++++c__case_9 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_9_case__31(x1)(x8)(x9)(x10)(st))(st)++++c__case_14 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_14_case__30(x1)(x2)(x3)(x4)(st))(st)++++c__case_13 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_13_case__29(x1)(x4)(st))(st)++++c__case_19 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_19_case__28(x1)(x2)(x4)(x3)(st))(st)++++c__case_17 x2 x7 x8 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_17_case__27(x1)(x2)(x7)(x8)(x4)(st))(st)++++c__case_16 x2 x7 x8 x9 x10 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_16_case__26(x1)(x2)(x7)(x8)(x9)(x10)(x11)(st))(st)++++c__case_15 x2 x7 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_15_case__25(x1)(x2)(x7)(x9)(x10)(st))(st)++++c__case_18 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_18_case__24(x1)(x4)(st))(st)++++c__case_23 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_23_case__23(x1)(x2)(x4)(x3)(st))(st)++++c__case_22 x2 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_22_case__22(x1)(x2)(x5)(x6)(x4)(st))(st)++++c__case_21 x2 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_21_case__21(x1)(x2)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_20 x2 x5 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_20_case__20(x1)(x2)(x5)(x7)(x8)(st))(st)++++c__case_27 x2 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_27_case__19(x1)(x2)(x4)(x3)(st))(st)++++c__case_26 x2 x5 x6 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_26_case__18(x1)(x2)(x5)(x6)(x4)(st))(st)++++c__case_25 x2 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_25_case__17(x1)(x2)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_24 x2 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_24_case__16(x1)(x2)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_29 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_29_case__15(x1)(x2)(x3)(st))(st)++++c__case_28 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_28_case__14(x1)(x2)(x4)(x5)(st))(st)++++c__case_31 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_31_case__13(x1)(x2)(x3)(st))(st)++++c__case_30 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_30_case__12(x1)(x2)(x4)(x5)(st))(st)++++c__case_35 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_35_case__11(x1)(x2)(x3)(st))(st)++++c__case_34 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_34_case__10(x1)(x2)(x4)(x5)(st))(st)++++c__case_33 x2 x4 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_33_case__9(x1)(x2)(x4)(x6)(x7)(x8)(st))(st)++++c__case_32 x2 x4 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_32_case__8(x1)(x2)(x4)(x6)(x7)(x8)(st))(st)++++c__case_36 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_36_case__7(x1)(x2)(st))(st)++++c__case_37 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_37_case__6(x1)(x2)(st))(st)++++c__case_38 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_38_case__5(x1)(x2)(st))(st)++++c__case_39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_39_case__4(x1)(x2)(st))(st)++++c__case_42 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_42_case__3(x1)(x2)(x3)(x4)(st))(st)++++c__case_41 x2 x3 x5 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_41_case__2(x1)(x5)(x8)(x9)(x10)(st))(st)++++c__case_40 x5 x8 x9 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_40_case__1(x1)(x5)(x8)(x9)(x10)(st))(st)++++c__case_43 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_43_case__0(x1)(x2)(x3)(st))(st)++++c__case_43_case__0 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_43_case__0 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OracleSort.c_quickSort'46split'466(x2)(x4)(x5)(x1)(st)} in let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleSort.c_quickSort(x2)(Curry.Module.OracleSort.c_quickSort'46_'35selFP6'35l(x6)(x9)(st))(x11)(st))((Curry.Module.Prelude.:<)(x4)(Curry.Module.OracleSort.c_quickSort(x2)(Curry.Module.OracleSort.c_quickSort'46_'35selFP7'35r(x6)(x10)(st))(x12)(st)))(x13)(st))(st))(st))(st))(st)+c__case_43_case__0 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_43_case__0(x1)(x2)(x)(st))(i)(xs)(st)+c__case_43_case__0 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_43_case__0")(x)++++c__case_40_case__1 x1 x5 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(x8)((Curry.Module.Prelude.:<)(x5)(x9)))(st)+c__case_40_case__1 x1 x5 x8 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_40_case__1 x1 x5 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_40_case__1(x1)(x5)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_40_case__1 x1 x5 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_40_case__1")(x)++++c__case_41_case__2 x1 x5 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x5)(x8))(x9))(st)+c__case_41_case__2 x1 x5 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_40(x5)(x8)(x9)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x11)(st))(st)+c__case_41_case__2 x1 x5 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_41_case__2(x1)(x5)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_41_case__2 x1 x5 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_41_case__2")(x)++++c__case_42_case__3 x1 x2 x3 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_42_case__3 x1 x2 x3 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OracleSort.c_quickSort'46split'466(x2)(x3)(x6)(x1)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List)))(Curry.Module.OracleSort.c__case_41(x2)(x3)(x5)(Curry.Module.OracleSort.c_quickSort'46split'466'46_'35selFP3'35l(x7)(x10)(st))(Curry.Module.OracleSort.c_quickSort'46split'466'46_'35selFP4'35r(x7)(x11)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x12)(st))(x3)(x13)(st))(x14)(st))(st))(st))(st))(st)+c__case_42_case__3 x1 x2 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_42_case__3(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_42_case__3 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_42_case__3")(x)++++c__case_39_case__4 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_39_case__4 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_39_case__4(x1)(x)(st))(i)(xs)(st)+c__case_39_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_39_case__4")(x)++++c__case_38_case__5 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_38_case__5 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_38_case__5(x1)(x)(st))(i)(xs)(st)+c__case_38_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_38_case__5")(x)++++c__case_37_case__6 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_37_case__6 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_37_case__6(x1)(x)(st))(i)(xs)(st)+c__case_37_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_37_case__6")(x)++++c__case_36_case__7 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_36_case__7 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_36_case__7(x1)(x)(st))(i)(xs)(st)+c__case_36_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_36_case__7")(x)++++c__case_32_case__8 x1 x2 x4 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleSort.c_mergeSort'46genRuns'4616(x2)(x7)(x1)(st)))(st)+c__case_32_case__8 x1 x2 x4 x6 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_32_case__8 x1 x2 x4 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_32_case__8(x1)(x2)(x4)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_32_case__8 x1 x2 x4 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_32_case__8")(x)++++c__case_33_case__9 x1 x2 x4 x6 x7 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OracleSort.c_mergeSort'46genRuns'4616(x2)(x7)(x1)(st)))(st)+c__case_33_case__9 x1 x2 x4 x6 x7 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_32(x2)(x4)(x6)(x7)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x9)(st))(st)+c__case_33_case__9 x1 x2 x4 x6 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_33_case__9(x1)(x2)(x4)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_33_case__9 x1 x2 x4 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_33_case__9")(x)++++c__case_34_case__10 x1 x2 x4 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(st)+c__case_34_case__10 x1 x2 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OracleSort.c__case_33(x2)(x4)(x6)(x7)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(x6)(x8)(st))(x9)(st))(st)+c__case_34_case__10 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_34_case__10(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_34_case__10 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_34_case__10")(x)++++c__case_35_case__11 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_35_case__11 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_34(x2)(x4)(x5)(x1)(st))(st)+c__case_35_case__11 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_35_case__11(x1)(x2)(x)(st))(i)(xs)(st)+c__case_35_case__11 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_35_case__11")(x)++++c__case_30_case__12 x1 x2 x4 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(st)+c__case_30_case__12 x1 x2 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OracleSort.c_merge(x2)(x4)(x6)(x1)(st))(Curry.Module.OracleSort.c_mergeSort'46mergePairs'4616(x2)(x7)(x8)(st)))(st)+c__case_30_case__12 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_30_case__12(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_30_case__12 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_30_case__12")(x)++++c__case_31_case__13 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_31_case__13 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_30(x2)(x4)(x5)(x1)(st))(st)+c__case_31_case__13 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_31_case__13(x1)(x2)(x)(st))(i)(xs)(st)+c__case_31_case__13 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_31_case__13")(x)++++c__case_28_case__14 x1 x2 x4 x5@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_28_case__14 x1 x2 x4 x5@((Curry.Module.Prelude.:<) x6 x7) st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OracleSort.c_mergeSort'46mergeLists'4616(x2)((Curry.Module.Prelude.:<)(Curry.Module.OracleSort.c_merge(x2)(x4)(x6)(x1)(st))(Curry.Module.OracleSort.c_mergeSort'46mergePairs'4616(x2)(x7)(x8)(st)))(x9)(st))(st)+c__case_28_case__14 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_28_case__14(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_28_case__14 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_28_case__14")(x)++++c__case_29_case__15 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_29_case__15 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_28(x2)(x4)(x5)(x1)(st))(st)+c__case_29_case__15 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_29_case__15(x1)(x2)(x)(st))(i)(xs)(st)+c__case_29_case__15 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_29_case__15")(x)++++c__case_24_case__16 x1 x2 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.OracleSort.c_merge(x2)((Curry.Module.Prelude.:<)(x5)(x6))(x8)(x1)(st)))(st)+c__case_24_case__16 x1 x2 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_24_case__16 x1 x2 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_24_case__16(x1)(x2)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_24_case__16 x1 x2 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_24_case__16")(x)++++c__case_25_case__17 x1 x2 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.OracleSort.c_merge(x2)(x6)((Curry.Module.Prelude.:<)(x7)(x8))(x1)(st)))(st)+c__case_25_case__17 x1 x2 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_24(x2)(x5)(x6)(x7)(x8)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x10)(st))(st)+c__case_25_case__17 x1 x2 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_25_case__17(x1)(x2)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_25_case__17 x1 x2 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_25_case__17")(x)++++c__case_26_case__18 x1 x2 x5 x6 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x5)(x6))(st)+c__case_26_case__18 x1 x2 x5 x6 x4@((Curry.Module.Prelude.:<) x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))(Curry.Module.OracleSort.c__case_25(x2)(x5)(x6)(x7)(x8)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x7)(x9)(st))(x10)(st))(st)+c__case_26_case__18 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_26_case__18(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_26_case__18 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_26_case__18")(x)++++c__case_27_case__19 x1 x2 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_27_case__19 x1 x2 x4 x3@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_26(x2)(x5)(x6)(x4)(x1)(st))(st)+c__case_27_case__19 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_27_case__19(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_27_case__19 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_27_case__19")(x)++++c__case_20_case__20 x1 x2 x5 x7 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))(x7)(x9)(st))(st)+c__case_20_case__20 x1 x2 x5 x7 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_20_case__20 x1 x2 x5 x7 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_20_case__20(x1)(x2)(x5)(x7)(x)(st))(i)(xs)(st)+c__case_20_case__20 x1 x2 x5 x7 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_20_case__20")(x)++++c__case_21_case__21 x1 x2 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c_leqList(x2)(x6)(x8)(x1)(st))(st)+c__case_21_case__21 x1 x2 x5 x6 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_20(x2)(x5)(x7)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x10)(st))(st)+c__case_21_case__21 x1 x2 x5 x6 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_21_case__21(x1)(x2)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_21_case__21 x1 x2 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_21_case__21")(x)++++c__case_22_case__22 x1 x2 x5 x6 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_22_case__22 x1 x2 x5 x6 x4@((Curry.Module.Prelude.:<) x7 x8) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_21(x2)(x5)(x6)(x7)(x8)(Curry.Module.OraclePrelude.op_61_61(x5)(x7)(x1)(st))(x9)(st))(st)+c__case_22_case__22 x1 x2 x5 x6 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_22_case__22(x1)(x2)(x5)(x6)(x)(st))(i)(xs)(st)+c__case_22_case__22 x1 x2 x5 x6 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_22_case__22")(x)++++c__case_23_case__23 x1 x2 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_23_case__23 x1 x2 x4 x3@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_22(x2)(x5)(x6)(x4)(x1)(st))(st)+c__case_23_case__23 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_23_case__23(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_23_case__23 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_23_case__23")(x)++++c__case_18_case__24 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_EQ)(st)+c__case_18_case__24 x1 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_18_case__24 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_18_case__24(x1)(x)(st))(i)(xs)(st)+c__case_18_case__24 x1 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_18_case__24")(x)++++c__case_15_case__25 x1 x2 x7 x9 x10@Curry.Module.Prelude.C_True st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x7)(x1)(st))(x9)(x11)(st))(st)+c__case_15_case__25 x1 x2 x7 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_15_case__25 x1 x2 x7 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_15_case__25(x1)(x2)(x7)(x9)(x)(st))(i)(xs)(st)+c__case_15_case__25 x1 x2 x7 x9 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_15_case__25")(x)++++c__case_16_case__26 x1 x2 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c_cmpList(x2)(x8)(x10)(x1)(st))(st)+c__case_16_case__26 x1 x2 x7 x8 x9 x10 x11@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_15(x2)(x7)(x9)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x12)(st))(st)+c__case_16_case__26 x1 x2 x7 x8 x9 x10 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_16_case__26(x1)(x2)(x7)(x8)(x9)(x10)(x)(st))(i)(xs)(st)+c__case_16_case__26 x1 x2 x7 x8 x9 x10 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_16_case__26")(x)++++c__case_17_case__27 x1 x2 x7 x8 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_17_case__27 x1 x2 x7 x8 x4@((Curry.Module.Prelude.:<) x9 x10) st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))))(Curry.Module.OracleSort.c__case_16(x2)(x7)(x8)(x9)(x10)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(x7)(x1)(st))(x9)(x11)(st))(Curry.Module.Prelude.C_EQ)(x12)(st))(x13)(st))(st)+c__case_17_case__27 x1 x2 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_17_case__27(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_17_case__27 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_17_case__27")(x)++++c__case_19_case__28 x1 x2 x4 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_18(x4)(x1)(st))(st)+c__case_19_case__28 x1 x2 x4 x3@((Curry.Module.Prelude.:<) x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_17(x2)(x7)(x8)(x4)(x1)(st))(st)+c__case_19_case__28 x1 x2 x4 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_19_case__28(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_19_case__28 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_19_case__28")(x)++++c__case_13_case__29 x1 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_13_case__29 x1 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_13_case__29 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_13_case__29(x1)(x)(st))(i)(xs)(st)+c__case_13_case__29 x1 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_13_case__29")(x)++++c__case_14_case__30 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_EQ)(st)+c__case_14_case__30 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.OracleSort.c__case_13(x2)(x3)(Curry.Module.OraclePrelude.op_60(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(Curry.Module.OraclePrelude.c_ord(x3)(x5)(st))(x6)(st))(x7)(st))(st)+c__case_14_case__30 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_14_case__30(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_14_case__30 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_14_case__30")(x)++++c__case_9_case__31 x1 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_60(x8)(x9)(x1)(st))(st)+c__case_9_case__31 x1 x8 x9 x10@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_9_case__31 x1 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_9_case__31(x1)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_9_case__31 x1 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_9_case__31")(x)++++c__case_10_case__32 x1 x5 x7 x8 x9 x10@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c_leqLexGerman(x5)(x7)(x1)(st))(st)+c__case_10_case__32 x1 x5 x7 x8 x9 x10@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_9(x8)(x9)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x11)(st))(st)+c__case_10_case__32 x1 x5 x7 x8 x9 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_10_case__32(x1)(x5)(x7)(x8)(x9)(x)(st))(i)(xs)(st)+c__case_10_case__32 x1 x5 x7 x8 x9 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_10_case__32")(x)++++c__case_11_case__33 x1 x4 x5 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_11_case__33 x1 x4 x5 x3@((Curry.Module.Prelude.:<) x6 x7) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(let {x8 = Curry.Module.OracleSort.c_leqLexGerman'46glex'4689(Curry.Module.OraclePrelude.c_ord(x4)(x1)(st))(x10)(st)} in let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))(let {x9 = Curry.Module.OracleSort.c_leqLexGerman'46glex'4689(Curry.Module.OraclePrelude.c_ord(x6)(x11)(st))(x12)(st)} in let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_10(x5)(x7)(x8)(x9)(Curry.Module.OraclePrelude.op_61_61(x8)(x9)(x13)(st))(x14)(st))(st))(st))(st)+c__case_11_case__33 x1 x4 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_11_case__33(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_11_case__33 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_11_case__33")(x)++++c__case_12_case__34 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_12_case__34 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSort.c__case_11(x4)(x5)(x3)(x1)(st))(st)+c__case_12_case__34 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_12_case__34(x1)(x3)(x)(st))(i)(xs)(st)+c__case_12_case__34 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_12_case__34")(x)++++c__case_0_case__35 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)+c__case_0_case__35 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_0_case__35 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_0_case__35(x1)(x2)(x)(st))(i)(xs)(st)+c__case_0_case__35 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_0_case__35")(x)++++c__case_1_case__36 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('s'))(x1)(st))(st)+c__case_1_case__36 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_0(x2)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x4)(st))(st)+c__case_1_case__36 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_1_case__36(x1)(x2)(x)(st))(i)(xs)(st)+c__case_1_case__36 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_1_case__36")(x)++++c__case_2_case__37 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('u'))(x1)(st))(st)+c__case_2_case__37 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_1(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(x4)(st))(st)+c__case_2_case__37 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_2_case__37(x1)(x2)(x)(st))(i)(xs)(st)+c__case_2_case__37 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_2_case__37")(x)++++c__case_3_case__38 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('o'))(x1)(st))(st)+c__case_3_case__38 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_2(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(x4)(st))(st)+c__case_3_case__38 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_3_case__38(x1)(x2)(x)(st))(i)(xs)(st)+c__case_3_case__38 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_3_case__38")(x)++++c__case_4_case__39 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('a'))(x1)(st))(st)+c__case_4_case__39 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_3(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(x4)(st))(st)+c__case_4_case__39 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_4_case__39(x1)(x2)(x)(st))(i)(xs)(st)+c__case_4_case__39 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_4_case__39")(x)++++c__case_5_case__40 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('u'))(x1)(st))(st)+c__case_5_case__40 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_4(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(x4)(st))(st)+c__case_5_case__40 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_5_case__40(x1)(x2)(x)(st))(i)(xs)(st)+c__case_5_case__40 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_5_case__40")(x)++++c__case_6_case__41 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('o'))(x1)(st))(st)+c__case_6_case__41 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_5(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(x4)(st))(st)+c__case_6_case__41 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_6_case__41(x1)(x2)(x)(st))(i)(xs)(st)+c__case_6_case__41 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_6_case__41")(x)++++c__case_7_case__42 x1 x2 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('a'))(x1)(st))(st)+c__case_7_case__42 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_6(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(x4)(st))(st)+c__case_7_case__42 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_7_case__42(x1)(x2)(x)(st))(i)(xs)(st)+c__case_7_case__42 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_7_case__42")(x)++++c__case_8_case__43 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('a'))(x1)(st))(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('A'))(x4)(st))(x5)(st))(x6)(st))(st)+c__case_8_case__43 x1 x2 x3@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleSort.c__case_7(x2)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(x7)(st))(st)+c__case_8_case__43 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSort.c__case_8_case__43(x1)(x2)(x)(st))(i)(xs)(st)+c__case_8_case__43 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleSort._case_8_case__43")(x)++
+ dist/build/Curry/Module/OracleStyledText.hs view
@@ -0,0 +1,568 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleStyledText (module Curry.Module.OracleStyledText) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.StyledText+import Curry.Module.AnsiCodes+import Curry.Module.Prelude+import Curry.Module.Pretty+import Curry.Module.Char+import Curry.Module.OracleAnsiCodes+import Curry.Module.OraclePrelude+import Curry.Module.OraclePretty+import Curry.Module.OracleChar++++-- begin included++++-- end included++c_boldChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_boldChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x1)(st))(st)++++c_underlineChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_underlineChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))(x1)(st))(st)++++c_endChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_endChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))(x1)(st))(st)++++c_blackChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_blackChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_blueChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_blueChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_cyanChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_cyanChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_greenChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_greenChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_magentaChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_magentaChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_redChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_redChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_whiteChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_whiteChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_yellowChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_yellowChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_bgBlackChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_bgBlackChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_bgBlueChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_bgBlueChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_bgCyanChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_bgCyanChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(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_IHi))))))(x1)(st))(st)++++c_bgGreenChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_bgGreenChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_bgMagentaChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_bgMagentaChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_bgRedChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_bgRedChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_bgWhiteChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_bgWhiteChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_bgYellowChar :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Char+c_bgYellowChar x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(st)++++c_bold :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bold x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_boldChar(x1)(st))))))(st)++++c_underline :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_underline x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_underlineChar(x1)(st))))))(st)++++c_black :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_black x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_blackChar(x1)(st))))))(st)++++c_blue :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_blue x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_blueChar(x1)(st))))))(st)++++c_cyan :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_cyan x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_cyanChar(x1)(st))))))(st)++++c_green :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_green x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_greenChar(x1)(st))))))(st)++++c_magenta :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_magenta x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_magentaChar(x1)(st))))))(st)++++c_red :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_red x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_redChar(x1)(st))))))(st)++++c_white :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_white x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_whiteChar(x1)(st))))))(st)++++c_yellow :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_yellow x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_yellowChar(x1)(st))))))(st)++++c_bgBlack :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgBlack x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_bgBlackChar(x1)(st))))))(st)++++c_bgBlue :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgBlue x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_bgBlueChar(x1)(st))))))(st)++++c_bgCyan :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgCyan x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_bgCyanChar(x1)(st))))))(st)++++c_bgGreen :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgGreen x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_bgGreenChar(x1)(st))))))(st)++++c_bgMagenta :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgMagenta x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_bgMagentaChar(x1)(st))))))(st)++++c_bgRed :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgRed x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_bgRedChar(x1)(st))))))(st)++++c_bgWhite :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgWhite x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_bgWhiteChar(x1)(st))))))(st)++++c_bgYellow :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgYellow x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_encl(Curry.Module.OracleStyledText.c_bgYellowChar(x1)(st))))))(st)++++c_encl :: Curry.Module.Prelude.C_Char -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_encl x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(x2)(Curry.Module.OraclePrelude.op_43_43(x3)((Curry.Module.Prelude.:<)(Curry.Module.OracleStyledText.c_endChar(x1)(st))(Curry.Module.Prelude.List))(x4)(st)))(st)++++c_boldS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_boldS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_boldChar(x1)(st))))))(st)++++c_underlineS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_underlineS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_underlineChar(x1)(st))))))(st)++++c_blackS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_blackS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_blackChar(x1)(st))))))(st)++++c_blueS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_blueS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_blueChar(x1)(st))))))(st)++++c_cyanS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_cyanS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_cyanChar(x1)(st))))))(st)++++c_greenS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_greenS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_greenChar(x1)(st))))))(st)++++c_magentaS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_magentaS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_magentaChar(x1)(st))))))(st)++++c_redS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_redS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_redChar(x1)(st))))))(st)++++c_whiteS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_whiteS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_whiteChar(x1)(st))))))(st)++++c_yellowS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_yellowS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_yellowChar(x1)(st))))))(st)++++c_bgBlackS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgBlackS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_bgBlackChar(x1)(st))))))(st)++++c_bgBlueS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgBlueS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_bgBlueChar(x1)(st))))))(st)++++c_bgCyanS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgCyanS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_bgCyanChar(x1)(st))))))(st)++++c_bgGreenS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgGreenS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_bgGreenChar(x1)(st))))))(st)++++c_bgMagentaS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgMagentaS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_bgMagentaChar(x1)(st))))))(st)++++c_bgRedS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgRedS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_bgRedChar(x1)(st))))))(st)++++c_bgWhiteS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgWhiteS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_bgWhiteChar(x1)(st))))))(st)++++c_bgYellowS :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_bgYellowS x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_enclS(Curry.Module.OracleStyledText.c_bgYellowChar(x1)(st))))))(st)++++c_enclS :: Curry.Module.Prelude.C_Char -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_enclS x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(x2)))))(Curry.Module.OraclePrelude.op_46(x3)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc((Curry.Module.Prelude.:<)(Curry.Module.OracleStyledText.c_endChar(x1)(st))))))(x4)(st))(x5)(st))(st)++++c_boldDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_boldDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_boldChar(x1)(st))(x2)(st))(st)++++c_underlineDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_underlineDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_underlineChar(x1)(st))(x2)(st))(st)++++c_blackDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_blackDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_blackChar(x1)(st))(x2)(st))(st)++++c_blueDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_blueDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_blueChar(x1)(st))(x2)(st))(st)++++c_cyanDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_cyanDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_cyanChar(x1)(st))(x2)(st))(st)++++c_greenDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_greenDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_greenChar(x1)(st))(x2)(st))(st)++++c_magentaDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_magentaDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_magentaChar(x1)(st))(x2)(st))(st)++++c_redDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_redDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_redChar(x1)(st))(x2)(st))(st)++++c_whiteDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_whiteDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_whiteChar(x1)(st))(x2)(st))(st)++++c_yellowDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_yellowDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_yellowChar(x1)(st))(x2)(st))(st)++++c_bgBlackDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_bgBlackDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_bgBlackChar(x1)(st))(x2)(st))(st)++++c_bgBlueDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_bgBlueDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_bgBlueChar(x1)(st))(x2)(st))(st)++++c_bgCyanDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_bgCyanDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_bgCyanChar(x1)(st))(x2)(st))(st)++++c_bgGreenDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_bgGreenDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_bgGreenChar(x1)(st))(x2)(st))(st)++++c_bgMagentaDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_bgMagentaDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_bgMagentaChar(x1)(st))(x2)(st))(st)++++c_bgRedDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_bgRedDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_bgRedChar(x1)(st))(x2)(st))(st)++++c_bgWhiteDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_bgWhiteDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_bgWhiteChar(x1)(st))(x2)(st))(st)++++c_bgYellowDoc :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_bgYellowDoc x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c_enclDoc(Curry.Module.OracleStyledText.c_bgYellowChar(x1)(st))(x2)(st))(st)++++c_enclDoc :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.OraclePretty.C_Doc -> Curry.RunTimeSystem.State -> Curry.Module.OraclePretty.C_Doc))+c_enclDoc x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePretty.c_enclose(Curry.Module.OraclePretty.c_char(x2)(x1)(st))(Curry.Module.OraclePretty.c_char(Curry.Module.OracleStyledText.c_endChar(x3)(st))(x4)(st))))))(st)++++c_plainText :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_plainText x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_not))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_special))))(x1)(st))))))(st)++++c_special :: Curry.Module.Prelude.C_Char -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_special x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(Curry.Module.OraclePrelude.c_ord(x2)(x1)(st))(x3)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.c_enumFromTo(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x4)(st))(x5)(st))(x6)(st))(st)++++c_interpret :: (Curry t0,Curry t1) => (Curry.Module.Prelude.List t0) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> t1))))) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T3 t0 t0 t0)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t1+c_interpret x2 x3 x4 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_11(x3)(x4)(x5)(x6)(x7)(x2)(x1)(st))(st)++++c_interpret'46_'35selFP3'35xs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_interpret'46_'35selFP3'35xs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_1(x2)(x1)(st))(st)++++c_interpret'46_'35selFP4'35ys :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_interpret'46_'35selFP4'35ys x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_0(x2)(x1)(st))(st)++++c_printStyledText :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))))+c_printStyledText x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_putStrLn))))(Curry.Module.OracleStyledText.c_toAnsiString(x1)(st))(x2)(st))(st)++++c_toAnsiString :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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_toAnsiString x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))))))))))))))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_interpret((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_bold(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_underline(x2)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_black(x3)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_blue(x4)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_cyan(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_green(x6)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_magenta(x7)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_red(x8)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_white(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_yellow(x10)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_bgBlack(x11)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_bgBlue(x12)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_bgCyan(x13)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_bgGreen(x14)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_bgMagenta(x15)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_bgRed(x16)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_bgWhite(x17)(st))((Curry.Module.Prelude.:<)(Curry.Module.OracleAnsiCodes.c_bgYellow(x18)(st))(Curry.Module.Prelude.List)))))))))))))))))))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_43_43))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_46))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T3(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_id)))))(Curry.Module.Prelude.List))))))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_0_case__11(x1)(x2)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_1_case__10(x1)(x2)(st))(st)++++c__case_11 x3 x4 x5 x6 x7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_11_case__9(x1)(x3)(x4)(x5)(x6)(x7)(x2)(st))(st)++++c__case_10 x2 x3 x4 x5 x6 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_10_case__8(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(st))(st)++++c__case_9 x2 x3 x4 x5 x7 x8 x10 x11 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_9_case__7(x1)(x2)(x3)(x4)(x5)(x7)(x8)(x10)(x11)(x6)(st))(st)++++c__case_8 x2 x3 x4 x5 x7 x8 x10 x11 x13 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_8_case__6(x1)(x2)(x3)(x4)(x5)(x7)(x8)(x10)(x11)(x13)(x12)(st))(st)++++c__case_7 x2 x3 x4 x5 x8 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_7_case__5(x1)(x2)(x3)(x4)(x5)(x8)(x10)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(x23)(st))(st)++++c__case_6 x2 x3 x4 x5 x8 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_6_case__4(x1)(x2)(x3)(x4)(x5)(x8)(x10)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(x23)(st))(st)++++c__case_5 x2 x3 x4 x5 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_5_case__3(x1)(x2)(x3)(x4)(x5)(x10)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(x23)(st))(st)++++c__case_4 x2 x3 x4 x5 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_4_case__2(x1)(x2)(x3)(x4)(x5)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(x23)(st))(st)++++c__case_3 x2 x3 x4 x5 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_3_case__1(x1)(x2)(x3)(x4)(x5)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x22)(x23)(st))(st)++++c__case_2 x2 x3 x4 x5 x12 x13 x14 x15 x17 x19 x20 x22 x23 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_2_case__0(x1)(x2)(x3)(x4)(x5)(x12)(x13)(x14)(x15)(x17)(x19)(x20)(x22)(x23)(st))(st)++++c__case_2_case__0 x1 x2 x3 x4 x5 x12 x13 x14 x15 x17 x19 x20 x22 x23@Curry.Module.Prelude.C_True st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Oracle.c_apply(x3)(Curry.Module.Oracle.c_apply(x17)(x19)(x1)(st))(x24)(st))(Curry.Module.OracleStyledText.c_interpret(x2)(x3)(x4)(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T3(x14)(x15)(x22))((Curry.Module.Prelude.:<)(x12)(x13)))(Curry.Module.OraclePrelude.c_tail(x20)(x25)(st))(x26)(st))(x27)(st))(st)+c__case_2_case__0 x1 x2 x3 x4 x5 x12 x13 x14 x15 x17 x19 x20 x22 x23@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_2_case__0 x1 x2 x3 x4 x5 x12 x13 x14 x15 x17 x19 x20 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_2_case__0(x1)(x2)(x3)(x4)(x5)(x12)(x13)(x14)(x15)(x17)(x19)(x20)(x22)(x)(st))(i)(xs)(st)+c__case_2_case__0 x1 x2 x3 x4 x5 x12 x13 x14 x15 x17 x19 x20 x22 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_2_case__0")(x)++++c__case_3_case__1 x1 x2 x3 x4 x5 x12 x13 x14 x15 x16 x17 x19 x20 x22 x23@Curry.Module.Prelude.C_True st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Oracle.c_apply(x3)(Curry.Module.Oracle.c_apply(x17)(x19)(x1)(st))(x24)(st))(Curry.Module.OracleStyledText.c_interpret(x2)(x3)(x4)(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T3(x14)(x22)(x16))((Curry.Module.Prelude.:<)(x12)(x13)))(Curry.Module.OraclePrelude.c_tail(x20)(x25)(st))(x26)(st))(x27)(st))(st)+c__case_3_case__1 x1 x2 x3 x4 x5 x12 x13 x14 x15 x16 x17 x19 x20 x22 x23@Curry.Module.Prelude.C_False st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c__case_2(x2)(x3)(x4)(x5)(x12)(x13)(x14)(x15)(x17)(x19)(x20)(x22)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x28)(st))(st)+c__case_3_case__1 x1 x2 x3 x4 x5 x12 x13 x14 x15 x16 x17 x19 x20 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_3_case__1(x1)(x2)(x3)(x4)(x5)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x22)(x)(st))(i)(xs)(st)+c__case_3_case__1 x1 x2 x3 x4 x5 x12 x13 x14 x15 x16 x17 x19 x20 x22 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_3_case__1")(x)++++c__case_4_case__2 x1 x2 x3 x4 x5 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23@Curry.Module.Prelude.C_True st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Oracle.c_apply(x3)(Curry.Module.Oracle.c_apply(x17)(x19)(x1)(st))(x24)(st))(Curry.Module.OracleStyledText.c_interpret(x2)(x3)(x4)(x5)(x13)(Curry.Module.OraclePrelude.c_tail(x20)(x25)(st))(x26)(st))(x27)(st))(st)+c__case_4_case__2 x1 x2 x3 x4 x5 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23@Curry.Module.Prelude.C_False st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c__case_3(x2)(x3)(x4)(x5)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(Curry.Module.OraclePrelude.op_60(x21)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(x1)(st))(x28)(st))(st)+c__case_4_case__2 x1 x2 x3 x4 x5 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_4_case__2(x1)(x2)(x3)(x4)(x5)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_4_case__2 x1 x2 x3 x4 x5 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_4_case__2")(x)++++c__case_5_case__3 x1 x2 x3 x4 x5 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23@Curry.Module.Prelude.C_True st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Oracle.c_apply(x3)(Curry.Module.Oracle.c_apply(x17)(x19)(x1)(st))(x24)(st))(Curry.Module.OracleStyledText.c_interpret(x2)(x3)(x4)(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T3(x10)(x15)(x16))((Curry.Module.Prelude.:<)(x12)(x13)))(Curry.Module.OraclePrelude.c_tail(x20)(x25)(st))(x26)(st))(x27)(st))(st)+c__case_5_case__3 x1 x2 x3 x4 x5 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23@Curry.Module.Prelude.C_False st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c__case_4(x2)(x3)(x4)(x5)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(Curry.Module.OraclePrelude.op_61_61(x21)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))(x1)(st))(x28)(st))(st)+c__case_5_case__3 x1 x2 x3 x4 x5 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_5_case__3(x1)(x2)(x3)(x4)(x5)(x10)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_5_case__3 x1 x2 x3 x4 x5 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_5_case__3")(x)++++c__case_6_case__4 x1 x2 x3 x4 x5 x8 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23@Curry.Module.Prelude.C_True st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_36(Curry.Module.Oracle.c_apply(x3)(Curry.Module.Oracle.c_apply(x17)(x19)(x1)(st))(x24)(st))(Curry.Module.OracleStyledText.c_interpret(x2)(x3)(x4)(x5)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T3(x8)(x15)(x16))((Curry.Module.Prelude.:<)(x12)(x13)))(Curry.Module.OraclePrelude.c_tail(x20)(x25)(st))(x26)(st))(x27)(st))(st)+c__case_6_case__4 x1 x2 x3 x4 x5 x8 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23@Curry.Module.Prelude.C_False st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c__case_5(x2)(x3)(x4)(x5)(x10)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(Curry.Module.OraclePrelude.op_61_61(x21)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))(x1)(st))(x28)(st))(st)+c__case_6_case__4 x1 x2 x3 x4 x5 x8 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_6_case__4(x1)(x2)(x3)(x4)(x5)(x8)(x10)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_6_case__4 x1 x2 x3 x4 x5 x8 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_6_case__4")(x)++++c__case_7_case__5 x1 x2 x3 x4 x5 x8 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.c_apply(x17)(x19)(x1)(st))(st)+c__case_7_case__5 x1 x2 x3 x4 x5 x8 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x23@Curry.Module.Prelude.C_False st = let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c__case_6(x2)(x3)(x4)(x5)(x8)(x10)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(Curry.Module.OraclePrelude.op_61_61(x21)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x1)(st))(x24)(st))(st)+c__case_7_case__5 x1 x2 x3 x4 x5 x8 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_7_case__5(x1)(x2)(x3)(x4)(x5)(x8)(x10)(x12)(x13)(x14)(x15)(x16)(x17)(x19)(x20)(x21)(x22)(x)(st))(i)(xs)(st)+c__case_7_case__5 x1 x2 x3 x4 x5 x8 x10 x12 x13 x14 x15 x16 x17 x19 x20 x21 x22 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_7_case__5")(x)++++c__case_8_case__6 x1 x2 x3 x4 x5 x7 x8 x10 x11 x13 x12@(Curry.Module.Prelude.T3 x14 x15 x16) st = let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)((Curry.Module.Prelude.:<)(x25)((Curry.Module.Prelude.:<)(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))))))(let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x27)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List)))(let {x18 = Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_break(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleStyledText.c_special))))(x27)(st))(x7)(x28)(st)} in let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))(let {x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.OracleStyledText.c_interpret'46_'35selFP4'35ys(x18)(x30)(st)} in let {x32 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x33 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x31)((Curry.Module.Prelude.:<)(x32)((Curry.Module.Prelude.:<)(x33)(Curry.Module.Prelude.List)))(let {x21 = Curry.Module.OraclePrelude.c_ord(Curry.Module.OraclePrelude.c_head(x20)(x31)(st))(x32)(st)} in let {x34 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x35 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x33)((Curry.Module.Prelude.:<)(x34)((Curry.Module.Prelude.:<)(x35)(Curry.Module.Prelude.List)))(let {x36 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x35)((Curry.Module.Prelude.:<)(x36)(Curry.Module.Prelude.List))(Curry.Module.OracleStyledText.c__case_7(x2)(x3)(x4)(x5)(x8)(x10)(x12)(x13)(x14)(x15)(x16)(Curry.Module.OraclePrelude.op_36(x5)(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x4)(x14)(x1)(st))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x4)(x15)(x23)(st))(x16)(x24)(st))(x25)(st))(x26)(st))(Curry.Module.OracleStyledText.c_interpret'46_'35selFP3'35xs(x18)(x29)(st))(x20)(x21)(Curry.Module.OraclePrelude.op_33_33(x11)(Curry.Module.OraclePrelude.op_45(x21)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))(x33)(st))(x34)(st))(Curry.Module.OraclePrelude.c_null(x20)(x35)(st))(x36)(st))(st))(st))(st))(st))(st))(st))(st)+c__case_8_case__6 x1 x2 x3 x4 x5 x7 x8 x10 x11 x13 (Curry.Module.Prelude.T3Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_8_case__6(x1)(x2)(x3)(x4)(x5)(x7)(x8)(x10)(x11)(x13)(x)(st))(i)(xs)(st)+c__case_8_case__6 x1 x2 x3 x4 x5 x7 x8 x10 x11 x13 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_8_case__6")(x)++++c__case_9_case__7 x1 x2 x3 x4 x5 x7 x8 x10 x11 x6@((Curry.Module.Prelude.:<) x12 x13) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_8(x2)(x3)(x4)(x5)(x7)(x8)(x10)(x11)(x13)(x12)(x1)(st))(st)+c__case_9_case__7 x1 x2 x3 x4 x5 x7 x8 x10 x11 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_9_case__7(x1)(x2)(x3)(x4)(x5)(x7)(x8)(x10)(x11)(x)(st))(i)(xs)(st)+c__case_9_case__7 x1 x2 x3 x4 x5 x7 x8 x10 x11 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_9_case__7")(x)++++c__case_10_case__8 x1 x2 x3 x4 x5 x6 x7 x8 x9@((Curry.Module.Prelude.:<) x10 x11) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_9(x2)(x3)(x4)(x5)(x7)(x8)(x10)(x11)(x6)(x1)(st))(st)+c__case_10_case__8 x1 x2 x3 x4 x5 x6 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_10_case__8(x1)(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_10_case__8 x1 x2 x3 x4 x5 x6 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_10_case__8")(x)++++c__case_11_case__9 x1 x3 x4 x5 x6 x7 x2@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleStyledText.c__case_10(x2)(x3)(x4)(x5)(x6)(x7)(x8)(x9)(x1)(st))(st)+c__case_11_case__9 x1 x3 x4 x5 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_11_case__9(x1)(x3)(x4)(x5)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_11_case__9 x1 x3 x4 x5 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_11_case__9")(x)++++c__case_1_case__10 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_1_case__10 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_1_case__10(x1)(x)(st))(i)(xs)(st)+c__case_1_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_1_case__10")(x)++++c__case_0_case__11 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_0_case__11 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleStyledText.c__case_0_case__11(x1)(x)(st))(i)(xs)(st)+c__case_0_case__11 x1 x st = Curry.RunTimeSystem.patternFail("OracleStyledText._case_0_case__11")(x)++
+ dist/build/Curry/Module/OracleSystem.hs view
@@ -0,0 +1,143 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleSystem (module Curry.Module.OracleSystem) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.System+import Curry.Module.Global+import Curry.Module.Prelude+import Curry.Module.OracleGlobal+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_getEnviron :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getEnviron x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleGlobal.c_readGlobal(Curry.Module.OracleSystem.c_environ(x1)(st))(x3)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSystem.c_getEnviron'46_'35lambda2(x2)))))(x4)(st))(st)++++c_getEnviron'46_'35lambda2 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getEnviron'46_'35lambda2 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSystem.c_prim_getEnviron))))(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.OraclePrelude.c_lookup(x2)(x3)(x4)(st))(x5)(st))(st)++++c_environ :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Global.C_Global (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_environ x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.System.c_environ(st))(st)++++c_setEnviron :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_setEnviron x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleGlobal.c_readGlobal(Curry.Module.OracleSystem.c_environ(x1)(st))(x4)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSystem.c_setEnviron'46_'35lambda3(x2)(x3)))))(x5)(st))(st)++++c_setEnviron'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_setEnviron'46_'35lambda3 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.OracleGlobal.c_writeGlobal(Curry.Module.OracleSystem.c_environ(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(x2)(x3))(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_fst))))(x5)(st))(x4)(x6)(st)))(x7)(st))(st)++++c_unsetEnviron :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_unsetEnviron x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleGlobal.c_readGlobal(Curry.Module.OracleSystem.c_environ(x1)(st))(x3)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSystem.c_unsetEnviron'46_'35lambda4(x2)))))(x4)(st))(st)++++c_unsetEnviron'46_'35lambda4 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_unsetEnviron'46_'35lambda4 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OracleGlobal.c_writeGlobal(Curry.Module.OracleSystem.c_environ(x1)(st))(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(x2)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_fst))))(x4)(st))(x3)(x5)(st))(x6)(st))(st)++++c_system :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_system x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleGlobal.c_readGlobal(Curry.Module.OracleSystem.c_environ(x1)(st))(x3)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSystem.c_system'46_'35lambda5(x2)))))(x4)(st))(st)++++c_system'46set'4614 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_system'46set'4614 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSystem.c__case_0(x2)(x1)(st))(st)++++c_system'46_'35lambda5 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_system'46_'35lambda5 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSystem.c_prim_system))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSystem.c_system'46set'4614))))(x1)(st))(x3)(x4)(st))(x2)(x5)(st))(x6)(st))(st)++++c_exitWith :: (Curry t0) => Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_exitWith x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSystem.c_prim_exitWith))))(x2)(x1)(st))(st)++++c_sleep :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_sleep x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleSystem.c_prim_sleep))))(x2)(x1)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleSystem.c__case_0_case__0(x1)(x2)(st))(st)++++c_getCPUTime :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_getCPUTime x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.System.c_getCPUTime(st))(st))))(st)++++c_getElapsedTime :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_getElapsedTime x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.System.c_getElapsedTime(st))(st))))(st)++++c_getArgs :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))))+c_getArgs x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.System.c_getArgs(st))(st))))(st)++++c_prim_getEnviron :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_prim_getEnviron x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.System.c_prim_getEnviron(x2)(st))(st))))(st)++++c_getHostname :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getHostname x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.System.c_getHostname(st))(st))))(st)++++c_getPID :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_getPID x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.System.c_getPID(st))(st))))(st)++++c_getProgName :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)))+c_getProgName x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.System.c_getProgName(st))(st))))(st)++++c_prim_system :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_prim_system x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.System.c_prim_system(x2)(st))(st))))(st)++++c_prim_exitWith :: (Curry t0) => Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_prim_exitWith x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.System.c_prim_exitWith(x2)(st))(st))))(st)++++c_prim_sleep :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_prim_sleep x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.System.c_prim_sleep(x2)(st))))(st)++++c__case_0_case__0 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(x3)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x4)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))(x1)(st))(x5)(st))(x6)(st))(x7)(st))(st)+c__case_0_case__0 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleSystem.c__case_0_case__0(x1)(x)(st))(i)(xs)(st)+c__case_0_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleSystem._case_0_case__0")(x)++
+ dist/build/Curry/Module/OracleTableRBT.hs view
@@ -0,0 +1,70 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleTableRBT (module Curry.Module.OracleTableRBT) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.TableRBT+import Curry.Module.Prelude+import Curry.Module.RedBlackTree+import Curry.Module.OraclePrelude+import Curry.Module.OracleRedBlackTree++++-- begin included++++-- end included++type C_TableRBT t0 t1 = Curry.Module.RedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 t0 t1)++c_emptyTableRBT :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 t0 t1)+c_emptyTableRBT x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleRedBlackTree.c_empty(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTableRBT.c_emptyTableRBT'46_'35lambda2))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTableRBT.c_emptyTableRBT'46_'35lambda3))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTableRBT.c_emptyTableRBT'46_'35lambda4(x2)))(st))(x1)(st))(st)++++c_emptyTableRBT'46_'35lambda2 :: (Curry t22,Curry t23) => (Curry.Module.Prelude.T2 t22 t23) -> (Curry.Module.Prelude.T2 t22 t23) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_emptyTableRBT'46_'35lambda2 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_fst(x2)(x1)(st))(Curry.Module.OraclePrelude.c_fst(x3)(x4)(st))(x5)(st))(st)++++c_emptyTableRBT'46_'35lambda3 :: (Curry t22,Curry t23) => (Curry.Module.Prelude.T2 t22 t23) -> (Curry.Module.Prelude.T2 t22 t23) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_emptyTableRBT'46_'35lambda3 x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_fst(x2)(x1)(st))(Curry.Module.OraclePrelude.c_fst(x3)(x4)(st))(x5)(st))(st)++++c_emptyTableRBT'46_'35lambda4 :: (Curry t22,Curry t23) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t22 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t22 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))))) -> (Curry.Module.Prelude.T2 t22 t23) -> (Curry.Module.Prelude.T2 t22 t23) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_emptyTableRBT'46_'35lambda4 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x2)(Curry.Module.OraclePrelude.c_fst(x3)(x1)(st))(x5)(st))(Curry.Module.OraclePrelude.c_fst(x4)(x6)(st))(x7)(st))(st)++++c_isEmptyTable :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 t0 t1)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool))+c_isEmptyTable x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_isEmpty))))(st)++++c_lookupRBT :: (Curry t0,Curry t1) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 t0 t1)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t1))+c_lookupRBT x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.Prelude.C_Nothing)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x1)(st))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_lookup(Curry.Module.Prelude.T2(x2)(Curry.Module.OraclePrelude.c_failed(x3)(st)))))))(x4)(st))(st)++++c_updateRBT :: (Curry t0,Curry t1) => t0 -> t1 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 t0 t1)) -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 t0 t1)))+c_updateRBT x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_update(Curry.Module.Prelude.T2(x2)(x3))))))(st)++++c_tableRBT2list :: (Curry t0,Curry t1) => Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 t0 t1)) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 t1)))+c_tableRBT2list x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_tree2list))))(st)++++c_deleteRBT :: (Curry t0,Curry t1) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 t0 t1)) -> Curry.RunTimeSystem.State -> Curry.Module.OracleRedBlackTree.C_RedBlackTree (Curry.Module.Prelude.T2 t0 t1)))+c_deleteRBT x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleRedBlackTree.c_delete(Curry.Module.Prelude.T2(x2)(Curry.Module.OraclePrelude.c_failed(x1)(st)))))))(st)++
+ dist/build/Curry/Module/OracleTime.hs view
@@ -0,0 +1,649 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleTime (module Curry.Module.OracleTime) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Time+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_ctYear :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ctYear x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_38(x2)(x1)(st))(st)++++c_ctMonth :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ctMonth x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_37(x2)(x1)(st))(st)++++c_ctDay :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ctDay x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_36(x2)(x1)(st))(st)++++c_ctHour :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ctHour x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_35(x2)(x1)(st))(st)++++c_ctMin :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ctMin x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_34(x2)(x1)(st))(st)++++c_ctSec :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ctSec x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_33(x2)(x1)(st))(st)++++c_ctTZ :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_ctTZ x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_32(x2)(x1)(st))(st)++++c_getLocalTime :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_CalendarTime))+c_getLocalTime x1 st = let {x2 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x2)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleTime.c_getClockTime(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTime.c_getLocalTime'46_'35lambda2))))(x2)(st))(st)++++c_getLocalTime'46_'35lambda2 :: Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_CalendarTime))+c_getLocalTime'46_'35lambda2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c_toCalendarTime(x2)(x1)(st))(st)++++c_clockTimeToInt :: Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_clockTimeToInt x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_31(x2)(x1)(st))(st)++++c_toCalendarTime :: Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_CalendarTime))+c_toCalendarTime x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTime.c_prim_toCalendarTime))))(x2)(x1)(st))(st)++++c_toUTCTime :: Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Time.C_CalendarTime+c_toUTCTime x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTime.c_prim_toUTCTime))))(x2)(x1)(st))(st)++++c_toClockTime :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Time.C_ClockTime+c_toClockTime x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTime.c_prim_toClockTime))))(x2)(x1)(st))(st)++++c_calendarTimeToString :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_calendarTimeToString x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_30(x2)(x1)(st))(st)++++c_toDayString :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_toDayString x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_29(x2)(x1)(st))(st)++++c_toTimeString :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_toTimeString x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_28(x2)(x1)(st))(st)++++c_toTimeString'46digit2'4690 :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_toTimeString'46digit2'4690 x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OracleTime.c__case_27(x2)(Curry.Module.OraclePrelude.op_60(x2)(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)))))(x1)(st))(x3)(st))(st)++++c_addSeconds :: Curry.Module.Prelude.C_Int -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Time.C_ClockTime+c_addSeconds x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_26(x2)(x3)(x1)(st))(st)++++c_addMinutes :: Curry.Module.Prelude.C_Int -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Time.C_ClockTime+c_addMinutes x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_25(x2)(x3)(x1)(st))(st)++++c_addHours :: Curry.Module.Prelude.C_Int -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Time.C_ClockTime+c_addHours x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_24(x2)(x3)(x1)(st))(st)++++c_addDays :: Curry.Module.Prelude.C_Int -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Time.C_ClockTime+c_addDays x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_23(x2)(x3)(x1)(st))(st)++++c_addMonths :: Curry.Module.Prelude.C_Int -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Time.C_ClockTime+c_addMonths x2 x3 x1 st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleTime.c_toUTCTime(x3)(x1)(st)} in let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OracleTime.c_addMonths'46_'35selFP4'35mo(x4)(x14)(st)} in let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List)))))(let {x12 = Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_mod(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(x6)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x20)(st))(x2)(x21)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))(x22)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x23)(st)} in let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(Curry.Module.OracleTime.c__case_22(x2)(Curry.Module.OracleTime.c_addMonths'46_'35selFP3'35y(x4)(x13)(st))(x6)(Curry.Module.OracleTime.c_addMonths'46_'35selFP5'35d(x4)(x15)(st))(Curry.Module.OracleTime.c_addMonths'46_'35selFP6'35h(x4)(x16)(st))(Curry.Module.OracleTime.c_addMonths'46_'35selFP7'35mi(x4)(x17)(st))(Curry.Module.OracleTime.c_addMonths'46_'35selFP8'35s(x4)(x18)(st))(Curry.Module.OracleTime.c_addMonths'46_'35selFP9'35tz(x4)(x19)(st))(x12)(Curry.Module.OraclePrelude.op_62(x12)(Curry.Module.Prelude.C_Zero)(x24)(st))(x25)(st))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)++++c_addMonths'46_'35selFP3'35y :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addMonths'46_'35selFP3'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_21(x2)(x1)(st))(st)++++c_addMonths'46_'35selFP4'35mo :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addMonths'46_'35selFP4'35mo x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_20(x2)(x1)(st))(st)++++c_addMonths'46_'35selFP5'35d :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addMonths'46_'35selFP5'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_19(x2)(x1)(st))(st)++++c_addMonths'46_'35selFP6'35h :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addMonths'46_'35selFP6'35h x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_18(x2)(x1)(st))(st)++++c_addMonths'46_'35selFP7'35mi :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addMonths'46_'35selFP7'35mi x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_17(x2)(x1)(st))(st)++++c_addMonths'46_'35selFP8'35s :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addMonths'46_'35selFP8'35s x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_16(x2)(x1)(st))(st)++++c_addMonths'46_'35selFP9'35tz :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addMonths'46_'35selFP9'35tz x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_15(x2)(x1)(st))(st)++++c_addYears :: Curry.Module.Prelude.C_Int -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Time.C_ClockTime+c_addYears x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleTime.c__case_14(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)(Curry.Module.Prelude.C_Zero)(x1)(st))(x4)(st))(st)++++c_addYears'46_'35selFP11'35y :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addYears'46_'35selFP11'35y x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_13(x2)(x1)(st))(st)++++c_addYears'46_'35selFP12'35mo :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addYears'46_'35selFP12'35mo x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_12(x2)(x1)(st))(st)++++c_addYears'46_'35selFP13'35d :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addYears'46_'35selFP13'35d x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_11(x2)(x1)(st))(st)++++c_addYears'46_'35selFP14'35h :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addYears'46_'35selFP14'35h x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_10(x2)(x1)(st))(st)++++c_addYears'46_'35selFP15'35mi :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addYears'46_'35selFP15'35mi x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_9(x2)(x1)(st))(st)++++c_addYears'46_'35selFP16'35s :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addYears'46_'35selFP16'35s x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_8(x2)(x1)(st))(st)++++c_addYears'46_'35selFP17'35tz :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_addYears'46_'35selFP17'35tz x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_7(x2)(x1)(st))(st)++++c_daysOfMonth :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Int+c_daysOfMonth x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleTime.c__case_6(x2)(x3)(Curry.Module.OraclePrelude.op_47_61(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(x4)(st))(st)++++c_validDate :: Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_validDate x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62(x3)(Curry.Module.Prelude.C_Zero)(x1)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_60(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))(x5)(st))(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_62(x4)(Curry.Module.Prelude.C_Zero)(x6)(st))(Curry.Module.OraclePrelude.op_60_61(x4)(Curry.Module.OracleTime.c_daysOfMonth(x3)(x2)(x7)(st))(x8)(st))(x9)(st))(x10)(st))(x11)(st))(st)++++c_compareDate :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Time.C_CalendarTime -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Time.C_CalendarTime -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering))))+c_compareDate x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTime.c_compareCalendarTime))(st))(st)++++c_compareCalendarTime :: Curry.Module.Time.C_CalendarTime -> Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering+c_compareCalendarTime x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OracleTime.c_compareClockTime(Curry.Module.OracleTime.c_toClockTime(x2)(x1)(st))(Curry.Module.OracleTime.c_toClockTime(x3)(x4)(st))(x5)(st))(st)++++c_compareClockTime :: Curry.Module.Time.C_ClockTime -> Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Ordering+c_compareClockTime x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_4(x3)(x2)(x1)(st))(st)++++c__case_4 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_4_case__38(x1)(x3)(x2)(st))(st)++++c__case_3 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_3_case__37(x1)(x4)(x3)(st))(st)++++c__case_2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_2_case__36(x1)(x4)(x5)(x6)(st))(st)++++c__case_1 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_1_case__35(x1)(x6)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_0_case__34(x1)(x2)(st))(st)++++c__case_6 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_6_case__33(x1)(x2)(x3)(x4)(st))(st)++++c__case_5 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_5_case__32(x1)(x4)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_7_case__31(x1)(x2)(st))(st)++++c__case_8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_8_case__30(x1)(x2)(st))(st)++++c__case_9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_9_case__29(x1)(x2)(st))(st)++++c__case_10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_10_case__28(x1)(x2)(st))(st)++++c__case_11 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_11_case__27(x1)(x2)(st))(st)++++c__case_12 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_12_case__26(x1)(x2)(st))(st)++++c__case_13 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_13_case__25(x1)(x2)(st))(st)++++c__case_14 x2 x3 x12 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_14_case__24(x1)(x2)(x3)(x12)(st))(st)++++c__case_15 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_15_case__23(x1)(x2)(st))(st)++++c__case_16 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_16_case__22(x1)(x2)(st))(st)++++c__case_17 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_17_case__21(x1)(x2)(st))(st)++++c__case_18 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_18_case__20(x1)(x2)(st))(st)++++c__case_19 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_19_case__19(x1)(x2)(st))(st)++++c__case_20 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_20_case__18(x1)(x2)(st))(st)++++c__case_21 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_21_case__17(x1)(x2)(st))(st)++++c__case_22 x2 x5 x6 x7 x8 x9 x10 x11 x12 x13 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_22_case__16(x1)(x2)(x5)(x6)(x7)(x8)(x9)(x10)(x11)(x12)(x13)(st))(st)++++c__case_23 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_23_case__15(x1)(x2)(x3)(st))(st)++++c__case_24 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_24_case__14(x1)(x2)(x3)(st))(st)++++c__case_25 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_25_case__13(x1)(x2)(x3)(st))(st)++++c__case_26 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_26_case__12(x1)(x2)(x3)(st))(st)++++c__case_27 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_27_case__11(x1)(x2)(x3)(st))(st)++++c__case_28 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_28_case__10(x1)(x2)(st))(st)++++c__case_29 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_29_case__9(x1)(x2)(st))(st)++++c__case_30 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_30_case__8(x1)(x2)(st))(st)++++c__case_31 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_31_case__7(x1)(x2)(st))(st)++++c__case_32 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_32_case__6(x1)(x2)(st))(st)++++c__case_33 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_33_case__5(x1)(x2)(st))(st)++++c__case_34 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_34_case__4(x1)(x2)(st))(st)++++c__case_35 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_35_case__3(x1)(x2)(st))(st)++++c__case_36 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_36_case__2(x1)(x2)(st))(st)++++c__case_37 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_37_case__1(x1)(x2)(st))(st)++++c__case_38 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_38_case__0(x1)(x2)(st))(st)++++c_getClockTime :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_ClockTime))+c_getClockTime x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Time.c_getClockTime(st))(st))))(st)++++c_prim_toCalendarTime :: Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Time.C_CalendarTime))+c_prim_toCalendarTime x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Time.c_prim_toCalendarTime(x2)(st))(st))))(st)++++c_prim_toUTCTime :: Curry.Module.Time.C_ClockTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Time.C_CalendarTime+c_prim_toUTCTime x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Time.c_prim_toUTCTime(x2)(st))(st)++++c_prim_toClockTime :: Curry.Module.Time.C_CalendarTime -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Time.C_ClockTime+c_prim_toClockTime x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Time.c_prim_toClockTime(x2)(st))(st)++++c__case_38_case__0 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_38_case__0 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_38_case__0(x1)(x)(st))(i)(xs)(st)+c__case_38_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_38_case__0")(x)++++c__case_37_case__1 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_37_case__1 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_37_case__1(x1)(x)(st))(i)(xs)(st)+c__case_37_case__1 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_37_case__1")(x)++++c__case_36_case__2 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_36_case__2 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_36_case__2(x1)(x)(st))(i)(xs)(st)+c__case_36_case__2 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_36_case__2")(x)++++c__case_35_case__3 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_35_case__3 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_35_case__3(x1)(x)(st))(i)(xs)(st)+c__case_35_case__3 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_35_case__3")(x)++++c__case_34_case__4 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_34_case__4 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_34_case__4(x1)(x)(st))(i)(xs)(st)+c__case_34_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_34_case__4")(x)++++c__case_33_case__5 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_33_case__5 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_33_case__5(x1)(x)(st))(i)(xs)(st)+c__case_33_case__5 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_33_case__5")(x)++++c__case_32_case__6 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_32_case__6 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_32_case__6(x1)(x)(st))(i)(xs)(st)+c__case_32_case__6 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_32_case__6")(x)++++c__case_31_case__7 x1 x2@(Curry.Module.Time.C_CTime x3) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_31_case__7 x1 (Curry.Module.Time.C_ClockTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_31_case__7(x1)(x)(st))(i)(xs)(st)+c__case_31_case__7 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_31_case__7")(x)++++c__case_30_case__8 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.op_33_33((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('J'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((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('b'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((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.List))))((Curry.Module.Prelude.:<)((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('r'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('J'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('J'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((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('g'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((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('p'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((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('v'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((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.List))))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_45(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x11)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x12)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleTime.c_toTimeString(x2)(x13)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_show(x3)(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(st))(st)+c__case_30_case__8 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_30_case__8(x1)(x)(st))(i)(xs)(st)+c__case_30_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_30_case__8")(x)++++c__case_29_case__9 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.op_33_33((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('J'))((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('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('y'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)((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('b'))((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('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))(Curry.Module.Prelude.List)))))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)((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('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List))))))((Curry.Module.Prelude.:<)((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('y'))(Curry.Module.Prelude.List))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('J'))((Curry.Module.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.List)))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('J'))((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('y'))(Curry.Module.Prelude.List)))))((Curry.Module.Prelude.:<)((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('g'))((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('t'))(Curry.Module.Prelude.List)))))))((Curry.Module.Prelude.:<)((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('p'))((Curry.Module.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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))))))((Curry.Module.Prelude.:<)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List))))))))((Curry.Module.Prelude.:<)((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('v'))((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('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))))((Curry.Module.Prelude.:<)((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('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))(Curry.Module.Prelude.List)))))))))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_45(x4)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x11)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(x5)(x12)(st))(Curry.Module.OraclePrelude.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.OraclePrelude.c_show(x3)(x13)(st))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(st))(st)+c__case_29_case__9 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_29_case__9(x1)(x)(st))(i)(xs)(st)+c__case_29_case__9 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_29_case__9")(x)++++c__case_28_case__10 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List)))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleTime.c_toTimeString'46digit2'4690(x6)(x1)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleTime.c_toTimeString'46digit2'4690(x7)(x10)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(':'))(Curry.Module.Prelude.List))(Curry.Module.OracleTime.c_toTimeString'46digit2'4690(x8)(x11)(st))(x12)(st))(x13)(st))(x14)(st))(x15)(st))(st)+c__case_28_case__10 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_28_case__10(x1)(x)(st))(i)(xs)(st)+c__case_28_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_28_case__10")(x)++++c__case_27_case__11 x1 x2 x3@Curry.Module.Prelude.C_True st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.c_ord(Curry.Module.Prelude.C_Char('0'))(x1)(st))(x2)(x4)(st))(x5)(st))(Curry.Module.Prelude.List)))(st)+c__case_27_case__11 x1 x2 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_show(x2)(x1)(st))(st)+c__case_27_case__11 x1 x2 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_27_case__11(x1)(x2)(x)(st))(i)(xs)(st)+c__case_27_case__11 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_27_case__11")(x)++++c__case_26_case__12 x1 x2 x3@(Curry.Module.Time.C_CTime x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Time.C_CTime(Curry.Module.OraclePrelude.op_43(x4)(x2)(x1)(st)))(st)+c__case_26_case__12 x1 x2 (Curry.Module.Time.C_ClockTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_26_case__12(x1)(x2)(x)(st))(i)(xs)(st)+c__case_26_case__12 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_26_case__12")(x)++++c__case_25_case__13 x1 x2 x3@(Curry.Module.Time.C_CTime x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Time.C_CTime(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.OraclePrelude.op_42(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))(x1)(st))(x5)(st)))(st)+c__case_25_case__13 x1 x2 (Curry.Module.Time.C_ClockTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_25_case__13(x1)(x2)(x)(st))(i)(xs)(st)+c__case_25_case__13 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_25_case__13")(x)++++c__case_24_case__14 x1 x2 x3@(Curry.Module.Time.C_CTime x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Time.C_CTime(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.OraclePrelude.op_42(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))))))(x1)(st))(x5)(st)))(st)+c__case_24_case__14 x1 x2 (Curry.Module.Time.C_ClockTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_24_case__14(x1)(x2)(x)(st))(i)(xs)(st)+c__case_24_case__14 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_24_case__14")(x)++++c__case_23_case__15 x1 x2 x3@(Curry.Module.Time.C_CTime x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Time.C_CTime(Curry.Module.OraclePrelude.op_43(x4)(Curry.Module.OraclePrelude.op_42(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))))))))))))))))(x1)(st))(x5)(st)))(st)+c__case_23_case__15 x1 x2 (Curry.Module.Time.C_ClockTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_23_case__15(x1)(x2)(x)(st))(i)(xs)(st)+c__case_23_case__15 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_23_case__15")(x)++++c__case_22_case__16 x1 x2 x5 x6 x7 x8 x9 x10 x11 x12 x13@Curry.Module.Prelude.C_True st = let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))))(Curry.Module.OracleTime.c_addYears(Curry.Module.OraclePrelude.c_div(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(x6)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x2)(x14)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))(x15)(st))(Curry.Module.OracleTime.c_toClockTime(Curry.Module.Time.C_CalendarTime(x5)(x12)(x7)(x8)(x9)(x10)(x11))(x16)(st))(x17)(st))(st)+c__case_22_case__16 x1 x2 x5 x6 x7 x8 x9 x10 x11 x12 x13@Curry.Module.Prelude.C_False st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List)))))))(Curry.Module.OracleTime.c_addYears(Curry.Module.OraclePrelude.op_45(Curry.Module.OraclePrelude.c_div(Curry.Module.OraclePrelude.op_43(Curry.Module.OraclePrelude.op_45(x6)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x2)(x18)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))(x19)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x20)(st))(Curry.Module.OracleTime.c_toClockTime(Curry.Module.Time.C_CalendarTime(x5)(Curry.Module.OraclePrelude.op_43(x12)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))(x21)(st))(x7)(x8)(x9)(x10)(x11))(x22)(st))(x23)(st))(st)+c__case_22_case__16 x1 x2 x5 x6 x7 x8 x9 x10 x11 x12 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_22_case__16(x1)(x2)(x5)(x6)(x7)(x8)(x9)(x10)(x11)(x12)(x)(st))(i)(xs)(st)+c__case_22_case__16 x1 x2 x5 x6 x7 x8 x9 x10 x11 x12 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_22_case__16")(x)++++c__case_21_case__17 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_21_case__17 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_21_case__17(x1)(x)(st))(i)(xs)(st)+c__case_21_case__17 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_21_case__17")(x)++++c__case_20_case__18 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_20_case__18 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_20_case__18(x1)(x)(st))(i)(xs)(st)+c__case_20_case__18 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_20_case__18")(x)++++c__case_19_case__19 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_19_case__19 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_19_case__19(x1)(x)(st))(i)(xs)(st)+c__case_19_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_19_case__19")(x)++++c__case_18_case__20 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_18_case__20 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_18_case__20(x1)(x)(st))(i)(xs)(st)+c__case_18_case__20 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_18_case__20")(x)++++c__case_17_case__21 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_17_case__21 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_17_case__21(x1)(x)(st))(i)(xs)(st)+c__case_17_case__21 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_17_case__21")(x)++++c__case_16_case__22 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_16_case__22 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_16_case__22(x1)(x)(st))(i)(xs)(st)+c__case_16_case__22 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_16_case__22")(x)++++c__case_15_case__23 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_15_case__23 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_15_case__23(x1)(x)(st))(i)(xs)(st)+c__case_15_case__23 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_15_case__23")(x)++++c__case_14_case__24 x1 x2 x3 x12@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_14_case__24 x1 x2 x3 x12@Curry.Module.Prelude.C_False st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleTime.c_toUTCTime(x3)(x1)(st)} in let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(let {x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List))(let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(Curry.Module.OracleTime.c_toClockTime(Curry.Module.Time.C_CalendarTime(Curry.Module.OraclePrelude.op_43(Curry.Module.OracleTime.c_addYears'46_'35selFP11'35y(x4)(x13)(st))(x2)(x20)(st))(Curry.Module.OracleTime.c_addYears'46_'35selFP12'35mo(x4)(x14)(st))(Curry.Module.OracleTime.c_addYears'46_'35selFP13'35d(x4)(x15)(st))(Curry.Module.OracleTime.c_addYears'46_'35selFP14'35h(x4)(x16)(st))(Curry.Module.OracleTime.c_addYears'46_'35selFP15'35mi(x4)(x17)(st))(Curry.Module.OracleTime.c_addYears'46_'35selFP16'35s(x4)(x18)(st))(Curry.Module.OracleTime.c_addYears'46_'35selFP17'35tz(x4)(x19)(st)))(x21)(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_14_case__24 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_14_case__24(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_14_case__24 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_14_case__24")(x)++++c__case_13_case__25 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_13_case__25 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_13_case__25(x1)(x)(st))(i)(xs)(st)+c__case_13_case__25 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_13_case__25")(x)++++c__case_12_case__26 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_12_case__26 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_12_case__26(x1)(x)(st))(i)(xs)(st)+c__case_12_case__26 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_12_case__26")(x)++++c__case_11_case__27 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_11_case__27 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_11_case__27(x1)(x)(st))(i)(xs)(st)+c__case_11_case__27 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_11_case__27")(x)++++c__case_10_case__28 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_10_case__28 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_10_case__28(x1)(x)(st))(i)(xs)(st)+c__case_10_case__28 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_10_case__28")(x)++++c__case_9_case__29 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_9_case__29 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_9_case__29(x1)(x)(st))(i)(xs)(st)+c__case_9_case__29 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_9_case__29")(x)++++c__case_8_case__30 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x8)(st)+c__case_8_case__30 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_8_case__30(x1)(x)(st))(i)(xs)(st)+c__case_8_case__30 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_8_case__30")(x)++++c__case_7_case__31 x1 x2@(Curry.Module.Time.C_CalendarTime x3 x4 x5 x6 x7 x8 x9) st = Curry.Module.CEventOracle.c_collapse(x1)(x9)(st)+c__case_7_case__31 x1 (Curry.Module.Time.C_CalendarTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_7_case__31(x1)(x)(st))(i)(xs)(st)+c__case_7_case__31 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_7_case__31")(x)++++c__case_5_case__32 x1 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(st)+c__case_5_case__32 x1 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(st)+c__case_5_case__32 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_5_case__32(x1)(x)(st))(i)(xs)(st)+c__case_5_case__32 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_5_case__32")(x)++++c__case_6_case__33 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_33_33((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_45(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x1)(st))(x5)(st))(st)+c__case_6_case__33 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List)))))))))(Curry.Module.OracleTime.c__case_5(x3)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_mod(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi))))(x1)(st))(Curry.Module.Prelude.C_Zero)(x6)(st))(Curry.Module.OraclePrelude.op_124_124(Curry.Module.OraclePrelude.op_47_61(Curry.Module.OraclePrelude.c_mod(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x7)(st))(Curry.Module.Prelude.C_Zero)(x8)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_mod(x3)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))))(x9)(st))(Curry.Module.Prelude.C_Zero)(x10)(st))(x11)(st))(x12)(st))(x13)(st))(st)+c__case_6_case__33 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_6_case__33(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_6_case__33 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_6_case__33")(x)++++c__case_0_case__34 x1 x2@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_EQ)(st)+c__case_0_case__34 x1 x2@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_0_case__34 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_0_case__34(x1)(x)(st))(i)(xs)(st)+c__case_0_case__34 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_0_case__34")(x)++++c__case_1_case__35 x1 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_GT)(st)+c__case_1_case__35 x1 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleTime.c__case_0(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x7)(st))(st)+c__case_1_case__35 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_1_case__35(x1)(x)(st))(i)(xs)(st)+c__case_1_case__35 x1 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_1_case__35")(x)++++c__case_2_case__36 x1 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_LT)(st)+c__case_2_case__36 x1 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleTime.c__case_1(x4)(x5)(Curry.Module.OraclePrelude.op_62(x4)(x5)(x1)(st))(x7)(st))(st)+c__case_2_case__36 x1 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_2_case__36(x1)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_2_case__36 x1 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_2_case__36")(x)++++c__case_3_case__37 x1 x4 x3@(Curry.Module.Time.C_CTime x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleTime.c__case_2(x4)(x5)(Curry.Module.OraclePrelude.op_60(x4)(x5)(x1)(st))(x6)(st))(st)+c__case_3_case__37 x1 x4 (Curry.Module.Time.C_ClockTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_3_case__37(x1)(x4)(x)(st))(i)(xs)(st)+c__case_3_case__37 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_3_case__37")(x)++++c__case_4_case__38 x1 x3 x2@(Curry.Module.Time.C_CTime x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTime.c__case_3(x4)(x3)(x1)(st))(st)+c__case_4_case__38 x1 x3 (Curry.Module.Time.C_ClockTimeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTime.c__case_4_case__38(x1)(x3)(x)(st))(i)(xs)(st)+c__case_4_case__38 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleTime._case_4_case__38")(x)++
+ dist/build/Curry/Module/OracleTrace.hs view
@@ -0,0 +1,26 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleTrace (module Curry.Module.OracleTrace) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Trace+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_trace :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trace x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(x2)(st)++
+ dist/build/Curry/Module/OracleTraversal.hs view
@@ -0,0 +1,152 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleTraversal (module Curry.Module.OracleTraversal) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Traversal+import Curry.Module.Prelude+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_noChildren :: (Curry t0,Curry t1) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))+c_noChildren x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(x2))))))(st)++++c_children :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1))+c_children x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_fst))))(x2)(x1)(st))(st)++++c_replaceChildren :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0))))+c_replaceChildren x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_snd))))(x2)(x1)(st))(st)++++c_mapChildren :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1))) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_mapChildren x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleTraversal.c_replaceChildren(x2)(x1)(st))(x4)(x5)(st))(Curry.Module.OraclePrelude.c_map(x3)(Curry.Module.Oracle.c_apply(Curry.Module.OracleTraversal.c_children(x2)(x6)(st))(x4)(x7)(st))(x8)(st))(x9)(st))(st)++++c_family :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0)))))) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_family x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTraversal.c_familyFL(x2)(x3)(Curry.Module.Prelude.List)(x1)(st))(st)++++c_childFamilies :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t1)))))) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1+c_childFamilies x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTraversal.c_childFamiliesFL(x2)(x3)(x4)(Curry.Module.Prelude.List)(x1)(st))(st)++++c_mapFamily :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))+c_mapFamily x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_46(x3)(Curry.Module.Oracle.c_apply(Curry.Module.OracleTraversal.c_mapChildFamilies(x2)(x2)(x1)(st))(x3)(x4)(st))(x5)(st))(st)++++c_mapChildFamilies :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t1)))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))+c_mapChildFamilies x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTraversal.c_mapChildren(x2)))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTraversal.c_mapFamily(x3)))))(x1)(st))(st)++++c_evalFamily :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))+c_evalFamily x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTraversal.c_mapFamily(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTraversal.c_evalFamily'46g'4619(x3)(x2)))))(x1)(st))(st)++++c_evalFamily'46g'4619 :: (Curry t100) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t100 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t100))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t100 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t100) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t100) -> Curry.RunTimeSystem.State -> t100)))))) -> t100 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t100+c_evalFamily'46g'4619 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_maybe(x4)(Curry.Module.OracleTraversal.c_mapFamily(x3)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTraversal.c_evalFamily'46g'4619(x2)(x3)))))(x1)(st))(Curry.Module.Oracle.c_apply(x2)(x4)(x5)(st))(x6)(st))(st)++++c_evalChildFamilies :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t1)))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Maybe t1))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t0))))+c_evalChildFamilies x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTraversal.c_mapChildren(x2)))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTraversal.c_evalFamily(x3)))))(x1)(st))(st)++++c_fold :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t1))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))+c_fold x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTraversal.c_foldChildren(x2)(x2)(x3)(x3)))))(st)++++c_foldChildren :: (Curry t0,Curry t1,Curry t2,Curry t3) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t1)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t2) -> Curry.RunTimeSystem.State -> t3))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t2) -> Curry.RunTimeSystem.State -> t2))))) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t3+c_foldChildren x2 x3 x4 x5 x6 x1 st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(x4)(x6)(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.OracleTraversal.c_fold(x3)(x5)(x7)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleTraversal.c_children(x2)(x8)(st))(x6)(x9)(st))(x10)(st))(x11)(st))(st)++++c_replaceChildrenIO :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List t1)))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))))))+c_replaceChildrenIO x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTraversal.c_liftIO))(st))(Curry.Module.OracleTraversal.c_replaceChildren(x2)(x1)(st))(x3)(st))(st)++++c_mapChildrenIO :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1))))) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_mapChildrenIO x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List)))))))(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleTraversal.c_replaceChildrenIO(x2)(x1)(st))(x4)(x5)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_mapIO(x3)(x6)(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleTraversal.c_children(x2)(x7)(st))(x4)(x8)(st))(x9)(st))(x10)(st))(st)++++c_mapFamilyIO :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))))) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))+c_mapFamilyIO x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_apply(Curry.Module.Oracle.c_apply(Curry.Module.OracleTraversal.c_mapChildFamiliesIO(x2)(x2)(x1)(st))(x3)(x5)(st))(x4)(x6)(st))(x3)(x7)(st))(st)++++c_mapChildFamiliesIO :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t1)))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))))))+c_mapChildFamiliesIO x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTraversal.c_mapChildrenIO(x2)))(st))(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTraversal.c_mapFamilyIO(x3)))(st))(x1)(st))(st)++++c_evalFamilyIO :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe t0)))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))))+c_evalFamilyIO x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTraversal.c_mapFamilyIO(x2)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTraversal.c_evalFamilyIO'46g'4637(x3)(x2)))))))))(st)++++c_evalFamilyIO'46g'4637 :: (Curry t202) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t202 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe t202)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t202 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t202) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t202) -> Curry.RunTimeSystem.State -> t202)))))) -> t202 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t202))+c_evalFamilyIO'46g'4637 x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.Oracle.c_apply(x2)(x4)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_maybe(Curry.Module.OraclePrelude.c_return(x4)(x5)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTraversal.c_mapFamilyIO(x3)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTraversal.c_evalFamilyIO'46g'4637(x2)(x3)))))))))))))(x6)(st))(st)++++c_evalChildFamiliesIO :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t1)))))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe t1)))))) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))))))+c_evalChildFamiliesIO x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.op_46(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTraversal.c_mapChildrenIO(x2)))(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleTraversal.c_evalFamilyIO(x3)))))(x1)(st))(st)++++c_concatFL :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0)))) -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_concatFL x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTraversal.c__case_0(x3)(x2)(x1)(st))(st)++++c_familyFL :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t0) -> Curry.RunTimeSystem.State -> t0)))))) -> t0 -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t0+c_familyFL x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.OracleTraversal.c_childFamiliesFL(x2)(x2)(x3)(x4)(x1)(st)))(st)++++c_childFamiliesFL :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t0)))))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t1 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t1) (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List t1) -> Curry.RunTimeSystem.State -> t1)))))) -> t0 -> (Curry.Module.Prelude.List t1) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t1+c_childFamiliesFL x2 x3 x4 x5 x1 st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.OracleTraversal.c_concatFL(Curry.Module.OraclePrelude.c_map(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleTraversal.c_familyFL(x3)))(st))(Curry.Module.Oracle.c_apply(Curry.Module.OracleTraversal.c_children(x2)(x1)(st))(x4)(x6)(st))(x7)(st))(x5)(x8)(st))(st)++++c_liftIO :: (Curry t0,Curry t1) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> t1))) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t1))+c_liftIO x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(x3)(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(x2)(x1)(st))(x4)(st))(st)++++c__case_0 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleTraversal.c__case_0_case__0(x1)(x3)(x2)(st))(st)++++c__case_0_case__0 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_0_case__0 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(x4)(Curry.Module.OracleTraversal.c_concatFL(x5)(x3)(x1)(st))(x6)(st))(st)+c__case_0_case__0 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleTraversal.c__case_0_case__0(x1)(x3)(x)(st))(i)(xs)(st)+c__case_0_case__0 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleTraversal._case_0_case__0")(x)++
+ dist/build/Curry/Module/OracleUnsafe.hs view
@@ -0,0 +1,242 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleUnsafe (module Curry.Module.OracleUnsafe) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.Unsafe+import Curry.Module.Char+import Curry.Module.Meta+import Curry.Module.Prelude+import Curry.Module.OracleChar+import Curry.Module.OracleMeta+import Curry.Module.OraclePrelude++++-- begin included++++-- end included++c_unsafePerformIO :: (Curry t0) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO t0))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_unsafePerformIO x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_prim_unsafePerformIO))))(x2)(x1)(st))(st)++++c_trace :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_trace x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))))(Curry.Module.OracleUnsafe.c_unsafePerformIO(Curry.Module.OraclePrelude.op_62_62(Curry.Module.OraclePrelude.c_putStr(x2)(x1)(st))(Curry.Module.OraclePrelude.c_return(x3)(x4)(st))(x5)(st))(x6)(st))(st)++++c_isVar :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isVar x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))))(Curry.Module.OracleUnsafe.c_unsafePerformIO(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleMeta.c_isFree(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_either(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(Curry.Module.Prelude.C_True)))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_const(Curry.Module.Prelude.C_False)))))))))(x3)(st))(x4)(st))(x5)(st))(st)++++c_identicalVar :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_identicalVar x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_33(Curry.Module.Oracle.op_36_33(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleUnsafe.c_prim_identicalVar))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_showAnyTerm :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showAnyTerm x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_33_33(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleUnsafe.c_prim_showAnyTerm))))(x2)(x1)(st))(st)++++c_showAnyQTerm :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showAnyQTerm x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_33_33(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleUnsafe.c_prim_showAnyQTerm))))(x2)(x1)(st))(st)++++c_readsAnyUnqualifiedTerm :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_readsAnyUnqualifiedTerm x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_8(x3)(x2)(x1)(st))(st)++++c_readsAnyUnqualifiedTermWithPrefixes :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_readsAnyUnqualifiedTermWithPrefixes x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.op_36_35_35(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OracleUnsafe.c_prim_readsAnyUnqualifiedTerm))(st))(x2)(x1)(st))(x3)(x4)(st))(st)++++c_readAnyUnqualifiedTerm :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_readAnyUnqualifiedTerm x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x5)(Curry.Module.OracleUnsafe.c__case_7(Curry.Module.OracleUnsafe.c_readsAnyUnqualifiedTerm(x2)(x3)(x1)(st))(x5)(st))(st))(st)++++c_readsAnyQTerm :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_readsAnyQTerm x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.Oracle.op_36_35_35(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleUnsafe.c_prim_readsAnyQTerm))))(x2)(x1)(st))(st)++++c_readAnyQTerm :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_readAnyQTerm x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x4)(Curry.Module.OracleUnsafe.c__case_3(Curry.Module.OracleUnsafe.c_readsAnyQTerm(x2)(x1)(st))(x4)(st))(st))(st)++++c__case_3 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_3_case__8(x1)(x3)(st))(st)++++c__case_2 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_2_case__7(x1)(x5)(x4)(st))(st)++++c__case_1 x6 x7 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_1_case__6(x1)(x6)(x7)(x5)(st))(st)++++c__case_0 x6 x7 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_0_case__5(x1)(x6)(x8)(st))(st)++++c__case_7 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_7_case__4(x1)(x4)(st))(st)++++c__case_6 x6 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_6_case__3(x1)(x6)(x5)(st))(st)++++c__case_5 x7 x8 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_5_case__2(x1)(x7)(x8)(x6)(st))(st)++++c__case_4 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_4_case__1(x1)(x7)(x8)(x9)(st))(st)++++c__case_8 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_8_case__0(x1)(x3)(x2)(st))(st)++++c_spawnConstraint :: (Curry t0) => Curry.Module.Prelude.C_Success -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_spawnConstraint x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_spawnConstraint(x3)(x2)(st))(st)++++c_prim_isVar :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_prim_isVar x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_prim_isVar(x2)(st))(st)++++c_prim_identicalVar :: (Curry t0) => t0 -> t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_prim_identicalVar x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_prim_identicalVar(x3)(x2)(st))(st)++++c_prim_showAnyTerm :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prim_showAnyTerm x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_prim_showAnyTerm(x2)(st))(st)++++c_prim_showAnyQTerm :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_prim_showAnyQTerm x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_prim_showAnyQTerm(x2)(st))(st)++++c_prim_readsAnyUnqualifiedTerm :: (Curry t0) => (Curry.Module.Prelude.List (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_prim_readsAnyUnqualifiedTerm x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_prim_readsAnyUnqualifiedTerm(x3)(x2)(st))(st)++++c_prim_readsAnyQTerm :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 t0 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_prim_readsAnyQTerm x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_prim_readsAnyQTerm(x2)(st))(st)++++c_showAnyExpression :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showAnyExpression x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_showAnyExpression(x2)(st))(st)++++c_showAnyQExpression :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showAnyQExpression x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_showAnyQExpression(x2)(st))(st)++++c_try :: (Curry t0) => t0 -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Either t0 (Curry.Module.Prelude.T2 Curry.Module.Meta.C_OrRef (Curry.Module.Prelude.List t0))+c_try x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_try(x2)(st))(st)++++c_orsWithOrRef :: (Curry t0) => Curry.Module.Meta.C_OrRef -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_orsWithOrRef x3 x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_orsWithOrRef(x3)(x2)(st))(st)++++c_generateChoice :: (Curry t0) => (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> t0+c_generateChoice x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Unsafe.c_generateChoice(x2)(st))(st)++++c_nrOfChoices :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.C_Int))+c_nrOfChoices x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_lambda_world(Curry.Module.Oracle.c_safeIOResult(Curry.Module.Unsafe.c_nrOfChoices(st))(st))))(st)++++c__case_8_case__0 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_error((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('R'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((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('w'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((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('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('a'))((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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.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.:<)(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('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('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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.:<)(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('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('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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_8_case__0 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c_readsAnyUnqualifiedTermWithPrefixes((Curry.Module.Prelude.:<)(x4)(x5))(x3)(x1)(st))(st)+c__case_8_case__0 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleUnsafe.c__case_8_case__0(x1)(x3)(x)(st))(i)(xs)(st)+c__case_8_case__0 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleUnsafe._case_8_case__0")(x)++++c__case_4_case__1 x1 x7 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x7)(st)+c__case_4_case__1 x1 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('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('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('a'))((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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.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.:<)(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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(','))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('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('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('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(x8)(x1)(st))(x10)(st))(st)+c__case_4_case__1 x1 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleUnsafe.c__case_4_case__1(x1)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_4_case__1 x1 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleUnsafe._case_4_case__1")(x)++++c__case_5_case__2 x1 x7 x8 x6@Curry.Module.Prelude.List st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.OracleUnsafe.c__case_4(x7)(x8)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleChar.c_isSpace))))(x1)(st))(x8)(x11)(st))(x12)(st))(st)+c__case_5_case__2 x1 x7 x8 x6@((Curry.Module.Prelude.:<) x9 x10) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('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('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('a'))((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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_5_case__2 x1 x7 x8 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleUnsafe.c__case_5_case__2(x1)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_5_case__2 x1 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleUnsafe._case_5_case__2")(x)++++c__case_6_case__3 x1 x6 x5@(Curry.Module.Prelude.T2 x7 x8) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_5(x7)(x8)(x6)(x1)(st))(st)+c__case_6_case__3 x1 x6 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleUnsafe.c__case_6_case__3(x1)(x6)(x)(st))(i)(xs)(st)+c__case_6_case__3 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleUnsafe._case_6_case__3")(x)++++c__case_7_case__4 x1 x4@((Curry.Module.Prelude.:<) x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_6(x6)(x5)(x1)(st))(st)+c__case_7_case__4 x1 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('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('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((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('a'))((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('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.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.:<)(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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_7_case__4 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleUnsafe.c__case_7_case__4(x1)(x)(st))(i)(xs)(st)+c__case_7_case__4 x1 x st = Curry.RunTimeSystem.patternFail("OracleUnsafe._case_7_case__4")(x)++++c__case_0_case__5 x1 x6 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_0_case__5 x1 x6 x8@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('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('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Q'))((Curry.Module.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.:<)(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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_0_case__5 x1 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleUnsafe.c__case_0_case__5(x1)(x6)(x)(st))(i)(xs)(st)+c__case_0_case__5 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleUnsafe._case_0_case__5")(x)++++c__case_1_case__6 x1 x6 x7 x5@Curry.Module.Prelude.List st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List)))(Curry.Module.OracleUnsafe.c__case_0(x6)(x7)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_all(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleChar.c_isSpace))))(x1)(st))(x7)(x10)(st))(x11)(st))(st)+c__case_1_case__6 x1 x6 x7 x5@((Curry.Module.Prelude.:<) x8 x9) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('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('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Q'))((Curry.Module.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.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('b'))((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('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((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(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_1_case__6 x1 x6 x7 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleUnsafe.c__case_1_case__6(x1)(x6)(x7)(x)(st))(i)(xs)(st)+c__case_1_case__6 x1 x6 x7 x st = Curry.RunTimeSystem.patternFail("OracleUnsafe._case_1_case__6")(x)++++c__case_2_case__7 x1 x5 x4@(Curry.Module.Prelude.T2 x6 x7) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_1(x6)(x7)(x5)(x1)(st))(st)+c__case_2_case__7 x1 x5 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleUnsafe.c__case_2_case__7(x1)(x5)(x)(st))(i)(xs)(st)+c__case_2_case__7 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleUnsafe._case_2_case__7")(x)++++c__case_3_case__8 x1 x3@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleUnsafe.c__case_2(x5)(x4)(x1)(st))(st)+c__case_3_case__8 x1 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.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('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('f'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('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('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('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Q'))((Curry.Module.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.:<)(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('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))(x1)(st))(st)+c__case_3_case__8 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleUnsafe.c__case_3_case__8(x1)(x)(st))(i)(xs)(st)+c__case_3_case__8 x1 x st = Curry.RunTimeSystem.patternFail("OracleUnsafe._case_3_case__8")(x)++
+ dist/build/Curry/Module/OracleXML.hs view
@@ -0,0 +1,1698 @@+{-# OPTIONS -cpp #-}++{-# LANGUAGE RankNTypes, ScopedTypeVariables, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances #-}++module Curry.Module.OracleXML (module Curry.Module.OracleXML) where++import Curry.RunTimeSystem+import Curry.Module.CEventOracle+import Curry.Module.Oracle+import Curry.Module.IOExts+import Curry.Module.XML+import Curry.Module.Char+import Curry.Module.List+import Curry.Module.Prelude+import Curry.Module.Read+import Curry.Module.OracleChar+import Curry.Module.OracleList+import Curry.Module.OraclePrelude+import Curry.Module.OracleRead++++-- begin included++++-- end included++c_encoding2Attribute :: Curry.Module.XML.C_Encoding -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_encoding2Attribute x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_121(x2)(x1)(st))(st)++++c_encoding2EncFunc :: Curry.Module.XML.C_Encoding -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_encoding2EncFunc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_120(x2)(x1)(st))(st)++++c_standardEncoding :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_standardEncoding x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_119(x2)(x1)(st))(st)++++c_iso88591Encoding :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_iso88591Encoding x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_110(x2)(x1)(st))(st)++++c_iso88591list :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Int+c_iso88591list x1 st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(Curry.Module.Prelude.List)))))))))))))))))))))))))))))))))))))))))))))))))))))))))(st)++++c_lookupEncoding :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlDocParams) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_Encoding+c_lookupEncoding x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_108(x2)(x1)(st))(st)++++c_lookupDtdUrl :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlDocParams) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_lookupDtdUrl x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_106(x2)(x1)(st))(st)++++c_hasDtdUrl :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlDocParams) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_hasDtdUrl x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_104(x2)(x1)(st))(st)++++c_xtxt :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xtxt x2 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.XML.C_XText(x2))(st)++++c_xml :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.XML.C_XmlExp+c_xml x2 x3 x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.XML.C_XElem(x2)(Curry.Module.Prelude.List)(x3))(st)++++c_writeXmlFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeXmlFile x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_writeXmlFileWithParams(x2)((Curry.Module.Prelude.:<)(Curry.Module.XML.C_Enc(Curry.Module.XML.C_StandardEnc))(Curry.Module.Prelude.List))(x3)(x1)(st))(st)++++c_writeXmlFileWithParams :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.XML.C_XmlDocParams) -> Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_writeXmlFileWithParams x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_writeFile(x2)(Curry.Module.OracleXML.c_showXmlDocWithParams(x3)(x4)(x1)(st))(x5)(st))(st)++++c_showXmlDoc :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlDoc x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_showXmlDocWithParams(Curry.Module.Prelude.List)(x2)(x1)(st))(st)++++c_showXmlDocWithParams :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlDocParams) -> Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlDocWithParams x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_102(x2)(x3)(x1)(st))(st)++++c_showXmlExp :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlExp x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_99(x2)(x3)(x4)(x1)(st))(st)++++c_showXmlExp'46_'35selFP3'35s :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlExp'46_'35selFP3'35s x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_96(x2)(x1)(st))(st)++++c_xtab :: Curry.Module.Prelude.C_Int -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xtab x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_take(x2)(Curry.Module.OraclePrelude.c_repeat(Curry.Module.Prelude.C_Char(' '))(x1)(st))(x3)(st))(st)++++c_showXmlOpenTag :: (Curry t0) => (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t0)) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlOpenTag x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(x2)(Curry.Module.OraclePrelude.c_concat(Curry.Module.OraclePrelude.c_map(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleXML.c_showXmlOpenTag'46attr2string'46125(x4)))))(x1)(st))(x3)(x5)(st))(x6)(st))(x7)(st))(x8)(st))(st)++++c_showXmlOpenTag'46attr2string'46125 :: (Curry t130) => (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (t130 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) -> (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) t130) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlOpenTag'46attr2string'46125 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_93(x2)(x3)(x1)(st))(st)++++c_showXmlExps :: Curry.Module.Prelude.C_Int -> (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> (Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> 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))) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_showXmlExps x2 x3 x4 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_concatMap(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleXML.c_showXmlExp(x2)(x4)))))(x1)(st))(x3)(x5)(st))(st)++++c_isXText :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_Bool+c_isXText x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_92(x2)(x1)(st))(st)++++c_xmlUnquoteSpecials :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xmlUnquoteSpecials x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_91(x2)(x1)(st))(st)++++c_xmlUnquoteSpecials'46_'35selFP5'35special :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xmlUnquoteSpecials'46_'35selFP5'35special x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_88(x2)(x1)(st))(st)++++c_xmlUnquoteSpecials'46_'35selFP6'35rest :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xmlUnquoteSpecials'46_'35selFP6'35rest x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_87(x2)(x1)(st))(st)++++c_xmlUnquoteSpecial :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_xmlUnquoteSpecial x2 x3 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_86(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))(x1)(st))(x4)(st))(st)++++c_unquoteUnicode :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_unquoteUnicode x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_73(x2)(x1)(st))(st)++++c_readXmlFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.XML.C_XmlExp))+c_readXmlFile x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleXML.c_readXmlFile'46_'35lambda3(x2)))))(x3)(st))(st)++++c_readXmlFile'46_'35lambda3 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.XML.C_XmlExp))+c_readXmlFile'46_'35lambda3 x2 x3 x1 st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(let {x4 = Curry.Module.OracleXML.c_parseXmlString(x3)(x1)(st)} in let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_68(x2)(x4)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.List)(x5)(st))(x6)(st))(st))(st)++++c_readUnsafeXmlFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.C_Maybe Curry.Module.XML.C_XmlExp)))+c_readUnsafeXmlFile x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.Oracle.c_catchFail(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleXML.c_readXmlFile(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCons(Curry.Module.Prelude.pc(Curry.Module.Prelude.C_Just))))(x3)(st))(x4)(st))(Curry.Module.OraclePrelude.c_return(Curry.Module.Prelude.C_Nothing)(x5)(st))(x6)(st))(st)++++c_showXmlFile :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO Curry.Module.Prelude.T0))+c_showXmlFile x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OracleXML.c_readXmlFile(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_putStr))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleXML.c_showXmlDoc))))(x3)(st))(x4)(st))(st)++++c_readFileWithXmlDocs :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.Prelude.T0 -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.C_IO (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)))+c_readFileWithXmlDocs x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.Oracle.op_62_62_61(Curry.Module.OraclePrelude.c_readFile(x2)(x1)(st))(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_return))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleXML.c_parseXmlString))))(x3)(st))(x4)(st))(st)++++c_parseXmlString :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlString x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_fst(Curry.Module.OracleXML.c_parseXmlTokens(Curry.Module.OracleXML.c_scanXmlString(x2)(x1)(st))(Curry.Module.Prelude.C_Nothing)(x3)(st))(x4)(st))(st)++++c_parseXmlTokens :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> (Curry.Module.Prelude.C_Maybe (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)+c_parseXmlTokens x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_66(x3)(x2)(x1)(st))(st)++++c_parseXmlTokens'46_'35selFP8'35xexps :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP8'35xexps x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_58(x2)(x1)(st))(st)++++c_parseXmlTokens'46_'35selFP9'35rem_xtokens :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP9'35rem_xtokens x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_57(x2)(x1)(st))(st)++++c_parseXmlTokens'46_'35selFP14'35xexps1 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP14'35xexps1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_56(x2)(x1)(st))(st)++++c_parseXmlTokens'46_'35selFP15'35xtokens1 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP15'35xtokens1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_55(x2)(x1)(st))(st)++++c_parseXmlTokens'46_'35selFP12'35xexps :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP12'35xexps x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_54(x2)(x1)(st))(st)++++c_parseXmlTokens'46_'35selFP13'35rem_xtokens :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP13'35rem_xtokens x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_53(x2)(x1)(st))(st)++++c_parseXmlTokens'46_'35selFP17'35xexps :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP17'35xexps x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_52(x2)(x1)(st))(st)++++c_parseXmlTokens'46_'35selFP18'35rem_xtokens :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP18'35rem_xtokens x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_51(x2)(x1)(st))(st)++++c_parseXmlTokens'46_'35selFP20'35xexps :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP20'35xexps x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_50(x2)(x1)(st))(st)++++c_parseXmlTokens'46_'35selFP21'35rem_xtokens :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_parseXmlTokens'46_'35selFP21'35rem_xtokens x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_49(x2)(x1)(st))(st)++++c_scanXmlString :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlString x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c_scanXmlString'46scanXml'46191(Curry.Module.Oracle.c_apply(Curry.Module.OracleXML.c_dropBlanks(x1)(st))(x2)(x3)(st))(x4)(st))(st)++++c_scanXmlString'46scanXml'46191 :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlString'46scanXml'46191 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_48(x2)(x1)(st))(st)++++c_scanXmlString'46scanXml'46191'46_'35selFP23'35initxt :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlString'46scanXml'46191'46_'35selFP23'35initxt x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_46(x2)(x1)(st))(st)++++c_scanXmlString'46scanXml'46191'46_'35selFP24'35remtag :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlString'46scanXml'46191'46_'35selFP24'35remtag x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_45(x2)(x1)(st))(st)++++c_scanXmlText :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_scanXmlText x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_44(x2)(x1)(st))(st)++++c_scanXmlText'46_'35selFP26'35txt :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlText'46_'35selFP26'35txt x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_39(x2)(x1)(st))(st)++++c_scanXmlText'46_'35selFP27'35rem :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlText'46_'35selFP27'35rem x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_38(x2)(x1)(st))(st)++++c_scanXmlText'46_'35selFP29'35txt :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlText'46_'35selFP29'35txt x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_37(x2)(x1)(st))(st)++++c_scanXmlText'46_'35selFP30'35rem :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlText'46_'35selFP30'35rem x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_36(x2)(x1)(st))(st)++++c_scanXmlElem :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlElem x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_35(x2)(x1)(st))(st)++++c_scanXmlElemName :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlElemName x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_30(x2)(x3)(x1)(st))(st)++++c_scanXmlElemName'46_'35selFP32'35attrs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_scanXmlElemName'46_'35selFP32'35attrs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_24(x2)(x1)(st))(st)++++c_scanXmlElemName'46_'35selFP33'35rest :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_scanXmlElemName'46_'35selFP33'35rest x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_23(x2)(x1)(st))(st)++++c_scanXmlComment :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlComment x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_22(x2)(x1)(st))(st)++++c_scanXmlCData :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlCData x2 x1 st = let {x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(let {x3 = Curry.Module.OracleXML.c_dropCData(x2)(x1)(st)} in let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c__case_20(x3)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_head(x3)(x4)(st))(Curry.Module.Prelude.C_Char('>'))(x5)(st))(x6)(st))(st))(st)++++c_dropCData :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_dropCData x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_19(x2)(x1)(st))(st)++++c_scanXmlProcInstr :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp+c_scanXmlProcInstr x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_15(x2)(x1)(st))(st)++++c_parseAttrs :: (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)+c_parseAttrs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_13(x2)(x1)(st))(st)++++c_parseAttrs'46_'35selFP41'35name :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_parseAttrs'46_'35selFP41'35name x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_10(x2)(x1)(st))(st)++++c_parseAttrs'46_'35selFP42'35rest1 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_parseAttrs'46_'35selFP42'35rest1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_9(x2)(x1)(st))(st)++++c_parseAttrs'46_'35selFP39'35value :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_parseAttrs'46_'35selFP39'35value x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_8(x2)(x1)(st))(st)++++c_parseAttrs'46_'35selFP40'35rest2 :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_parseAttrs'46_'35selFP40'35rest2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_7(x2)(x1)(st))(st)++++c_parseAttrs'46_'35selFP37'35rem_attrs :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_parseAttrs'46_'35selFP37'35rem_attrs x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_6(x2)(x1)(st))(st)++++c_parseAttrs'46_'35selFP38'35rem_inp :: (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))) (Curry.Module.Prelude.List Curry.Module.Prelude.C_Char)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_parseAttrs'46_'35selFP38'35rem_inp x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_5(x2)(x1)(st))(st)++++c_dropBlanks :: Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim (Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.Prim ((Curry.Module.Prelude.List Curry.Module.Prelude.C_Char) -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char))+c_dropBlanks x1 st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_dropWhile(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleChar.c_isSpace))))))))(st)++++c_splitAtChar :: (Curry t0) => t0 -> (Curry.Module.Prelude.List t0) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t0) (Curry.Module.Prelude.List t0)+c_splitAtChar x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_4(x2)(x3)(x1)(st))(st)++++c_splitAtChar'46_'35selFP44'35first :: (Curry t231) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t231) (Curry.Module.Prelude.List t231)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t231+c_splitAtChar'46_'35selFP44'35first x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_2(x2)(x1)(st))(st)++++c_splitAtChar'46_'35selFP45'35rest :: (Curry t231) => (Curry.Module.Prelude.T2 (Curry.Module.Prelude.List t231) (Curry.Module.Prelude.List t231)) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List t231+c_splitAtChar'46_'35selFP45'35rest x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_1(x2)(x1)(st))(st)++++c_textOfXml :: (Curry.Module.Prelude.List Curry.Module.XML.C_XmlExp) -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_textOfXml x2 x1 st = let {x3 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x4 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x3)((Curry.Module.Prelude.:<)(x4)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.c_concat(Curry.Module.OracleList.c_intersperse((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_filter(Curry.Module.OraclePrelude.op_46(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_not))))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_null))))(x1)(st))(Curry.Module.OraclePrelude.c_map(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleXML.c_textOfXml'46textOfXmlItem'46255))))(x2)(x3)(st))(x4)(st))(x5)(st))(x6)(st))(st)++++c_textOfXml'46textOfXmlItem'46255 :: Curry.Module.XML.C_XmlExp -> Curry.Module.CEventOracle.C_Ref -> Curry.RunTimeSystem.State -> Curry.Module.Prelude.List Curry.Module.Prelude.C_Char+c_textOfXml'46textOfXmlItem'46255 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_0(x2)(x1)(st))(st)++++c__case_0 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_0_case__121(x1)(x2)(st))(st)++++c__case_1 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_1_case__120(x1)(x2)(st))(st)++++c__case_2 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_2_case__119(x1)(x2)(st))(st)++++c__case_4 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_4_case__118(x1)(x2)(x3)(st))(st)++++c__case_3 x2 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_3_case__117(x1)(x2)(x4)(x5)(x9)(st))(st)++++c__case_5 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_5_case__116(x1)(x2)(st))(st)++++c__case_6 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_6_case__115(x1)(x2)(st))(st)++++c__case_7 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_7_case__114(x1)(x2)(st))(st)++++c__case_8 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_8_case__113(x1)(x2)(st))(st)++++c__case_9 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_9_case__112(x1)(x2)(st))(st)++++c__case_10 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_10_case__111(x1)(x2)(st))(st)++++c__case_13 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_13_case__110(x1)(x2)(st))(st)++++c__case_12 x3 x4 x14 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_12_case__109(x1)(x3)(x4)(x14)(st))(st)++++c__case_11 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_11_case__108(x1)(x3)(x4)(x5)(st))(st)++++c__case_15 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_15_case__107(x1)(x2)(st))(st)++++c__case_14 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_14_case__106(x1)(x4)(x5)(st))(st)++++c__case_19 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_19_case__105(x1)(x2)(st))(st)++++c__case_18 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_18_case__104(x1)(x3)(x4)(x5)(st))(st)++++c__case_17 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_17_case__103(x1)(x3)(x4)(x5)(st))(st)++++c__case_16 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_16_case__102(x1)(x4)(x5)(st))(st)++++c__case_20 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_20_case__101(x1)(x3)(x4)(st))(st)++++c__case_22 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_22_case__100(x1)(x2)(st))(st)++++c__case_21 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_21_case__99(x1)(x4)(x5)(st))(st)++++c__case_23 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_23_case__98(x1)(x2)(st))(st)++++c__case_24 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_24_case__97(x1)(x2)(st))(st)++++c__case_30 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_30_case__96(x1)(x2)(x3)(st))(st)++++c__case_29 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_29_case__95(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_28 x2 x4 x5 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_28_case__94(x1)(x2)(x4)(x5)(x9)(st))(st)++++c__case_26 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_26_case__93(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_25 x2 x4 x5 x6 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_25_case__92(x1)(x2)(x4)(x5)(x6)(st))(st)++++c__case_27 x2 x7 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_27_case__91(x1)(x2)(x7)(x8)(x9)(st))(st)++++c__case_35 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_35_case__90(x1)(x2)(st))(st)++++c__case_34 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_34_case__89(x1)(x3)(x4)(x5)(st))(st)++++c__case_32 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_32_case__88(x1)(x3)(x4)(x5)(st))(st)++++c__case_31 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_31_case__87(x1)(x3)(x4)(x5)(st))(st)++++c__case_33 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_33_case__86(x1)(x4)(x5)(st))(st)++++c__case_36 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_36_case__85(x1)(x2)(st))(st)++++c__case_37 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_37_case__84(x1)(x2)(st))(st)++++c__case_38 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_38_case__83(x1)(x2)(st))(st)++++c__case_39 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_39_case__82(x1)(x2)(st))(st)++++c__case_44 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_44_case__81(x1)(x2)(st))(st)++++c__case_43 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_43_case__80(x1)(x3)(x4)(x5)(st))(st)++++c__case_42 x3 x4 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_42_case__79(x1)(x3)(x4)(x8)(st))(st)++++c__case_40 x3 x4 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_40_case__78(x1)(x3)(x4)(x11)(st))(st)++++c__case_41 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_41_case__77(x1)(x6)(x7)(st))(st)++++c__case_45 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_45_case__76(x1)(x2)(st))(st)++++c__case_46 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_46_case__75(x1)(x2)(st))(st)++++c__case_48 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_48_case__74(x1)(x2)(st))(st)++++c__case_47 x3 x4 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_47_case__73(x1)(x3)(x4)(x8)(st))(st)++++c__case_49 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_49_case__72(x1)(x2)(st))(st)++++c__case_50 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_50_case__71(x1)(x2)(st))(st)++++c__case_51 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_51_case__70(x1)(x2)(st))(st)++++c__case_52 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_52_case__69(x1)(x2)(st))(st)++++c__case_53 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_53_case__68(x1)(x2)(st))(st)++++c__case_54 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_54_case__67(x1)(x2)(st))(st)++++c__case_55 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_55_case__66(x1)(x2)(st))(st)++++c__case_56 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_56_case__65(x1)(x2)(st))(st)++++c__case_57 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_57_case__64(x1)(x2)(st))(st)++++c__case_58 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_58_case__63(x1)(x2)(st))(st)++++c__case_66 x3 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_66_case__62(x1)(x3)(x2)(st))(st)++++c__case_64 x3 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_64_case__61(x1)(x3)(x5)(x4)(st))(st)++++c__case_63 x3 x5 x11 x12 x10 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_63_case__60(x1)(x3)(x5)(x11)(x12)(x10)(st))(st)++++c__case_62 x3 x5 x11 x12 x13 x14 x21 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_62_case__59(x1)(x3)(x5)(x11)(x12)(x13)(x14)(x21)(st))(st)++++c__case_61 x3 x5 x11 x12 x13 x14 x15 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_61_case__58(x1)(x3)(x5)(x11)(x12)(x13)(x14)(x15)(st))(st)++++c__case_59 x3 x5 x11 x12 x13 x14 x27 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_59_case__57(x1)(x3)(x5)(x11)(x12)(x13)(x14)(x27)(st))(st)++++c__case_60 x3 x5 x11 x12 x14 x24 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_60_case__56(x1)(x3)(x5)(x11)(x12)(x14)(x24)(st))(st)++++c__case_65 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_65_case__55(x1)(x3)(st))(st)++++c__case_68 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_68_case__54(x1)(x2)(x4)(x5)(st))(st)++++c__case_67 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_67_case__53(x1)(x2)(x4)(x5)(st))(st)++++c__case_73 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_73_case__52(x1)(x2)(st))(st)++++c__case_72 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_72_case__51(x1)(x3)(x4)(x5)(st))(st)++++c__case_69 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_69_case__50(x1)(x3)(x4)(x5)(st))(st)++++c__case_71 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_71_case__49(x1)(x4)(st))(st)++++c__case_70 x4 x5 x6 x7 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_70_case__48(x1)(x4)(x6)(x7)(st))(st)++++c__case_86 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_86_case__47(x1)(x2)(x3)(x4)(st))(st)++++c__case_85 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_85_case__46(x1)(x2)(x3)(x4)(st))(st)++++c__case_84 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_84_case__45(x1)(x2)(x3)(x4)(st))(st)++++c__case_83 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_83_case__44(x1)(x2)(x3)(x4)(st))(st)++++c__case_82 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_82_case__43(x1)(x2)(x3)(x4)(st))(st)++++c__case_81 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_81_case__42(x1)(x2)(x3)(x4)(st))(st)++++c__case_80 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_80_case__41(x1)(x2)(x3)(x4)(st))(st)++++c__case_79 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_79_case__40(x1)(x2)(x3)(x4)(st))(st)++++c__case_78 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_78_case__39(x1)(x2)(x3)(x4)(st))(st)++++c__case_77 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_77_case__38(x1)(x2)(x3)(x4)(st))(st)++++c__case_76 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_76_case__37(x1)(x2)(x3)(x4)(st))(st)++++c__case_75 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_75_case__36(x1)(x2)(x3)(x4)(st))(st)++++c__case_74 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_74_case__35(x1)(x2)(x3)(x4)(st))(st)++++c__case_87 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_87_case__34(x1)(x2)(st))(st)++++c__case_88 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_88_case__33(x1)(x2)(st))(st)++++c__case_91 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_91_case__32(x1)(x2)(st))(st)++++c__case_90 x3 x4 x8 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_90_case__31(x1)(x3)(x4)(x8)(st))(st)++++c__case_89 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_89_case__30(x1)(x3)(x4)(x5)(st))(st)++++c__case_92 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_92_case__29(x1)(x2)(st))(st)++++c__case_93 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_93_case__28(x1)(x2)(x3)(st))(st)++++c__case_96 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_96_case__27(x1)(x2)(st))(st)++++c__case_95 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_95_case__26(x1)(x4)(x3)(st))(st)++++c__case_94 x5 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_94_case__25(x1)(x5)(x4)(st))(st)++++c__case_99 x2 x3 x4 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_99_case__24(x1)(x2)(x3)(x4)(st))(st)++++c__case_98 x2 x3 x6 x8 x9 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_98_case__23(x1)(x2)(x3)(x6)(x8)(x9)(st))(st)++++c__case_97 x2 x3 x6 x8 x11 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_97_case__22(x1)(x2)(x3)(x6)(x8)(x11)(st))(st)++++c__case_102 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_102_case__21(x1)(x2)(x3)(st))(st)++++c__case_100 x2 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_100_case__20(x1)(x2)(x4)(x5)(st))(st)++++c__case_101 x2 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_101_case__19(x1)(x3)(st))(st)++++c__case_104 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_104_case__18(x1)(x2)(st))(st)++++c__case_103 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_103_case__17(x1)(x4)(x3)(st))(st)++++c__case_106 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_106_case__16(x1)(x2)(st))(st)++++c__case_105 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_105_case__15(x1)(x4)(x3)(st))(st)++++c__case_108 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_108_case__14(x1)(x2)(st))(st)++++c__case_107 x4 x3 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_107_case__13(x1)(x4)(x3)(st))(st)++++c__case_110 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_110_case__12(x1)(x2)(st))(st)++++c__case_109 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_109_case__11(x1)(x3)(x4)(x5)(st))(st)++++c__case_119 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_119_case__10(x1)(x2)(st))(st)++++c__case_118 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_118_case__9(x1)(x3)(x4)(x5)(st))(st)++++c__case_117 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_117_case__8(x1)(x3)(x4)(x5)(st))(st)++++c__case_116 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_116_case__7(x1)(x3)(x4)(x5)(st))(st)++++c__case_115 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_115_case__6(x1)(x3)(x4)(x5)(st))(st)++++c__case_114 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_114_case__5(x1)(x3)(x4)(x5)(st))(st)++++c__case_113 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_113_case__4(x1)(x3)(x4)(x5)(st))(st)++++c__case_112 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_112_case__3(x1)(x3)(x4)(x5)(st))(st)++++c__case_111 x3 x4 x5 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_111_case__2(x1)(x3)(x4)(x5)(st))(st)++++c__case_120 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_120_case__1(x1)(x2)(st))(st)++++c__case_121 x2 x1 st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_121_case__0(x1)(x2)(st))(st)++++c__case_121_case__0 x1 x2@Curry.Module.XML.C_StandardEnc st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_121_case__0 x1 x2@Curry.Module.XML.C_Iso88591Enc st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('8'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('8'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('5'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('9'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))))(st)+c__case_121_case__0 x1 (Curry.Module.XML.C_EncodingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_121_case__0(x1)(x)(st))(i)(xs)(st)+c__case_121_case__0 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_121_case__0")(x)++++c__case_120_case__1 x1 x2@Curry.Module.XML.C_StandardEnc st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleXML.c_standardEncoding))))(st)+c__case_120_case__1 x1 x2@Curry.Module.XML.C_Iso88591Enc st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OracleXML.c_iso88591Encoding))))(st)+c__case_120_case__1 x1 (Curry.Module.XML.C_EncodingOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_120_case__1(x1)(x)(st))(i)(xs)(st)+c__case_120_case__1 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_120_case__1")(x)++++c__case_111_case__2 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.OracleXML.c_standardEncoding(x4)(x1)(st)))(st)+c__case_111_case__2 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_111_case__2 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_111_case__2(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_111_case__2 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_111_case__2")(x)++++c__case_112_case__3 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(Curry.Module.OraclePrelude.c_ord(x3)(x1)(st))(x6)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_standardEncoding(x4)(x7)(st))(x8)(st))(x9)(st))(x10)(st))(st)+c__case_112_case__3 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_111(x3)(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x11)(st))(st)+c__case_112_case__3 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_112_case__3(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_112_case__3 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_112_case__3")(x)++++c__case_113_case__4 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.OraclePrelude.c_show(Curry.Module.OraclePrelude.c_ord(x3)(x1)(st))(x6)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_standardEncoding(x4)(x7)(st))(x8)(st))(x9)(st))(x10)(st))(st)+c__case_113_case__4 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c__case_112(x3)(x4)(Curry.Module.OraclePrelude.op_62(Curry.Module.OraclePrelude.c_ord(x3)(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi))))))))(x11)(st))(x12)(st))(st)+c__case_113_case__4 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_113_case__4(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_113_case__4 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_113_case__4")(x)++++c__case_114_case__5 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List)))))))(Curry.Module.OracleXML.c_standardEncoding(x4)(x1)(st))(x6)(st))(st)+c__case_114_case__5 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c__case_113(x3)(x4)(Curry.Module.OraclePrelude.op_60(Curry.Module.OraclePrelude.c_ord(x3)(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))))))(x7)(st))(x8)(st))(st)+c__case_114_case__5 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_114_case__5(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_114_case__5 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_114_case__5")(x)++++c__case_115_case__6 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('q'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List)))))))(Curry.Module.OracleXML.c_standardEncoding(x4)(x1)(st))(x6)(st))(st)+c__case_115_case__6 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_114(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\''))(x1)(st))(x7)(st))(st)+c__case_115_case__6 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_115_case__6(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_115_case__6 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_115_case__6")(x)++++c__case_116_case__7 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List))))))(Curry.Module.OracleXML.c_standardEncoding(x4)(x1)(st))(x6)(st))(st)+c__case_116_case__7 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_115(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('\"'))(x1)(st))(x7)(st))(st)+c__case_116_case__7 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_116_case__7(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_116_case__7 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_116_case__7")(x)++++c__case_117_case__8 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List)))))(Curry.Module.OracleXML.c_standardEncoding(x4)(x1)(st))(x6)(st))(st)+c__case_117_case__8 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_116(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('&'))(x1)(st))(x7)(st))(st)+c__case_117_case__8 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_117_case__8(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_117_case__8 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_117_case__8")(x)++++c__case_118_case__9 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List)))))(Curry.Module.OracleXML.c_standardEncoding(x4)(x1)(st))(x6)(st))(st)+c__case_118_case__9 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_117(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('>'))(x1)(st))(x7)(st))(st)+c__case_118_case__9 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_118_case__9(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_118_case__9 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_118_case__9")(x)++++c__case_119_case__10 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_119_case__10 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_118(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('<'))(x1)(st))(x5)(st))(st)+c__case_119_case__10 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_119_case__10(x1)(x)(st))(i)(xs)(st)+c__case_119_case__10 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_119_case__10")(x)++++c__case_109_case__11 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.OracleXML.c_iso88591Encoding(x4)(x1)(st)))(st)+c__case_109_case__11 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c_standardEncoding((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(x1)(st))(Curry.Module.OracleXML.c_iso88591Encoding(x4)(x6)(st))(x7)(st))(st)+c__case_109_case__11 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_109_case__11(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_109_case__11 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_109_case__11")(x)++++c__case_110_case__12 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_110_case__12 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OracleXML.c__case_109(x3)(x4)(Curry.Module.Oracle.c_apply(Curry.Module.OraclePrelude.c_elem(Curry.Module.OraclePrelude.c_ord(x3)(x1)(st))(x5)(st))(Curry.Module.OracleXML.c_iso88591list(x6)(st))(x7)(st))(x8)(st))(st)+c__case_110_case__12 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_110_case__12(x1)(x)(st))(i)(xs)(st)+c__case_110_case__12 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_110_case__12")(x)++++c__case_107_case__13 x1 x4 x3@(Curry.Module.XML.C_Enc x5) st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_107_case__13 x1 x4 x3@(Curry.Module.XML.C_DtdUrl x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_lookupEncoding(x4)(x1)(st))(st)+c__case_107_case__13 x1 x4 (Curry.Module.XML.C_XmlDocParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_107_case__13(x1)(x4)(x)(st))(i)(xs)(st)+c__case_107_case__13 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_107_case__13")(x)++++c__case_108_case__14 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_107(x4)(x3)(x1)(st))(st)+c__case_108_case__14 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.XML.C_StandardEnc)(st)+c__case_108_case__14 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_108_case__14(x1)(x)(st))(i)(xs)(st)+c__case_108_case__14 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_108_case__14")(x)++++c__case_105_case__15 x1 x4 x3@(Curry.Module.XML.C_Enc x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_lookupDtdUrl(x4)(x1)(st))(st)+c__case_105_case__15 x1 x4 x3@(Curry.Module.XML.C_DtdUrl x6) st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_105_case__15 x1 x4 (Curry.Module.XML.C_XmlDocParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_105_case__15(x1)(x4)(x)(st))(i)(xs)(st)+c__case_105_case__15 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_105_case__15")(x)++++c__case_106_case__16 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_105(x4)(x3)(x1)(st))(st)+c__case_106_case__16 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_106_case__16(x1)(x)(st))(i)(xs)(st)+c__case_106_case__16 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_106_case__16")(x)++++c__case_103_case__17 x1 x4 x3@(Curry.Module.XML.C_DtdUrl x5) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_103_case__17 x1 x4 x3@(Curry.Module.XML.C_Enc x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_hasDtdUrl(x4)(x1)(st))(st)+c__case_103_case__17 x1 x4 (Curry.Module.XML.C_XmlDocParamsOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_103_case__17(x1)(x4)(x)(st))(i)(xs)(st)+c__case_103_case__17 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_103_case__17")(x)++++c__case_104_case__18 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_104_case__18 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_103(x4)(x3)(x1)(st))(st)+c__case_104_case__18 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_104_case__18(x1)(x)(st))(i)(xs)(st)+c__case_104_case__18 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_104_case__18")(x)++++c__case_101_case__19 x1 x3@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))(Curry.Module.Prelude.List)))(st)+c__case_101_case__19 x1 x3@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List))))(st)+c__case_101_case__19 x1 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_101_case__19(x1)(x)(st))(i)(xs)(st)+c__case_101_case__19 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_101_case__19")(x)++++c__case_100_case__20 x1 x2 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('D'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('C'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('P'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))(Curry.Module.OraclePrelude.op_43_43(x4)(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('Y'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('S'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('T'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('E'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c_lookupDtdUrl(x2)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(x6)(st))(x7)(st))(x8)(st))(x9)(st))(st)+c__case_100_case__20 x1 x2 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_100_case__20 x1 x2 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_100_case__20(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_100_case__20 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_100_case__20")(x)++++c__case_102_case__21 x1 x2 x3@(Curry.Module.XML.C_XElem x4 x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))))))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('x'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('v'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('1'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('.'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('0'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List)))))))))))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c_encoding2Attribute(Curry.Module.OracleXML.c_lookupEncoding(x2)(x1)(st))(x7)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List)))))))))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c__case_101(x2)(Curry.Module.OracleXML.c_hasDtdUrl(x2)(x8)(st))(x9)(st))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('?'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c__case_100(x2)(x4)(Curry.Module.OracleXML.c_hasDtdUrl(x2)(x10)(st))(x11)(st))(Curry.Module.OracleXML.c_showXmlExp(Curry.Module.Prelude.C_Zero)(Curry.Module.OracleXML.c_encoding2EncFunc(Curry.Module.OracleXML.c_lookupEncoding(x2)(x12)(st))(x13)(st))(Curry.Module.XML.C_XElem(x4)(x5)(x6))(x14)(st))(x15)(st))(x16)(st))(x17)(st))(x18)(st))(x19)(st))(x20)(st))(st)+c__case_102_case__21 x1 x2 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_102_case__21(x1)(x2)(x)(st))(i)(xs)(st)+c__case_102_case__21 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_102_case__21")(x)++++c__case_97_case__22 x1 x2 x3 x6 x8 x11@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(x3)(Curry.Module.OracleXML.c_showXmlExp'46_'35selFP3'35s(x8)(x1)(st))(x12)(st))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(x13)(st))(x14)(st))(x15)(st))(x16)(st))(st))(st))(st)+c__case_97_case__22 x1 x2 x3 x6 x8 x11@Curry.Module.Prelude.C_False st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)((Curry.Module.Prelude.:<)(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))))))))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c_showXmlExps(Curry.Module.OraclePrelude.op_43(x2)(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x1)(st))(x8)(x3)(x17)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c_xtab(x2)(x18)(st))(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(x6)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))(x19)(st))(x20)(st))(x21)(st))(x22)(st))(x23)(st))(st)+c__case_97_case__22 x1 x2 x3 x6 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_97_case__22(x1)(x2)(x3)(x6)(x8)(x)(st))(i)(xs)(st)+c__case_97_case__22 x1 x2 x3 x6 x8 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_97_case__22")(x)++++c__case_98_case__23 x1 x2 x3 x6 x8 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('/'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List)))))(st)+c__case_98_case__23 x1 x2 x3 x6 x8 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))))))(Curry.Module.OracleXML.c__case_97(x2)(x3)(x6)(x8)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_length(x8)(x1)(st))(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_IHi))(x10)(st))(Curry.Module.OracleXML.c_isXText(Curry.Module.OraclePrelude.c_head(x8)(x11)(st))(x12)(st))(x13)(st))(x14)(st))(st)+c__case_98_case__23 x1 x2 x3 x6 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_98_case__23(x1)(x2)(x3)(x6)(x8)(x)(st))(i)(xs)(st)+c__case_98_case__23 x1 x2 x3 x6 x8 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_98_case__23")(x)++++c__case_99_case__24 x1 x2 x3 x4@(Curry.Module.XML.C_XText x5) st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c_xtab(x2)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(x3)(x5)(x9)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\n'))(Curry.Module.Prelude.List))(x10)(st))(x11)(st))(st)+c__case_99_case__24 x1 x2 x3 x4@(Curry.Module.XML.C_XElem x6 x7 x8) st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)((Curry.Module.Prelude.:<)(x13)((Curry.Module.Prelude.:<)(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c_xtab(x2)(x1)(st))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c_showXmlOpenTag(x6)(x7)(x3)(x12)(st))(Curry.Module.OracleXML.c__case_98(x2)(x3)(x6)(x8)(Curry.Module.OraclePrelude.op_61_61(x8)(Curry.Module.Prelude.List)(x13)(st))(x14)(st))(x15)(st))(x16)(st))(st)+c__case_99_case__24 x1 x2 x3 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_99_case__24(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_99_case__24 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_99_case__24")(x)++++c__case_94_case__25 x1 x5 x4@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(x5)(st)+c__case_94_case__25 x1 x5 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_94_case__25(x1)(x5)(x)(st))(i)(xs)(st)+c__case_94_case__25 x1 x5 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_94_case__25")(x)++++c__case_95_case__26 x1 x4 x3@(Curry.Module.XML.C_XText x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_94(x5)(x4)(x1)(st))(st)+c__case_95_case__26 x1 x4 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_95_case__26(x1)(x4)(x)(st))(i)(xs)(st)+c__case_95_case__26 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_95_case__26")(x)++++c__case_96_case__27 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_95(x4)(x3)(x1)(st))(st)+c__case_96_case__27 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_96_case__27(x1)(x)(st))(i)(xs)(st)+c__case_96_case__27 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_96_case__27")(x)++++c__case_93_case__28 x1 x2 x3@(Curry.Module.Prelude.T2 x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))))(Curry.Module.OraclePrelude.op_43_43(x4)(Curry.Module.OraclePrelude.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.OraclePrelude.op_43_43(Curry.Module.Oracle.c_apply(x2)(x5)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.Prelude.List))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_93_case__28 x1 x2 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_93_case__28(x1)(x2)(x)(st))(i)(xs)(st)+c__case_93_case__28 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_93_case__28")(x)++++c__case_92_case__29 x1 x2@(Curry.Module.XML.C_XText x3) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_True)(st)+c__case_92_case__29 x1 x2@(Curry.Module.XML.C_XElem x4 x5 x6) st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.C_False)(st)+c__case_92_case__29 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_92_case__29(x1)(x)(st))(i)(xs)(st)+c__case_92_case__29 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_92_case__29")(x)++++c__case_89_case__30 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(x3)(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x4)(x1)(st)))(st)+c__case_89_case__30 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_89_case__30 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_89_case__30(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_89_case__30 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_89_case__30")(x)++++c__case_90_case__31 x1 x3 x4 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleXML.c_splitAtChar(Curry.Module.Prelude.C_Char(';'))(x4)(x1)(st)} in let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x11)(Curry.Module.OracleXML.c_xmlUnquoteSpecial(Curry.Module.OracleXML.c_xmlUnquoteSpecials'46_'35selFP5'35special(x5)(x9)(st))(Curry.Module.OracleXML.c_xmlUnquoteSpecials'46_'35selFP6'35rest(x5)(x10)(st))(x11)(st))(st))(st))(st))(st)+c__case_90_case__31 x1 x3 x4 x8@Curry.Module.Prelude.C_False st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_89(x3)(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x12)(st))(st)+c__case_90_case__31 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_90_case__31(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_90_case__31 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_90_case__31")(x)++++c__case_91_case__32 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_91_case__32 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_90(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('&'))(x1)(st))(x5)(st))(st)+c__case_91_case__32 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_91_case__32(x1)(x)(st))(i)(xs)(st)+c__case_91_case__32 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_91_case__32")(x)++++c__case_88_case__33 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_88_case__33 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_88_case__33(x1)(x)(st))(i)(xs)(st)+c__case_88_case__33 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_88_case__33")(x)++++c__case_87_case__34 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_87_case__34 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_87_case__34(x1)(x)(st))(i)(xs)(st)+c__case_87_case__34 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_87_case__34")(x)++++c__case_74_case__35 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.op_43_43(Curry.Module.OracleXML.c_unquoteUnicode(x2)(x1)(st))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x5)(st))(x6)(st))(st)+c__case_74_case__35 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_74_case__35 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_74_case__35(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_74_case__35 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_74_case__35")(x)++++c__case_75_case__36 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x5)(st)))(st)+c__case_75_case__36 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_74(x2)(x3)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x6)(st))(st)+c__case_75_case__36 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_75_case__36(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_75_case__36 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_75_case__36")(x)++++c__case_76_case__37 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x5)(st)))(st)+c__case_76_case__37 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_75(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('z'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))(Curry.Module.Prelude.List))))))(x1)(st))(x6)(st))(st)+c__case_76_case__37 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_76_case__37(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_76_case__37 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_76_case__37")(x)++++c__case_77_case__38 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x5)(st)))(st)+c__case_77_case__38 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_76(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('U'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(x1)(st))(x6)(st))(st)+c__case_77_case__38 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_77_case__38(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_77_case__38 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_77_case__38")(x)++++c__case_78_case__39 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x5)(st)))(st)+c__case_78_case__39 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_77(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('O'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(x1)(st))(x6)(st))(st)+c__case_78_case__39 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_78_case__39(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_78_case__39 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_78_case__39")(x)++++c__case_79_case__40 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x5)(st)))(st)+c__case_79_case__40 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_78(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('A'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(x1)(st))(x6)(st))(st)+c__case_79_case__40 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_79_case__40(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_79_case__40 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_79_case__40")(x)++++c__case_80_case__41 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x5)(st)))(st)+c__case_80_case__41 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_79(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(x1)(st))(x6)(st))(st)+c__case_80_case__41 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_80_case__41(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_80_case__41 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_80_case__41")(x)++++c__case_81_case__42 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_I(Curry.Module.Prelude.C_IHi)))))))))(x1)(st))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x5)(st)))(st)+c__case_81_case__42 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_80(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(x1)(st))(x6)(st))(st)+c__case_81_case__42 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_81_case__42(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_81_case__42 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_81_case__42")(x)++++c__case_82_case__43 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\''))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x1)(st)))(st)+c__case_82_case__43 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_81(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))(Curry.Module.Prelude.List)))))(x1)(st))(x5)(st))(st)+c__case_82_case__43 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_82_case__43(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_82_case__43 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_82_case__43")(x)++++c__case_83_case__44 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x1)(st)))(st)+c__case_83_case__44 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_82(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))(Curry.Module.Prelude.List)))))(x1)(st))(x5)(st))(st)+c__case_83_case__44 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_83_case__44(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_83_case__44 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_83_case__44")(x)++++c__case_84_case__45 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x1)(st)))(st)+c__case_84_case__45 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_83(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('q'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))))(x1)(st))(x5)(st))(st)+c__case_84_case__45 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_84_case__45(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_84_case__45 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_84_case__45")(x)++++c__case_85_case__46 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x1)(st)))(st)+c__case_85_case__46 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_84(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('p'))(Curry.Module.Prelude.List))))(x1)(st))(x5)(st))(st)+c__case_85_case__46 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_85_case__46(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_85_case__46 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_85_case__46")(x)++++c__case_86_case__47 x1 x2 x3 x4@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x3)(x1)(st)))(st)+c__case_86_case__47 x1 x2 x3 x4@Curry.Module.Prelude.C_False st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_85(x2)(x3)(Curry.Module.OraclePrelude.op_61_61(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('g'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))(Curry.Module.Prelude.List)))(x1)(st))(x5)(st))(st)+c__case_86_case__47 x1 x2 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_86_case__47(x1)(x2)(x3)(x)(st))(i)(xs)(st)+c__case_86_case__47 x1 x2 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_86_case__47")(x)++++c__case_70_case__48 x1 x4 x6 x7@Curry.Module.Prelude.C_True st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OracleRead.c_readHex(x6)(x1)(st))(x8)(st))(Curry.Module.Prelude.List))(st)+c__case_70_case__48 x1 x4 x6 x7@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OracleRead.c_readInt(x4)(x1)(st))(x9)(st))(Curry.Module.Prelude.List))(st)+c__case_70_case__48 x1 x4 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_70_case__48(x1)(x4)(x6)(x)(st))(i)(xs)(st)+c__case_70_case__48 x1 x4 x6 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_70_case__48")(x)++++c__case_71_case__49 x1 x4@((Curry.Module.Prelude.:<) x5 x6) st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_70(x4)(x5)(x6)(Curry.Module.OraclePrelude.op_61_61(x5)(Curry.Module.Prelude.C_Char('x'))(x1)(st))(x7)(st))(st)+c__case_71_case__49 x1 x4@Curry.Module.Prelude.List st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.OraclePrelude.c_chr(Curry.Module.OracleRead.c_readInt(x4)(x1)(st))(x8)(st))(Curry.Module.Prelude.List))(st)+c__case_71_case__49 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_71_case__49(x1)(x)(st))(i)(xs)(st)+c__case_71_case__49 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_71_case__49")(x)++++c__case_69_case__50 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('&'))(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(x3)(x4))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(';'))(Curry.Module.Prelude.List))(x1)(st)))(st)+c__case_69_case__50 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_69_case__50 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_69_case__50(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_69_case__50 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_69_case__50")(x)++++c__case_72_case__51 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_71(x4)(x1)(st))(st)+c__case_72_case__51 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_69(x3)(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x6)(st))(st)+c__case_72_case__51 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_72_case__51(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_72_case__51 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_72_case__51")(x)++++c__case_73_case__52 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_73_case__52 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_72(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('#'))(x1)(st))(x5)(st))(st)+c__case_73_case__52 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_73_case__52(x1)(x)(st))(i)(xs)(st)+c__case_73_case__52 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_73_case__52")(x)++++c__case_67_case__53 x1 x2 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('r'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('h'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('X'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List))))))))))))))))))))))))))))))))))))))(x1)(st))(x6)(st))(x7)(st))(st)+c__case_67_case__53 x1 x2 x4 x5@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_return(Curry.Module.OraclePrelude.c_head(x4)(x1)(st))(x8)(st))(st)+c__case_67_case__53 x1 x2 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_67_case__53(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_67_case__53 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_67_case__53")(x)++++c__case_68_case__54 x1 x2 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OraclePrelude.c_error(Curry.Module.OraclePrelude.op_43_43((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('F'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('l'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(Curry.Module.Prelude.List))))))(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('a'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('i'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('s'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('X'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('M'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('L'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('d'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('o'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('c'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('u'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('m'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('e'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('n'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('t'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('!'))(Curry.Module.Prelude.List)))))))))))))))))))))))))))(x1)(st))(x6)(st))(x7)(st))(st)+c__case_68_case__54 x1 x2 x4 x5@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c__case_67(x2)(x4)(Curry.Module.OraclePrelude.op_47_61(Curry.Module.OraclePrelude.c_tail(x4)(x1)(st))(Curry.Module.Prelude.List)(x8)(st))(x9)(st))(st)+c__case_68_case__54 x1 x2 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_68_case__54(x1)(x2)(x4)(x)(st))(i)(xs)(st)+c__case_68_case__54 x1 x2 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_68_case__54")(x)++++c__case_65_case__55 x1 x3@Curry.Module.Prelude.C_Nothing st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_65_case__55 x1 (Curry.Module.Prelude.C_MaybeOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_65_case__55(x1)(x)(st))(i)(xs)(st)+c__case_65_case__55 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_65_case__55")(x)++++c__case_60_case__56 x1 x3 x5 x11 x12 x14 x24@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(x5))(st)+c__case_60_case__56 x1 x3 x5 x11 x12 x14 x24@Curry.Module.Prelude.C_False st = let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(let {x21 = Curry.Module.OracleXML.c_parseXmlTokens(x5)(x3)(x1)(st)} in let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x27)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem(x14)(x11)(x12))(Curry.Module.OracleXML.c_parseXmlTokens'46_'35selFP17'35xexps(x21)(x25)(st)))(Curry.Module.OracleXML.c_parseXmlTokens'46_'35selFP18'35rem_xtokens(x21)(x26)(st)))(st))(st))(st))(st)+c__case_60_case__56 x1 x3 x5 x11 x12 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_60_case__56(x1)(x3)(x5)(x11)(x12)(x14)(x)(st))(i)(xs)(st)+c__case_60_case__56 x1 x3 x5 x11 x12 x14 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_60_case__56")(x)++++c__case_59_case__57 x1 x3 x5 x11 x12 x13 x14 x27@Curry.Module.Prelude.C_True st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)(Curry.Module.Prelude.List))(let {x24 = Curry.Module.OracleXML.c_parseXmlTokens(x5)(x3)(x1)(st)} in let {x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x28)((Curry.Module.Prelude.:<)(x29)(Curry.Module.Prelude.List))(let {x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x29)((Curry.Module.Prelude.:<)(x30)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x30)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(x13)(x14))(x11)(x12))(Curry.Module.OracleXML.c_parseXmlTokens'46_'35selFP20'35xexps(x24)(x28)(st)))(Curry.Module.OracleXML.c_parseXmlTokens'46_'35selFP21'35rem_xtokens(x24)(x29)(st)))(st))(st))(st))(st)+c__case_59_case__57 x1 x3 x5 x11 x12 x13 x14 x27@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_59_case__57 x1 x3 x5 x11 x12 x13 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_59_case__57(x1)(x3)(x5)(x11)(x12)(x13)(x14)(x)(st))(i)(xs)(st)+c__case_59_case__57 x1 x3 x5 x11 x12 x13 x14 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_59_case__57")(x)++++c__case_61_case__58 x1 x3 x5 x11 x12 x13 x14 x15@Curry.Module.Prelude.C_True st = let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c__case_60(x3)(x5)(x11)(x12)(x14)(Curry.Module.OraclePrelude.c_maybe(Curry.Module.Prelude.C_False)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_61_61))(st))(Curry.Module.OraclePrelude.c_tail(x14)(x1)(st))))))(x3)(x16)(st))(x17)(st))(st)+c__case_61_case__58 x1 x3 x5 x11 x12 x13 x14 x15@Curry.Module.Prelude.C_False st = let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_59(x3)(x5)(x11)(x12)(x13)(x14)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x18)(st))(st)+c__case_61_case__58 x1 x3 x5 x11 x12 x13 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_61_case__58(x1)(x3)(x5)(x11)(x12)(x13)(x14)(x)(st))(i)(xs)(st)+c__case_61_case__58 x1 x3 x5 x11 x12 x13 x14 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_61_case__58")(x)++++c__case_62_case__59 x1 x3 x5 x11 x12 x13 x14 x21@Curry.Module.Prelude.C_True st = let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x22)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.OracleXML.c_parseXmlTokens(x5)(Curry.Module.Prelude.C_Just(x14))(x1)(st)} in let {x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x22)((Curry.Module.Prelude.:<)(x23)(Curry.Module.Prelude.List))(let {x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))(let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.OracleXML.c_parseXmlTokens(Curry.Module.OracleXML.c_parseXmlTokens'46_'35selFP15'35xtokens1(x15)(x23)(st))(x3)(x24)(st)} in let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x26)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x27)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem(x14)(x11)(Curry.Module.OracleXML.c_parseXmlTokens'46_'35selFP14'35xexps1(x15)(x22)(st)))(Curry.Module.OracleXML.c_parseXmlTokens'46_'35selFP12'35xexps(x18)(x25)(st)))(Curry.Module.OracleXML.c_parseXmlTokens'46_'35selFP13'35rem_xtokens(x18)(x26)(st)))(st))(st))(st))(st))(st))(st))(st)+c__case_62_case__59 x1 x3 x5 x11 x12 x13 x14 x21@Curry.Module.Prelude.C_False st = let {x28 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x29 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x30 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x31 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x28)((Curry.Module.Prelude.:<)(x29)((Curry.Module.Prelude.:<)(x30)((Curry.Module.Prelude.:<)(x31)(Curry.Module.Prelude.List)))))(Curry.Module.OracleXML.c__case_61(x3)(x5)(x11)(x12)(x13)(x14)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x13)(Curry.Module.Prelude.C_Char('<'))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_head(x14)(x28)(st))(Curry.Module.Prelude.C_Char('/'))(x29)(st))(x30)(st))(x31)(st))(st)+c__case_62_case__59 x1 x3 x5 x11 x12 x13 x14 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_62_case__59(x1)(x3)(x5)(x11)(x12)(x13)(x14)(x)(st))(i)(xs)(st)+c__case_62_case__59 x1 x3 x5 x11 x12 x13 x14 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_62_case__59")(x)++++c__case_63_case__60 x1 x3 x5 x11 x12 x10@((Curry.Module.Prelude.:<) x13 x14) st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)(Curry.Module.Prelude.List)))))(Curry.Module.OracleXML.c__case_62(x3)(x5)(x11)(x12)(x13)(x14)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x13)(Curry.Module.Prelude.C_Char('<'))(x1)(st))(Curry.Module.OraclePrelude.op_47_61(Curry.Module.OraclePrelude.c_head(x14)(x15)(st))(Curry.Module.Prelude.C_Char('/'))(x16)(st))(x17)(st))(x18)(st))(st)+c__case_63_case__60 x1 x3 x5 x11 x12 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_63_case__60(x1)(x3)(x5)(x11)(x12)(x)(st))(i)(xs)(st)+c__case_63_case__60 x1 x3 x5 x11 x12 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_63_case__60")(x)++++c__case_64_case__61 x1 x3 x5 x4@(Curry.Module.XML.C_XText x6) st = let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x7 = Curry.Module.OracleXML.c_parseXmlTokens(x5)(x3)(x1)(st)} in let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x15)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XText(Curry.Module.OracleXML.c_xmlUnquoteSpecials(x6)(x15)(st)))(Curry.Module.OracleXML.c_parseXmlTokens'46_'35selFP8'35xexps(x7)(x13)(st)))(Curry.Module.OracleXML.c_parseXmlTokens'46_'35selFP9'35rem_xtokens(x7)(x14)(st)))(st))(st))(st))(st)+c__case_64_case__61 x1 x3 x5 x4@(Curry.Module.XML.C_XElem x10 x11 x12) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_63(x3)(x5)(x11)(x12)(x10)(x1)(st))(st)+c__case_64_case__61 x1 x3 x5 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_64_case__61(x1)(x3)(x5)(x)(st))(i)(xs)(st)+c__case_64_case__61 x1 x3 x5 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_64_case__61")(x)++++c__case_66_case__62 x1 x3 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_65(x3)(x1)(st))(st)+c__case_66_case__62 x1 x3 x2@((Curry.Module.Prelude.:<) x4 x5) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c__case_64(x3)(x5)(x4)(x1)(st))(st)+c__case_66_case__62 x1 x3 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_66_case__62(x1)(x3)(x)(st))(i)(xs)(st)+c__case_66_case__62 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_66_case__62")(x)++++c__case_58_case__63 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_58_case__63 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_58_case__63(x1)(x)(st))(i)(xs)(st)+c__case_58_case__63 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_58_case__63")(x)++++c__case_57_case__64 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_57_case__64 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_57_case__64(x1)(x)(st))(i)(xs)(st)+c__case_57_case__64 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_57_case__64")(x)++++c__case_56_case__65 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_56_case__65 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_56_case__65(x1)(x)(st))(i)(xs)(st)+c__case_56_case__65 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_56_case__65")(x)++++c__case_55_case__66 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_55_case__66 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_55_case__66(x1)(x)(st))(i)(xs)(st)+c__case_55_case__66 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_55_case__66")(x)++++c__case_54_case__67 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_54_case__67 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_54_case__67(x1)(x)(st))(i)(xs)(st)+c__case_54_case__67 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_54_case__67")(x)++++c__case_53_case__68 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_53_case__68 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_53_case__68(x1)(x)(st))(i)(xs)(st)+c__case_53_case__68 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_53_case__68")(x)++++c__case_52_case__69 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_52_case__69 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_52_case__69(x1)(x)(st))(i)(xs)(st)+c__case_52_case__69 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_52_case__69")(x)++++c__case_51_case__70 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_51_case__70 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_51_case__70(x1)(x)(st))(i)(xs)(st)+c__case_51_case__70 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_51_case__70")(x)++++c__case_50_case__71 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_50_case__71 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_50_case__71(x1)(x)(st))(i)(xs)(st)+c__case_50_case__71 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_50_case__71")(x)++++c__case_49_case__72 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_49_case__72 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_49_case__72(x1)(x)(st))(i)(xs)(st)+c__case_49_case__72 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_49_case__72")(x)++++c__case_47_case__73 x1 x3 x4 x8@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_scanXmlElem(x4)(x1)(st))(st)+c__case_47_case__73 x1 x3 x4 x8@Curry.Module.Prelude.C_False st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleXML.c_scanXmlText((Curry.Module.Prelude.:<)(x3)(x4))(x1)(st)} in let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x9)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x11)((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XText(Curry.Module.OracleXML.c_scanXmlString'46scanXml'46191'46_'35selFP23'35initxt(x5)(x9)(st)))(Curry.Module.OracleXML.c_scanXmlString'46scanXml'46191(Curry.Module.OracleXML.c_scanXmlString'46scanXml'46191'46_'35selFP24'35remtag(x5)(x10)(st))(x11)(st)))(st))(st))(st))(st)+c__case_47_case__73 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_47_case__73(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_47_case__73 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_47_case__73")(x)++++c__case_48_case__74 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_48_case__74 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_47(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('<'))(x1)(st))(x5)(st))(st)+c__case_48_case__74 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_48_case__74(x1)(x)(st))(i)(xs)(st)+c__case_48_case__74 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_48_case__74")(x)++++c__case_46_case__75 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_46_case__75 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_46_case__75(x1)(x)(st))(i)(xs)(st)+c__case_46_case__75 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_46_case__75")(x)++++c__case_45_case__76 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_45_case__76 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_45_case__76(x1)(x)(st))(i)(xs)(st)+c__case_45_case__76 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_45_case__76")(x)++++c__case_41_case__77 x1 x6 x7@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(x6)(st)+c__case_41_case__77 x1 x6 x7@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char(' '))(x6))(st)+c__case_41_case__77 x1 x6 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_41_case__77(x1)(x6)(x)(st))(i)(xs)(st)+c__case_41_case__77 x1 x6 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_41_case__77")(x)++++c__case_40_case__78 x1 x3 x4 x11@Curry.Module.Prelude.C_True st = let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x8 = Curry.Module.OracleXML.c_scanXmlText(x4)(x1)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x14)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x3)(Curry.Module.OracleXML.c_scanXmlText'46_'35selFP29'35txt(x8)(x12)(st)))(Curry.Module.OracleXML.c_scanXmlText'46_'35selFP30'35rem(x8)(x13)(st)))(st))(st))(st))(st)+c__case_40_case__78 x1 x3 x4 x11@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_40_case__78 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_40_case__78(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_40_case__78 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_40_case__78")(x)++++c__case_42_case__79 x1 x3 x4 x8@Curry.Module.Prelude.C_True st = let {x9 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x9)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))))(let {x5 = Curry.Module.OracleXML.c_scanXmlText(Curry.Module.Oracle.c_apply(Curry.Module.OracleXML.c_dropBlanks(x1)(st))(x4)(x9)(st))(x10)(st)} in let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OracleXML.c_scanXmlText'46_'35selFP26'35txt(x5)(x11)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(Curry.Module.Prelude.T2(Curry.Module.OracleXML.c__case_41(x6)(Curry.Module.OraclePrelude.c_null(x6)(x13)(st))(x14)(st))(Curry.Module.OracleXML.c_scanXmlText'46_'35selFP27'35rem(x5)(x12)(st)))(st))(st))(st))(st)+c__case_42_case__79 x1 x3 x4 x8@Curry.Module.Prelude.C_False st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_40(x3)(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x15)(st))(st)+c__case_42_case__79 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_42_case__79(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_42_case__79 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_42_case__79")(x)++++c__case_43_case__80 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(x3)(x4)))(st)+c__case_43_case__80 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_42(x3)(x4)(Curry.Module.OracleChar.c_isSpace(x3)(x1)(st))(x6)(st))(st)+c__case_43_case__80 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_43_case__80(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_43_case__80 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_43_case__80")(x)++++c__case_44_case__81 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_44_case__81 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_43(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('<'))(x1)(st))(x5)(st))(st)+c__case_44_case__81 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_44_case__81(x1)(x)(st))(i)(xs)(st)+c__case_44_case__81 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_44_case__81")(x)++++c__case_39_case__82 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_39_case__82 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_39_case__82(x1)(x)(st))(i)(xs)(st)+c__case_39_case__82 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_39_case__82")(x)++++c__case_38_case__83 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_38_case__83 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_38_case__83(x1)(x)(st))(i)(xs)(st)+c__case_38_case__83 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_38_case__83")(x)++++c__case_37_case__84 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_37_case__84 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_37_case__84(x1)(x)(st))(i)(xs)(st)+c__case_37_case__84 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_37_case__84")(x)++++c__case_36_case__85 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_36_case__85 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_36_case__85(x1)(x)(st))(i)(xs)(st)+c__case_36_case__85 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_36_case__85")(x)++++c__case_33_case__86 x1 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_scanXmlComment(Curry.Module.OraclePrelude.c_drop(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x4)(x1)(st))(x6)(st))(st)+c__case_33_case__86 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_scanXmlCData(x4)(x1)(st))(st)+c__case_33_case__86 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_33_case__86(x1)(x4)(x)(st))(i)(xs)(st)+c__case_33_case__86 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_33_case__86")(x)++++c__case_31_case__87 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_scanXmlElemName((Curry.Module.Prelude.:<)(x3)(Curry.Module.Prelude.List))(x4)(x1)(st))(st)+c__case_31_case__87 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_31_case__87 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_31_case__87(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_31_case__87 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_31_case__87")(x)++++c__case_32_case__88 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_scanXmlProcInstr(x4)(x1)(st))(st)+c__case_32_case__88 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_31(x3)(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x6)(st))(st)+c__case_32_case__88 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_32_case__88(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_32_case__88 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_32_case__88")(x)++++c__case_34_case__89 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c__case_33(x4)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x4)(x1)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))(Curry.Module.Prelude.List)))(x6)(st))(x7)(st))(st)+c__case_34_case__89 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_32(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('?'))(x1)(st))(x8)(st))(st)+c__case_34_case__89 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_34_case__89(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_34_case__89 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_34_case__89")(x)++++c__case_35_case__90 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_35_case__90 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_34(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('!'))(x1)(st))(x5)(st))(st)+c__case_35_case__90 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_35_case__90(x1)(x)(st))(i)(xs)(st)+c__case_35_case__90 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_35_case__90")(x)++++c__case_27_case__91 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem(x2)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_scanXmlString(Curry.Module.OraclePrelude.c_drop(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x8)(x1)(st))(x10)(st)))(st)+c__case_27_case__91 x1 x2 x7 x8 x9@Curry.Module.Prelude.C_False st = let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))(x2))(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_scanXmlString(Curry.Module.OraclePrelude.c_tail(x8)(x1)(st))(x11)(st)))(st)+c__case_27_case__91 x1 x2 x7 x8 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_27_case__91(x1)(x2)(x7)(x8)(x)(st))(i)(xs)(st)+c__case_27_case__91 x1 x2 x7 x8 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_27_case__91")(x)++++c__case_25_case__92 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_scanXmlElemName(Curry.Module.OraclePrelude.op_43_43(x2)((Curry.Module.Prelude.:<)(x4)(Curry.Module.Prelude.List))(x1)(st))(x5)(x7)(st))(st)+c__case_25_case__92 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_25_case__92 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_25_case__92(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_25_case__92 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_25_case__92")(x)++++c__case_26_case__93 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem(x2)(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_scanXmlString(Curry.Module.OraclePrelude.c_tail(x5)(x1)(st))(x7)(st)))(st)+c__case_26_case__93 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_25(x2)(x4)(x5)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x8)(st))(st)+c__case_26_case__93 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_26_case__93(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_26_case__93 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_26_case__93")(x)++++c__case_28_case__94 x1 x2 x4 x5 x9@Curry.Module.Prelude.C_True st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)((Curry.Module.Prelude.:<)(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))))(let {x6 = Curry.Module.OracleXML.c_parseAttrs(Curry.Module.Oracle.c_apply(Curry.Module.OracleXML.c_dropBlanks(x1)(st))(x5)(x10)(st))(x11)(st)} in let {x13 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x12)((Curry.Module.Prelude.:<)(x13)(Curry.Module.Prelude.List))(let {x14 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x13)((Curry.Module.Prelude.:<)(x14)(Curry.Module.Prelude.List))(let {x8 = Curry.Module.OracleXML.c_scanXmlElemName'46_'35selFP33'35rest(x6)(x13)(st)} in let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x14)((Curry.Module.Prelude.:<)(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List)))(Curry.Module.OracleXML.c__case_27(x2)(Curry.Module.OracleXML.c_scanXmlElemName'46_'35selFP32'35attrs(x6)(x12)(st))(x8)(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_head(x8)(x14)(st))(Curry.Module.Prelude.C_Char('/'))(x15)(st))(x16)(st))(st))(st))(st))(st)+c__case_28_case__94 x1 x2 x4 x5 x9@Curry.Module.Prelude.C_False st = let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List)))))(Curry.Module.OracleXML.c__case_26(x2)(x4)(x5)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('/'))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_head(x5)(x17)(st))(Curry.Module.Prelude.C_Char('>'))(x18)(st))(x19)(st))(x20)(st))(st)+c__case_28_case__94 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_28_case__94(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_28_case__94 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_28_case__94")(x)++++c__case_29_case__95 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))(x2))(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_scanXmlString(x5)(x1)(st)))(st)+c__case_29_case__95 x1 x2 x4 x5 x6@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_28(x2)(x4)(x5)(Curry.Module.OracleChar.c_isSpace(x4)(x1)(st))(x7)(st))(st)+c__case_29_case__95 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_29_case__95(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_29_case__95 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_29_case__95")(x)++++c__case_30_case__96 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(Curry.Module.XML.C_XElem((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('<'))(x2))(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(Curry.Module.Prelude.List))(st)+c__case_30_case__96 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_29(x2)(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(Curry.Module.Prelude.C_Char('>'))(x1)(st))(x6)(st))(st)+c__case_30_case__96 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_30_case__96(x1)(x2)(x)(st))(i)(xs)(st)+c__case_30_case__96 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_30_case__96")(x)++++c__case_24_case__97 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_24_case__97 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_24_case__97(x1)(x)(st))(i)(xs)(st)+c__case_24_case__97 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_24_case__97")(x)++++c__case_23_case__98 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_23_case__98 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_23_case__98(x1)(x)(st))(i)(xs)(st)+c__case_23_case__98 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_23_case__98")(x)++++c__case_21_case__99 x1 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_scanXmlString(Curry.Module.OraclePrelude.c_drop(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x4)(x1)(st))(x6)(st))(st)+c__case_21_case__99 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_scanXmlComment(x4)(x1)(st))(st)+c__case_21_case__99 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_21_case__99(x1)(x4)(x)(st))(i)(xs)(st)+c__case_21_case__99 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_21_case__99")(x)++++c__case_22_case__100 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_22_case__100 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OracleXML.c__case_21(x3)(x4)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('-'))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_take(Curry.Module.Prelude.C_Pos(Curry.Module.Prelude.C_O(Curry.Module.Prelude.C_IHi)))(x4)(x5)(st))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('-'))((Curry.Module.Prelude.:<)(Curry.Module.Prelude.C_Char('>'))(Curry.Module.Prelude.List)))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_22_case__100 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_22_case__100(x1)(x)(st))(i)(xs)(st)+c__case_22_case__100 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_22_case__100")(x)++++c__case_20_case__101 x1 x3 x4@Curry.Module.Prelude.C_True st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_scanXmlString(Curry.Module.OraclePrelude.c_tail(x3)(x1)(st))(x5)(st))(st)+c__case_20_case__101 x1 x3 x4@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_scanXmlCData(x3)(x1)(st))(st)+c__case_20_case__101 x1 x3 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_20_case__101(x1)(x3)(x)(st))(i)(xs)(st)+c__case_20_case__101 x1 x3 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_20_case__101")(x)++++c__case_16_case__102 x1 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_dropCData(x4)(x1)(st))(st)+c__case_16_case__102 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_16_case__102 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_16_case__102(x1)(x4)(x)(st))(i)(xs)(st)+c__case_16_case__102 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_16_case__102")(x)++++c__case_17_case__103 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)((Curry.Module.Prelude.:<)(x3)(x4))(st)+c__case_17_case__103 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_16(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x6)(st))(st)+c__case_17_case__103 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_17_case__103(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_17_case__103 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_17_case__103")(x)++++c__case_18_case__104 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OraclePrelude.c_tail(Curry.Module.OraclePrelude.c_dropWhile(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partFunc(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.OraclePrelude.c_flip(Curry.Module.Oracle.c_compose(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_partCall))(Curry.Module.Prelude.cp(Curry.Module.Prelude.pa)(Curry.Module.Prelude.cp(Curry.Module.Prelude.pf))(Curry.Module.Oracle.c_compose(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.Oracle.c_partFunc))))(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.OraclePrelude.op_47_61))(st))(Curry.Module.Prelude.C_Char(']'))))))(x4)(x1)(st))(x6)(st))(st)+c__case_18_case__104 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = let {x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x7)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_17(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('>'))(x1)(st))(x7)(st))(st)+c__case_18_case__104 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_18_case__104(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_18_case__104 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_18_case__104")(x)++++c__case_19_case__105 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_19_case__105 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_18(x3)(x4)(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('['))(x1)(st))(x5)(st))(st)+c__case_19_case__105 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_19_case__105(x1)(x)(st))(i)(xs)(st)+c__case_19_case__105 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_19_case__105")(x)++++c__case_14_case__106 x1 x4 x5@Curry.Module.Prelude.C_True st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c_scanXmlString(Curry.Module.OraclePrelude.c_tail(x4)(x1)(st))(x6)(st))(st)+c__case_14_case__106 x1 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_scanXmlProcInstr(x4)(x1)(st))(st)+c__case_14_case__106 x1 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_14_case__106(x1)(x4)(x)(st))(i)(xs)(st)+c__case_14_case__106 x1 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_14_case__106")(x)++++c__case_15_case__107 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.List)(st)+c__case_15_case__107 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x7 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x8 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)((Curry.Module.Prelude.:<)(x6)((Curry.Module.Prelude.:<)(x7)((Curry.Module.Prelude.:<)(x8)(Curry.Module.Prelude.List)))))(Curry.Module.OracleXML.c__case_14(x3)(x4)(Curry.Module.OraclePrelude.op_38_38(Curry.Module.OraclePrelude.op_61_61(x3)(Curry.Module.Prelude.C_Char('?'))(x1)(st))(Curry.Module.OraclePrelude.op_61_61(Curry.Module.OraclePrelude.c_head(x4)(x5)(st))(Curry.Module.Prelude.C_Char('>'))(x6)(st))(x7)(st))(x8)(st))(st)+c__case_15_case__107 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_15_case__107(x1)(x)(st))(i)(xs)(st)+c__case_15_case__107 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_15_case__107")(x)++++c__case_11_case__108 x1 x3 x4 x5@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)((Curry.Module.Prelude.:<)(x3)(x4)))(st)+c__case_11_case__108 x1 x3 x4 x5@Curry.Module.Prelude.C_False st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OraclePrelude.c_failed(x1)(st))(st)+c__case_11_case__108 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_11_case__108(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_11_case__108 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_11_case__108")(x)++++c__case_12_case__109 x1 x3 x4 x14@Curry.Module.Prelude.C_True st = let {x15 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x15)(Curry.Module.Prelude.List))(let {x5 = Curry.Module.OracleXML.c_splitAtChar(Curry.Module.Prelude.C_Char('='))((Curry.Module.Prelude.:<)(x3)(x4))(x1)(st)} in let {x16 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x15)((Curry.Module.Prelude.:<)(x16)(Curry.Module.Prelude.List))(let {x17 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x16)((Curry.Module.Prelude.:<)(x17)(Curry.Module.Prelude.List))(let {x18 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x19 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x17)((Curry.Module.Prelude.:<)(x18)((Curry.Module.Prelude.:<)(x19)(Curry.Module.Prelude.List)))(let {x8 = Curry.Module.OracleXML.c_splitAtChar(Curry.Module.Prelude.C_Char('\"'))(Curry.Module.OraclePrelude.c_tail(Curry.Module.OracleXML.c_parseAttrs'46_'35selFP42'35rest1(x5)(x16)(st))(x17)(st))(x18)(st)} in let {x20 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x19)((Curry.Module.Prelude.:<)(x20)(Curry.Module.Prelude.List))(let {x21 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x20)((Curry.Module.Prelude.:<)(x21)(Curry.Module.Prelude.List))(let {x22 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x23 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st); x24 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x21)((Curry.Module.Prelude.:<)(x22)((Curry.Module.Prelude.:<)(x23)((Curry.Module.Prelude.:<)(x24)(Curry.Module.Prelude.List))))(let {x11 = Curry.Module.OracleXML.c_parseAttrs(Curry.Module.Oracle.c_apply(Curry.Module.OracleXML.c_dropBlanks(x21)(st))(Curry.Module.OracleXML.c_parseAttrs'46_'35selFP40'35rest2(x8)(x20)(st))(x22)(st))(x23)(st)} in let {x25 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x24)((Curry.Module.Prelude.:<)(x25)(Curry.Module.Prelude.List))(let {x26 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x25)((Curry.Module.Prelude.:<)(x26)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_replace(x26)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(Curry.Module.Prelude.T2(Curry.Module.OracleXML.c_parseAttrs'46_'35selFP41'35name(x5)(x15)(st))(Curry.Module.OracleXML.c_xmlUnquoteSpecials(Curry.Module.OracleXML.c_parseAttrs'46_'35selFP39'35value(x8)(x19)(st))(x26)(st)))(Curry.Module.OracleXML.c_parseAttrs'46_'35selFP37'35rem_attrs(x11)(x24)(st)))(Curry.Module.OracleXML.c_parseAttrs'46_'35selFP38'35rem_inp(x11)(x25)(st)))(st))(st))(st))(st))(st))(st))(st))(st))(st))(st)+c__case_12_case__109 x1 x3 x4 x14@Curry.Module.Prelude.C_False st = let {x27 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x27)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_11(x3)(x4)(Curry.Module.OraclePrelude.c_otherwise(x1)(st))(x27)(st))(st)+c__case_12_case__109 x1 x3 x4 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_12_case__109(x1)(x3)(x4)(x)(st))(i)(xs)(st)+c__case_12_case__109 x1 x3 x4 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_12_case__109")(x)++++c__case_13_case__110 x1 x2@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_13_case__110 x1 x2@((Curry.Module.Prelude.:<) x3 x4) st = let {x5 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x5)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_12(x3)(x4)(Curry.Module.OracleChar.c_isAlpha(x3)(x1)(st))(x5)(st))(st)+c__case_13_case__110 x1 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_13_case__110(x1)(x)(st))(i)(xs)(st)+c__case_13_case__110 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_13_case__110")(x)++++c__case_10_case__111 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_10_case__111 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_10_case__111(x1)(x)(st))(i)(xs)(st)+c__case_10_case__111 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_10_case__111")(x)++++c__case_9_case__112 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_9_case__112 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_9_case__112(x1)(x)(st))(i)(xs)(st)+c__case_9_case__112 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_9_case__112")(x)++++c__case_8_case__113 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_8_case__113 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_8_case__113(x1)(x)(st))(i)(xs)(st)+c__case_8_case__113 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_8_case__113")(x)++++c__case_7_case__114 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_7_case__114 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_7_case__114(x1)(x)(st))(i)(xs)(st)+c__case_7_case__114 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_7_case__114")(x)++++c__case_6_case__115 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_6_case__115 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_6_case__115(x1)(x)(st))(i)(xs)(st)+c__case_6_case__115 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_6_case__115")(x)++++c__case_5_case__116 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_5_case__116 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_5_case__116(x1)(x)(st))(i)(xs)(st)+c__case_5_case__116 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_5_case__116")(x)++++c__case_3_case__117 x1 x2 x4 x5 x9@Curry.Module.Prelude.C_True st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(x5))(st)+c__case_3_case__117 x1 x2 x4 x5 x9@Curry.Module.Prelude.C_False st = let {x10 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x10)(Curry.Module.Prelude.List))(let {x6 = Curry.Module.OracleXML.c_splitAtChar(x2)(x5)(x1)(st)} in let {x11 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x10)((Curry.Module.Prelude.:<)(x11)(Curry.Module.Prelude.List))(let {x12 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x11)((Curry.Module.Prelude.:<)(x12)(Curry.Module.Prelude.List))(Curry.Module.CEventOracle.c_collapse(x12)(Curry.Module.Prelude.T2((Curry.Module.Prelude.:<)(x4)(Curry.Module.OracleXML.c_splitAtChar'46_'35selFP44'35first(x6)(x10)(st)))(Curry.Module.OracleXML.c_splitAtChar'46_'35selFP45'35rest(x6)(x11)(st)))(st))(st))(st))(st)+c__case_3_case__117 x1 x2 x4 x5 (Curry.Module.Prelude.C_BoolOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_3_case__117(x1)(x2)(x4)(x5)(x)(st))(i)(xs)(st)+c__case_3_case__117 x1 x2 x4 x5 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_3_case__117")(x)++++c__case_4_case__118 x1 x2 x3@Curry.Module.Prelude.List st = Curry.Module.CEventOracle.c_collapse(x1)(Curry.Module.Prelude.T2(Curry.Module.Prelude.List)(Curry.Module.Prelude.List))(st)+c__case_4_case__118 x1 x2 x3@((Curry.Module.Prelude.:<) x4 x5) st = let {x6 = Curry.Module.CEventOracle.c_fresh(Curry.Module.Prelude.T0)(st)} in Curry.Module.CEventOracle.c_expand(x1)((Curry.Module.Prelude.:<)(x6)(Curry.Module.Prelude.List))(Curry.Module.OracleXML.c__case_3(x2)(x4)(x5)(Curry.Module.OraclePrelude.op_61_61(x4)(x2)(x1)(st))(x6)(st))(st)+c__case_4_case__118 x1 x2 (Curry.Module.Prelude.ListOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_4_case__118(x1)(x2)(x)(st))(i)(xs)(st)+c__case_4_case__118 x1 x2 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_4_case__118")(x)++++c__case_2_case__119 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_2_case__119 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_2_case__119(x1)(x)(st))(i)(xs)(st)+c__case_2_case__119 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_2_case__119")(x)++++c__case_1_case__120 x1 x2@(Curry.Module.Prelude.T2 x3 x4) st = Curry.Module.CEventOracle.c_collapse(x1)(x4)(st)+c__case_1_case__120 x1 (Curry.Module.Prelude.T2Or i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_1_case__120(x1)(x)(st))(i)(xs)(st)+c__case_1_case__120 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_1_case__120")(x)++++c__case_0_case__121 x1 x2@(Curry.Module.XML.C_XText x3) st = Curry.Module.CEventOracle.c_collapse(x1)(x3)(st)+c__case_0_case__121 x1 x2@(Curry.Module.XML.C_XElem x4 x5 x6) st = Curry.Module.CEventOracle.c_replace(x1)(Curry.Module.OracleXML.c_textOfXml(x6)(x1)(st))(st)+c__case_0_case__121 x1 (Curry.Module.XML.C_XmlExpOr i xs) st = Curry.RunTimeSystem.mapOr(\ x st -> Curry.Module.OracleXML.c__case_0_case__121(x1)(x)(st))(i)(xs)(st)+c__case_0_case__121 x1 x st = Curry.RunTimeSystem.patternFail("OracleXML._case_0_case__121")(x)++